Seçilen hücreleri çift tıklama veya bir tuşla diğer sheete aktarma

[u.L.a.s]

Excelde 2 ayrı sheetim var

1. si Source 2.si Destination

Source sheetinde 1.Satır başlık satırı olaak düşünürsek A2-L65536 hücreleri arasındada verilerimin olduğunu düşünürsek

Örneğin ben A5-L18 arası hücreleri mouse ile seçtim

bu seçtilen hücreyi bir tuş kombinasyonu makrosu ile Destination sheet ine 3.Satırdan itibaren yapıştırsın istiyorum

bilgi ve yardımlarınızı rica ederim

 

[Korhan Ayhan]

Düz mantıkla aşağıdaki kod işinizi görecektir.

Kendinize göre revize edersiniz.

Sub Seçimi_Aktar()
    Dim S1 As Worksheet, S2 As Worksheet
    
    Set S1 = Sheets("Source")
    Set S2 = Sheets("Destination")
    
    S2.Range("A3:L" & Rows.Count).ClearContents
    
    S1.Select
    Selection.Copy S2.Range("A3")
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "Aktarım işlemi tamamlanmıştır.", vbInformation
End Sub

 

[simyaci64]

merhaba hücreyi çift tıklayınca
o satır diğer sayfanın boş satırına nasıl yazdırabiliriz.

 

[Korhan Ayhan]

Hangi hücreyi çift tıklayınca hangi sütundaki boş satıra aktaracak? Detay vermelisiniz.

 

[u.L.a.s]

Üstadım emeğine bilgine sağlık.

 

[tahsinanarat]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Kol As Integer
Dim i As Long
Kol = Cells(1, Columns.Count).End(1).Column

i = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
Range(Cells(Target.Row, "A"), Cells(Target.Row, Kol)).Copy Sheets("Sayfa2").Range("A" & i)
'Rows(Target.Row).Delete

End Sub