hücre kopyalama

[sadece_erhan]

Merhaba,

m1:m8000 aralığını q1:q8000 e kopyalamak istiyorum, formül kullanmamam gerekiyor maalesef. m1:m8000 arası hücrelerde formül var. sadece formül sonucu değerlerin kopyalanmasını isityorum

 

[numan şamil]

Merhaba,

m1:m8000 aralığını q1:q8000 e kopyalamak istiyorum, formül kullanmamam gerekiyor maalesef. m1:m8000 arası hücrelerde formül var. sadece formül sonucu değerlerin kopyalanmasını isityorum

Merhaba
Sayfa1 (m1:m8000 aralığını q1:q8000 ) aralığını
Sayfa2 de A1 den başlayarak kopyalamak istediğinizi varsayarsak (burda istediğiniz sayfa ve hücre değişikliğini yapabilirsiniz)
Boş modüle kopyalayıp denermisiniz
Sub KopyalaYapıştır()
Application.ScreenUpdating = False
Sheets("Sayfa1").Range("m1:m8000,q1:q8000").ClearContents
Sheets("Sayfa1").Range("m1:m8000,q1:q8000").Copy
Sheets("Sayfa2").Range("a1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[sadece_erhan]

sadece m1:m8000 i aynı sayfadaki q1:q8000 a kopyalamak istiyorum, yazığınıza benzer bir kodu değiştirip uyguladım ama olmadı

edit: yani sayfa82 deki m1:m8000 i yine sayfa82 deki q1:q8000 e kopyalıcaz