değer olmayan satılrarı makro ile biçimlendirme

[jinken]

ekli dosyamdaki ham ürünler satırında değer olayan satırları örneğin g4 sütununda değer yok ise a4 ve g4'e kadar kırmızı yapmasını istiyorum. formül kullanmak istemiyorum.

 

[Emir Hüseyin Çoban]

. . .

Forumda bir çok defa işlenen bir soru.
Forumda Arama yapamanızı öneririm.

Sub kod()
Application.ScreenUpdating = False
Range("A2:G65536").Interior.Color = xlNone
For i = 2 To [F65536].End(3).Row
If Cells(i, "G") = "" Or Cells(i, "G") = "0" Then
Range("A" & i & ":G" & i).Interior.Color = 65535
Else: End If
Next i
Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[jinken]

teşekkür ederim elleriniz dert görmesin.