neseterkutsesli
Altın Üye
- Katılım
- 12 Ağustos 2011
- Mesajlar
- 402
- Excel Vers. ve Dili
- Microsoft Office 2019
Windows 11 Home Single Language
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Emre()
Dim i As Integer
For i = 2 To [F1].CurrentRegion.Rows.Count
If Cells(i, "F") = "DELPHI" Then
If Cells(i, "G") = "KAMPANYA" Or Cells(i, "G") = "OZELFIAT" Then
Cells(i, "H") = "*"
Else
Cells(i, "H") = ""
End If
End If
Next i
i = Empty
End Sub