userform

[alicanxy58]

Ekte userform üzerinde textboxlarda özelliklerle ilgili yardım ederseniz memmun olurum

 

[Orion1]

Tetxboxa değer girdikten sonra butona basınız.
Dosyanız ekte.

Private Sub CommandButton1_Click()
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.List(i, 0) = TextBox1.Text Then
        MsgBox "Bu değer girilmiş başka değer giriniz..!!"
        Exit Sub
    End If
Next
ListBox1.AddItem TextBox1.Text
For i = 0 To ListBox1.ListCount
Next
If i > 4 Then ListBox1.RemoveItem (0)

End Sub

 

[alicanxy58]

sAYIN gİZLEN CEVABINIZA TEŞEKKÜR EDERİM, Benim istediğim tam olarak bu değil önceki girilen verilerin textboxun altında açılır pencere şeklinde görülmesi.

 

[Orion1]

Bu şekildemi istiyorsunuz.

 

[alicanxy58]

Sayın gizlen userform üzerinde başka combobox yada textbox istemiyorum userformda bulunan userformun üzerine mausla geldiğimde yada tıkladığımda bu textboxa giripte ilgili sutuna aktardığım önceki sayıların textboxun altında açılır pencere şeklinde görülmesi (en son girilen en az üç sayısal değer) ve ilgili sutuna aktardığım önceki sayıların tekrar textboxa girilmesini önlemek

 

[Orion1]

Sayın gizlen userform üzerinde başka combobox yada textbox istemiyorum userformda bulunan userformun üzerine mausla geldiğimde yada tıkladığımda bu textboxa giripte ilgili sutuna aktardığım önceki sayıların textboxun altında açılır pencere şeklinde görülmesi (en son girilen en az üç sayısal değer) ve ilgili sutuna aktardığım önceki sayıların tekrar textboxa girilmesini önlemek

Bu açılır pencere nedir?Mademki combobox değil.Nedir o zaman.Ben bilmiyorum.Yoksa textbox istemiyorsunuzda direk comboboxmı istiyorsunuz?

 

[alicanxy58]

İstediğim özellik textboxta olmayabilir Textbox yerine userform üzerinde tek bir Comboboxta olabilir.

 

[Orion1]

İstediğim özellik textboxta olmayabilir Textbox yerine userform üzerinde tek bir Comboboxta olabilir.

Dosyayı inceleyiniz.

 

[alicanxy58]

sayın Gizlen,cevabınıza teşekkür ederim.Sorumun cevabının bir kısmı cevabınızın içinde var. Sanırım istediğimi tam olarak anlatamadım konu ile ilgili bilgi toplayıp ileriki günlerde daha anlaşılır bir şekilde sormaya çalışacağım. İyi akşamlar

 

[Orion1]

Belkide siz POP-UP menü gibi bir şey istediniz.
Ekli dosyayı inceleyiniz.

Dim z As Collection, i As Integer

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
    MsgBox "Textbox Boş Olamaz..!!", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
For Each vkey In z
    If vkey = TextBox1.Text Then
        MsgBox "Bu değer daha önceden kayıt edilidi..!!", vbCritical, "UYARI"
        Exit Sub
    End If
Next
atla:
z.Add TextBox1.Text
If z.Count > 3 Then z.Remove (1)
On Error Resume Next
Label2.Caption = z.Item(1)
Label3.Caption = z.Item(2)
Label4.Caption = z.Item(3)
End Sub

Private Sub TextBox1_AfterUpdate()
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox1_DropButtonClick()
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
End Sub

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame1.Visible = True

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Set z = New Collection

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Frame1.Visible = False
End Sub

 

[alicanxy58]

cevap userform

Sayın Gizlen, cevabınızı yeni gördüm ilginize teşekkür ederim. Yanıtınız aslında sorumun cevabı ancak kulanımı çok pratik görünmüyor. Bununla ilgili daha farklı ve pratik çözümler olabilir mi? Ben sorumda örnek olarak userform üzerinde tek bir combobox gösterdim asıl çalışma kitabımda otuza yakın combobox alt alta dizilmiş şekilde bu şekilde bir çözüm problem olabilir mi?