UserForm sabit kalmıyor.?

[tuncer757]

Arkadaşlar userform da texboxlara yazıyorum kaydet deyince user form ekranan altına iniyor excel sayfasının yarısı görünüyor.ben değişmesin sabit kalsın istiyorum.ve userform açıldığında excel sayfası gizlensin istiyorum.

 

[Levent Menteşoğlu]

kaydet deyince user form ekranan altına iniyor excel sayfasının yarısı görünüyor.ben değişmesin sabit kalsın istiyorum.

Bunun olması için kaydet butonuna bağlı kodlarda userformun yerini değiştiren kodlar olmalı bu butona bağlı kodları verirseniz ona göre yorum yapalım.

userform açıldığında excel sayfası gizlensin istiyorum.

Bunun içinde userformun initialize olayına aşağıdaki kodu yazın.

[vb:1:516ec88d56]application.visible=false[/vb:1:516ec88d56]

 

[tuncer757]

KODLAR

private Sub CommandButon1_Click()
Mesaj="Bilgiler kaydedilecek..."
b=MsgBox(Mesaj, vbYesNo + vbInformation,"UKAYDETMEK İÇİN ONAYLA")
If b = vbYes Then
Sheets("bilgiler").Select
Range ("A2").Select
Do while Not IsEmpty (ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range ("A2").Value = Empty Then
Range("A2").Value =1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0 1) =Textbox1.Value
ActiveCell.Offset(0 2) =Textbox2.Value
ActiveCell.Offset(0 3) =Textbox3.Value
ActiveCell.Offset(0 4) =Textbox4.Value
Range("A2).Select
Call Formu_Temizle
Call Userform_Initialize
Userform1.Listbox1ListIndex = -1
Exit Sub
End If
End Sub

 

[Levent Menteşoğlu]

Userform_Initialize olayına yazılı kodları verirmisiniz.

 

[tuncer757]

DOSTUM ÇOK SAĞOL İLGİNE SAYENDE ÇÖZDÜM SORUNU MU AserForm_İnitalize den sorunu buldum tşk