så här ser koden utPrivate Sub CommandButton1_Click() For i = 45 To 500If Blad1.Cells(i, "a") = "" Then Blad1.Cells(i, "b") = Date Blad1.Cells(i, "a") = Format(Time(), "short time") GoTo Outit End IfNext iOutit:Exit SubEnd Sub sen tänkte jag att det var ett exel problem men då vet jag till ...
|