Vba kod yardımı

[Mehmet Sait]

Merhaba,

Ekli kod ile aynı sayfa içerisine verileri taşıyabiliyorum ancak verilerin tablo sayfasında olması bazen sorun oluşturmakta. Veri diye bir sayfa açmak ve verileri taşımak istiyorum. İlgili kodda düzenleme yapamadım.

Yardımlarınız için teşekkür ederim.

Dim Bul As Range
    Set Bul = Range("CA:CA").Find(Range("$G$3"), , , xlWhole)
    If Not Bul Is Nothing Then
        If Range("M1") = Range("BZ126") Then
        Range("CB" & Bul.Row) = Range("AS129").Value ' Palet
        Range("CC" & Bul.Row) = Range("AT129").Value ' Koli
        Range("CD" & Bul.Row) = Range("P62").Value ' M.Arıza
        Range("CE" & Bul.Row) = Range("Q62").Value ' E.Arıza
        Range("CF" & Bul.Row) = Range("R62").Value ' Mak. Ayar
        Range("CG" & Bul.Row) = Range("S62").Value ' Kalıp
        Range("CH" & Bul.Row) = Range("T62").Value ' Hat Hazırlık
        Range("CI" & Bul.Row) = Range("U62").Value ' Hat Duraklamaları
        Range("CJ" & Bul.Row) = Range("V62").Value ' Yemek ve Çay Molası
        End If
    End If

 

[Greenblacksea53]

  ThisWorkbook.Sheets.Add
  Sheets(ActiveSheet.Name).Name ="Veri"

İf'ın altına yapıştırıp denermisin ?

 

[Mehmet Sait]

  ThisWorkbook.Sheets.Add
  Sheets(ActiveSheet.Name).Name ="Veri"

İf'ın altına yapıştırıp denermisin ?

Teşekkür ederim. Denedim ama yapamadım. Şu şekilde çözdüm.

Dim Bul As Range
    Set Bul = Worksheets("Veri").Range("CA:CA").Find(Worksheets("Gündüz").Range("$G$3"), , , xlWhole)
        If Not Bul Is Nothing Then
        'If Worksheets("Gündüz").Range("M1") = Worksheets("Veri").Range("BZ1") Then
        Worksheets("Veri").Range("CB" & Bul.Row) = Worksheets("Gündüz").Range("AU129").Value ' Palet
        Worksheets("Veri").Range("CC" & Bul.Row) = Worksheets("Gündüz").Range("AV129").Value ' Koli
        Worksheets("Veri").Range("CD" & Bul.Row) = Worksheets("Gündüz").Range("Q60").Value ' M.Arıza
        Worksheets("Veri").Range("CE" & Bul.Row) = Worksheets("Gündüz").Range("R60").Value ' E.Arıza
        Worksheets("Veri").Range("CF" & Bul.Row) = Worksheets("Gündüz").Range("S60").Value ' Mak. Ayar
        Worksheets("Veri").Range("CG" & Bul.Row) = Worksheets("Gündüz").Range("T60").Value ' Kalıp
        Worksheets("Veri").Range("CH" & Bul.Row) = Worksheets("Gündüz").Range("U60").Value ' Hat Hazırlık
        Worksheets("Veri").Range("CI" & Bul.Row) = Worksheets("Gündüz").Range("V60").Value ' Hat Duraklamaları
        Worksheets("Veri").Range("CJ" & Bul.Row) = Worksheets("Gündüz").Range("W60").Value ' Yemek ve Çay Molası
        'End If
    End If