Eklemiş olduğunuz kodların klasör oluşturma ile bir ilgisi yok sadece yeni sayfa açma ile ilgili yani ŞABLON isimli sayfayı kopyalayıp yeni isim ile açar.Aşagıdaki konunun 4 mesajını inçeleyiniz.
Program Yapmak
Cari Kayıt
Hatana Gelince Else blogu yanlış yerde tanımlanmış aşağıdaki şekilde düzemleyiniz.
Application.ScreenUpdating = False
Dim Sayfa As String
Dim SA As Worksheet
Dim SB As Worksheet
Dim i As Integer
Set SA = Sheets("ANASAYFA")
Set SB = Sheets("ŞABLON")
For i = 3 To SA.[B65536].End(3).Row
If SA.Cells(i, "B") <> "" Then
Sayfa = SA.Cells(i, "B")
Else
If Not SayfaVarMi(Sayfa) Then
SB.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = SA.Cells(i, "B")
Sheets(Sayfa).Range("a2") = SA.Cells(i, "A")
End If
End If
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ R A H A T A O L "