• DİKKAT

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

satırları sütuna sütunu satıra bağlı yapıştırma nasıl yapılır

Katılım
7 Ağustos 2006
Mesajlar
13
arkadaşlar ben programımda satırları sütuna dönüştürmek istiyorum fakat bunu bağlı yapıştırmak istiyorum bir sayfadaki programımdaki satırdaki hücrelerden boş hücreleri atlayarak veriyi alıp , başka bir sayfadaki programımın sütunundaki hücrelere sıralı bir şekilde o verileri bağlı olarak yapıştıracak.
bu konuda çok araştırma yaptım fakat hep kopyala ters çevir yapıştır olarak örnek vermişler bu benim işimi görmüyor bu konuda yardımcı olabilirseniz sevinirim şimdiden teşekkürler
 
Örnek dosya ekleyebilirseniz yardımcı olamaya çalışırım.
Olanı ve olması gerekeni örnekte belirtmeyi unutmayın.
 
Merhaba,
Aşağıdaki kodu kullanabilirsiniz.
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [c1]) Is Nothing Then Exit Sub
Cancel = True
Set s1 = Sheets("HİSSELER")
Set s2 = Sheets("ANALİZ")
Set Alan = s1.Range("a2:u2").SpecialCells(xlCellTypeConstants, 23)
Sat = 1
For Each hcr In Alan
Sat = Sat + 1
s2.Cells(Sat, "c") = "=" & s1.Name & "!" & hcr.Address
Next
End Sub
 

Ekli dosyalar

Son düzenleme:
syn leumruk bu kodu nasıl kullanabileciğim konusunda da lütfen yardımcı olun lütfen kodlar konusunda pek bilgim yok
 
syn leumruk bu kodu nasıl kullanabileciğim konusunda da lütfen yardımcı olun lütfen kodlar konusunda pek bilgim yok
Kodu kullanabileceğiniz şekilde düzenledim ve bir örnek ekledim. C1 hücresine çift tıkladığınızda kod çalışır.
 
Geri
Üst