UserForm da DÜŞEYARA

[Bülent Öztürk]

UserForm'da grafik oluyor olmasına ama, biraz farklı yollardan...
Örnek:
http://j-walk.com/ss/excel/tips/tip66.htm

Diğer dersler için listbox'un ilgili sütunu kodlamada dikkate alındığında sorunsuz uygulanabiliyor.
Tarih için örnek:

Kod: [Seç]

Private Sub CommandButton3_Click()
'TARİH GRAFİĞİ
Dim excelce As Integer
With Worksheets("GRAFİK")
    .Activate
    .Cells = Empty
    .Range("A1") = ComboBox1.Text
    .Range("B1") = "TARİH"
    For excelce = 0 To ListBox1.ListCount - 1
        .Cells(excelce + 2, 1).Value = excelce + 1
        .Cells(excelce + 2, 2).Value = ListBox1.List(excelce, 1) * 1  'Listbox'un 2. sütununun index'i 1'dir.
    Next excelce
.ChartObjects(1).Activate
ActiveChart.ChartType = xlLine
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = .Range("A1") & " - " & .Range("B1")
End With
Unload UserForm1
End Sub

.Cells(excelce + 2, 2).Value = ListBox1.List(excelce, 1) * 1  'Listbox'un 2. sütununun index'i 1'dir.

1 yazan yeri, listbox'taki sütuna göre değiştirebilirsiniz. Sadece index'in 0'dan başladığını unutmamak gerek.

1. sütun ListBox1.List(excelce, 0)
2. sütun ListBox1.List(excelce, 1)
...

Grafik için tam ekrana ihtiyaç var mı?
Çok büyük olması gereken ve çok fazla ayrıntı içeren bir grafik değil gördüğüm kadarıyla...

[serul]

Alla alla ! Kafe programı yaparken söylemiştiniz "0" dan başlıyordu. Ben tarif ettiğiniz yerleri değiştirip denemiştim ama olmamıştı. Excel böyle kafasına göre garipleşiyormu ki ?! Göndeerdiğiniz linki inceledim. Deneme sonuçları belli aralıklarla yenilendiği için benim için imkansız hale geliyor. Grafiği Excel de göstermeye devam edeceğiz artık.
Gafik büyük olduğu için değil veli veya öğrenci ile inceleneceğinden görsel olması için tam ekran düşünüyorum.
İlginiz için çok teşekkür ederim.

[Bülent Öztürk]

Aptallaştığı olur ama pek kafasına göre takılmaz.
Büyük ihtimalle sorun sizden kaynaklanmıştır. 

[serul]

Bülent Bey ekteki dosyada tıklatmayı çalıştıramadım. Önceki çalışmalarda da aynı hata ile karşılaşmıştım. Sayfayı yeniden oluşturup, formu yeniden tasarlayarak çözmüştüm. Aynı hata ile yine karşılaştığıma göre bir yerde hata yapıyorum. Tıklatma önceden çalışıyordu. Kodlara ekleme yaptıktan sonra çalışmamaya başladı.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Bülent Bey ekteki dosyada tıklatmayı çalıştıramadım.

Ne tıklatması bu?

[serul]

Formu açmak için mavi dikdörtgene makro atadım. Resimdeki hatayı veriyor.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Aşağıdaki gibi kullandığınız kod  Sheets("Charts") ile Charts isimli sayfaya başvuruyor, ancak çalışma kitabınızda bu isimde sayfa yok. Hata bu yüzden...

Ya sayfa adını, ya da kodu değiştirin.

Private Sub UpdateChart()
    Set CurrentChart = Sheets("Charts").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 350
    CurrentChart.Parent.Height = 200

'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"

'   Show the chart
    Image1.Picture = LoadPicture(Fname)
End Sub

[serul]

  Teşekkür Ederim !

[Bülent Öztürk]

Rica ederim. 

[serul]

UserForm a geçmek için şifre girişi yaptım. Şifre doğru olduğunda formlardan biri kapanıp diğerinin açılması için uğraşıyorum.

Kod: [Seç]

If TextBox2.Value = "1605" Then
UserForm1.Show , UserForm2.Visible = False
Else kısmında if döngüsü bozuluyor.

Kod: [Seç]

If TextBox2.Value = "1605" Then
UserForm1.Show and UserForm2.Visible = False
Else yazdığımdada hata veriyor. Ne yapmalıyım ?

[Bülent Öztürk]

Şu şekilde deneyin;

Kod: [Seç]

If TextBox2.Value = "1605" Then
    Unload UserForm2
    UserForm1.Show
Else

End If

[serul]

 

[serul]

Kullandıkça farklı istekler farklı beklentiler oluşuyor herzaman ki gibi. ListBoxta sadece 1.sıradaki öğrencide sıralamayı karma yapıyor.Diğer öğrenciler seçildiğinde sıralamayı küçükten büyüğe doğru yapıyor.Anlamadım gitti ?!

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]