DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Dim hcr As Range
For Each hcr In Range("e3:e" & [e65536].End(3).Row)
Set hcr = Range("e3:e" & [e65536].End(3).Row).Find("atac", hcr)
If Not hcr Is Nothing Then
hcr.Offset(0, 0).Interior.ColorIndex = 6
hcr.Offset(0, 1).Interior.ColorIndex = 6
End If
Next
Set hcr = Nothing
End Sub