MS Excel

helou páni a dámy..

prosím vás vie mi niekto povedať prečo mi nefunguje nasledovný príkaz VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Value = "splnené" Then
Target.Offset(0, -1).Value = Date
End If
End Sub

potrebujem v podstate vložiť aktuálny dátum do bunky v stĺpci F ak sa zmení hodnota vedľajšej bunky v stĺpci G na "splnené"..

som zúfalý.. ani GPT mi nedokáže pomôcť.. :D:D

Zaslat odpověď >

Strana: 1 2 další »

elninoslov(30.4.2023 18:16)#054880

1. V tom G sa to "splnené" objaví vzorcom, alebo je zadané manuálne napísaním či výberom z výberového zoznamu?
2. Môže nastať zmena viacerých buniek v G naraz?
3. Čo ak v F už dátum je?

Target.Column nemôžete testovať, ak meníte viac buniek a G je iba súčasťou. Treba to inak. Odpovedzte na upresňujúce otázky.citovat

Anonym(30.4.2023 18:43)#054881

Výberom zo zoznamu.. Nemôže nastať zmena viacerých naraz dátum tam je až keď je úloha splnená a následne sa s ňou už nič nerobí je to vlastne dátum splnenia.. Skúšal som to do bunky aj napísať ručne a nič..citovat

a3anko(30.4.2023 18:48)#054882

Ešte mi napadá že tabuľka začína až na 4 riadku a riadky pred tým obsahujú aj zlúčené bunky.. Nemôže v tom byť problém?citovat

elninoslov(30.4.2023 19:18)#054883

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bunka As Range

Set Bunka = Intersect(Columns("G"), Target)

If Not Bunka Is Nothing Then
If Bunka.Value = "splnené" Then
With Bunka.Cells(1).Offset(0, -1)
If IsEmpty(.Value) Then
Application.EnableEvents = False
.Value = Date
Application.EnableEvents = True
End If
End With
End If
End If
End Sub

Příloha: zip

54883_splnene.zip (14kB, staženo 3x)

citovat

a3anko(30.4.2023 19:24)#054884

Ďakujem.. Vyskúšam zajtra a dám znať..citovat

a3anko(12.5.2023 9:02)#054927

nefunguje to.. :( neviem či to nenahrávam zle alebo čo.. ja som to skopíroval do modulu kde mám všetky ostatné makrá.. môže to tak byť?citovat

knodl(12.5.2023 9:20)#054928

Změna na listu ('Worksheet_Change(ByVal Target as Range)') je událost a ta musí být zapsána v objektu listu, pro který má platit.
Nesmí tedy být klasickem "modulu".citovat

a3anko(12.5.2023 12:21)#054929

haleluuujaaa .. Ďakujem.. :)citovat

a3anko(12.5.2023 17:13)#054930

ešte by som chcel, keď už to mám takto nadosah.. dalo by sa to spraviť tak že toto všetko platí ale bunku F vymazať ak sa zmení vedľajšia bunka v stĺpci G na hocičo iné ako splnené?citovat

Jiří497(13.5.2023 0:19)#054931

Třeba takto

Příloha: zip