Soru Boş hücrelerin karşısındaki isimleri bulma

[MESUT K]

Herkese merhaba

Aşağıda resimde belirtilen sorun için bilen arkadaşlardan yardım istiyorum.

 

[AdemCan]

Örnek.
K sütununa isimleri alır.

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

Spoyler: Sonuç

 

[MESUT K]

Kodla değilde formülle yapılabilirmi

 

[AdemCan]

Formül örneği.
Dizi formülüdür.

=EĞERHATA(İNDİS($D$4:$D$11;KÜÇÜK(EĞER($E$4:$E$11="";SATIR($D$4:$D$11)-3;"");SATIR(K1)));"")

Spoyler: Sonuç

 

[MESUT K]

Formül örneği.
Dizi formülüdür.

=EĞERHATA(İNDİS($D$4:$D$11;KÜÇÜK(EĞER($E$4:$E$11="";SATIR($D$4:$D$11)-3;"");SATIR(K1)));"")

Spoyler: Sonuç

Ekli dosyayı görüntüle 240170

Tam istediğim gibi.Çok teşekkür ederim.Sizi uğraştırdım kusuruma bakmayın elinize emeğinize sağlık

 

[AdemCan]

Rica ederim.

 

[MESUT K]

Formül birleştirilmemiş hücrede çalışıyor ,Birleştirilmiş hücrede nasıl yol izlenebilir

ara_formulle.xlsx dosyasını indir - download

ara_formulle.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[AdemCan]

=EĞERHATA(İNDİS($D$4:$D$11;KÜÇÜK(EĞER($F$4:$F$11="";SATIR($D$4:$D$11)-3;"");SATIR(K1)));"")

 

[MESUT K]

Formül Çalıştı Çok Teşekkürler

 

[AdemCan]

Rica ederim.