Kopyala-değer yapıştır kodunu düzenleme

[YILDIZ YAĞMURU]

Selam aşağıdaki kod ile VERİ sayfasından veri süzüp kopyala yapıştır yapıyorum fakat VERİ sayfasının en altındaki cari yi süzdürdüğümde sayfadan formullerıde kopyalayıp getırıyor. sadece en alttakını suzdurdugumde oluyor bu. üstteki verileri suzdugunde formullerı getırmıyor sayfaya aklım ıyıce karıstı. bu kodu kopyala " DEĞERLERİ YAPIŞTIR" olarak düzenleyebilirmiyiz.
Kopyaladığı sayfada formüller var formülleride kopyalıyor. yapıstırırken formullerıde getırıyor formul dogal olarak bozuluyor. sadece " DEĞERLERİ " yapıştır olarak düzenleyebilirmiyiz.

Private Sub ComboBox1_Change()

s1.Range("A5:A" & Rows.Count & ",b5:j155").ClearContents
s1.Range("b2").Value = ComboBox1.Value
s2.Range("B3:v6500").AutoFilter
s2.Range("B3:v6500").AutoFilter Field:=1, Criteria1:=ComboBox1.Value
s2.Range("B3").CurrentRegion.Offset(1, 2).Copy s1.Range("B5")
s2.Range("B3").CurrentRegion.Offset(1, 3).Copy s1.Range("C5")
s2.Range("B3").CurrentRegion.Offset(1, 4).Copy s1.Range("D5")
s2.Range("B3").CurrentRegion.Offset(1, 5).Copy s1.Range("E5")
s2.Range("B3").CurrentRegion.Offset(1, 6).Copy s1.Range("F5")
s2.Range("B3").CurrentRegion.Offset(1, 7).Copy s1.Range("G5")
s2.Range("B3").CurrentRegion.Offset(1, 8).Copy s1.Range("H5")
s2.Range("B3").CurrentRegion.Offset(1, 9).Copy s1.Range("I5")
s2.Range("B2").AutoFilter
sat = s1.Cells(Rows.Count, "B").End(xlUp).Row
For i = 5 To sat
s1.Cells(i, "A").Value = i - 4
Next i

End Sub

 

[ExcelF1]

Kopyalama satırlarını aşağıdaki şekilde değiştirerek deneyiniz.

s2.Range("B3").CurrentRegion.Offset(1, 2).Copy
s1.Range("B5").PasteSpecial Paste:=xlPasteValues

 

[YILDIZ YAĞMURU]

Kopyalama satırlarını aşağıdaki şekilde değiştirerek deneyiniz.

s2.Range("B3").CurrentRegion.Offset(1, 2).Copy
s1.Range("B5").PasteSpecial Paste:=xlPasteValues

TEŞEKKÜRLER eXCELf1 , fakat bu kodu çogattıgımız zaman sutun sutun gıdıyor aynı anda kolonları yapıstırmasını saglayamazmıyız

 

[ExcelF1]

s2.Range("B3").Entirecolumn.Copy
s2.Range("B3").Offset(1, 2).Entirecolumn.Copy

1.kod B sütununu kopyalar. 2.kod D sütununu kopyalar.