Listbox-Textbox tarih/saat formati

[pelin5353]

Ekteki dosyada Find dugmesine basilinca acilan formda, tarih ve saat formatlari duzgun calismiyor. Ayrica listboxun M sütununa kadar butun sutunlardaki verileri goruntulemesi gerekiyor ama goruntulemiyor. Yardimci olabilirseniz cok sevinirim.

 

[Ferhat Pazarçevirdi]

Öncelikle bu kadar büyük alana sahip veriler için listbox değil, listview nesnesini kullanmanızı tavsiye ederim. Eğer yanlış hatırlamıyorsam, listboxlar 10 kolona kadar işlem yapıyordu.

Şimdi, userformunuza bir adet listview nesnesi ekleyiniz (Listview1) ve aşağıdaki kodları userformunuzun initialize kısmına yapıştırınız.

Private Sub UserForm_Initialize()
Set Sh = Sheets("reservation")
sira = Sh.Cells(65536, 1).End(3).Row

With ListView1
.View = lvwReport
.ListItems.Clear
.ColumnHeaders.Clear
.FullRowSelect = True
.Gridlines = True
' .Sorted = False
For i = 1 To 13
With .ColumnHeaders
.Add , , Sh.Cells(2, i), 60
End With
Next i
End With

With ListView1
.View = lvwReport

For i = 3 To sira

x = x + 1
.ListItems.Add , , Sh.Cells(i, 1) '(rstTablo'nun ilk alani ekleniyor)
.ListItems(x).SubItems(1) = Sh.Cells(i, 2)
.ListItems(x).SubItems(2) = Sh.Cells(i, 3)
.ListItems(x).SubItems(3) = Sh.Cells(i, 4)
.ListItems(x).SubItems(4) = Format(Sh.Cells(i, 5), "dd.mm.yy") 'tarihler
.ListItems(x).SubItems(5) = Format(Sh.Cells(i, 6), "mm:hh") 'saatler
.ListItems(x).SubItems(6) = Sh.Cells(i, 7)
.ListItems(x).SubItems(7) = Sh.Cells(i, 8)
.ListItems(x).SubItems(8) = Sh.Cells(i, 9)
.ListItems(x).SubItems(9) = Sh.Cells(i, 10)
.ListItems(x).SubItems(10) = Sh.Cells(i, 11)
.ListItems(x).SubItems(11) = Sh.Cells(i, 12)

Next

End With

End Sub

listview'e eleman ilave ederken, tarihler ve saatler notunu yazdığım kısma dikkat ediniz. Bu kısımda tarih ve saat formatı ayarlanıyor.

İyi çalışmalar

 

[pelin5353]

oncelikle yardiminiz icin tesekkur ederim. Sizin soylediginiz gibi listbox yerine listview i kullandim. ancak orada yeralan butun makrolar hata verdi. listbox yerine listview yazmama ragmen hatalar devam ediyor. bul-sil- degistir gibi makrolarda calismadi. Listbox kullanarak bu olayi cozemezmiyiz?

 

[Levent Menteşoğlu]

Userform_initializedeki aşağıdaki satır devre dışı bırakılmış, onu başındaki tırnak işaretini kaldırarak devreye alın.

ListBox1.RowSource = "a3:m" & [a65536].End(3).Row

Not: Bu kadar zamandır bu tür çalışmalar yapıyorsunuz, bu kadar basit bir ayrıntıyı yakalamanızı beklerdim.

 

[pelin5353]

Sayin Leventm,

Bu ayrintiyi bende farkettim. Ancak tirnak isaretini kaldirinca Textbox ile search makrolari anlamadigim bir sebeple hatali calisiyor.

 

[pelin5353]

Dedigim gibi o tirnak isareti ve suz islemi arasindaki baglantiyi cozemedim. Sizlrden bu konuda yardim rica ediyorum.

 

[Orion1]

Merhaba.
Combobox1.Change olayında listbox'a verileri Additem yoluyla alıyorsunuz ve ListBox1.Clear kodu ile ListBox'ı temizliyorsunuz.
Userform'un initialize Olayında Tırnak'ı kaldırdığınız zaman listbox'a rowsource ile verileri alıyorsunuz.
Rowsource ile alına veriler dağa sonra Combobox1.Change olayında listbox1.clear yöntemi ile temizlenmeye çalışılıyor.
Listbox'a rowSource yöntemi ile alınan veriler Listbox1 = "" kodu ile temizlenirler.
Listbox1.clear kodunu kullanırsanız kodlar hata verir.
İşte tırnak kaldırıldığı zaman bu hata ondan veriyor.

 

[pelin5353]

Listbox1.clear'ı Listbox1 = "" seklinde cevirdim. Add Item leride rowsource olarak degistirdim. ama comboboxlar calismadi.