2003 de kullandıgım makro 2007 de calışmadı

[stalingard80]

Sub DAGIT()
Dim s1 As Worksheet
Dim sY As Worksheet
Dim ALAN As Range
Dim r As Integer
Dim c As Range
Set s1 = Sheets("VERİ")
Set ALAN = Range("VERİTABANI")


s1.Columns("d:d").Copy _
Destination:=Range("L1")
s1.Columns("L:L").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("J1"), Unique:=True
r = Cells(Rows.Count, "J").End(xlUp).Row


Range("L1").Value = Range("d1").Value

For Each c In Range("J2:J" & r)

s1.Range("L2").Value = c.Value

If SAYFA(c.Value) Then
Sheets(c.Value).Cells.Clear
ALAN.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("VERİ").Range("L1:L2"), _
CopyToRange:=Sheets(c.Value).Range("A1"), _
Unique:=False
Else
Set sY = Sheets.Add
sY.Move After:=Worksheets(Worksheets.Count)
sY.Name = c.Value
ALAN.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("VERİ").Range("L1:L2"), _
CopyToRange:=sY.Range("A1"), _
Unique:=False
End If
Next
s1.Select
s1.Columns("J:L").Delete
End Sub
Function SAYFA(SAYFAADI As String) As Boolean
On Error Resume Next
SAYFA = CBool(Len(Worksheets(SAYFAADI).Name) > 0)
End Function

arkadaslar yukardaki makroyu 2003 de calıştırıyordum ama 2007 de debug hatası verıyor sebebi nedir acaba??
makronun ozelliği sayfanın d sutununda yazanlara ayrı sayfa acıp o sutundaki kriterlere gore sayfalara dagıtması...

 

[Huseyinkis]

hangi satırda Debug hatası veriyor yazabilirmisiniz veya dosyanın bir orneğini yüklerseniz daha iyi olur.

 

[stalingard80]

Set ALAN = Range("VERİTABANI")
debug verdiği satır usttedir dosyayı atarım ama 5 dosya birbirine baglı burdan anlamazsanız rarlayıp atarım.

 

[Huseyinkis]

Set ALAN = Range("VERİTABANI")
debug verdiği satır usttedir dosyayı atarım ama 5 dosya birbirine baglı burdan anlamazsanız rarlayıp atarım.

onceki dosyanızda sanırım VERİTABANI adında ad tanımlama yapmışsınız yaptığınız ad tanımlamanın yeni dosyada olup olmadığını kontrol edin.

Bu işlemi Formuller sekmesi altında Ad Yöneticisini tıklayarak yapabilirsiniz.
eger alanınız doğru ise bazen Set kısmından hata veriyor Set Alan= kısmını sadece Alan= olarak yapın.

 

[stalingard80]

arkadaslar tesekkurler sorun çözüldü alan adı 2003 de VERITABANI idi 2007 de acınca türkçeleştirmiş Veritabani olmuş makroda duzeltınce isimi düzeldi...