Excelde oluşturğum tablodaki boşlukları , başka bir tabloda otomatik kaydırma

[orhancelebii]

Acil yardım lütfen..
Dosya ektedir. Dosyada açıklama ve örnek mevcuttur.
TEŞEKKÜRLER..

 

[hamitcan]

Sub test()
    c = 1
    For Each hcr In [b3:v3]
        If hcr <> "" Then
            c = c + 1
            Cells(10, c) = hcr
        End If
    Next
End Sub

 

[orhancelebii]

Sn Hamitcan, benim makro bilgim hiç yok bana normal bir formul verebilir misiniz ya da bunu dosyama nasıl uygulayabilirm onu söyleyebilir misiniz?
TEŞEKKÜRLER..

 

[Ali]

Ekteki örneği inceleyiniz.B10 ve V10 aralığındaki formül dizi formülüdür.

Not: Dizi formülü girilirken CTRL+SHIFT+ENTER tuşuna basılarak girilir. Bu işlem sonucu Excel formül başına ve sonuna otomatik olarak { } ayıraçlarını ekler.

 

[orhancelebii]

bakıyorum şimdi çok teşekkür ederim..