Insertion mark sheet in VBA

[miroslavp]

UserForm form a single Excel database. "He did," I module, as instructed, to fill one of the table - and it works ... but I'm the VBA "real" table on Sheet-in where there is a button for beginning the forms.
Where, in the VBA code, the need to specify the path to the target table - or a sheet?
Button to start the UserForm on my Sheet7, a table in which the data should be entered on Sheet1 (name Sheet is "Podaci").

UserForm code is:

Option Explicit

Private Sub CommandButton1_Click()
EditAdd
End Sub

Private Sub CommandButton2_Click()
ClearForm
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
GetData
End Sub

Private Sub UserForm_Initialize()

TextBox1.SetFocus

End Sub


Modul code is:

Dim id As Integer, i As Integer, j As Integer, flag As Boolean
Sub GetData()

If IsNumeric(UserForm1.TextBox1.Value) Then
flag = False
i = 0
id = UserForm1.TextBox1.Value

Do While Cells(i + 1, 1).Value <> ""

If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 10
UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value
Next j
End If

i = i + 1

Loop

If flag = False Then
For j = 2 To 10
UserForm1.Controls("TextBox" & j).Value = ""
Next j
End If

Else
ClearForm
End If

End Sub
Sub ClearForm()

For j = 1 To 10
UserForm1.Controls("TextBox" & j).Value = ""
Next j

End Sub
Sub EditAdd()

Dim emptyRow As Long

If UserForm1.TextBox1.Value <> "" Then
flag = False
i = 0
id = UserForm1.TextBox1.Value
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Do While Cells(i + 1, 1).Value <> ""

If Cells(i + 1, 1).Value = id Then
flag = True
For j = 2 To 10
Cells(i + 1, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If

i = i + 1

Loop

If flag = False Then
For j = 1 To 10
Cells(emptyRow, j).Value = UserForm1.Controls("TextBox" & j).Value
Next j
End If

End If

End Sub

Is it, perhaps, the rule that form (as well as a button that launches it) is the same "Sheet" are where is the table?
I used the instructions: http://www.excel-easy.com/vba/exampl...-userform.html

[miroslavp]

This is not resolved, I have to open a new topic

[miroslavp]

Sorry for the mistakes and I've marked as "solved" - and is not. The question I moved to the following address: http://www.excelforum.com/showthread...t=#post4353612