Makro ile değer yapıştırma

[td877]

Merhaba,

Makro ile bir sayfadan bir başka sayfaya benzersizleri almak için şu kodu kullanıyorum.

Sub Icmal()
Call sifirla_i
With Sheets("Revit")
    .Range("s3:s" & .Range("s65536").End(3).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    .Range("s3:s" & .Range("s65536").End(3).Row).Copy Sheets("İcmal").Range("a3")
    
Range("A3").Select
End With
End Sub

Problemim gelen verileri biçimlendirmeleri (kenarlık vs.) ve formülleri (=a1+a2 gibi) ile getiriyor. Değer olarak yapıştır demek istiyorum ama yapamadım. Yardımcı olursanız müteşekkir olurum.

Saygılar.

 

[Muzaffer Ali]

Merhaba.

Sub Icmal()
Call sifirla_i
With Sheets("Revit")
    .Range("s3:s" & .Range("s65536").End(3).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    .Range("s3:s" & .Range("s65536").End(3).Row).Copy
    Sheets("İcmal").Range("a3").PasteSpecial xlValues
Range("A3").Select
End With
End Sub

 

[td877]

Merhaba.

Sub Icmal()
Call sifirla_i
With Sheets("Revit")
    .Range("s3:s" & .Range("s65536").End(3).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    .Range("s3:s" & .Range("s65536").End(3).Row).Copy
    Sheets("İcmal").Range("a3").PasteSpecial xlValues
Range("A3").Select
End With
End Sub

Merhaba,

Çok teşekkür ederim Muzaffer bey.