listbox yardım

[acemi7]

formlarınızdan bulduğum userformlardan yarıdm alarak bir userform oluşturdum.
ama listboxa veri almayı yapamadım. aktif olan sayfadaki listeler geliyor. düzeltme butonuda koydum ama düzeltme işlemini bir alt satıra yapıyor. yardımcı olursanız sevinirim...

 

[acemi7]

yardım edecek kimse yok mu?

 

[halit3]

formlarınızdan bulduğum userformlardan yarıdm alarak bir userform oluşturdum.
ama listboxa veri almayı yapamadım. aktif olan sayfadaki listeler geliyor. düzeltme butonuda koydum ama düzeltme işlemini bir alt satıra yapıyor. yardımcı olursanız sevinirim...

Satır numarası bölümü

DÜZ = ListBox1.ListIndex + 2

bunun yerine

ya bunu kullan

DÜZ = ListBox1.ListIndex + 1

yada bunu kullan

DÜZ = ListBox1.List(ListBox1.ListIndex, 0) + 1

 

[acemi7]

teşekkürler sorunumun birini giderdim. ama listboxla ilgili olanı pek anlatamamışım. dosyada 2 tane userform var. 1. userform gelen defteri 2. userform giden defteri. ben hangi userformu açarsam listboxa o sayfanın verileri gelsin ama şuan sadece aktif olanı getiryor bu konuda da yardımcı olursanız sevinirim.

 

[halit3]

Private Sub UserForm_Initialize()
For i = 1 To [a65536].End(3).Row
If Cells(i, 1) <> "a" Then
A = A + 1
With ListBox1
.ColumnCount = 7
.AddItem
.List(A - 1, 0) = Cells(i, 1)
.List(A - 1, 1) = Cells(i, 2)
.List(A - 1, 2) = Cells(i, 3)
.List(A - 1, 3) = Cells(i, 4)
.List(A - 1, 4) = Cells(i, 5)
.List(A - 1, 5) = Cells(i, 6)
.List(A - 1, 6) = Cells(i, 7)
End With
End If
Next
End Sub

Anladığım kadarıyla sorunuzun cevabı yukarıdaki kodda sayfa tanımlaması yapılmadığından oluyor.

aşağıdaki gibi kodların başına hangi sayfadan veri alacaksanız o sayfanın ismini getirmeniz gerekiyor.

Private Sub UserForm_Initialize()
For i = 1 To Sheets("GİDEN").[a65536].End(3).Row
If Sheets("GİDEN").Cells(i, 1) <> "a" Then
A = A + 1
With ListBox1
.ColumnCount = 7
.AddItem
.List(A - 1, 0) = Sheets("GELEN").Cells(i, 1)
.List(A - 1, 1) = Sheets("GELEN").Cells(i, 2)
.List(A - 1, 2) = Sheets("GELEN").Cells(i, 3)
.List(A - 1, 3) = Sheets("GELEN").Cells(i, 4)
.List(A - 1, 4) = Sheets("GELEN").Cells(i, 5)
.List(A - 1, 5) = Sheets("GELEN").Cells(i, 6)
.List(A - 1, 6) = Sheets("GELEN").Cells(i, 7)
End With
End If
Next
End Sub

 

[halit3]

Örnek olarak veriyorum Userformdaki bu sayfa tanımlamalarıda yanlış

Satir = GELEN.Range("e65536").End(3).Row

Doğrusu böyle olmalı

Satir = Sheets("GELEN").Range("e65536").End(3).Row

 

[halit3]

Buda dosyanız.

 

[acemi7]

yardımlarınız için teşekkürler.... elinize sağlık