Çoklu hücre seçimi

[quman]

Merhaba,

Bulunduğum satıra ait üç farklı hücreyi bir defada seçip kopyalamak istiyorum. Makro kaydetten çıkan sonuç :

Range("B14,D14,G14").Select
Range("G14").Activate
Selection.Copy

Buradaki "14" satır değeri değişkendir ve ben A sütununda hangi satırda isem o satıra ait B, D, ve G sütunundaki hücreleri seçip kopyalamak istiyorum. Şöyle bir kod yazdım ve bir çok varyasyon denedim ama olmadı.

tr = ActiveCell.Row
Range("B" & tr, "D" & tr, "G" & tr).Select
Selection.Copy

Değerli yardımlarınızı bekliyorum. İyi çalışmalar.

 

[mustafaine1]

tr = ActiveCell.Row
Set str1 = Range("B" & tr)
Set str2 = Range("C" & tr)
Set str3 = Range("F" & tr)
Set aralik = Union(str1, str2, str3)
aralik.select

Bu sekilde denermisiniz..

 

[quman]

Evet çalıştı. Teşekkür ederim. Elinize sağlık.

 

[mustafaine1]

Application.Union(Range("metin1"), Range("metin2")).Select

Set aralik = Application.Union(Range("Sayfa1!A14"), Range("Sayfa1!C14"))

Rica ederim yukaridaki sekillerde de kullanmaniz mumkun, iyi calismalar..