Makro ile Bileşik Grafik Oluşturma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

vkartal73

Katılım
28 Tem 2022
Mesajlar
10
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar
ben buton kullanarak Vba kodlarıyla sıfırdan bir birleşik grafik çizmek istyorum çok araştırmama rağmen ilerleyemedim yardımcı olursanız sevinirim şimdiden teşekkürler. Kısacası buton kullanmak suretiyle grafiğimin bir kısmı histogram bir kısmı da çizgi grafiği olsun istiyorum.
 
Rakamlardan Saati Çıkartıp Sonuç Bulma
İki Tablodan Üçüncü Tablo Oluşturma

Ekli dosyalar

Çözüm
Ömer BARAN
Merhaba.
İlgi alanı grafik olan arkadaşlarımız sanırım konuyu fark etmedi.

Grafik olayları çok uğraştığım mevzular değil ancak, aşağıdaki gibi dener misiniz?
Dikkat: Belgenizde Sayfa2 adını taşıyan sayfanız varsa, önce mevcut Sayfa2 silinir.
VBA: 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each shf In ThisWorkbook.Sheets
    If shf.Name = "Sayfa2" Then shf.Delete
Next
Application.DisplayAlerts = True
alan = Range("A1:C" & Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row).Address
Sheets.Add: ActiveSheet.Name = "Sayfa2"
Sheets("Sayfa2").Activate
Sheets("Sayfa2").Shapes.AddChart.Select
With ActiveChart
    .ChartType = xlColumnClustered...
Tarihe göre sırala Oylamaya göre sırala
Merhaba.
İlgi alanı grafik olan arkadaşlarımız sanırım konuyu fark etmedi.

Grafik olayları çok uğraştığım mevzular değil ancak, aşağıdaki gibi dener misiniz?
Dikkat: Belgenizde Sayfa2 adını taşıyan sayfanız varsa, önce mevcut Sayfa2 silinir.
VBA: 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each shf In ThisWorkbook.Sheets
    If shf.Name = "Sayfa2" Then shf.Delete
Next
Application.DisplayAlerts = True
alan = Range("A1:C" & Sheets("Sayfa1").Cells(Rows.Count, 1).End(3).Row).Address
Sheets.Add: ActiveSheet.Name = "Sayfa2"
Sheets("Sayfa2").Activate
Sheets("Sayfa2").Shapes.AddChart.Select
With ActiveChart
    .ChartType = xlColumnClustered
    .SetSourceData Source:=Range("Sayfa1!" & alan)
    .FullSeriesCollection(1).AxisGroup = 1
    .FullSeriesCollection(2).ChartType = xlLine
    Sheets("Sayfa2").[A1].Activate
End With
Sheets("Sayfa1").Activate
Application.ScreenUpdating = True
MsgBox "GRAFİK EKLENDİ.." & vbNewLine & vbNewLine & _
    "..:: Ömer BARAN ::..", vbInformation, "EXCELDESTEK.COM"
End Sub
 
Oyla 1 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt