Sayfa 2 B1 hücresindekini, sayfa 1 B1 e, alacağım ama ?

[urcolak]

Kolay gelsin.
sheets("sayfa2").select
range("b1").select
selection.copy
sheets("sayfa1").select
range("b1").select
activsheet.paste
application.cutcopymode=false

Bunu tek satırda daha kolay bir şekilde yazabilir miyim?
Birde böyle bir şey yapınca ekranda çok hızlı bir şekilde sayfa 2 görünüyor (Görünmesin)
Her kese kolay gelsin .

 

[Recep İpek]

Application.ScreenUpdating = False
Sheets("sayfa1").range("b1").value=sheets("sayfa2").range("b1").value
Application.ScreenUpdating = True

olarak deneyebilirmisiniz.

 

[urcolak]

Teşekkür ediyorum, çok iyi oldu bu birde;

activecell.offset (0-2) ve (0-5) i almak istesem o satıra ekleyebilir miyim?
yoksa ben her seferinde sayfalar arasında çok gidip geliyorum, en kısa yolu yani. Tekrar yardımlarınız için teşekkürler.

 

[Recep İpek]

Küçük bir örnek dosya eklerseniz, onun üzerinden gidebiliriz.

 

[urcolak]

Çok haklısınız
Kendi çapımda yapmaya çalıştığım bir proje varda, benim 5-6 satırda yazdığımı tek satırda yazdınız, artık düşünün gerisini, içinden ilgili bölümü çıkarmak ve soruyu daha derli toplu sormak için biraz zaman harcamam gerekiyor, çıkardığım zaman ayrı bir konu olarak sorayım, yalnız ilk soruma verdiğiniz cevap çok işime yarayacak tekrar ilginiz için teşekkür ediyorum.

 

[Recep İpek]

Örnek dosya eklemek hem sizin için, hemde cevap verenler için en kısa yol.

Çünkü soru üzerinde direk cevap bulmuş oluyoruz....