UserForm da DÜŞEYARA

[serul]

Form kullanarak belli bir sayfada düşey aratıp eşleşen bilginin satırlarını formda ListBox'a sıralamak istiyorum. Benim arattırdığım sütunda ComboBox1 deki veriden birkaç satırda bilgi varken bunları ListBox a alt alta nasıl sıralayabilirim ?

[Orion1]

Dosyanız ektedir.

Kod: [Seç]

Private Sub CommandButton1_Click()
Dim sh As Worksheet, k As Range, myarr(), i As Long, sat As Long, j As Long
Dim adr As String
ListBox1.Clear
If ComboBox1.Value = "" Then Exit Sub
Set sh = Sheets("DATA")
sat = sh.Cells(65536, "C").End(xlUp).Row
If sat < 4 Then Exit Sub
ReDim myarr(1 To 4, 1 To sat)
Set k = sh.Range("C4:C" & sat).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        j = j + 1
        myarr(1, j) = Format(k.Offset(0, 2).Value, "#,##0.00")
        myarr(2, j) = Format(k.Offset(0, 4).Value, "#,##0.00")
        myarr(3, j) = Format(k.Offset(0, 6).Value, "#,##0.00")
        myarr(4, j) = Format(k.Offset(0, 8).Value, "#,##0.00")
        Set k = sh.Range("C4:C" & sat).FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
    ReDim Preserve myarr(1 To 4, 1 To j)
    ListBox1.Column = myarr()
End If
Erase myarr
Set k = Nothing
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[serul]

Teşekkür ederim Evren Bey ! Çok kısaltma kullanmışsınız kodlardan pek birşey öğrenemedim ama işime çok yaradı.Düzenlenmiş halini ekledim. CommandButon yardımıyla listelediğim öğrencinin ders ders net grafiğini çizdirmeye çalışıyorum. Forumda arattırdım bulamadım. Diğer sitelerden ise iş görür bir sonuca ulaşamadım ?

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

[serul]

Evren Bey CommandBox2 de Türkçe dersine ait grafik çizdirmek istediğimde ListBox da bu dersin sütununuda farklı renkle göstermek istiyorum.

Kod: [Seç]

Private Sub CommandButton2_Click()
    ListBox1.BackColor = vbGreen
   End Sub tamamının rengini değiştiriyor. Birkaç bişey denemedim ancak sonuç alamadım ? Koda ne eklemeliyim ?

[Orion1]

Evren Bey CommandBox2 de Türkçe dersine ait grafik çizdirmek istediğimde ListBox da bu dersin sütununuda farklı renkle göstermek istiyorum.

Kod: [Seç]

Private Sub CommandButton2_Click()
    ListBox1.BackColor = vbGreen
   End Sub tamamının rengini değiştiriyor. Birkaç bişey denemedim ancak sonuç alamadım ? Koda ne eklemeliyim ?

Listbox'ın böyle bir özelliği yok.
Listview kullansanız onda ise sadece font rengi değişiyor.
Ama
ama spreadsheet kullanabilirsiniz.
Oda ilk açılırken meaj veriyor.Activex dosyası açıyorsunuz diye

[serul]

CommandButon yardımıyla listelediğim öğrencinin ders ders net grafiğini çizdirmeye çalışıyorum. Forumda arattırdım bulamadım. Diğer sitelerden ise iş görür bir sonuca ulaşamadım ?

[Orion1]

Neye göre çizeceksini grafiği

[serul]

ListBox da listelenen değerlere göre çizdirmek istiyorum.Ekte derslere göre sütunlar var. ListBox 9 sütundan oluşuyor. CommandButton2 tıklandığında 1.sütundaki değerlere göre grafik çizdirmek istiyorum.

[Orion1]

ListBox da listelenen değerlere göre çizdirmek istiyorum.Ekte derslere göre sütunlar var. ListBox 9 sütundan oluşuyor. CommandButton2 tıklandığında 1.sütundaki değerlere göre grafik çizdirmek istiyorum.

Tamamda 1nci sütunda 280 küsur kayıt var.Onları bir yere sığdırmak olur olmasınada siz hangisi ne olduğunu anlayabilecekmisiniz?
Karınca duası gibi bir şey olur.
Sonra grafik istiyorsunuz ama nasıl grafik istiyorsunuz.
Grafik var,Garfikçik  var.
Siz hangisini istiyorsunuz?Pasta grafikmi olsun,çubuk grafikmi?
Yataymı olsun ,dikeymi?
Dosya üzerinde bir tane manuel olarak örnek yapın,konu daha iyi anlaşılır?

[serul]

Haklısınız açıklayıcı yazmadım. Resimde işaretlediğim gibi. Form açılınca öğrenci ismini seçtikten sonra "BUL" dediğimizde öğrencinin bütün derslerine ait netlerini ListBox  listeliyor. Öğrenci netleri listelendikten sonra yan taraftaki derslerden herhangi birini seçtikten sonra öğrencimizin o derse ait netlerinin çizgi grafiğini çizdirmek istiyorum.

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

[Orion1]

Merhaba
Bakıcam.1-2 gün işim sıkışık.
Görüşürüz.Kolay gelsin.

[serul]

Peki kolay gelsin.

[serul]

Evren Bey grafik oluştururken yatay eksende verilere ihtiyacımız olacak. DATA sayfasında sınav tarihlerini ve/veya sınav numaralarını yatay eksendeki ihtiyacımız olan veriler için kullanabiliriz.

[Bülent Öztürk]

Ekteki Türkçe için olan örneği inceleyip, diğer dersler için uygulamaya çalışın Serkan Bey.



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

[serul]

Teşekkür ederim Bülent Bey! Ben UserForm'un içine bu grafiği yerleştirmek istiyordum.Sanırım olmuyor 

Diğer dersler için kodu genişletmek istediğimde sürekli olarak ListBox daki listenin ilk sütunundaki verileri seçiyor. Bunu çözemedim. Bende ayrı ayrı ListBoxlar oluşturdum(Her ders için ayı ayrı). Görsellikten vazgeçmek zorunda kaldım. Bu olağan birşey midir? ListBoxdai 9 sütundan herhangi birini veya birr kaçını seçerek grafik oluşturabilir miyim?

UserFormun içinde grafiği çizdiremeyeceğimi kabul ederek excelde grafik görünümünü tam ekranda göstermeye çalıştım bu seferde excel sürekli tam ekran modunda çalışıyor.

(Örnek dosyayı yüklemedim bilgisayarım yanımda değil )