iki user form arası bilgi aktarımı

[ibayarslan]

Günaydın arkdaşlar,
Merak ettiğim bir konu var iki adet user forma sahip olan bir vba project'te; bu formlarda bulunan nesneleri birbirine nasıl bağlarız? Ã?rneğin Userform1 de bulunan combobox'ın değerini userform2de yer alan label nesnesinin caption değerine atamak gibi. bu konuda yardımcı olursanız çok teşekkür ederim.

Forumla ilgili bir yorum yapmak istiyorum. içerisinde çok fazla data bulunan bir yapı var karşımızda , www.excel.web.tr, ama bu yığın arasında artık arama yapmak çok zor hale geldi. bence bu konuda bir şeyler yapılmalı ve acil önlem alınmalı diye düşünüyorum. mesela benim önerim en çok sorulmuş 100 konu (örneğin excel ile access'in bağlantısı) derlenip ayrı bir bölümde incelenebilir. En azından daha derli tıplu olabilir diye düşünüyorum. yanlış anlamayın bu haliyle bie mükemmel bir durumda ama giderek artan bir bilgi yığını var ve belli bir süre baş edilemiyecek durumda olacak iyi çalışmalar dilerim...

 

[ibayarslan]

Merhaba bu konuda herhangi bir fikri olan yokmu acaba?

 

[Levent Menteşoğlu]

Ã?rneğin Userform1 de bulunan combobox'ın değerini userform2de yer alan label nesnesinin caption değerine atamak gibi. bu konuda yardımcı olursanız çok teşekkür ederim.

Nesnenin başında bulunduğu userformu belirtmeniz yeterlidir.

userform2.label1=combobox1 gibi

Diğer önerinizde değerlendirilmektedir.

 

[ibayarslan]

:kafa: bu kadar kolaymıydı :lol:

 

[yenilik025]

Combobox içinde Value mi Text mi kullanılacak ?

...

Hocam Combobox içinde Value mi Text mi kullanılacak ?

Örnek burada
userform7 deki Combobox1 değerini sıraladıktan sonra
useform2 deki combobox1 e taşımak istiyorum her ikisinide denedim
Text, Value userform2 açıldığında combobox değerini getirmiyor.

Combox değerlerini bu koddan sonra temizlememe rağmen ? ne yapmalıyım.


With Sheets("ÜYELER").Range("A2:G600").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B2").Select

' UserForm2.ComboBox1.Text = UserForm7.ComboBox1.Text 'denedim
' UserForm2.ComboBox1.Value = UserForm7.ComboBox1.Value




Unload Me
Application.Visible = True
UserForm2.Show

End With

Nesnenin başında bulunduğu userformu belirtmeniz yeterlidir.

userform2.label1=combobox1 gibi

Diğer önerinizde değerlendirilmektedir.