makro ile verileri sayfalara dağıt

[şehiriçi]

örnek dosyamda gerekli açıklamayı yaptım , örnek dosyada a5:a94 arasında ki verileri kitabın sayfa isimleri olmasını istiyorum . teşekkürler

 

[kemalist]

Sub Makro1()
'
' Makro1 Makro
'

'
Selection.Copy
Sheets("3").Select
Sheets("3").Name = "3"
Sheets("özet").Select
Range("A8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("4").Select
Sheets("4").Name = "4"
Sheets("özet").Select
Range("A9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("5").Select
Sheets("5").Name = "5"
Sheets("özet").Select
Range("D32").Select
End Sub
Sub Makro2()
'
' Makro2 Makro
'

'
Range("A5").Select
Selection.Copy
Sheets("1").Select
Sheets("1").Name = _
"ali haydar hüsamettin uzunköprü"
Sheets("özet").Select
Range("A6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("2").Select
Sheets("2").Name = _
"mersinli kamil hüdavendigar efe"
Range("J32").Select
End Sub

Yukarıdaki makroya göre diğer sayfalarıda ekleyebilirsiniz.Makrolu dosya ektedir.

 

[Muzaffer Ali]

Aşağıdaki kodları Özet adlı sayfanın kod editörüne kopyalayıp çalıştırın.

Sub SayfaEkle()
    Dim SonSatir As Integer
    Dim Bak As Integer
    Dim syf As Worksheet
    SonSatir = Worksheets("Özet").Cells(Rows.Count, 1).End(3).Row
    For Bak = 5 To SonSatir
        For Each syf In Worksheets
            If syf.Name = Left(Worksheets("Özet").Cells(Bak, 1), 31) Then
                GoTo SayfaVar
            End If
        Next

        Set syf = Worksheets.Add
        If Not Worksheets("Özet").Cells(Bak, 1) = "" Then
            syf.Name = Left(Worksheets("Özet").Cells(Bak, 1), 31)
        End If
SayfaVar:
    Next
End Sub

 

[şehiriçi]

sayın dalgalı kur öncelikle ilginize teşekkürler , verdiğiniz kodu çalışmamda denedim . benim isteğim ; mevcut sayfaların isimlerinin, özetteki A5:A94 arasında kayıtlı olan verilerle aynı olması iken verdiğiniz kod bu sayfalarda değişiklik yapmıyor yeniden sayfalar açıyor .

 

[Muzaffer Ali]

Listede 90 sıra var ama sayfa sayısı 64.
64 den sonrası nasıl olacak.

 

[şehiriçi]

sayın dalgalı kur dediğinizi yaptım 90 sayfaya çıkardım sonra sizin vermiş olduğunuz kodu kopyalayıp çalıştırdım . neticede sayfa isimlerinde hiç değişiklik olmadığı gibi özet sayfasının sol tarafına doğru 90 tane sayfa oluşturdu , örnek dosyada vermiş olduğunuz kodu bir de siz denerseniz beni daha iyi anlayacaksınız .

 

[şehiriçi]

üstadlarım için kolay bir soru olduğunu düşünüyorum .

 

[şehiriçi]

soruma cevap alır umuduyla tekrar güncelliyorum

 

[Saban Sertkaya]

.............

 

[Saban Sertkaya]

............