Eğer boşsa + satır formülü yardım

[carpediems]

EBOŞŞA VE SATIR PROBLEMİ DİYE DÜŞÜNÜYORUM. PROBLEMİM BİR SATIR BOŞSA ÜSTTEKİNİ YAZSIN, DOLUYSA ONU YAZSIN GİBİ. ALTTA LİNK MEVCUT.YARDIM EDERSENİZ SEVİNİRİM.

ARKADAŞLA GÖRDÜĞÜNÜZ GİBİ B2:B4, B6:B7 VE B9 BOŞ. İSTEDİĞİM ŞEY İSE;
D14 DE ANKARA,
D57 DE İSTANBUL,
D89 A İZMİR YAZMASI

http://s3.dosya.tc/server18/oSbrXV/YARDIML_TFEN.xls.html

 

[Murat OSMA]

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a%
    For i = 1 To Range("A65536").End(3).Row
        If Not IsNumeric(Cells(i, 2)) Then
            a = a + 1
            Cells(a, 4) = Cells(i, 2)
        End If
    Next i
    i = Empty: a = Empty
End Sub[/FONT]

Dosya gönderin en iyisi

 

[carpediems]

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, a%
    For i = 1 To Range("A65536").End(3).Row
        If Not IsNumeric(Cells(i, 2)) Then
            a = a + 1
            Cells(a, 4) = Cells(i, 2)
        End If
    Next i
    i = Empty: a = Empty
End Sub[/FONT]

Dosya gönderin en iyisi

Üstadım bu ne hız, bu ne şiddet ve celal Beni affet ama makro bilmiyorum. Bunu formüle dökme şansımız mevcutmudur. Teşekkürler.

 

[Murat OSMA]

Bu formülü kullanabilirsiniz;

=EĞER(B1="";$B$1;B1)

 

[carpediems]

Bu formülü kullanabilirsiniz;

=EĞER(B1="";$B$1;B1)

formülü d1 e kopyalayıp aşağı çektiğimde d6:d7 ve d9 ada ankara yazdı.

 

[Murat OSMA]

Deneyiniz;

=EĞER(B1="";KAYDIR(B1;-1;2);B1)

 

[carpediems]

Deneyiniz;

=EĞER(B1="";KAYDIR(B1;-1;2);B1)

ellerinize sağlık çok teşekkür ederim. iyi akşamlar üstadım.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.