Son Dolu Hücreye göre sütun başlığını satırda göstermek

[YENERB]

Merhabalar,

Satırdaki 0'dan büyük son dolu hücreye göre sütun başlığı olan tarihleri satırda göstermek istiyorum yardımcı olabilirseniz sevinirim.

Syg,

YB

 

[Murat OSMA]

Şu kodlar bir deneyiniz;

Sub Emre()
    Dim i As Integer
    For i = 2 To Range("A65536").End(3).Row
        Cells(i, "T") = Cells(i, Columns.Count).End(1).Value
    Next i
    i = Empty
End Sub

 

[YENERB]

Teşekkür ederim.

Bu kodlamayla son satış adetleri geliyor. Oysa ben son adetlerin olduğu sütun başlığındaki tarihleri getirmek istiyorum.

Saygılar,

 

[Murat OSMA]

Afedersiniz haklısınız, deneme yapmadığım için farkedemedim.

Şu kodları bir deneyiniz lütfen;

Sub Emre()
    Dim i As Integer
    For i = 2 To Range("A65536").End(3).Row
        Cells(i, "T") = ""
        Cells(i, "T") = Cells(i, Columns.Count).End(1).End(3).Value
    Next i
    i = Empty
End Sub

 

[Korhan Ayhan]

Merhaba,

Formülle yapmak isterseniz;

=ARA(2;1/(B2:S2<>"");$B$1:$S$1)

 

[YENERB]

Teşekkür ederim tekrar sizi uğraştırıyorum fakat şöyle bir hata oluştu. Sütun başlığı aynı tarih olan hücreleri tarih olarak değil değer olarak getiriyor.

Saygılar,

 

[Murat OSMA]

Korhan Bey'in mesajını dikkate alırsanız sorun olmaz...

 

[YENERB]

Merhaba,

Yok sizin komutlarınız üzerinden gidiyorum. Kodlama üzerinde değişiklik yapmayı denedim fakat değer geliyor tarih gelmiyor. Belirttiğim üzere; sütun başlığı aynı olan tarihler değer olarak düşüyor.

Syg,

 

[YENERB]

Pardon Korhan Bey'in mesajını da uyguladım #value hatası verdi...

 

[Murat OSMA]

Korhan Bey'in önerdiği formülde bir hata yok..

Ek'i inceleyiniz...

 

[Korhan Ayhan]

Merhaba,

Siz İngilizce versiyon kullanıyorsunuz. Formülü İngilizce yazmanız gerekiyor.

ARA = LOOKUP

 

[YENERB]

Ok pardon ara komutunu find olarak almıştım. Çok teşekkür ederim Size ve Korhan Bey'e... İyi çalışmalar dilerim.