Makro, der indsætter tid det ene eller det andet sted
Hej eksperter.Jeg har en makro, der når jeg trykker på en knap, går til en række defineret ved dags dato, og her indsætter det aktuelle klokkeslet i kolonne G. Jeg ønsker makroen udvidet, så den, i tilfælde af der allerede står en værdi i kolonne H, i stedet indsætter klokkeslettet i kolonne I. Makroen ser pt. således ud:
Sub Indsætstart()
Application.EnableEvents = False
Dim v As Variant
Dim c As Range
Dim lRow As Long
With Sheets("Timeseddel - sagsregnskab").Range("A12:A409")
v = Format(Date, "dd.mm.yy")
Set c = .Find(v, LookIn:=xlValues)
If Not c Is Nothing Then
lRow = c.Row
Sheets("Timeseddel - sagsregnskab").Select
Range("G" & lRow).Select
ActiveCell.FormulaR1C1 = Time
Sheets("Detaljeregistrering").Select
Range("D11").Select
Application.CutCopyMode = False
Else
MsgBox "Dato ikke fundet"
End If
End With
Application.EnableEvents = True
End Sub
