kopyala özel değer yapıştır

[onur3466]

merhaba kolay gelsin arkadaşlar
soldaki ara çubuğundan arama yapıyorum ve k7 q7 arasına değerler geliyor fakat butona bastığımda r3 hücresine bu aralığın yapışmasını istiyorum fakat değerler gelmiyor .
yardımcı olur musunuz

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Range("R3:X3").Value = Range("K7:Q7").Value
End Sub

 

[onur3466]

Çok teşekkür ederim Korhan bey

 

[onur3466]

korhan bey bir sorum daha olucaktı size bunları sayfa1 e kopyalamak istesem kodu nedir?

 

[Korhan Ayhan]

Hücre adresinin başına sayfa adını eklemeniz gerekir.

Hücre adresini kendi dosyanıza göre düzenlersiniz.

Private Sub CommandButton1_Click()
    Sheets("Sayfa1").Range("R3:X3").Value = Range("K7:Q7").Value
End Sub

 

[onur3466]

tekrardan Çok teşekkür ederim Korhan bey