Textbox ve eğer etkileşimi

[bugra_a]

Merhaba arkadaşlar.
alt alta 12 textbox bulunan bir userformum var user form içindeki düzenlediğim arama ekranında bulunan sonuçlardan seçtiğimi bu textboxlara yazdırmak istiyorum. ve bir bölümünü de yazdırıyorum. Lakin yeni veriler eski verilerin üstüne yazılıyor. Benim istediğim textbox doluysa benim belirlediğim boş texbox ı bulup ona yazması. Umarım anlata bilmişimdir.

 

[vardar07]

Örnek dosyanızı ekleyip içinde belirtirseniz daha iyi olacak.

 

[bugra_a]

Dosya ektedir

 

[Orion1]

Hangi userformda?

 

[vardar07]

Merhaba. Yapmak istediğiniz net değil aşağıdaki deyiminizden net bir şey anlaşılmıyor.

Benim istediğim textbox doluysa benim belirlediğim boş texbox ı bulup ona yazması. Umarım anlata bilmişimdir.

Eğer veriler varken boş textbox ları doldurup kayıt etmekse güncelle butonunu kullanmanız lazım.

 

[Orion1]

Sanırım userform4 ten bahsediyorsunuz.
Dosyanız ektedir.

Private Sub ListBox1_Click()
Dim say, a As Integer
For a = 1 To 12 * 3 Step 3 'If listbox click ,fill the textboxes
If Me.Controls("Textbox" & a).Text = "" Then
    Me.Controls("Textbox" & a).Text = ListBox1.Column(0)
    Me.Controls("Textbox" & a + 1).Text = ListBox1.Column(1)
    Me.Controls("Textbox" & a + 2).Text = ListBox1.Column(2)
    Exit For
MsgBox a
End If
Next
say = ListBox1.ListIndex + 2

'Sheets("Sayfa1").Range("A" & say & ":L" & say).Select

TextBox46 = ListBox1.ListIndex + 1
End Sub

 

[bugra_a]

Merhaba Orion1,
Sonuca çok yakın olmuş elinize sağlık, tek sorun var;
Arama yapıp sonra sonuçlardan bir veya birkaç seçim yapıyoruz her şey yolunda. formdan çıkmadan ikinci kez arama yapıp sonuçlarından seçim yapınca tekrar en üste yazıyor ve devamındaki seçimleri hep aynı yere yazmaya devam ediyor. Aslında en sondan devam etmesini istiyorum.

Biraz karışık anlattım ama kusura bakmayın...

Birde kodlarda hatayı bir türlü bulamadım ama listeyi tam çekmiyor data sayfasındaki kayıt sayısı kadar kayıt çekiyor. Oysa sayfa1 de 668 kayıt var.
İlginize teşekkür ederim.

 

[vardar07]

Sayın orion1 arkadaşın yazmış olduğu koda ufak bir ekleme, "Ara" ve "Yeni Arama" kodlarında değişiklik yapıldı. İncelermisiniz.

 

[Orion1]

Merhaba Orion1,
Sonuca çok yakın olmuş elinize sağlık, tek sorun var;
Arama yapıp sonra sonuçlardan bir veya birkaç seçim yapıyoruz her şey yolunda. formdan çıkmadan ikinci kez arama yapıp sonuçlarından seçim yapınca tekrar en üste yazıyor ve devamındaki seçimleri hep aynı yere yazmaya devam ediyor. Aslında en sondan devam etmesini istiyorum.

Biraz karışık anlattım ama kusura bakmayın...

Bunu anlamadım.

 

[Orion1]

Sayın orion1 arkadaşın yazmış olduğu koda ufak bir ekleme, "Ara" ve "Yeni Arama" kodlarında değişiklik yapıldı. İncelermisiniz.

ben ara ve yeni arama için kod yazmadım.

 

[vardar07]

Sayın orion1 sizin 6 nolu mesajdaki kod demek istedim. bugra_a Arkadaş arama ile veriyi bulup textbox lara eklemek isteyince alt textbox a geçmeden tekrar 1.sıraya yazdığından bahsediyor. Onun için sizin kodun başına 1.ci satır dolu ise diye şart eklediğimi belirtmek istedim. Diğer "Ara" ve "Yeni Arama" kodlarında ise arama sonrası textboxları boşaltıyordu sizinle ilgisi yok. Bilginize.

Private Sub ListBox1_Click()
Dim say, a As Integer
For a = 1 To 12 * 3 Step 3 'If listbox click ,fill the textboxes
[COLOR="Red"][B]If Me.Controls("Textbox" & a).Text <> "" Then GoTo 10[/B][/COLOR]
If Me.Controls("Textbox" & a).Text = "" Then
    Me.Controls("Textbox" & a).Text = ListBox1.Column(0)
    Me.Controls("Textbox" & a + 1).Text = ListBox1.Column(1)
    Me.Controls("Textbox" & a + 2).Text = ListBox1.Column(2)
    Exit For
MsgBox a
End If
[COLOR="red"][B]10:[/B][/COLOR]
Next
say = ListBox1.ListIndex + 2

'Sheets("Sayfa1").Range("A" & say & ":L" & say).Select

TextBox46 = ListBox1.ListIndex + 1
End Sub

 

[bugra_a]

Merhaba,
Arkadaslar ben o sorunu çözdüm. Ara butonuna yazılı kodlarda düzenleme yaptım sorun çözüldü. Gayet güzel çalışıyor. Ama arama listesi Sayfa1 den çekmesi gerekiyor ve çekiyor da fakat Data sayfasındaki kayıt sayısı kadar çekiyor. Yani sayfa1 de 668 kayıt var hepsini çekmiyor anlamadım...