Sziasztok!
Az alábbi programot szeretném működőképessé tenni, sajnos napok óta próbálkozom, de nekem nem megy!
/ Nem értek a programozáshoz, az alábbi programot is itt kaptam /
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 29 Then
Application.EnableEvents = False
If Target = „Kezdés” Then Cells(Target.Row, „Ad”) = Now
Application.EnableEvents = True
If Target = „Kész” Then Cells(Target.Row, „AF”) = Now Else Cells(Target.Row, „AE”) = Now
Application.EnableEvents = True
End If
End Sub
Azt szeretném elérni, hogy a lenyíló listában szereplő szavak kiválasztása után , különböző cellákaba kerüljön az aktuális idő.
Ha „Kezdés” szerepel, akkor az „AD” oszlopba írjon
Ha „Kész” szerepel, akkor „AF” oszlpba írjon
Minden más szövegnél az „AE” oszlopba írjon.
Sajnos jelenleg – a fentebb látható program – végrehajtásakor a „Kezdés”-nél nem csak az „AD” oszlopot tölti, hanem az „AE”-t is.
Ha valaki tud segíteni, nagyon megköszönöm!
ÜDvözlettel NIN
.
