Another approach using dictionary [code] Private Sub UserForm_Initialize() Dim arr As Variant arr = GetDistinct(Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)) ListBox1.List =...
Thanks a lot PNRao for this great solution Another approach using collection [code] Private Sub UserForm_Initialize() Dim ws As Worksheet...
Thanks vaali... this is the data sheet1 data EID NAME PAY PayDay 14123 Joe1 $1,234.00 29-Jun-17 14124 Joe2...
HI, Here is the required macro to search a field and if value found copy the whole row into another...
I found a solution like this :Records in between two specific dates easily can be filtered using drop-down lists ....
I found a solution as follows: Watch the video to see how it's done and download example file : https://youtu.be/SZduAoOtiS0
I have sorted the above problem. Code is given below... [code] Sub seperate() Call CleanSheets MsgBox "1 of 10 Cleaning...
I really need help with this one. I’ve been working on this for days but my code isn’t working. My code needs to check if Cell is a number. If cell isn’t a number, then it have to show UserForm and change the value of the cell from EntryBox. But for some reason after I press “OK”, it just switch to next Cell without changing.
Public Function test(x)
r = ActiveCell.Row
c = ActiveCell.Column
If IsNumeric(Cells(r, c).Value) Then
test = True
test = False
MyEntryForm.Label1 = "Error " & Cells(r, c)
If FormCancelled = True Then
Cells(r, c).Value = MyEntryForm.EntryBox.Value
I’m using the same formula to validate multiple cells in one column.
Code inside UserForm (if need):
Public FormCancelled As Boolean
Public Sub InitializeForm()
FormCancelled = True
Private Sub OKButton_Click()
I would like to understand where you are calling this function(test(x)), and what is the parameter ‘X’ you are passing in the function. If possible please provide the example macro file.
Email us at : firstname.lastname@example.org
“x” is the active Cell. I have another Cell that do the function “test” and to that cell is Data Validation attached. So it checks if cell “X” is working with formula test. And how can I provide an Example?
Please share using the share button above.
If you found the answer is best answer for your question, Please mark as 'best answer' by clicking on the right tick mark icon at the left side of the answer.
Found the answer useful and wants to credit the user, then vote the answer (vote up).