Birden fazla satır ve hücreyi ikinci sayfaya kaydetmek istiyorum

[bilgemman]

Benim çalışma kitabımda iki adet sayfa var birinci sayfadaki(Üretim formu) birden fazla sütun ve satırda bulunan değerleri liste şeklinde ikinci sayfama(Rapor) kaydetmek istiyorum.
Aşağıdaki kodla c2,e2,h2,e4,f4,d4,g4,h4 hücrelerini kaydedebiliyorum sıkıntı olmuyor ancak benim yapmak istediğim c2,e2,h2,e4:e13 arası,f4:f13 arası,d4:d13 arası,g4:g13 arası,h4:h13 arası dolu satırları ve hücreleri kaydetmek.

Dim g As Worksheet
Dim rd As Worksheet

Set g = Sheets("Üretim Formu")
Set rd = Sheets("Rapor")

Dim say As Long
say = rd.Cells(65536, 2).End(xlUp).Row + 1
ONBİR = WorksheetFunction.CountA(rd.Range("A2:A65536")) + 1

rd.Range("A" & say).Offset = ONBİR
rd.Range("b" & say).Offset = g.Range("C2")
rd.Range("c" & say).Offset = g.Range("E2")
rd.Range("d" & say).Offset = g.Range("H2")
rd.Range("e" & say).Offset = g.Range("E4")
rd.Range("f" & say).Offset = g.Range("F4")
rd.Range("g" & say).Offset = g.Range("D4")
rd.Range("h" & say).Offset = g.Range("G4")
rd.Range("ı" & say).Offset = g.Range("H4")


MsgBox "Bilgiler kaydedildi", vbInformation, "KAYIT"

 

[antonio]

Kırmızı ile işaretlediğim yer ile, kopyalamak istediğiniz alanı belirleyiniz.

Sayfa1.Range("[COLOR="Red"][B]A2:K27[/B][/COLOR]").SpecialCells(xlCellTypeConstants).Copy Sayfa2.Range("[COLOR="Red"][B]A2[/B][/COLOR]")

 

[bilgemman]

Kırmızı ile işaretlediğim yer ile, kopyalamak istediğiniz alanı belirleyiniz.

Sayfa1.Range("[COLOR="Red"][B]A2:K27[/B][/COLOR]").SpecialCells(xlCellTypeConstants).Copy Sayfa2.Range("[COLOR="Red"][B]A2[/B][/COLOR]")

Yazdığınız kodu denedim.
Compile error invalid use of property hatası veriyor.(Sayfa2.range kısmını gösteriyor)

 

[antonio]

Yazdığınız kodu denedim.
Compile error invalid use of property hatası veriyor.(Sayfa2.range kısmını gösteriyor)

Seç-kopyala-yapıştır işlerinde hızlı kodlar genellikle hata verir. Adım adım, ayrıntılı kodlamakta fayda var. Aşağıdaki örneği deneyin, hücre aralıklarını kendinize göre ayarlayın.

Sub dolu_olanlar_gelsin()
Dim alan As Range
For d = 3 To 6
    Sayfa1.Activate
    Set alan = Sayfa1.Range(Sayfa1.Cells(4, d), Sayfa1.Cells(14, d)).SpecialCells(xlCellTypeConstants)
    alan.Select
    Selection.Copy
    Sayfa2.Activate
    Sayfa2.Cells(2, d).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
Next d
MsgBox "İşlem tamamlandı.", vbInformation, "antonio"
End Sub