Userform_activate

[oğuz2]

Merhaba Arkadaşlar..
Küçük bir sorum olacaktı..
Private Sub UserForm_Activate()
ile başlayan iki kod yazcağım ama ikisini de aynı kod başlığında yapabilirmiyim? (Malesef yapamıyorum.) Bir listeleme ve ekrana kayarak gelen form kodları.
Yardımcı olursanız sevinirim.. Tşk.

 

[xxrt]

Sorunuzu anlamadım.Biraz açarmısınız.

 

[oğuz2]

Mrb xxrt..
Userform aktif hale gelmesiyle hem ekrana kayarak gelen kodu yazmak, hem de combobox da listeyi göstermek için kodu yazmam gerekiyor. Ancak, ikisini bir arada nasıl yazabilirim.
End Sub 'tan sonra mı? Yoksa ayrı ayrı iki tane
Private Sub Userform_Active()
başlık altında mı düzenlemem gerekiyor?

 

[Levent Menteşoğlu]

Aynı isimli iki prosedür oluşturamazsınız. Yapacağınız; tüm işlemleri tek prosedür içinde öncelik sırasına göre yaptırmaktır. Veya comboboxa veriyi initialize olayına kod yazarakta elde edebilirsiniz.

 

[oğuz2]

Tşk Levent Bey... (bi de o sırayı çözebilsem..)

 

[Levent Menteşoğlu]

Yapmak istediğinizi açıklar ve kodlarınızı verirseniz yardımcı olmaya çalışırız.

 

[xxrt]

Userform aktif hale gelmesiyle hem ekrana kayarak gelen kodu yazmak, hem de combobox da listeyi göstermek için kodu yazmam gerekiyor.

Bakın aşağıdaki linkte sayın leventm'nin kayan userforma ait bir çalışması var.Oradaki kodları aynen alın ve ComboBox1'in RowSource'sine mesela Sayfa1!A1:A9 yazın.(Verileriniz nerede ise)
Böylelikle hem kayanuserform çalışır hemde ComboBox'da almak istediğiniz verileri gösterirsiniz.
Kayan Userform

 

[oğuz2]

Merhaba Arkadaşlar..
Levent beyin kodları ile diğer kodları versem ve bunları nasıl birleştirmem söylerseniz çok sevinirim..

Private Sub UserForm_activate()
Dim p As Single
For p = 3 To 200
If Cells(p, 2).Value = "" Then
ComboBox1.ListIndex = 0
Exit Sub
Else
ComboBox1.AddItem (Cells(p, 2).Value)
End If
Next
ComboBox1.ListIndex = 0
End Sub

Private Sub UserForm_Activate()
UserForm1.StartUpPosition = 0
UserForm1.Top = 100
Start = Timer
Do
DoEvents
finish = Timer
deg = Format(finish - Start, "0")
c = c + 0.01
UserForm1.Left = -300 + c
If UserForm1.Left = 200 Then Exit Sub
Loop While finish - Start <= 1000
End Sub

Kolay gelsin.. Tşk..

 

[Levent Menteşoğlu]

ilk kodu userform_initialize olayına yazarak deneyin.

 

[oğuz2]

Leventm Bey çok teşekkürler..
Tamamdır..
İyi ki varsınız!!