Soru sütun dolu olduğu yere kadar yan sütunu listele

[sirkülasyon]

ustam
Sayfa1B3:B83 aralığında dolu olduğu hücreye kadar Sayfa1 A3:A83 aralığını Sayfa1TO3:TO83 aralığına listelemek için yardımcı olabilir misiniz?

 

[Orion1]

Buyurun.

Sub yapistir()
Dim sonsat As Long, sh As Worksheet
Set sh = Sheets("Sayfa1")
sonsat = sh.Cells(Rows.Count, "B").End(xlUp).Row
sh.Range("TO3:TO" & Rows.Count).Clear
sh.Range("A3:A" & sonsat).Copy sh.Range("TO3")
End Sub

 

[sirkülasyon]

Evren Abi müsait olduğunuzda formül şeklini de paylaşabilir misiniz?
Ayrıca yardımınızı esirgemediğiniz için teşekkür ederim.

 

[Orion1]

TO3 e yazıp aşağı doğru çekerek kopyalayınız.
=EĞER(SATIR(B3)<=BAĞ_DEĞ_DOLU_SAY(B:B)+2;A3;"")

 

[sirkülasyon]

Hakkını Helal Et Evren Abi. Zahmet verdim.

 

[Orion1]

Estafurullah.