Problém s kódem VBA

...

Moderátor: Mods_senior

Adriel12
nováček
Příspěvky: 3
Registrován: prosinec 16
Pohlaví: Nespecifikováno
Stav:
Offline

Problém s kódem VBA

Příspěvekod Adriel12 » 28 dub 2017 08:42

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

Reklama
  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Vir? - CMD problém Příloha(y)
    od glajdowicz » 09 lis 2023 15:49 » v Windows 11, 10, 8...
    6
    1491
    od mmmartin Zobrazit poslední příspěvek
    09 lis 2023 21:09
  • USB HDD - problém Příloha(y)
    od andrej71 » 13 pro 2023 13:29 » v Problémy s hardwarem
    17
    1980
    od RIKI22 Zobrazit poslední příspěvek
    14 pro 2023 17:30
  • Problem s fps Příloha(y)
    od Shokata88 » 02 úno 2024 00:10 » v Rady s výběrem hw a sestavením PC
    15
    1100
    od petr22 Zobrazit poslední příspěvek
    03 úno 2024 12:32
  • Problém BIOS asi Příloha(y)
    od Styxik » 21 říj 2023 15:25 » v Problémy s hardwarem
    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

Zpět na “Vše ostatní (sw)”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů