User Box İle Kayit

[1903bjk]

Merhabalar

Ekte GÖnderdİĞİm Dosyada YapmiŞ OlduĞum User Box'ta İstedİĞİm Macro Uygulamalarini Uygulamamda Yardimci Olabİlİrsenİz Sevİnİrİm
TelekkÜrler

 

[abdi]

Public dkno As Integer

Private Sub CommandButton1_Click()

If IsNull(TextBox1) = True Or IsNumeric(TextBox1) = False Then
MsgBox "hatalı dkno", vbCritical
TextBox1.SetFocus

Else

dkno = TextBox1.Value
dkno = dkno + 1
TextBox1 = dkno
End If
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)


If IsNumeric(TextBox3) = True And Len(TextBox3) <= "6" Then

MsgBox "kay&#305;t ba&#351;ar&#305;l&#305;", vbExclamation
Else


MsgBox "alana yanl&#305;&#351; veri girildi.", vbExclamation
TextBox3.SetFocus
End If

End Sub

 

[1903bjk]

teşekkürler
fakat yazılan kodu command buttona atadığımda herhangi bir hareket gözükmüyor
ayrıca dosya açıldığında user formun otomatik gelmesi için ne yapabiliriz

teşekkürler ilginize...

 

[Kenantu]

Dostum dosya açılınca UserForm1 açılsın istiyorsan bir Modüle aşağıdakileri yaz yeter. Dosya açıldığında UserForm da otomatik açılır.

Sub auto_open()
UserForm1.Show
End Sub

 

[1903bjk]

sağolasın
yalnız kodda sorun var
textbox 2 üzerine kod yok
ayrıca enter dediğimde a sütununda hiçbir hareket yok

 

[abdi]

Ekli dosyaya bakınız

 

[1903bjk]

Ekli dosyaya bakınız

eline sağlık çok güzel olmuş

bir de sütuna daha önceden girilen numaraların aynı olmaması için bir control oluşturabilir miyiz acaba

teşekkürler

 

[1903bjk]

Enter TuŞuna Bastiktan Sonra İmlecİn Otomatİk PolİÇe No Textbox Inda Kalmasini Nasil SaĞlayabİlİrİm Acaba

TeŞekkÜrler

 

[abdi]

Enter TuŞuna Bastiktan Sonra İmlecİn Otomatİk PolİÇe No Textbox Inda Kalmasini Nasil SaĞlayabİlİrİm Acaba
TeŞekkÜrler

Private Sub CommandButton1_Click()
If IsNull(TextBox1) = True Or IsNumeric(TextBox1) = False Or TextBox2 = "" And TextBox3 = "" Then
MsgBox "hatalı dkno", vbCritical
TextBox1.SetFocus
Else
STR = "Dk :" & TextBox1 & "POL: " & TextBox3 & "MN:" & TextBox2
Label4 = STR
With Label4
Font.Bold = True
End With
STR = " Dk : " & TextBox1 & " " & " POL: " & TextBox3 & " MN: " & TextBox2
End If
son = [a65536].End(xlUp).Row
son = [a65536].End(xlUp).Row + 1
Debug.Print son, str2
Cells(son, 1).Value = STR
son:
dkno = TextBox1.Value
dkno = dkno + 1
TextBox1 = dkno
TextBox2 = ""
TextBox3 = ""
STR = " Dk : " & TextBox1 & " " & " POL: " & TextBox3 & " MN: " & TextBox2
TextBox3.SetFocus
End Sub