Makro Hatası

[serkan.sevinc]

Merhaba,
Ekteki çalışmada sayfaları süz makrosunda depo isimlerine göre sayfalar açması gerekiyor. Fakat hata veriyor.
Yardımcı olursanız sevinirim.

 

[muygun]

Merhaba;
sayfaları_aç_dağıt makrosunu;

Sub sayfaları_aç_dağıt()
Dim i As Long
Dim Sayfa As String
Set s1 = Sheets("data")
Application.ScreenUpdating = False
s1.Select
For i = 3 To s1.Range("u65536").End(xlUp).Row
If Cells(i, "u") <> "" Then
Sayfa = Trim(Cells(i, "u"))
If Not SayfaVarMi(Sayfa) Then
Sheets("şablon").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sayfa
s1.Select
End If
End If
Next i
Call sayfalara_dağıt
Application.ScreenUpdating = True
End Sub

Şeklinde değiştirin.
İyi çalışmalar.

 

[serkan.sevinc]

çok teşekkürler