Biçim Olmadan Kopyalama

[Mehmet Sait]

Merhabalar,

Verdiğim kodla biçin olmadan kopyalama yapılabilir mi ?

Sub Emre()
Dim i As Integer
With Sayfa3
i = .Range("B65536").End(3).Row
Sayfa2.Range("B5:G1000").ClearContents
.Range("B5:G" & i).Copy Sayfa2.Range("B65536").End(3)(2, 1)
.Range("I5:N" & i).Copy Sayfa2.Range("B65536").End(3)(2, 1)
.Range("P5:U" & i).Copy Sayfa2.Range("B65536").End(3)(2, 1)
.Range("W5:AB" & i).Copy Sayfa2.Range("B65536").End(3)(2, 1)
End With
i = Empty
End Sub

 

[Mehmet Sait]

Hocam,

SQL VERİ sayfasına verileri manuel yazıp makroyu çalıştırdığımda LİSTE sayfasına sorunsuz getiriyor. SQL sayfasına SQL den veri çağırıp kopyalama makrosunu çalıştırdığımda LİSTEYE SQL sayfasındaki biçimlerle geliyor. Dolayısıyla LİSTE sayfasıda SQL sorgulama sayfası gibi oluyor. Biçimler olmadan kopyalama yapmak için makroda nasıl bir değişim yapmam gerek?

 

[Emir Hüseyin Çoban]

. . .

Sub Emre()
    Dim i As Integer
    With Sayfa3
        i = .Range("B65536").End(3).Row
        Sayfa2.Range("B4:G1000").ClearContents
        .Range("B4:G" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("I4:N" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("P4:U" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("W4:AB" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("AD4:AI" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
    
    End With
    i = Empty
End Sub

. . .

 

[Mehmet Sait]

. . .

Sub Emre()
    Dim i As Integer
    With Sayfa3
        i = .Range("B65536").End(3).Row
        Sayfa2.Range("B4:G1000").ClearContents
        .Range("B4:G" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("I4:N" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("P4:U" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("W4:AB" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
        .Range("AD4:AI" & i).Copy
        Sayfa2.Range("B65536").End(3)(2, 1).PasteSpecial Paste:=xlPasteValues
    
    End With
    i = Empty
End Sub

. . .

Teşekkür ederim elinize sağlık