Caveat: Cells B1 and B2 Must not be duplicates. Note! Change sheet name ("Sheet1") to your sheet name. [img alt_text=''...
This seemed to work for me. Make sure "SheetName" is "SheetName" and not "WorksheetName". I also added a Goto line1...
SORTED! [code] Private Sub AnotherSheet() Dim sDate As Date Dim tDate As Date Dim PayDay As Date Dim DueDate...
This answer was most helpful. Thank you
This answer was most helpful. Thank you.
Hi All, I have data in 4 columns A:D in the worksheet "Member_List". The following code is copying the required...
Thank you. You answered my question.
Hi – I run a report out of SQL and into Excel everyday and have a reference (in Col B) which is sometimes duplicated. The reference is numeric and never the same and there can be one that more duplicates of the numeric. For Example:
1,2,2,3 first day
4,5,5,6,6,6,7 second day
I need a script in VBA that will insert a row above where the first duplicate is found so as above:
Please can someone help before my head explodes? Thanks
Caveat: Cells B1 and B2 Must not be duplicates.
Note! Change sheet name (“Sheet1”) to your sheet name.
Dim ws As Worksheet
Set ws = Worksheets(“Sheet1”) ‘ Change this to your sheet name
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell)
If ActiveCell.Value = ActiveCell.Offset(-1).Value Then
If ActiveCell.Value = ActiveCell.Offset(1).Value Then
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).
Enter the destination URL
Or link to existing content