Kod Düzenlenmesinde Yardım

**#1)** **CENGİZHANTAHA** » 13 Oca 2021 20:55

Öncelikle yardımlarınız için şimdiden teşekkür ederim. Becerebildiğim kadar sizlerden öğrendiğimi kopyalamaya çalıştım. Ancak üst bilgi ve alt bilgi sabitlemeyi beceremedim. İstediğim rapor sayfasında düzenleme yapmaktır. Dosyamı ekliyorum. Sağolun.

**#2)** **CENGİZHANTAHA** » 14 Oca 2021 17:50

Çözüldü. Yardımlarınız için teşekkürler.

**#3)** **CENGİZHANTAHA** » 14 Oca 2021 17:53

Kodları paylaşmak istedim. Bir üyenin daha işine yarar belki.

Sub YuvarlatılmışDikdörtgen1_Tıklat()
On Error Resume Next
Sayfa1.Cells.Delete Shift:=xlUp
Sayfa2.Range("A4:A" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("A14")
Sayfa2.Range("B4:B" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("B14")
Sayfa2.Range("C4:C" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("C14")
Sayfa2.Range("D4:D" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("D14")
Sayfa2.Range("E4:E" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("E14")
Sayfa2.Range("F4:F" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("F14")
Sayfa2.Range("G4:G" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("G14")
Sayfa2.Range("h4:h" & Sayfa2.Range("G60000").End(3).Row).SpecialCells(xlCellTypeVisible).Copy Sayfa1.Range("h14")
Sayfa1.Range("A14:h14").EntireColumn.AutoFit
Sayfa4.Range("a1:h13").Copy Sayfa1.Range("a1")
Sayfa3.Range("a1:h19").Copy Sayfa1.Range("a65536").End(3).Offset(1, 0)

End Sub

[Yardım] Kod Düzenlenmesinde Yardım