DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
uzun bir liste içinde seçeceğim hücrelerin diğer sayfaya sıra ile yazdırılması için yardım edebilirmisiniz
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
Son_Dolu_Satir = Sheets("Sayfa2").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa2").Range("A" & Bos_Satir).Value = Target.Text
End Sub
taşekkürler ilginiz için ama ben yapamadım