Fully Automated Data Entry Userform

It is no free because it is no possible to change and add some items to the code.

Dear Sir,
Am stuck on the part 3 where am having an error mgs and my search is not working.

iDatabaseRow = ThisWorkbook.Sheets(“Database”).Range(“A” & Application.Rows.Count).End(x1Up).Row

I have added some some fields more and am still trying to have the search filter to work.

Regards,

Jean

Its a wonderful tutorial.

Based on this tutorial, I made an entry user form with textbox for entry value in currency. I would like to format textbox entry with thousand separator.

I made syntax as follow:

Sub FormatPrice()
Dim sPrice As Double
sPrice = frmpForm.txtpPrice.Value
frmpForm.txtpPrice.Value = format(sPrice, “#,##0”)
End Sub

But it did not work.
Appreciate if you could correct me

thank you

When the data is saved from part 5 it displays a run time error.

Thanks for your tutorial Part 5 is having error ” .cmbDepartment.clear “. Please take a look at it again and advise accordingly. Thanks.

Hi!
Team The Data Labs thanks for your publishing these kinds of beneficial videos.
I have sent an email on your provided email ID to regarding the VB work. Please have a look on that and reply accordingly.

Thanks
Regards

hello datalabs,

i am currently using this tutorial and im very thankful for this. and in return may i point out that there is an error on part 4, when u used the sheet “Print” instead of “Database” for verifying duplicates. and also when i corrected that error, i also noticed that when you edit your data, the duplicate verifier stops you from saving the changes. In solution to that problem i made another save button that does not use the verify sub. Again this is very helpful especial for me that is not that good in programming.

This is really great job,

Is it possible to keep the data base protected and just keep the filter function working. to filter the data base based on some entries.

This will be very helpful to me as i utilize it in my maintenance activities Log.

Hello,

Awesome Demo!

Error keeps calling out the iColumn:

Application.ScreenUpdating = False

Dim shDatabase As Worksheet ‘ Database sheet
Dim shSearchData As Worksheet ‘SearchData sheet

Dim iColumn As Integer ‘hold selected column # in Database sheet
Dim iDatabaseRow As Long ‘Store the last non-blank row # available in Database sheet
Dim iSearchRow As Long ‘hold the last non-blank row # avaialbe in SearchData sheet

Dim sColumn As String ‘store column selection
Dim sValue As String ‘hold search text value

Set shDatabase = ThisWorkbook.Sheets(“Database”)
Set shSearchData = ThisWorkbook.Sheets(“SearchData”)

iDatabaseRow = ThisWorkbook.Sheets(“Database”).Range(“A” & Application.Rows.Count).End(xlUp).Row

sColumn = frmForm.cmbSearchColumn.Value

sValue = frmForm.txtSearch.Value

iColumn = Application.WorksheetFunction.Match(sColumn, shDatabase.Range(“C10:AA”), 0) ‘Change, if number of columns change

If IsError(iColumn) Then
MsgBox “Yes”
Else
MsgBox “No”

End If

‘Remove filter from Databse worksheet

If shDatabase.FilterMode = True Then

shDatabase.AutoFilterMode = False
End If

‘Apply filter on Database worksheet

If frmForm.cmbSearchColumn.Value = “Name” Then

shDatabase.Range(“C10:AA9999” & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:=sValue ‘Change, if number of columns change

Else
shDatabase.Range(“C10:AA9999″ & iDatabaseRow).AutoFilter Field:=iColumn, Criteria1:=”*” & sValue & “*” ‘Change, if number of columns change

End If

This is great, I’ve been learning a lot. I tried duplicating this for another tab/sheet but the code breaks and get differnt errors when changing the reference names of “Database” to something else. How can I change the code to use the code name of the sheet instead so hopefully i can reuse this for a new tab/sheet of my own naming?

For instance from: iRow = [Counta(Database!A:A)] to iRow = [Counta(Sheet2!A:A)]

or

iRow = [Counta(MySheetName!A:A)]

Or

If iRow > 1 Then

.lstDatabase.RowSource = “Database!A2:I” & iRow
Else

.lstDatabase.RowSource = “Database!A2:I2”

End If

To

If iRow > 1 Then

.lstDatabase.RowSource = “Sheet2!A2:I” & iRow
Else

.lstDatabase.RowSource = “Sheet2!A2:I2”

End If

Thanks!

Hi
Team The Data Labs thanks for your publishing

I just download a example and i have an error with ColumnWidhths does not match

Sub Show_Form()

frmForm.Show

End Sub

Hi,
Can you make the same example for entering the data in a table, instead of a defined range. I tried to convert the range in Database sheet to a table, but any new record added is added outside the table.

HI,
I want help
I want to know a function in excel which will allow me to understand which dates fall under which week.I am preparing a weekly tracker. Can u please help me