sirkülasyon
Altın Üye
- Katılım
- 10 Temmuz 2012
- Mesajlar
- 2,518
- Excel Vers. ve Dili
- 2021 LTSC TR
- Altın Üyelik Bitiş Tarihi
- 18-06-2026
Kod:
Dim i As Long
Dim Sayfa As String
Application.ScreenUpdating = False
If TextBox2 <> "" Then
Sayfa = Trim(TextBox2)
If Not SayfaVarMi(Sayfa) Then
Sheets("ŞABLON").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sayfa