Function SayfaVarMi(Sayfa As String) As Boolean
On Error Resume Next
SayfaVarMi = CBool(Len(Worksheets(Sayfa).Name) > 0)
End Function


Sub kod()
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")
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")
Else
End If
End If
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ R A H A T A O L "
End Sub



burada ki yanlışlık nedir acaba yardımcı olurmusunuz

ve iki isim aynı oldumu yalnız birine özel dosya yapıyor neden acaba

---

ne hata yaptım yardım edermisinin

---

tamam teşekkür ederim uyarınız için daha dikkatli olmaya çalışırım

---

kimse yok mu bugün

---

YARDIM LÜTFEN