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

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Kod Düzenlenmesinde Yardım

İleti#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.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
CENGİZHANTAHA
Yeni Başlamış
 
Kayıt: 20 Kas 2018 09:29
Meslek: EMEKLİ
Yaş: 49
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAKARYA

Cevap: Kod Düzenlenmesinde Yardım

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

Çözüldü. Yardımlarınız için teşekkürler.
Kullanıcı avatarı
CENGİZHANTAHA
Yeni Başlamış
 
Kayıt: 20 Kas 2018 09:29
Meslek: EMEKLİ
Yaş: 49
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAKARYA

Cevap: Kod Düzenlenmesinde Yardım

İleti#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
Kullanıcı avatarı
CENGİZHANTAHA
Yeni Başlamış
 
Kayıt: 20 Kas 2018 09:29
Meslek: EMEKLİ
Yaş: 49
İleti: 69
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: SAKARYA


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe