Combobox ta günlük kayıtları görme

[tufan03]

Userform üzerine yerleştirdiğimiz combobox açılır kututan GÜN sayfasında bulunan listeden bugün giriş yapan kişilerin listesini nasıl görebiliriz. Tablodan sadece giriş tarihi esas alınacak mümkünse tablodaki sütun başlıkları da görünsün. Dosya eklidir.Teşekkür ederim.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Dosyayı istediğiniz şekilde güncelledim.

Private Sub UserForm_Initialize()
Dim i As Long
Sheets("Sayfa1").Select
Set s2 = Sheets("GÜN")
For i = 2 To s2.Cells(65536, "E").End(xlUp).Row
    If CDate(s2.Cells(i, "E").Value) = Date Then
        ComboBox1.AddItem s2.Cells(i, "B").Value
    End If
Next i
Set s2 = Nothing
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[tufan03]

Sayın Orion2 Teşekkür ederim, Formun altında listenin bulunduğu GÜn sayfasının görünmemesi mümkünmü.

 

[Orion1]

Sayın Orion2 Teşekkür ederim, Formun altında listenin bulunduğu GÜn sayfasının görünmemesi mümkünmü.

İstediğiniz şekilde düzenledim.Önceki mesajımdan indirebilirsiniz.

 

[tufan03]

Ayrıca ilave olarak combobox tan seçtiğimiz kişiye çift tıklayarak gün sayfasında bulunan kişiye ait bilgileri userform üzerinde açacağımız textboxlarda gösterebilirmiyiz.(Giriş tarihi textbox1 de,çıkış tarihi textbox2 de vs. gibi)

 

[Orion1]

Ayrıca ilave olarak combobox tan seçtiğimiz kişiye çift tıklayarak gün sayfasında bulunan kişiye ait bilgileri userform üzerinde açacağımız textboxlarda gösterebilirmiyiz.(Giriş tarihi textbox1 de,çıkış tarihi textbox2 de vs. gibi)

Comboboxa çift tıklayınız.
Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim i  As Byte, sat As Long
sat = ComboBox1.Column(0)
For i = 1 To 8
    Controls("TextBox" & i) = Sheets("GÜN").Cells(sat, i + 1)
Next
If IsDate(TextBox4.Value) Then TextBox4.Value = Format(TextBox4.Value, "dd.mm.yyyy")
If IsDate(TextBox5.Value) Then TextBox5.Value = Format(TextBox5.Value, "dd.mm.yyyy")
End Sub

Private Sub UserForm_Initialize()
Dim i As Long, sat As Long
Sheets("Sayfa1").Select
Set s2 = Sheets("GÜN")
ComboBox1.ColumnCount = 2
ComboBox1.ColumnWidths = "0;230"
For i = 2 To s2.Cells(65536, "E").End(xlUp).Row
    If CDate(s2.Cells(i, "E").Value) = Date Then
        ComboBox1.AddItem
        ComboBox1.Column(0, sat) = i
        ComboBox1.Column(1, sat) = s2.Cells(i, "B").Value
        sat = sat + 1
    End If
Next i
Set s2 = Nothing
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

 

[tufan03]

Teşekkür ederim.

 

[Orion1]

Teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[tufan03]

Sanki Akşamdan sabaha birşeyler oldu,dün sizin kodları ve örnek dosyaları kaydetmiştim, sabah baktımki hiçbiri çalışmıyor,userform açılıyor fakat açılan comboboxta hiçbir şey yok,kod kısmına girdim kodlar yerinde duruyor.foruma girdim ordaki sizin örnekleri hem formda hemde bilgisayara kaydettim,nafile çalışmıyor sadece userform açılıyor başka bir şey yok. Aslında ne diyeceğimi de bilemiyorum. Selamlar.

 

[Orion1]

Sanki Akşamdan sabaha birşeyler oldu,dün sizin kodları ve örnek dosyaları kaydetmiştim, sabah baktımki hiçbiri çalışmıyor,userform açılıyor fakat açılan comboboxta hiçbir şey yok,kod kısmına girdim kodlar yerinde duruyor.foruma girdim ordaki sizin örnekleri hem formda hemde bilgisayara kaydettim,nafile çalışmıyor sadece userform açılıyor başka bir şey yok. Aslında ne diyeceğimi de bilemiyorum. Selamlar.

Yeniden indirin.

 

[tufan03]

İndirdim.malesef çalışmıyor.

 

[tufan03]

VBA sayfasını sık sık oynuyorum,oradaki ayarlardan olabilirmi,veya benzer başka bir dosya ekleseniz diyorum, birde onda denesek.