Otomatik Güncellenen ListBox

[muhammethezer]

Hayırlı Pazarlar dilerim.
Web üzerinden bir sürü araştırma yaptım, Ancak istediğim sonuca bir türlü ulaşamadım. Sizden bir konuda yardım rica ediyorum. Yapmak istediğim işlem;
Kayıtlar isimli bir sayfam ve İzleme Sayfası isimli bir sayfam bulunmakta. İzleme Sayfası üzerinde bir adet ListBox1 var. Kayıtlar sayfasına kaydedilen son (5) Beş kaydı üzerine almak istiyorum. Ayrıca her yeni kayıtta ListBox otomatik olarak güncellensin istiyorum. Yardımcı olabilir misiniz?

 

[halit3]

Bu kodu izleme sayfasının kod bölümüne ekle va sayfadan çık başka sayfaya git sonra tekrar izleme sayfasına geç

Private Sub Worksheet_Activate()
sayf1 = "Kayıtlar"
son = Worksheets(sayf1).Cells(Rows.Count, "b").End(3).Row
Worksheets(ActiveSheet.Name).ListBox1.ListFillRange = sayf1 & "!$A$" & son - 5 & ":$A$" & son
End Sub

 

[muhammethezer]

Bu kodu izleme sayfasının kod bölümüne ekle va sayfadan çık başka sayfaya git sonra tekrar izleme sayfasına geç

Private Sub Worksheet_Activate()
sayf1 = "Kayıtlar"
son = Worksheets(sayf1).Cells(Rows.Count, "b").End(3).Row
Worksheets(ActiveSheet.Name).ListBox1.ListFillRange = sayf1 & "!$A$" & son - 5 & ":$A$" & son
End Sub

halit hocam yardımınız için teşekkür ederim. Sadece "Kayıtlar" sayfasını belli süre içerisinde kontrol edebilecek bir kontrol kodu ekleyebilir miyiz?

 

[halit3]

halit hocam yardımınız için teşekkür ederim. Sadece "Kayıtlar" sayfasını belli süre içerisinde kontrol edebilecek bir kontrol kodu ekleyebilir miyiz?

Buradan ne anlamalıyım bilmiyorum .
neyi belli bir süre kontrol etmek istiyorsunuz.

 

[muhammethezer]

Buradan ne anlamalıyım bilmiyorum .
neyi belli bir süre kontrol etmek istiyorsunuz.

Şu şekilde özetlersem;
Kayıtlar sayfasına veri kaydı yapıldığında ListBox otomatik olarak güncelleme yapmasını istiyorum. Nedeni ise İzlemeSayfası bir tv ekranında devamlı olarak açık kalacak. Kayıtlar sayfasına veri girişi olduğunda ListBox otomatik olarak veriyi ekrana alacak. Bu işlem 3 - 5 saniye aralığında olabilir diye düşünüyorum.

 

[halit3]

Kayıtı ne şekilde yapıyorsanız bu kodu akayıt kodunun içine koyunuz.

sayf1 = "Kayıtlar"
son = Worksheets(sayf1).Cells(Rows.Count, "b").End(3).Row
Worksheets("İzlemeSayfası").ListBox1.ListFillRange = sayf1 & "!$A$" & son - 5 & ":$A$" & son

 

[muhammethezer]

Kayıtı ne şekilde yapıyorsanız bu kodu akayıt kodunun içine koyunuz.

sayf1 = "Kayıtlar"
son = Worksheets(sayf1).Cells(Rows.Count, "b").End(3).Row
Worksheets("İzlemeSayfası").ListBox1.ListFillRange = sayf1 & "!$A$" & son - 5 & ":$A$" & son

Hocam, dediğiniz gibi yaptım. İşlem Tamam, Ancak sizden bir ricam daha olacaktı? VeriTabani sayfasında Adi, Soyadi, Görevi, Telefon ve Resim isimli başlıklardan sayfa üzerinde bulunan Labellara ListBox üzerinden hangisi seçili ise o kaydı VeriTabanı sayfası üzerinden almak istiyorum. Bu konuda yardımcı olabilir misiniz?

 

[halit3]

İzleme sayfasındaki kodları bununla değiştir.
renkli bölümleri siz kendiniz ekleme veya düzenlemelerini yapasınız.

Private Sub ListBox1_Click()
sayf1 = "Kayıtlar"
sat = ListBox1.ListIndex + 2
Label1 = Worksheets(sayf1).Cells(sat, "b").Value
Label4 = Worksheets(sayf1).Cells(sat, "c").Value
Label5 = Worksheets(sayf1).Cells(sat, "d").Value
Label6 = Worksheets(sayf1).Cells(sat, "e").Value

End Sub

Private Sub Worksheet_Activate()
sayf1 = "Kayıtlar"
son = Worksheets(sayf1).Cells(Rows.Count, "b").End(3).Row
Worksheets("İzlemeSayfası").ListBox1.ListFillRange = sayf1 & "!$B$2:$B$" & son
Worksheets("İzlemeSayfası").ListBox1.ListIndex = ListBox1.ListCount - 2
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Set S1 = ThisWorkbook.Worksheets("Form")
Set s2 = ThisWorkbook.Worksheets("Kayıtlar")
If Intersect(Target, [GN1]) Is Nothing Then Exit Sub
Label2.Caption = Worksheets("İzlemeSayfası").Range("GN1").Value
End Sub

 

[muhammethezer]

İzleme sayfasındaki kodları bununla değiştir.
renkli bölümleri siz kendiniz ekleme veya düzenlemelerini yapasınız.

Private Sub ListBox1_Click()
sayf1 = "Kayıtlar"
sat = ListBox1.ListIndex + 2
Label1 = Worksheets(sayf1).Cells(sat, "b").Value
Label4 = Worksheets(sayf1).Cells(sat, "c").Value
Label5 = Worksheets(sayf1).Cells(sat, "d").Value
Label6 = Worksheets(sayf1).Cells(sat, "e").Value

End Sub

Private Sub Worksheet_Activate()
sayf1 = "Kayıtlar"
son = Worksheets(sayf1).Cells(Rows.Count, "b").End(3).Row
Worksheets("İzlemeSayfası").ListBox1.ListFillRange = sayf1 & "!$B$2:$B$" & son
Worksheets("İzlemeSayfası").ListBox1.ListIndex = ListBox1.ListCount - 2
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Set S1 = ThisWorkbook.Worksheets("Form")
Set s2 = ThisWorkbook.Worksheets("Kayıtlar")
If Intersect(Target, [GN1]) Is Nothing Then Exit Sub
Label2.Caption = Worksheets("İzlemeSayfası").Range("GN1").Value
End Sub

Teşekkür ederim Hocam,
Son olarak sizden bir ricam daha olsa!
ListBox'ın kendi içerisinde her yeni eklenen veriyi otomatik olarak seçse olabilir mi?

 

[halit3]

Kodun bu bölümü sayfa açıldığında zaten seçiyor.

Private Sub Worksheet_Activate()
sayf1 = "Kayıtlar"
son = Worksheets(sayf1).Cells(Rows.Count, "b").End(3).Row
Worksheets("İzlemeSayfası").ListBox1.ListFillRange = sayf1 & "!$B$2:$B$" & son
Worksheets("İzlemeSayfası").ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

 

[Ömer BARAN]

Merhaba.
Sanıyorum; Kayıtlar isimli sayfaya kayıt işlemi bir userform üzerinden yapılırken başka bir ekranda da izleme sayfası görünüyor olacak.

Bu nedenle; Sayın halit3'ün verdiği kodları (kod blokunun başlığı ve End Sub satırı hariç)
userform üzerinden kayıt yapan kaydet_Click kodunun sonuna "Unload Me'"satırının altına eklemeniz gerekecek.

Bir de kendisinin verdiği koddaki son satırda kırmızı renklendirilen kısımın başına aşağıdaki gibi sayfa adını eklemeniz gerekebilir.
....istIndex = Worksheets("İzlemeSayfası").ListBox1.ListCount - 1

.

 

[muhammethezer]

Değerli Hocalarım, Cevaplarınız için teşekkür ederim.
ListBox içerisinde veri yoksa Labellarda boş getirmek istesem, Nasıl bir kod yazmak gerekir? Yardımcı olabilir misiniz?

 

[Ömer BARAN]

Tekrar merhaba Sayın HEZER.
Oluşturduğunuz belge üzerinde adım adım ilerlerken, gelinen aşamayı,
yapılan düzeltme ve eklemeleri belgenize/kodlara nasıl dercettiğinizi bilemiyoruz.

Son sorunuzla ilgili olarak ana hatlarıyla aşağıdaki gibi bir yapıyla sonuç alabileceğinizi belirteyim.

...............
If Listbox1.ListCount=0 Then
    Label1.Caption=""
    Label2.Caption=""
    .......
Else
    Label1.Caption= >>> Ne yazılacaksa
    Label1.Caption= >>> Ne yazılacaksa
    .......
End If
...............

 

[muhammethezer]

Seviyorum siz değerli Hocalarımı, Rabbim Yardımcınız olsun.

 

[Ömer BARAN]

Eyvallah, sağlıcakla.

 

[muhammethezer]

Eyvallah, sağlıcakla.

Ömer Hocam,
Bu proje tam anlamıyla bitince sizinle paylaşacağım. Çünkü sizin bu projede bana katkılarınız çok oldu. Ancak, diğer hocalarıma da değerli katkılarından dolayı teşekkür etmek istiyorum. Sizin değerlendirmeniz sonrasında buradan diğer arkadaşlarımızında faydalanması için bu projeyi buradan paylaşmak istiyorum.

 

[Ömer BARAN]

Evet epey emek/zaman harcamıştım.
Ben de kendi adıma ilk kez kullandığım şeyler öğrendim bu projenizle ilgilenirken.

FORUM mantığı da bu zaten; bilgiyi paylaşarak çoğaltmak, parça parça bilgilerden bir bütüne, bitmiş bir ürüne varmanın hazzını yaşamak,
destek isteyenlerin de zaman içerisinde, diğer destek isteyenlerin sorularına cevap vermeye başlamalarını görmek.
.