seçtiğim sıra arka sayfadaki tabloya

[orcunerkek54]

arkadaşlar seçtiğim sıradaki veriler arka sayfadak tabloya uygun yerlere yerleşerek alt alta gelsin ancan hücrelerde birleştirme olarak ben birşeyler yapmayı denedim ama altına devamını başaramadım bu konuda yardımcı olursanız sevinirim....teşekkürler..

 

[bedersu]

Sorunuzu tam olarak anlamadım.Çift tıklanınca sadece çift tıklatılan hücre mi yoksa hücrenin bulunduğu satır mı kopyalanacak?Ayrıca TÜM ARAÇLAR MALZEMELERİ sayfasındaki tablo ile TANITILACAKLAR1 sayfasındaki tablo da aynı değil.Hangi veri nereye gelecek?

 

[orcunerkek54]

TÜM ARAÇLAR VERİLER adlı sayfada çift tıkladığım satırdaki veriler TANITILACAKLAR1 adlı sayfadaki tabloyu doldurmalı.. tablo aynı değil veriler karışık olarak geliyorlar... açıklamalarımı biraz değiştirdim umarım anlatabilmişimdir....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Set S1 = Sheets("TÜM ARAÇLAR MALZEMELERİ")
    Set S2 = Sheets("TANITILACAKLAR1")
    Cancel = True
    SON = S2.[A65536].End(3).Row
    If SON = 1 Then
    SON = SON + 1
    Else
    SON = SON + 2
    End If
    SATIR = Target.Row
    S2.Cells(SON, 1) = WorksheetFunction.Max(S2.[A:A]) + 1
    S2.Cells(SON, 3) = S1.Cells(SATIR, "B")
    S2.Cells(SON + 1, 3) = S1.Cells(SATIR, "N")
    S2.Cells(SON, 4) = S1.Cells(SATIR, "D")
    S2.Cells(SON + 1, 4) = S1.Cells(SATIR, "O")
    S2.Cells(SON, 5) = S1.Cells(SATIR, "H")
    S2.Cells(SON, 6) = S1.Cells(SATIR, "I")
    S2.Cells(SON, 7) = S1.Cells(SATIR, "J")
    S2.Cells(SON, 8) = S1.Cells(SATIR, "K")
    S2.Cells(SON, 9) = S1.Cells(SATIR, "L")
    S2.Cells(SON, 10) = S1.Cells(SATIR, "M")
    S2.Cells(SON, 11) = S1.Cells(SATIR, "X")
    If S2.Cells(SON, 9) = "" Then
    S2.Cells(SON, 2) = "FORM 86"
    Else
    S2.Cells(SON, 2) = "SİSTEM TANIMLAMA"
    End If
    S2.Cells(SON, 2) = IIf(S2.Cells(SON, 9) = "", "FORM 86", "SİSTEM TANIMLAMA")
    S2.Range(S2.Cells(SON, 1), S2.Cells(SON + 1, 1)).Merge
    S2.Range(S2.Cells(SON, 2), S2.Cells(SON + 1, 2)).Merge
    S2.Range(S2.Cells(SON, 5), S2.Cells(SON + 1, 5)).Merge
    S2.Range(S2.Cells(SON, 6), S2.Cells(SON + 1, 6)).Merge
    S2.Range(S2.Cells(SON, 7), S2.Cells(SON + 1, 7)).Merge
    S2.Range(S2.Cells(SON, 8), S2.Cells(SON + 1, 8)).Merge
    S2.Range(S2.Cells(SON, 9), S2.Cells(SON + 1, 9)).Merge
    S2.Range(S2.Cells(SON, 10), S2.Cells(SON + 1, 10)).Merge
    S2.Range(S2.Cells(SON, 11), S2.Cells(SON + 1, 11)).Merge
    With S2.Range(S2.Cells(SON, 1), S2.Cells(SON + 1, 11))
    .HorizontalAlignment = xlCenter
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlInsideVertical).LineStyle = xlContinuous
    .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    End With
    S2.Cells.EntireColumn.AutoFit
    Set S1 = Nothing
    Set S2 = Nothing
End Sub

 

[orcunerkek54]

çok teşekür ederim.emeğinize sağlık