• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

tıkladığım yazının diğer sayfaya yazılması için yardım

Katılım
19 Nisan 2011
Mesajlar
3
Excel Vers. ve Dili
2003
uzun bir liste içinde seçeceğim hücrelerin diğer sayfaya sıra ile yazdırılması için yardım edebilirmisiniz
 
uzun bir liste içinde seçeceğim hücrelerin diğer sayfaya sıra ile yazdırılması için yardım edebilirmisiniz

merhaba sayfanın kod bölümüne kopyalayınız
A1:A100 aralığında tıkladığınız hücredeki veriyi Sayfa2'de A sütununa aktarır
Kod:
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
 
Geri
Üst