Düzenlenmiş bir sayfayı aynı şekilde nasıl macro ile nasıl çoğaltabiliriz

[millis]

Arkadaşlar ve Üstadlar; Düzenlemiş olduğum bir sayfa var ve UserFormda TextBox'a girdiğim kişi ismini girdiğimde düzenlemiş olduğum sayfa formatında yeni bir sayfa açılsın.

 

[xxcell]

Aşağıdaki kod işinizi görebilir.

    On Error GoTo cikis
    Sheets("FORM").Copy before:=Sheets(1)
    isim = "fuat"
    For n = 1 To Sheets.Count
    If Sheets(n) = isim Then isim = ""
    Next
    If isim > "" Then ActiveSheet.Name = isim
    
cikis:
    Exit Sub

1. Form isimli sayfayı kopyalar
2. isim değişkeninde girili değeri "fuat" tüm sayfalarda arar
3. Eğer isim değişkeninde girili değerde başka bir sayfanız yoksa kopyaladığınız sayfanın ismini İSİM değişkenindeki olarak değiştirir.
4. hata üretirse ismi değiştirmeden çıkar.

 

[mehmett]

Dosyanız ekte.

Sayfa kopyalamak için Ctrl+m tuşlayınız.

 

[millis]

teşekkür

ilgi ve alakanıza çok teşekkür ederim. Vermiş olduğunuz bilgiler çok faydalı oldu. Emeğinize sağlık.