Print side | Luk vindue

Udfyldelse af kolonne på betingelse af ...

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=450
Udskrevet den: 18.Maj.2024 kl. 11:05


Emne: Udfyldelse af kolonne på betingelse af ...
Besked fra: Len_Han
Emne: Udfyldelse af kolonne på betingelse af ...
Posteringsdato: 05.Sep.2011 kl. 18:56
Jeg ønsker at indsætte current date (format dd.mm.yyyy) i kolonne x ,
men kun når kolonne y er blevet ændret (siden aktuel indlæsning af fil).
Hvordan pokker gør jeg det ?



Svar:
Besked fra: Allan
Posteringsdato: 06.Sep.2011 kl. 11:30
Hej,
 
Jeg antager at dine kolonnebogstaver er fiktive (x og y)
Denne kodestump skal placeres under selve arket som skal have funktionen.
Ved ændring af værdien i kolonne A, vil koden notere datoen i samme række i kolonne B
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then
    Range("B" & Target.Row) = Format(Date, "dd.mm.yyyy")
End If
End Sub
 
Er dette sådan nogenlunde som du ønsker Tongue
 
//Allan



Print side | Luk vindue