örnek sheet kopyalayan

[electronick]

bana acele bi makro lazım bu işi yapan bi makro lazım

bir sicil numaraları dosyasındaki c sutununda sicil numaralarım var ve örnek sheet dosyasında da örnek bir sheet var.bu makro örnek sheetleri c sutunundaki sicil numarası kadar kopyalacak ve sheetlerin isimleri c sutundaki sicil numaraları olacak ve bu kopyalanan sheetlerin b4 hücresinede hangi sicil numarasına ait o sicil numaraları gelecek

yardımcı olursanız sevinirim....

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
On Error Resume Next
Set so = Sheets("örnek")
Set ss = Sheets("sicil")
For sf = 3 To Sheets.Count
Sheets(sf).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Next

For sut = 1 To ss.[c65536].End(3).Row
Set se = Sheets("örnek")
se.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Move After:=Sheets(Sheets.Count)
ActiveSheet.Name = ss.Range("c" & sut).Value
ActiveSheet.[b4] = ss.Range("c" & sut).Value
Next

Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("sicil").Select
End Sub

 

[akrbas]

konu yaratma

kusura bakmayın arkadaşlar....ama yeni bir konu yaratmak istiyourm ama bir türlü nerden yaratcağımı bilemedim lütfen yardım....

 

[electronick]

peki bu makroyu benim istedigim örnek bir sheet kopyalaması için nasıl uyarlayabiliriz mesela örnek formlar için hazır olan bir sheet kopyalamak için aynı ektedi gibi veya ben istedigim excel dosyasındaki sheetleri kopyalatmak için ...

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanıza uyarlanmıştır.

 

[electronick]

cok sagol cok işe yaradım.....
ama bikac sey soracak dosyayı kapatıp acmadan bikac kez calıştırırsam sapıtıyor
sicil numarası yazmaya altından devam mı edecez yoksa o hücreleri koplayıp altına öyle mi devam edecez
bide ben 50-100 sheet kopyalatmak isteyince bi kısmını kopyalıyor sadece mesela 201-350 kadar sicil nosu yazıyorum 201 dan baslıyor 240 larda filan kopyalamayı bırakıyor kopyaladıgı son sheetin ismini kopyalamayı bıraktıgı numaradan hızlıca degiştirerek 350 getiriyor.
istedigim kadar sheet kopyalatamıyorum bunun nedeni nedir

bide mesela bunu b 4 hücresine c sutunundaki sicil nolarını yazdırdık c 4 hücresine de d sutunundakileri kopyalatabilir miyiz .

 

[Kenantu]

Merhaba dostum

Bildiğim kadarı ile excel çalışma kitabına en fazla 256 sayfa ekleyebilirsindaha fazlasını ekleyemezsin bu yüzden makro hatalı çalışabilir belki sorun budur

 

[electronick]

yok bu degil 40 sheette filan hata veriyor sonra bidaha çalıştırınca da bütün tabları siliyor