Hvis makro

Ja sagtens ;O)))

Sub MinMacro()
'
  Dim vStartRow As Long, vEndRow As Long
  Dim vCounter As Long
  vStartRow = 1 'Her sætter du værdien på startrækken
  vEndRow = 80 'Her sætter du værdien på slutrækken
 
    For vCounter = vStartRow To vEndRow
    If Cells(vCounter, 4).Value = "" Then '4 angiver fjerde kolonne (D)
        'slet indhold af A.
        Cells(vCounter, 1).Value = "" '1 angiver kolonne 1 (A)
    End If
    Next
End Sub

Her er en mulighed :

Sub checkCells()
Dim rngCheck As Range
Dim cell As Range

  Set rngCheck = Range("D1:D4")

    For Each cell In rngCheck
      If cell = "" Then Cells(cell.Row, 1).ClearContents
    Next

End Sub

smid et svar

Hvem af os ?

tja madschristensen, du var jo først , så smid du et svar

Allrightythen ;O))