Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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.
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.