Userform daki textboxa şartlı veri gönderme

[kemal turan]

İyi geceler
Listbox click olayına bağlı iki ayrı userform daki textbox1 e veri gönderiyorum.
Ben sadece açık olan userform veri yazsın istiyorum.
Kod şöyle eğer carı userform açıksa carı.textbox1 e açık değilse carı1.textbox1 e göndersin.
Normal if kodu yazıyorum hata veriyor
Teşekkür ederim

 

[fireman64]

deneyiniz

If cari1.Visible Then
carı1.TextBox1.Value = "kodlarınız"
End If

If cari.Visible Then
carı.TextBox1.Value = "kodlarınız"
End If

 

[kemal turan]

merhaba Sn Fireman
Rahatsızlığım nedeniyle çok geç bakabildim.
Farklı bir userform daha oluşturarak sorunu çözebildim.
Sizin kodu hemen uygulayacağım.
Çok teşekkür ederim.

 

[kemal turan]

MERHABA,
orjinal kodu şu şekilde yaptım hata verdi

Private Sub ListBox1_Click()

A = ListBox1.Column(0)
B = ListBox1.Column(1)
C = ListBox1.Column(2)
D = ListBox1.Column(3)
E = ListBox1.Column(4)
  If CARITAHFIS.Visible Then
            CARTAHFIS.TextBox1 = A
            CARTAHFIS.TextBox2 = B
            CARTAHFIS.TextBox3 = C
            CARTAHFIS.TextBox4 = D
            CARTAHFIS.TextBox5 = E
  End If
   If CARITEDFIS.Visible Then
            CARTEDFIS.TextBox1 = A
            CARTEDFIS.TextBox2 = B
            CARTEDFIS.TextBox3 = C
            CARTEDFIS.TextBox4 = D
            CARTEDFIS.TextBox5 = E
  End If

CARLIST.Hide

End Sub

şu şekilde revize ettim yine hata verdi

Private Sub ListBox1_Click()

A = ListBox1.Column(0)
B = ListBox1.Column(1)
C = ListBox1.Column(2)
D = ListBox1.Column(3)
E = ListBox1.Column(4)
  If CARITAHFIS.Visible = True Then
            CARTAHFIS.TextBox1 = A
            CARTAHFIS.TextBox2 = B
            CARTAHFIS.TextBox3 = C
            CARTAHFIS.TextBox4 = D
            CARTAHFIS.TextBox5 = E
  End If
   If CARITEDFIS.Visible = True Then
            CARTEDFIS.TextBox1 = A
            CARTEDFIS.TextBox2 = B
            CARTEDFIS.TextBox3 = C
            CARTEDFIS.TextBox4 = D
            CARTEDFIS.TextBox5 = E
  End If

CARLIST.Hide

End Sub

 

[fireman64]

Örnek dosyayı deneyiniz

 

[Orion1]

Propertiesten listboxın columncount özelliğini 5 yaptınızmı?