+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çarpıdan Formu Kapatmak (/konu-carpidan-formu-kapatmak.html)
Çarpıdan Formu Kapatmak - m_demir - 02/05/2020
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.
RE: Çarpıdan Formu Kapatmak - feraz - 02/05/2020
Userform1 i kapatıp açtırmanıza bence gerek yok.
Unload UserForm1
'UserForm1.ShowUserForm_InitializePrivate 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 SubRe: Çarpıdan Formu Kapatmak - feraz - 02/05/2020
Gereksiz mesaj oldu yanlışlık olarak.
RE: Çarpıdan Formu Kapatmak - feraz - 02/05/2020
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 + 1RE: Çarpıdan Formu Kapatmak - feraz - 02/05/2020
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 SubPrivate 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 SubRE: Çarpıdan Formu Kapatmak - m_demir - 03/05/2020
Ç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.