Soru Grafiğe makro atama hatası

Katılım
24 Nisan 2009
Mesajlar
33
Excel Vers. ve Dili
ofice 2013 Türkçe
Herkese iyi akşamlar dilerim,
Ekteki tabloda bir değişiklik yaptım, grafiği düzeltmeme rağmen en çok satılan ürün sayısını değiştirdiğimde grafikte Q5 ve Q6 verileri gelmemektedir .Bu konuda ne yapmam gerekir acaba.İlginiz için şimdiden teşekkür ederim.
 

Ekli dosyalar

Katılım
24 Nisan 2009
Mesajlar
33
Excel Vers. ve Dili
ofice 2013 Türkçe
İyi günler dilerim,acaba dosyayı inceleme şansınız oldumu.Destekleriniz için teşekkür ederim.
 

Hakan ERDOST

Destek Ekibi
Destek Ekibi
Katılım
12 Eylül 2004
Mesajlar
870
Excel Vers. ve Dili
Excel 2019 Türkçe (Ev)
Excel 2013 Türkçe (Okul)
Dosyanız ekte.
 

Ekli dosyalar

Katılım
24 Nisan 2009
Mesajlar
33
Excel Vers. ve Dili
ofice 2013 Türkçe
[QUOTE = "Hakan ERDOST, yayın: 1022439, üye: 653"]
Dosyanız ekte.
[/ ALINTI]

Hakan bey öncelikle ilginiz için teşekkür ederim.Yalnız grafikte Q5 e Q6 daki sütunlar da diğer ürünler dışındaki ürünlerin grafiği gelmemekte.Muhtemelen Visual Basic de bir sıkıntı var.Çünkü Sağ üsten en çok satılan ürün butonunu değiştirdiğimde Q5 ve Q6 daki sütunlar kayboluyor.
 

Hakan ERDOST

Destek Ekibi
Destek Ekibi
Katılım
12 Eylül 2004
Mesajlar
870
Excel Vers. ve Dili
Excel 2019 Türkçe (Ev)
Excel 2013 Türkçe (Okul)
[QUOTE = "Hakan ERDOST, yayın: 1022439, üye: 653"]
Dosyanız ekte.
[/ ALINTI]

Hakan bey öncelikle ilginiz için teşekkür ederim.Yalnız grafikte Q5 e Q6 daki sütunlar da diğer ürünler dışındaki ürünlerin grafiği gelmemekte.Muhtemelen Visual Basic de bir sıkıntı var.Çünkü Sağ üsten en çok satılan ürün butonunu değiştirdiğimde Q5 ve Q6 daki sütunlar kayboluyor.
Sayfanızda VB kodu yok tamamen formüllerle hazırlanmış.Sanırım istediğiniz gibi oldu. İnceleyiniz lütfen.
 

Ekli dosyalar

Katılım
24 Nisan 2009
Mesajlar
33
Excel Vers. ve Dili
ofice 2013 Türkçe
'Hakan Bey çok teşekkür ederim.Elinize sağlık ilk gönderdiğim tabloda 3 Aylık Satış hücresine bağlı aşağıdaki şekilde kodlama vardı.Buda işimi görür.Emeğinize sağlık

Kod:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim i As Long
    Dim vTopProducts As Variant
    Dim bIncludeOther As Boolean
    
   On Error Resume Next
    If Target.Cells.Count <> 1 Then Exit Sub
    If Len([n]) = 0 Then Exit Sub
    If Not Intersect(Union([n], [DiğerleriniEkle]), Target) Is Nothing Then
        Application.ScreenUpdating = False
        bIncludeOther = [DiğerleriniEkle] = "EVET"
        With ChartObjects(1).Chart
            .SetSourceData Union([EnİyiN], IIf(bIncludeOther, [Diğer], [EnİyiN]), [Toplam])
            .ChartType = xlColumnClustered
            Application.EnableEvents = False
            vTopProducts = [index(EnİyiN,,1)]
            Application.EnableEvents = True
            For i = 1 To .SeriesCollection.Count
                With .SeriesCollection(i)
                    .Format.Line.Visible = msoFalse
                    .HasDataLabels = False
                End With
            Next
            
            With .SeriesCollection([n] - bIncludeOther + 1)
                .ChartType = xlLine
                .AxisGroup = 2
                With .Border
                    .Color = ThisWorkbook.Theme.ThemeColorScheme.Colors(msoThemeAccent3).RGB
                End With
                With .Points(.Points.Count)
                    .ApplyDataLabels
                    With .DataLabel
                        .ShowSeriesName = True
                        .ShowValue = 0
                        DoEvents
                    End With
                End With
            End With
            With .Axes(xlValue)
                .MaximumScaleIsAuto = True
                .MaximumScale = .MaximumScale + 0.5 * .MaximumScale
                .MinimumScale = 0
            End With
            With .Axes(xlValue, xlSecondary)
                .MaximumScaleIsAuto = True
                .MaximumScale = [max(Toplam)] + 0.1 * [max(Toplam)]
                .MinimumScale = 0
                .TickLabels.Font.Size = 9
                With .Format.Line
                    .Visible = msoTrue
                    .ForeColor.ObjectThemeColor = msoThemeColorDark2
                    .ForeColor.TintAndShade = 0
                    .ForeColor.Brightness = 0.6
                    .Transparency = 0
                End With
            
            End With
        
            .Legend.Delete
            .SetElement msoElementLegendBottom
            .Legend.LegendEntries(.Legend.LegendEntries.Count).Delete
            With .Legend.Format.TextFrame2.TextRange.Font
             .Size = 9
             .Caps = msoAllCaps
             .Spacing = 0.2
            End With
        End With
        Application.ScreenUpdating = True
    End If

End Sub
 

Hakan ERDOST

Destek Ekibi
Destek Ekibi
Katılım
12 Eylül 2004
Mesajlar
870
Excel Vers. ve Dili
Excel 2019 Türkçe (Ev)
Excel 2013 Türkçe (Okul)
Rica ederim. Kolay gelsin.
 
Üst