Listeleme yapmak.

[drseref]

Listview yada listbox olarak sayfa 2 deki verileri userform üzerinde gösteremedim.
Yardımcı olursanız sevinirim.
Listelemeden ara ve bul yapabilsem. Işime çok yarayacak.
Bir fenerlinin son arzusudur....

 

[hamitcan]

Eki inceleyin.

 

[drseref]

hata verdi.nasıl düzeltilebilir.

Private Sub UserForm_Initialize()
g_hForm = FindWindow(vbNullString, Me.Caption)
SetWindowLong g_hForm, -16, &H20000 Or &H10000 Or &H84C80080
DTPicker1 = Date
ListBox1.RowSource = "Sayfa2!A1:AN" & [A65536].End(3).Row
End Sub

 

[hamitcan]

Hata nedir ?

 

[drseref]

Private Sub UserForm_Initialize()

DTPicker1 = Date satırında hata verdi.daha önce bir problem yoktu.listeleme eklenince oldu.

 

[drseref]

bu kodu dtpickerı günün tarihinde açmak için kullanmıştım.