Merhaba Arkadaşlar

Eklediğim uygulamada exceli açtığım zaman UserFom4 açılıyor. listede çift tıklayarak seçili personel sayfasına gidiyorum giriş butonuna tıklayarak UserForm1 Açılıyor. 

UserForm1 de Müşteri Listesi butonuna tıkladığımda UserForm2 açılıyor. Listede başka müşteriyi çift tıkladığım zaman o müşterinin sayfasına gidiyorum ve tekrar UserForm1 açılıyor. UserForm1 çarpı işareti ile kapatığım zaman excl sayfası kilitleniyor. Excel kurtarfa devreye giriyor.

Özetle Useerfom1 de Müşteri Listesi butonu UseerFom2 ile sayfalar arası geçiş yaptığım zaman UserForm1 çarpı işareti ile kapatamiyorum. Excel kilitleniyor.

Userform1 i kapatıp açtırmanıza bence gerek yok.

---

Unload UserForm1

'UserForm1.Show

Yukarıdkileri silip

UserForm_Initialize

eklemeniz yeterli.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next



Sheets(ListBox1.Text).Select

Unload UserForm2

UserForm_Initialize

'Unload UserForm1

'UserForm1.Show

End Sub

Gereksiz mesaj oldu yanlışlık olarak.

UserForm_Initialize içindeki alttaki kodu Next satırının altına almalısınız.

ListBox1.ColumnCount = 11

                

ListBox1.ColumnWidths = "20;55;60;140;65;65;50;50;65;65;65"

ListBox1.ColumnHeads = True

ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1

Son olarak ilgili kodları alttaki gibi yapınız.

Userform2 kod

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

On Error Resume Next



Sheets(ListBox1.Text).Select

Unload UserForm2

UserForm_Initialize

End Sub

Userform1 kod

Private Sub UserForm_Initialize()

  

  'ComboBox3.MatchEntry = fmMatchEntryComplete

    For i = 7 To [d65536].End(3).Row

        If WorksheetFunction.CountIf(Range("d7:d" & i), Cells(i, "d")) = 1 Then

          ComboBox3.AddItem CStr(Cells(i, 4))

  

      'TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih

        

      End If

    Next



'TextBox1.Text = CDate(Date) 'Form Açýlýþta otomatik tarih

ListBox1.ColumnCount = 11

ListBox1.ColumnWidths = "20;55;60;140;65;65;50;50;65;65;65"

ListBox1.ColumnHeads = True

ListBox1.RowSource = "A7:K" & [A65536].End(3).Row + 1



ComboBox1.RowSource = "Liste!l1:l2"

On Error Resume Next

TextBox21.Text = [e2]

TextBox22.Text = [e4]

TextBox23.Text = [e5]

TextBox60.Text = [C4]

TextBox61.Text = [C5]

TextBox29.Text = [a1]

TextBox24.Text = [g1]

TextBox25.Text = [g2]

TextBox27.Text = [G3]

TextBox63.Text = [G5]

TextBox62.Text = [ý1]

TextBox64.Text = [ý5]

TextBox65.Text = [K4]



'ComboBox1_Change

TextBox21 = Format(TextBox21, "#,##0.00")

TextBox22 = Format(TextBox22, "#,##0.00")

TextBox23 = Format(TextBox23, "#,##0.00")

TextBox60 = Format(TextBox60, "#,##0.00")

TextBox61 = Format(TextBox61, "#,##0.00")

TextBox24 = Format(TextBox24, "#,##0.00")

TextBox25 = Format(TextBox25, "#,##0.00")

TextBox27 = Format(TextBox27, "#,##0.00")

TextBox63 = Format(TextBox63, "#,##0.00")

TextBox62 = Format(TextBox62, "#,##0.00")

TextBox64 = Format(TextBox64, "#,##0.00")

TextBox65 = Format(TextBox65, "#,##0.00")



'TextBox5.MaxLength = 2

End Sub

Çok, çok teşekkürler Hocam ellerinize sağlık. 

Hocam UserForm_Initialize ile sayfadaki veriler listede güncelliyoruz.

Unload Me UserForm1.Show kodları ile sayfayı yenilemeden sayfadaki verileri TextBox ve ComboBox larda günceliyebilirmiyiz.