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 need to group rows based on repeated text cell in column A , no. of columns are dynamic
then sum total of each group and hide the groups showing only the totals
As start point try this code
Dim AsteriskPositions(1 To 1500) As Long
Dim counter As Long, I As Long
For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(I, 1).Value <> Cells(I + 1, 1).Value Then
counter = counter + 1
AsteriskPositions(counter) = Cells(I, 1).Row
For I = 1 To counter
If I = counter Then
Range("A" & AsteriskPositions(I) + 1 & ":A" & AsteriskPositions(I + 1) - 1).Rows.Group
Can you show us sample of your workbook to see what we can do with totals?
Thanks for the assistance, tried with above code, its grouping only for few texts not for all the unique texts in Column A, there are more than 3000 rows, month on month it keeps increasing.
Also let me know where to send the sample workbook attachments??? any email ID??
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).