*Løst* VBA funskjon i excel

[Nasams]

Jeg trenger noe hjelp til en funksjon i excel som skal kopiere verdi fra en celle om en gitt celle er tom. Skal forklare nærmere her.

 

I kolonne L og M står det datoer. Funksjonen må sjekke om hver celle i kollonne L innehar datoer.

Hvis cellen har en dato, skal denne stå som den er.

Hvis cellen ikke har dato, skal den kopiere infoen fra samme celle i kolonne M.

 

Dette må den sjekke for hver eneste rad, såfremt det står noe i kollonne A.

Er kollonne A tom må denne spørringen avsluttes.

 

Er litt "lost" her, og håper noen snille sjeler kan hjelpe

Endret 12. september 2006 av Nasams

[Harald Staff]

Sub KopierDatoer()

Dim R As Long

With ActiveSheet

For R = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

If IsDate(.Cells(R, 12).Value) Then

If .Cells(R, 12).Value < 10 Then _

.Cells(R, 12).Value = .Cells(R, 13).Value

Else

.Cells(R, 12).Value = .Cells(R, 13).Value

End If

Next

End Sub

 

HTH. Beste hilsen Harald

[Nasams]

Hei,

 

Dette fungerte bra. Takker og bukker!