Hücreleri Baska Sayfadaki Alanlara Esıtleme yada kopyalama

[ramazankaya89]

Merhaba,

Sayfa2 degerindeki bazı hücreleri Sayfa3 degerındeki belirledigim alanlara cekmek (kopyalamak) istiyorum kod aşağıdaki gibi fakat hata da vermıyor sonucu da getırmıyor


Sub OZET()

Dim Sayfa2, Sayfa3 As Worksheet
Dim Bölüm, Tarih, Fatura_No, Cari_Kod, Customer, Catalog_No, Qty, Birim, Açıklama, Döviz_Amount, Döviz_Cinsi, TRY_Amount, Order_No As Range
Dim i As Variant

Set Sayfa2 = Sheets("DATA")
Set Sayfa3 = Sheets("ÖZET")
Set Bölüm = Sayfa2.Range("AC:AC")
Set Tarih = Sayfa2.Range("C:C")
Set Fatura_No = Sayfa2.Range("E:E")
Set Cari_Kod = Sayfa2.Range("F:F")
Set Customer = Sayfa2.Range("G:G")
Set Catalog_No = Sayfa2.Range("J:J")
Set Qty = Sayfa2.Range("K:K")
Set Birim = Sayfa2.Range("L:L")
Set Açıklama = Sayfa2.Range("M:M")
Set Döviz_Amount = Sayfa2.Range("N:N")
Set Döviz_Cinsi = Sayfa2.Range("O:O")
Set TRY_Amount = Sayfa2.Range("P")
Set Order_No = Sayfa2.Range("H:H")



For i = 2 To Sayfa2.Range("AC2").End(xlDown).Row


Sayfa3.Cells(i, "A") = Bölüm
Sayfa3.Cells(i, "B") = Tarih
Sayfa3.Cells(i, "C") = Fatura_No
Sayfa3.Cells(i, "D") = Cari_Kod
Sayfa3.Cells(i, "E") = Customer
Sayfa3.Cells(i, "F") = Catalog_No
Sayfa3.Cells(i, "G") = Qty
Sayfa3.Cells(i, "H") = Birim
Sayfa3.Cells(i, "I") = Açıklama
Sayfa3.Cells(i, "J") = Döviz_Amount
Sayfa3.Cells(i, "K") = Döviz_Cinsi
Sayfa3.Cells(i, "L") = TRY_Amount
Sayfa3.Cells(i, "M") = Order_No

Next

Set Sayfa2 = Nothing
Set Sayfa3 = Nothing
Set Bölüm = Nothing
Set Tarih = Nothing
Set Fatura_No = Nothing
Set Cari_Kod = Nothing
Set Customer = Nothing
Set Catalog_No = Nothing
Set Qty = Nothing
Set Birim = Nothing
Set Açıklama = Nothing
Set Döviz_Amount = Nothing
Set Döviz_Cinsi = Nothing
Set TRY_Amount = Nothing
Set Order_No = Nothing

End Sub

 

[Korhan Ayhan]

Sorularınızı sorarken mümkünse örnek dosya paylaşırsanız ne yapmak istediğiniz daha net anlaşılacaktır.

Gördüğüm kadarıyla mantık hatası var.

Sayfa3.Cells(i, "A") = Bölüm

Üstteki satır döngüde işlem gördüğünde aşağıdaki gibi değerleniyor.

Sayfa3.Cells(i, "A") = Sayfa2.Range("AC:AC")

Bir hücreye bütün sütunu yazmaya çalışmışsınız. Bu da mantıksal olarak hatalı bir tekniktir.