Sub Makro1()
Dim chartName As String
Dim chartNumber As Integer
chartNumber = 1 ' Başlangıç için grafik numarasını 1 olarak ayarlayın

For i = 2 To 11587 Step 11
    For p = 12 To 11597 Step 11
        Range("D" & i & ":I" & p).Select
        chartName = "Grafik" & chartNumber ' Her döngü için benzersiz grafik ismi
        ActiveSheet.Shapes.AddChart2(227, xlLine).Select
        ActiveChart.Parent.Name = chartName ' Grafik ismini ayarla
        
        With ActiveSheet.Shapes(chartName)
            .IncrementLeft 89.1176377953
            .IncrementTop -210.8823622047
            .ScaleWidth 2.7279413823, msoFalse, msoScaleFromTopLeft
            .ScaleHeight 1.9971405658, msoFalse, msoScaleFromTopLeft
        End With
        
        With ActiveChart
            .SetElement (msoElementDataLabelTop)
            .SetElement (msoElementDataTableWithLegendKeys)
            .ChartTitle.Select
            Selection.Caption = "='veritabanı'!B" & i
            .ChartArea.Select
        End With
        
        ChDir "C:\Users\narhome\Desktop\deneme"
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            "C:\Users\narhome\Desktop\deneme\" & Sheets("veritabanı").Range("B" & i) & ".pdf", Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        ActiveChart.Parent.Delete
        chartNumber = chartNumber + 1 ' Grafik numarasını artır
    Next p
Next i

End Sub