Tüm sheetlerin Belirli Hücrelerini Copy-Paste Yapmak İste

[Kemal Demir]

Tüm sheetlerin Belirli Hücrelerini Copy-Paste Yapmak Ýste

Açtığım başlık için üzgünüm Arkadaslar.

excel Dosyası içerisinde var olan tüm sheetler İçin
a125 ile z128 arası değerleri kopyalayıp yeni bir Sheet içerisine sıra ile Kopyalamak için Yardıma İhtiyacım var.(dongusel anlamda)

Sub eklekopyala()
isimgir=inputbox("Yeni Açıcağanız Sheet İsmini Giriniz")
Sheets.Add,After:=Sheets(Sheets.Count)
ActiveSheet.Name=isimgir

For x=1 to Sheets.Count
Sheets(x).Range("a125:z128").Copy
..
.
.
.

next
End Sub

Zannedersem Dongusel mantıkta hatam var bunun doğru olabilmesi için yardımcı olurmusunuz.

İyi Çalışmalar.

 

[Kemal Demir]

Zannedersem galiba herkes yoğun neyse ben beklerım beyklemeyı severim :kafa: :kafa: :kafa: :kafa: :fircala: :gidiyorum:

 

[Levent Menteşoğlu]

Kopyalama yapmak için sayfayı seçtirmelisiniz.

[vb:1:90d93b0b23]Sub eklekopyala()
Application.ScreenUpdating = False
isimgir=inputbox("Yeni Açıcağanız Sheet İsmini Giriniz")
Sheets.Add,After:=Sheets(Sheets.Count)
ActiveSheet.Name=isimgir
For x=1 to Sheets.Count
Sheets(x).select
Range("a125:z128").Copy
sheets("isimgir").select
sonsat=[a65536].end(3).row+1
cells(sonsat,"a").pastespecial
next
End Sub
[/vb:1:90d93b0b23]

 

[Kemal Demir]

Çok teşekkur ederim.