how would i write this as a macro

[sl1990]

Hi how would i write this as a vba macro



if there is data in cell A3, search range B4:R4 for empty cells, if empty cells are found place the word "EMPTY" in T4. if there are no empty cells end macro.

if there is no data in cell A3 end macro



i know its a very easy question but i just cant get the hang of these macros !!

cheers

 

[Rick Rothstein]

Does it have to be a macro? This formula in T4 should do what you asked...

=IF(A3="","",IF(COUNTBLANK(B4:R4),"EMPTY",""))

 

[stnkynts]

I over emphasized a little for instuctional purposes. There are a ton of different ways to do this like .specialcells but i think that this way might be the easiest for you to understand and remember.

Option Explicit
Sub Example()
Dim icell As Range
 
If Not IsEmpty(Sheets("Sheet1").Range("A3")) Then
    For Each icell In Range("B4:R4")
        If IsEmpty(icell) Then
            icell.Value = "Empty"
        Else
            'If it is not blank then nothing
        End If
    Next icell
Else
    'if A3 is blank then nothing
End If
 
End Sub