Userformdan baska sayfaya veri yazdirmak

[Jezus]

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

 

[Levent Menteşoğlu]

Blad8.Range("E3").Value

Yukarıdaki yazım yerine aşağıdaki gibi deneyin. Ayrıca bu şekilde yazımın olduğu binlerce örnek forumda mevcuttur. Hücre adından önce sayfa adını tanımlamanız yeterlidir.

sheets("Blad8").Range("E3").Value

 

[Jezus]

Sayin Leventm o orneklerden denedim hata veriyor ve sizin verdiginiz ornegide denedim oda hata veriyor