Seçilen hücreleri, başka hücrede birleştirme

[kadir78]

İyi günler. Bir çalışma sayfasındaki hücrelerden diğer bir çalışma sayfasındaki hücreye veri aktarımı yapılabilir mi?
Örnek olarak sayfa1 deki A1 ile A15 arasındaki hücrelerden seçili olanları sayfa 2 deki aktif olan hücreye birleştirerek veri aktarması yapılabilir mi? Bunun için kısayol tuşu veya makro kodları ile gerçekleştirebilir miyiz. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Deneyin...

Sub TEST()
    Sheets("Sayfa1").Select
    ReDim Liste(1 To 1)
    For Each Veri In Selection
        If Veri <> "" Then
            Say = Say + 1
            ReDim Preserve Liste(1 To Say)
            Liste(Say) = Veri
        End If
    Next
    Sheets("Sayfa2").Range("A1") = Join(Liste, ",")
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[kadir78]

Korhan Bey Süpersiniz. Tek Kelimeyle Harika. İyi Çalışmalar Dilerim.

 

[kadir78]

Korhan Bey, bu kodlar isime yaradıda küçük bir sorum daha olacak. Hedef hücre, fare ile seçtiğim hücre olarak nasıl yapabiliriz. Ben biraz uğraştım fakat başarılı olamadım.

 

[alicimri]

Eğer "fare ile seçtiğim hücre" derken Sayfa2 de seçilmiş hücre ise Korhan Ayhan'n kodlarındaki

Sheets("Sayfa2").Range("A1") = Join(Liste, ",")

satırı aşağıdaki kodlarla değiştirin

 Sheets("Sayfa2").Select
   ActiveCell = Join(Liste, ",")

 

[kadir78]

Ali Bey çok teşekkür ederim. Sorunsuz çalışıyor. İyi çalışmalar.