UserFormu tekrar açtığında son seçimin kalma sorun

[Kavinsky]

Üstatlar merhaba.
Ben sistemime gelirlerlerimi kolay yoldan eklemem için userform sistemi yapmıştım lakin şöyle bir sorun var.Userformu 2. açışımda başka bir sayfaya geçiş yapmadığım sürece son seçtiğim seçenek seçili kalıyor ama kodu çalıştırdığımda seçili olmasına rağmen boş gözüküyor. Benim istediğim şey userformu her çalıştırdığımda varsayılan firma listesi boş olsun istediğimi ben seçeyim.Umarım istediğimi anlatabilmişimdir. Sistem dosyasını özel ve sayı olarak çok fazla veri olduğu için yükleyemiyorum.
Userform kodları aşağıdaki gibidir.

Private Sub ComboBox1_Change()
    If ComboBox1.Value <> "" Then TextBox6.Value = ComboBox1.Value
  
End Sub

Private Sub ComboBox2_Change()
If ComboBox2.Value <> "" Then TextBox5.Value = ComboBox2.Value

End Sub

Private Sub UserForm_Initialize()
    With Sheets("ŞİRKET")
        For Each Veri In .Range("B2:B500")
            If Veri.Value <> "" Then
                ComboBox1.AddItem Veri.Value
            End If
        Next
    End With
    ComboBox1.ListIndex = 0
     ComboBox1.Text = ComboBox1.List(0)
    With Sheets("LIST")
        For Each Veri In .Range("F2:F500")
            If Veri.Value <> "" Then
                ComboBox2.AddItem Veri.Value
            End If
        Next
    End With
    ComboBox2.ListIndex = 0
    ComboBox2.Text = ComboBox2.List(0)
End Sub

Private Sub CommandButton1_Click()
        If TextBox6.Text <> "" Then
            If TextBox2.Text <> "" Then
             Son_Dolu_Satir = Sheets("MUHASEBE").Range("F65536").End(xlUp).Row
                        Bos_Satir = Son_Dolu_Satir + 1
                        Sheets("MUHASEBE").Range("F" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MUHASEBE").Range("F:F"))
                        Son_Dolu_Satir = Sheets("MUHASEBE").Range("A65536").End(xlUp).Row
                        Sheets("MUHASEBE").Range("F" & Bos_Satir).Value = TextBox6.Text
                        Sheets("MUHASEBE").Range("G" & Bos_Satir).Value = TextBox2.Text
                        Sheets("MUHASEBE").Range("K" & Bos_Satir).Value = TextBox3.Text
                        Sheets("MUHASEBE").Range("J" & Bos_Satir).Value = TextBox4.Text
                        Sheets("MUHASEBE").Range("I" & Bos_Satir).Value = TextBox5.Text
                        Sheets("MUHASEBE").Range("H" & Bos_Satir).Value = Date
                    
                    
                        MsgBox "Kayıt işlemi tamamlandı.", vbInformation, "ULUDAG INC."
                        
                        Me.TextBox6 = Empty
                        Me.TextBox2 = Empty
                        Me.TextBox3 = Empty
                        Me.TextBox4 = Empty
                        Me.TextBox5 = Empty

                        UserForm6.HIDE
                    
                                                
                Else
                    GoTo 10
                End If
            Else
                    GoTo 10
            End If
    Exit Sub
10
    MsgBox "Eksik bilgi. Lütfen eksikleri tamamlayıp kaydediniz. ", vbExclamation, "ULUDAG INC"
End Sub

 

[turist]

Private Sub UserForm_Initialize()
With Sheets("ŞİRKET")
For Each Veri In .Range("B2:B500")
If Veri.Value <> "" Then
ComboBox1.AddItem Veri.Value
End If
Next
End With
ComboBox1.ListIndex = 0
ComboBox1.Text = ComboBox1.List(0)
With Sheets("LIST")
For Each Veri In .Range("F2:F500")
If Veri.Value <> "" Then
ComboBox2.AddItem Veri.Value
End If
Next
End With
ComboBox2.ListIndex = 0
ComboBox2.Text = ComboBox2.List(0)
ComboBox1=Empty
End Sub
Bu şekilde deneyin.

 

[Kavinsky]

Hocam emeğiniz için teşekkür ederim. Lakin geliri ekleyip tekrar aynı userformu açtığımda son seçtiğim seçenek seçili şekilde açıldı. Benim esas sıkıntım da zaten son seçtiğim combobox seçeneğinin userformu tekrar açtığımda seçili olarak açılması.

 

[turist]

Bir de şöyle deneyin.
Private Sub CommandButton1_Click()
If TextBox6.Text <> "" Then
If TextBox2.Text <> "" Then
Son_Dolu_Satir = Sheets("MUHASEBE").Range("F65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("MUHASEBE").Range("F" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("MUHASEBE").Range("F:F"))
Son_Dolu_Satir = Sheets("MUHASEBE").Range("A65536").End(xlUp).Row
Sheets("MUHASEBE").Range("F" & Bos_Satir).Value = TextBox6.Text
Sheets("MUHASEBE").Range("G" & Bos_Satir).Value = TextBox2.Text
Sheets("MUHASEBE").Range("K" & Bos_Satir).Value = TextBox3.Text
Sheets("MUHASEBE").Range("J" & Bos_Satir).Value = TextBox4.Text
Sheets("MUHASEBE").Range("I" & Bos_Satir).Value = TextBox5.Text
Sheets("MUHASEBE").Range("H" & Bos_Satir).Value = Date


MsgBox "Kayıt işlemi tamamlandı.", vbInformation, "ULUDAG INC."

Me.TextBox6 = Empty
Me.TextBox2 = Empty
Me.TextBox3 = Empty
Me.TextBox4 = Empty
Me.TextBox5 = Empty
Me.ComboBox1=Empty

UserForm6.HIDE


Else
GoTo 10
End If
Else
GoTo 10
End If
Exit Sub
10
MsgBox "Eksik bilgi. Lütfen eksikleri tamamlayıp kaydediniz. ", vbExclamation, "ULUDAG INC"
End Sub

 

[Kavinsky]

Hocam çok teşekkür ederim yardımlarınız için şimdi oldu.

 

[turist]

Sağolun.