- Katılım
- 7 Ekim 2005
- Mesajlar
- 245
- Excel Vers. ve Dili
- Isyerinde Ingilizce_Win7 Evde Hollandaca_Win7
Merhaba arsivde arama yaptim ya ben goremedim yada benzer ornek yoktu userformdan baska sayfaya nasil veri yazdirabilirim mesela Sayfa8,e asagida yapmak istedigim formul bakabilirseniz sevinirim tesekkur ederim.
Private Sub chinvoer_Click()
'Begin van af A4 invoeren.
Blad8.Range("E3").Select
'ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Blad8.Range("E3").Value = "" Then
Blad8.Range("E3").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Invoer Textbox gegevens naar cellen .
ActiveCell.Offset(0, 1).Value = cdatum.Text
ActiveCell.Offset(0, 2).Value = cuitgaven.Text
ActiveCell.Offset(0, 3).Value = cbedrag.Text
'...........................................................
MsgBox " Opgeslagen .", , " Invoer Opslaan"
cdatum.Value = ""
cuitgaven.Value = ""
cbedrag.Value = ""
cdatum.SetFocus
End Sub
Private Sub chinvoer_Click()
'Begin van af A4 invoeren.
Blad8.Range("E3").Select
'ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Blad8.Range("E3").Value = "" Then
Blad8.Range("E3").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
'..........................................................
'Invoer Textbox gegevens naar cellen .
ActiveCell.Offset(0, 1).Value = cdatum.Text
ActiveCell.Offset(0, 2).Value = cuitgaven.Text
ActiveCell.Offset(0, 3).Value = cbedrag.Text
'...........................................................
MsgBox " Opgeslagen .", , " Invoer Opslaan"
cdatum.Value = ""
cuitgaven.Value = ""
cbedrag.Value = ""
cdatum.SetFocus
End Sub