- Katılım
- 17 Ocak 2005
- Mesajlar
- 39
Textboxtayken enter tuşuna bastığım zaman girilen rakamı kaydediyor ama ben bu textbox'ı rakam girme işim bitene kadar devamlı kullanıyorum. ve hep mouse ile yeniden secmek zorunda kalıyorum. her bilgi girişimde kendi otomatik olarak seçemezmi? Yazdığım kodlar aşağıdaki gibi.
Private Sub sayım_Exit(ByVal Cancel As MSForms.ReturnBoolean)
NextRow = Application.WorksheetFunction.CountA(Range("g:g")) + 1
Cells(NextRow, 7) = sayım.Text
sayım.Text = ""
NextRow = Application.WorksheetFunction.CountA(Range("g:g")) + 1
mal.Text = Cells(NextRow, 3)
sayım.Text = Cells(NextRow, 7)
sayım.BackColor = vbWhite
End Sub
herkese kolay gelsin
Private Sub sayım_Exit(ByVal Cancel As MSForms.ReturnBoolean)
NextRow = Application.WorksheetFunction.CountA(Range("g:g")) + 1
Cells(NextRow, 7) = sayım.Text
sayım.Text = ""
NextRow = Application.WorksheetFunction.CountA(Range("g:g")) + 1
mal.Text = Cells(NextRow, 3)
sayım.Text = Cells(NextRow, 7)
sayım.BackColor = vbWhite
End Sub
herkese kolay gelsin