süzülenleri kopyalama

[yalovam77]

Merhaba üdatlarım. aşağıdaki kodlarla sayfa1 deki tablodan süzülenleri kopyalayıp sayfa2 ye yapıştırıyorum. ancak sayfa1 de tabloda zemin rengi var sayfa2 ye aktarırken zemin rengi olmayacak ama kenar çizgileri olacak . aşağıdaki kodda nasıl bir düzeltme yapabiliriz. ikinciside sayfa1 de tablo a:x aralığında kopyalarken a:d ı:x aralıklarını kopyalayıp sayfa2 ye taşıyorum bu iki koduda birleştirebilirmiyiz.yardımlarınız için teşekkür ederim

Sayfa2.[A5:t1000].Clear
Sayfa1.Range("a3:d" & Sayfa1.[a65536].End(3).Row).SpecialCells(xlCellTypeVisible).Copy
Sayfa2.Select
Sayfa2.[a5].PasteSpecial Paste:=xlPasteValues
Sayfa1.Range("ı3:x" & Sayfa1.[ı65536].End(3).Row).SpecialCells(xlCellTypeVisible).Copy
Sayfa2.Select
Sayfa2.[e5].PasteSpecial Paste:=xlPasteValues

 

[Korhan Ayhan]

Merhaba,

Normalde kopyalama işleminde biçimleride kopyalayabilirsiniz. Fakat renklerin kopyalanmasını istemediğiniz için aşağıdaki kod ile kenarlık çizebilirsiniz.

Sayfa2.Range("A5").CurrentRegion.Borders.LineStyle = 1

Yapıştırdığınız alanlar farklı olduğu için kodu birleştiremezsiniz.

 

[yalovam77]

Korhan hocam verdiğiniz kodu nasıl ilave etmem gerekiyor bende hata verdide yapamadım.

 

[Korhan Ayhan]

Aşağıdaki satırın altına uygulayın.

Sayfa2.[a5].PasteSpecial Paste:=xlPasteValues

 

[yalovam77]

Hocam teşekkür ederim. yaptım ancak A5 ten yukarıdaki hücrelerede kenarlık çiziyor 5 satırdan yukarısına istemiyorum bu mümkünmü ?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyin.

Sayfa2.Range("A5:D" & [Sayfa2!A65536].End(3).Row).Borders.LineStyle = 1

 

[yalovam77]

Hocam yeni yazdığınız kod Object required hatası veriyor