Problem to tranfer userform's data in a specific sheet

Hi

I have this code

Private Sub cmdSend_Click()
'Range("b2").Value = txtName
'Range("c2").Value = txtAddress
'Range("d2").Value = txtPhone
'Range("e2").Value = txtZip
'Range("f2").Value = txtEmail
erow = Φύλλο1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 2).Value = txtName.Text
Cells(erow, 3).Value = txtAddress.Text
Cells(erow, 4).Value = txtPhone.Text
Cells(erow, 5).Value = txtZip.Text
Cells(erow, 6).Value = txtEmail.Text
End Sub

The red part of the code says :Φύλλο1. This is the translate of Sheet1 in our launquage!

In my sample example i have also a picture of the module to see it.

So Sheet2(Φύλλο2) is called "DataEntry" and

Sheet1(Φύλλο1) is called "DataBase"

The code works fine when i use sheet2-Φύλλο2, but not at all for sheet1-Φύλλο1!!

This getting me crazy.!

Any ideas pls?

Thank you for looking on this.

Code is for Command Button. Pls see my example sheet! I believe you'll find any info you need there.

Your suggestion.

erow = Sheets("Φύλλο1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Unfortunately, gives me an error.

Any ideas?

Thank you again. Playing with it i noticed that code works only in the specific sheet where the command button exist....

So,Let's say that this can not works.

Have you or of course anyone else how to do what i need?

New attachment without any code there is attached!

Originally Posted by Solus Rankin

Move the code to the workbook module instead of a sheet module.

Now i am really comfused! Which code? The code of the command button? It's not in a sheet module...Did you open my attchment?

Change

row = Φύλλο1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

to

row = Sheets("Database").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

I'm not sure why the Φύλλο1 reference doesn't work, I get issues with the translation also so cannot reference the sheet by the vba name.

Eatch time that i type data in the userform, then these data to be tranfered in the first available row of DataBAse sheet. The name in column B. The address in column C. The phone in column D. The zip in column M AND the Email in column P.

The important is to transfer the data not in continues column but as i explained before(Bold part of my text)

Thank you.

Thank you yudlugar


Unfortunately this does't either works!!

In what way doesn't it work?

Perhaps a small video could helps you for helping me.

http://screencast.com/t/bmEzEpdtQ7JR

Yeah I'm the same, can't watch videos.

Quys. I am geting crazy. For sure i am.

The last code of Solus works fine making 2 modifications!! Any idea why?

Private Sub cmdSend_Click()

erow = Sheets("DataBase").Cells(Rows.Count, 2).End(xlUp).Offset(1, 1).Row
With Sheets("DataBase")
    .Cells(erow, 2).Value = txtName.Text
    .Cells(erow, 3).Value = txtAddress.Text
    .Cells(erow, 4).Value = txtPhone.Text
    .Cells(erow, 13).Value = txtZip.Text
    .Cells(erow, 16).Value = txtEmail.Text
End With
End Sub

in what way doesn't it work without the modifications? Presumably your data in column B is different to that in column A, so you actually want the first empty row in column B to be erow, not the first empty row in column A?

Originally Posted by yudlugar

so you actually want the first empty row in column B to be erow, not the first empty row in column A?

Exactly. If you see my sample in column A i have a formula to count the entrances! Of course i have to say that is the first time that i see the "erow" way and of course.. i am not able to understand haw this works.

I;ll study it and hope that i'll get it!

Many thanks to both of you!