Userform hakkında

[zfr10]

Selam sayın arkadaşlar ekte gönderdiğim userfomda textboxların bir kısmı gizli ve veri girdikçe satır açılma işlemi nasıl olur.Bu konuda yardımcı olabilir misiniz?

 

[prmts]

Selam, alttaki kodları deneyin.

Private Sub son_dolu()
For t = 17 To 1 Step -1
If Controls("textbox" & t).Text <> "" Then
UserForm1.Height = Controls("textbox" & t).Top + 25 + (Controls("textbox" & t).Height * 2)
Exit Sub
End If
Next t
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call son_dolu
End Sub

Private Sub UserForm_Initialize()
UserForm1.Height = TextBox2.Top * 2
End Sub

 

[zfr10]

Sayın Hocam emeğinize sağlık teşekkür ediyorum çok güzel olmuş.
Saygılarımı sunuyorum.