sayfalara makroyla veri aktarımı

[ardaserim]

merhabalar.
dosyadaki verileri yapabilmek için çok uğraştım ama hep hata verdi.
benim istediğim gidecekyer sekmesinde olan ilçelerin adı yazıldığı zaman bunu diğer ilgili sekmelere yani köyceğiz köyceğize atması bunu benim için yapabilicek varsa çok sevinicem şimdiden saygılarımla

 

[Necdet]

Merhaba,

Sorunuzu tam olarak anlamamakla birlikte birşeyler yapmaya çalıştım. Umarım isteğiniz gibi olmuştur.

Sayfalar yoksa oluşturur. Varsa Aktarır.

Sub Aktar()
Dim i As Long
Dim Sayfa As String
Set sg = Sheets("GİDECEK YER")
sg.Select
For i = 2 To [A65536].End(3).Row
    Sayfa = Trim(Cells(i, "D"))
 
    If Not SayfaVarMi(Sayfa) Then
        Sheets.Add After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Sayfa
        sg.Select
        Range("A1:E1").Copy Sheets(Sayfa).[A1]
    End If
 
    Range("A" & i & ":E" & i).Copy Sheets(Sayfa).Range("A" & Sheets(Sayfa).[A65536].End(3).Row + 1)
Next i
End Sub

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

 

[ardaserim]

çok teşekkür ederim sayın yeşertener

 

[Necdet]

Rica ederim, güle güle kullanınız.

 

[eedtr]

konuyu soran da yanıtlayan da var olsun.