Seçilen satırdaki hücreleri Sayfa2'ye aktarma

[suvari38]

Arkadaşlar Excelde 10 sütunluk,100 satırlık bir tablom var. Bu tablodaki elle seçilen bir satırdaki bilgileri sayfa2'ye aktarmak istiyorum. makro denedim yapamadım. her bir satırın başına optionbutton koymayı denedim ama yapamadım, bu iş nasıl olur acaba yardımcı olur musunuz lütfen?

 

[Necdet]

Merhaba,

Aşağıdaki kodları Sayfa1'in kod bölümüne kopyalayıp deneyiniz.

• 1. satırın başlık olduğu varsayılmıştır.
• Bilgilerin A sütunundan başladığı varsayılmıştır.
• Sütün sayısı önemli değildir.

Sayfa1 de aktarılmasını istediğiniz satırın herhangi bir hücresine çift tıklamanız yeterli olacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim SonKolon As Integer
    Dim SonSatir As Long
    
    If Target.Row < 2 Then Exit Sub
    
    SonKolon = [IV1].End(1).Column
    SonSatir = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
    
    Range(Cells(Target.Row, "A"), Cells(Target.Row, SonKolon)).Copy Sheets("Sayfa2").Cells(SonSatir, "A")
End Sub

 

[suvari38]

Çok teşekkür ederim Necdet Bey, beni büyük yükten kurtardınız, verdiğiniz kodlara hiç aklım ermedi, daha bir fırın ekmek yemem lazım anşlaşılan
Ama işim görüldü, sağolun iyi akşamlar

 

[Necdet]

Sizde sağolun, iyi günler.