Ben program içerisindeyken denemiştim çalışmıştı.

(27/08/2020, 09:44)berduş yazdı: Ben program içerisindeyken denemiştim çalışmıştı.

Tablo kısımlarında gezdikten sonra grafiğe girdiğinizde hata veriyor .

(27/08/2020, 09:56)merttr07 yazdı: Tablo kısımlarında gezdikten sonra grafiğe girdiğinizde hata veriyor .

kast ettiğiniz şeyi anlamadım ama tablolar formunu hatta açılanbilen tüm formları açtım sorun çıkmadı
hangi adımları izlediniz ve ne hatası verdi.

Programa girer girme ilk grafiği denedim sorunsuz hepsini gösterdi daha sonra programı kapattım tekrar açtım diğer tablo kısımlarına girdim güncelleme yaptım veri girişi yaptım hepsine daha sonra grafik kısmına girdim ve grafiği göstermek için butona bastım. Button kodunda hata aldım. Nedeni bilmiyorum programa ilk girdiğimde grafiklerin hepsi gözüküyor ama daha sonra diğer formların içerisinde gezdiğimde grafiğe gelip butona bastığımda hata alıyorum.

---

(27/08/2020, 08:30)merttr07 yazdı: Private Sub CommandButton1_Click()
GrafikKaynak Me.ListBox2, Me.ListBox1 & "." & Me.txtYil, Me.ListBox3.Column(1)

End Sub

Bu kodlamada hata aldım.Bu sefer

Bu kodda hata alıyorum

---

(26/08/2020, 23:04)berduş yazdı: grafik aktarma kodunu aşağıdaki kodla değiştirip dener misiniz?
graf modülündeki hy UserForm Grafik ekleme______________ kısmı

'hy UserForm Grafik ekleme________________________

Dim sTempFile As String



sTempFile = Environ("temp") & "\temp.gif"



Worksheets("örnekgrafik").ChartObjects(GrafAdi).Activate

ActiveChart.Export Filename:=sTempFile, FilterName:="GIF"

grafik.Image3.Picture = LoadPicture(sTempFile)



Kill sTempFile

Altta olan eklentide kodlarda farklılıklar var dosyadakini kullandım burada yazan kot da aynı hatayı veriyor.

---

'hy UserForm Grafik ekleme________________________
Dim sTempFile As String
Dim sChartName As String
Dim oChart As ChartObject

sTempFile = Environ("temp") & "\temp.gif"

Worksheets("örnekgrafik").ChartObjects(GrafAdi).Activate
ActiveChart.Export Filename:=sTempFile, FilterName:="GIF"


grafik.Image3.Picture = LoadPicture(sTempFile)

Kill sTempFile
MsgBox "Başarılı Şekilde Veriler Yüklendi"

End Function


Sizin ekte olan rardaki dosyada bulunan kod bu.

2 kod aynı fazlalıkları sildim o kadar

İkisini de denediğimde  aynı hatayı alıyorum

---