Zdravím,
mám menší problém s kódem viz níže. při spuštění makra, kdy se mi jednotlivé sloupce kopírují do jiného listu mi řádek If Target = "" Then - vyhazuje chybu. V tomto sloupci mám automatické otevírání kalendáře po kliknutí na buňku.
Předem děkuji za pomoc..
Option Explicit
Private Sub CommandButton1_Click()
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oblast As Range
Dim Cancel As Boolean
Dim formular As UserForm1
Dim datum
Dim dat As String
Set oblast = Range("A1033:B7000")
'paby to fungovalo jen pro vymezenou oblast
If Intersect(Target, oblast) Is Nothing Then Exit Sub
'zrušení výběru buněk, které by za normálních okolností byly vybrany
Cancel = True
'If Target.Column = 1 And (Target.Row >= 4 And Target.Row <= 41) Then
If Target = "" Then
UserForm1.Show
datum = Range("W3").Value
Dim den, mesic
den = Day(datum)
mesic = Month(datum)
If den < 10 Then
den = "0" & den
End If
If mesic < 10 Then
mesic = "0" & mesic
End If
dat = mesic & "/" & den
Target.Value = dat
End If
End Sub
Problém s kódem VBA
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 6
- 1491
-
od mmmartin
Zobrazit poslední příspěvek
09 lis 2023 21:09
-
- 17
- 1980
-
od RIKI22
Zobrazit poslední příspěvek
14 pro 2023 17:30
-
- 15
- 1100
-
od petr22
Zobrazit poslední příspěvek
03 úno 2024 12:32
-
- 1
- 780
-
od petr22
Zobrazit poslední příspěvek
21 říj 2023 15:36
-
-
Problem s připojením Příloha(y)
od Fantousek » 04 zář 2023 11:10 » v Internet a internetové prohlížeče - 8
- 1663
-
od Fantousek
Zobrazit poslední příspěvek
04 zář 2023 16:23
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů