Aktif Hücrenin Satır ve Sütunlarındaki Bilgileri Aktarma

[oguzka]

Merhabalar;

Aktif olan hücrenin satır ve sütunundaki bazı hücrelerdeki bilgileri diğer bir sayfaya almak istiyorum ancak başaramadım. Yardımcı olurmusunuz? Dosyayı ekliyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanın kod bölümüne uygulayıp denermisiniz. Siz belirttğiniz alanda seçim yaptıkça bilgiler aktarılacaktır.

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [C17:AA26]) Is Nothing Then Exit Sub
    With Sheets("Sayfa2")
        .Range("A1") = Cells(2, Target.Column)
        .Range("A2") = Cells(7, Target.Column)
        .Range("A3") = Cells(6, Target.Column)
        .Range("A5") = Cells(Target.Row, "A")
        .Range("B5") = Cells(Target.Row, "B")
    End With
End Sub

 

[oguzka]

Teşekkürler Korhan bey...

 

[oguzka]

Korhan bey bu kodu butonda kullanmaya çalıştım başarılı olamadım.

With Sheets("Sayfa2")
.Range("A1") = Cells(2, Target.Column)
.Range("A2") = Cells(7, Target.Column)
.Range("A3") = Cells(6, Target.Column)
.Range("A5") = Cells(Target.Row, "A")
.Range("B5") = Cells(Target.Row, "B")
End With

butonda çalışması için bunu yazmam yeterli değilmi?

 

[Korhan Ayhan]

Selamlar,

Çünkü size önerdiğim kod sayfaya ait bir koddu. Butonla çalışması için bazı değişiklikler yapmak gerekecektir.

Kod içinde geçen TARGET ifadelerini ACTIVECELL olarak değiştirip deneyin.

 

[oguzka]

Tekrar teşekkür ederim..