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
#1
Merak üzerine.rar
(Dosya Boyutu: 25,17 KB | İndirme Sayısı: 11)
