TextBox'a aktar

[nadirornek]

Private Sub ListBox1_Click()
Dim X As Integer
X = Sheets("Sayfa1").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
Cells(X, 4).Select
TextBox3.Value = ListBox1
TextBox7.Value = ListBox1
End Sub

ListBox1' tıklayınca Textboxlara aynı veriler geliyor.TextBox3'e gelen verinin bir altındaki verinin
TextBox7'ye gelmesi gerekmektedir.

 

[Korhan Ayhan]

Selamlar,

Eğer TextBox7 nesnesine FIND ile bulunan satırın bir altındaki satırdaki veri gelecekse aşağıdaki kodu kullanabilirsiniz.

TextBox7 = Cells(X + 1, 2)

Eğer TextBox7 nesnesine ListBox1 nesnesinde tıkladığınız verinin bir altındaki satırdaki veri gelecekse aşağıdaki kodu kullanabilirsiniz.

If ListBox1.ListIndex + 1 < ListBox1.ListCount Then
    TextBox7 = ListBox1.List(ListBox1.ListIndex + 1, 0)
Else
    TextBox7 = ""
End If

 

[nadirornek]

Yardımınız için teşekkürler.

Fakat ben ListCount kadar dönüp sıradaki değeri TextBox3 bir sonrasını da TextBox7'ye atmak istiyorum.

For i = 0 To ListBox1.ListCount
If i < ListBox1.ListCount - 1 Then
TextBox3.Value = ListBox1.List(i, 0)
TextBox7.Value = ListBox1.List(i + 1, 0)
End If
Next i

Bu şekilde yaptım ama istediğim sonuca varamadım.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyip istediğiniz işlemi detaylı açıklarmısınız.

 

[nadirornek]

Yazdır Butonu

ListBox1'in verilerine tıklandığında Textbox3'e ve bir sonraki veriyi Textbox7'ye atıyor.
Benim yazdır butonuna yaptırtmak istediğim yazdır dediğim zaman ListBox1 içerisindeki verileri
yazdıra tıklandığında Textbox3'e ve bir sonraki veriyi Textbox7'ye atarak yazdır işlemini yaptırtmak.

Bu hali ile dikkat edelirse 2 yi iki sefer alıyor.Belirgin olması için rakam kullandım.

 

[Korhan Ayhan]

Selamlar,

Foruma şifreli dosya eklemişsiniz.

 

[nadirornek]

Özürdilerim şifresi 5858

 

[Korhan Ayhan]

Selamlar,

Kullandığınız döngü kodunu aşağıdaki şekilde değiştirin.

For i = 0 To ListBox1.ListCount [COLOR=red]Step 2[/COLOR]

 

[nadirornek]

Teşekkürler şimdi güzel oldu