HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.332
- Office versie
- Office 365
Nieuwe poging.
Code:
Sub hsv()
Dim cl As Range
With Sheets("Blad1")
For Each cl In .Range("A5:A" & .UsedRange.Rows.Count)
If cl.Offset(, 5) = vbNullString Then
cl.Offset(, 2) = cl.Offset(, 1)
Else
cl.Offset(, 2).ClearContents
End If
Next
End With
End Sub