1 sayfadan 1. sayfa

Kod Düzenlenmesinde Yardım

İletiTarih: 13 Oca 2021 20:55
CENGİZHANTAHA
Ö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.

Cevap: Kod Düzenlenmesinde Yardım

İletiTarih: 14 Oca 2021 17:50
CENGİZHANTAHA
Çözüldü. Yardımlarınız için teşekkürler.

Cevap: Kod Düzenlenmesinde Yardım

İletiTarih: 14 Oca 2021 17:53
CENGİZHANTAHA
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