write userform data to Excel WS

[andymalan]

Greetings all. I will appreciate some help with the following code. I am new to this world and am eager to learn. I am trying to move data from a user form(frmData) to Excel, and have come across the following code. But it does not work. can anyone tell me what is wrong?

Sub cmdAdd_Click()
On Error GoTo ErrOccured
'Boolean Value
BlnVal = 0

'Data Validation
Call Data_Validation

'Check validation of all fields are completed are not
If BlnVal = 0 Then Exit Sub

'TurnOff screen updating
With Application
.ScreenUpdating = False
.EnableEvents = False
End With

'Variable declaration
Dim txtID, txtName, GenderValue, txtLocation, txtCnum, txtEaddr, txtRemarks
Dim iCnt As Integer

'find next available row to update data in the data worksheet
iCnt = fn_LastRow(Sheets("Data")) + 1

'Find Gender value
If frmData.obMale = True Then
GenderValue = "Male"
Else
GenderValue = "Female"
End If

'Update userform data to the Data Worksheet
With Sheets("Data")
.Cells(iCnt, 1) = iCnt - 1
.Cells(iCnt, 2) = frmData.txtName
.Cells(iCnt, 3) = GenderValue
.Cells(iCnt, 4) = frmData.txtLocation.Value
.Cells(iCnt, 5) = frmData.txtEaddr
.Cells(iCnt, 6) = frmData.txtCnum
.Cells(iCnt, 7) = frmData.txtRemarks


'Diplay headers on the first row of Data Worksheet
If .Range("A1") = "" Then
.Cells(1, 1) = "Id"
.Cells(1, 2) = "Name"
.Cells(1, 3) = "Gender"
.Cells(1, 4) = "Location"
.Cells(1, 5) = "Email Addres"
.Cells(1, 6) = "Contact Number"
.Cells(1, 7) = "Remarks"

'Formatiing Data
.Columns("A:G").Columns.AutoFit
.Range("A1:G1").Font.Bold = True
.Range("A1:G1").LineStyle = xlDash

End If
End With

'Display next available Id number on the Userform
'Variable declaration
Dim IdVal As Integer

'Finding last row in the Data Sheet
IdVal = fn_LastRow(Sheets("Data"))

'Update next available id on the userform
frmData.txtID = IdVal

ErrOccured:
'TurnOn screen updating
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

 

[My Aswer Is This]

All you have told us is:

I am trying to move data from a user form(frmData) to Excel,​

And then you showed us a script you found which does not work.

We need to know exactly what you want to do.

We need sheets names Ranges etc. etc.

 

[dmt32]

Hi,
there are a couple of codes in your script you have not published

'Data Validation
Call Data_Validation

and

find next available row to update data in the data worksheet
iCnt = fn_LastRow(Sheets("Data")) + 1

Are both these procedures included in your project? can you share both these codes as well.

Dave