Soru Copy destination hedef biçimlendirmesi

[barışD34]

Selam ,
Aşağıdaki kod daha önce forumda paylaşılmış . Hedef hücre biçimlendirmesini koruyacak şekilde düzenlenebilir mi?

Sub FiltreyiKopyala()
Sheets("uyeler").Range("A2:A" & Range("A65536").End(3).Row).SpecialCells(12).Copy _
Destination:=Sheets("dokum").Range("A65536").End(3)(2, 1)
End Sub

 

[Muzaffer Ali]

Merhaba.

Sub FiltreyiKopyala()
    Sheets("uyeler").Range("A2:A" & Range("A" & Rows.Count).End(3).Row).SpecialCells(12).Copy
    Sheets("dokum").Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
End Sub

 

[barışD34]

Çok teşekkür ederim.

 

[barışD34]

Merhaba.

Sub FiltreyiKopyala()
    Sheets("uyeler").Range("A2:A" & Range("A" & Rows.Count).End(3).Row).SpecialCells(12).Copy
    Sheets("dokum").Range("A" & Rows.Count).End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
End Sub

Çok teşekkürler.