UserFormda verileri listelemek

[xternet]

Merhaba Arkadaşlar,

Excel sayfası üzerindeki verileri UserForm üzerine nasıl aktarabilirim.
Aslında aktarmak değilde...
Örneğin sayfa1 de veri girişi yaparken, bu girişe bağlı olarak sayfa2 de olan değişimleri izlemek istiyorum. Bu işlemi bu amaç için kullanacağım.
Bir örnek dosya ekledim.

Bir şekilde zaman ayırcak arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!F10:I" & _
Sheets("Sayfa1").Cells(65536, "F").End(xlUp).Row
End Sub

 

[xternet]

Teşekkür ederim Sayın Gizlen. Zihninize sağlık.
İyi çalışmalar.

 

[Orion1]

Teşekkür ederim Sayın Gizlen. Zihninize sağlık.
İyi çalışmalar.

Rica ederim.
İyi çalışmalar.

 

[xternet]

Sayın Gizlen; kendim beceririm diye düşündüm ama bir türlü bulamadım.
Bu Listbox da listelediğimiz verilerin sutun genişliklerini nasıl ayarlıyoruz?
Bir de satırların arasına çizgi çizebilir miyiz? Verilerin takibinin kolay labilmesi için.

 

[Orion1]

Sayın Gizlen; kendim beceririm diye düşündüm ama bir türlü bulamadım.
Bu Listbox da listelediğimiz verilerin sutun genişliklerini nasıl ayarlıyoruz?
Bir de satırların arasına çizgi çizebilir miyiz? Verilerin takibinin kolay labilmesi için.

Sütun genişlikleri için listboxın propertiesinden columnwidth satırını seçin ve karşısına aralarına ; koyarak genişlikleri yazın. ; olmazsa , koyun.
Listboxta satır çizgisi yoktur.
Satır çizgisi için listview kullanmalısınız.Ama onuda döngüye girerk verileri alacağınızdan dolayı çok büyük satırlarda hız yavaşlayacaktır.Listboxın rowsource metodunun yanında hantal kalır.

 

[xternet]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!F10:I" & _
Sheets("Sayfa1").Cells(65536, "F").End(xlUp).Row
End Sub

Sutun genişlikleride tamam.

Kodu uygularken bir taraftan da mantığını çözmeye çalışıyorum.
Mesela satır sayısını nasıl sabitleriz ve sutunlarımız ard arda değise nasıl yaparız?
Örneğin A sutunu, C sutunu ve K sutununun 10. satırı ile 50. satırı arsını listelemek istiyorum.

 

[Orion1]

Listboxa veri almanın 3-4 yöntemi vardır.En hızlı veri alma yöntemi budur.
Bunun dışında additem yöntemi vardır.O yöntemde 10 sütundan fala veri listboxta listeleyemezsiniz.
Bunun dışında dizi yönetemi vardır.Rowsource yönteminden sonra en hızlı veriyi bu yönetmlede alabilirsiniz.Hepsinin kodları farklı farklıdır.
Forumda arama yaparak bu yöntemleri öğrenebilirsiniz.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 11
ListBox1.ColumnWidths = "80;0;80;0;0;0;0;0;0;0;80"
ListBox1.RowSource = "Sayfa1!A10:K50"
End Sub

 

[xternet]

Teşekkürler Sayın Gizlen. Vediğiniz bilgiler benim için çok faydalı oldu.
İyi çalışmalar.

 

[Orion1]

Teşekkürler Sayın Gizlen. Vediğiniz bilgiler benim için çok faydalı oldu.
İyi çalışmalar.

Rica ederim.
İyi çalışmalar.