İYİ GÜNLER BEN LİSTEMDE Kİ HER İSME ÖZEL BİR SAYFA YAPMAK İSTİYORUM AMA TIKANDIM KALDIM YARDIM EDEBİLECEK OLAN VAR MI




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("İSİM LİSTESİ")
Set SB = Sheets("ALACAK")

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


KOD BU AMA HATA VERİYOR NERDE YALNIŞ YAPTIM ACABA AYRICA İKİ İSİM AYNI OLDUMU BİRİNİ ALIYOR NEDENDİR

Eklediğiniz kod hata vermiyor. Örneğiniz ektedir inceleyin, sıkıntı olursa tekrar sorabilirsiniz.

(10-06-2014, 11:19)safe88 demiş ki: AYRICA İKİ İSİM AYNI OLDUMU BİRİNİ ALIYOR NEDENDİR

Sayfa isimlerinin tek olması gerekir. Aynı isimden iki sayfayı kabul etmemesi normaldir.