DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub test()
Dim s1 As Worksheet, i As Long, k As Long, son As Long
Set s1 = Sheet1
son = s1.Cells(Rows.Count, 4).End(3).Row
s1.Range("K:K").Clear: s1.Range("K3") = "Renk Yazmayan İsimler"
k = 4
For i = 4 To son
If s1.Cells(i, 5) = "" Then
s1.Cells(k, 11) = s1.Cells(i, 4)
k = k + 1
End If
Next i
End Sub
Tam istediğim gibi.Çok teşekkür ederim.Sizi uğraştırdım kusuruma bakmayın elinize emeğinize sağlıkFormül örneği.
Dizi formülüdür.
Kod:=EĞERHATA(İNDİS($D$4:$D$11;KÜÇÜK(EĞER($E$4:$E$11="";SATIR($D$4:$D$11)-3;"");SATIR(K1)));"")