UserForm1 ListBox'da seçileni UserForm2 ListBox'a Cari Hesabını getir

[cocoa35]

Merhaba üstatlar, Bir konuda yardımınıza ihtiyacım var, Ekli örnek dosyada UserForm1 de TextBox1 'e yazdığım isim ile cari hesap sayfasını otomatik olarak TextBox1 de yazılan isimde sayfa açılıyor buraya kadar tamam. Benim istediğim userForm1 üstündeki CommondButton2 ile açılan UserForm2 de bulunan ListBox'a UserForm1 'deki listbox'da işaretli isime göre açılmış olan cari hesap kartını UserForm2'deki ListBox'a getirtmek. Bu konuda yardım lütfen ListBox'da işaretli olana göre sayfayı nasıl bulup getirtiliyor çözemedim. Ancak eğer işaretli olan isimde bir cari kart yok ise msg ile mesaj versin böyle bir isimde açılmış cari hesap kartı yok diye.

 

[cocoa35]

Bu konuda yardım lütfen

 

[cocoa35]

Forumda bazı formülleri uyarladım ancak bir yerde hata veriyor yardım lütfen

 

[cocoa35]

Ben forumdan bazı formüller bularak UserForm1 deki seçili olan ismi UserForm2 deki textbox'a getirdim şimdi UserForm2 Aktif olduğunda TextBox1' deki isimde olan sayfadaki satırları Listbox'a getirmesini istiyorum. Aşağıdaki formülü buna göre bana uyarlarsanız sanırım benim sorunum çözülür
ListBox1.RowSource = "TextBox1.Text!a6:F" & Sheets("TextBox1.Text").[A65536].End(xlUp).Row

 

[cocoa35]

Örnek dosyayıda ekledim

 

[cocoa35]

Bu konuda yardım lütfen sadece ComboBox'da yazılı olan sayfayı ListBox'a getiremedim kodlarda bir hata var bulamadım

 

[halit3]

Sayfa isimlerinde boşluk ve aksanlı harf kullanmayınız .
userformları açılırken ShowModal özelliğini False yapın yada böyle yapınız
UserForm1.Show 0
UserForm2.Show 0

örnek dosyada adı soyadı deneme olan sayfa da işlemler geliyor.

 

[cocoa35]

Merhaba, Uygulamayı kendi programıma yaptım çalışıyor ancak şöyle bir sorun var UserForm1 ListBox1 de ilk seçim yaptığım isim textbox'a geliyor ancak ondan sonra başka seçim yaptığımda ilk seçim yaptığım devamlı textbox'da kalıyor, benim programımda ListBox tek tık şu şekilde;

Private Sub ListBox1_Click()
sat = ListBox1.ListIndex
Controls("TextBox5") = ListBox1.List(sat, 0)
For i = 0 To 2
myArr(i) = ListBox1.List(ListBox1.ListIndex, i)
Next i
Do: UserForm28.Label84.Caption = "Lütfen " & Format(ListBox1) & " İçin bir müşteri türü belirleyiniz...": DoEvents: Loop
End Sub

 

[cocoa35]

Birde Sn Halit bey şöyle bir durum var benim müşteri listesi Hep Ad ve Soyad olacağı için mutlaka iki kelimeli sayfa olacak , onu ekli örnek dosyadaki gibi çözdüm ama bir sorun var daha önce cari hesap kartı açmadığım ( yani sayfa ismi olmayan) birini tıkladığımda hata veriyor! ekli örnek dosyadaki formülü Eğer ComboBox1'de yazılı olan isimde sayfa var ise işlemi yapsın yok ise msg : " Bu adda cari hesap kartı bulunamadığı için işleminiz iptal edilmiştir" diyerek UserForm1'e dönsün bu şekilde bir uyarlama yapabilirmisiniz lütfen