 true

Find the best tutors and institutes for Microsoft Excel Training

Find Best Microsoft Excel Training classes

Please select a Category.

Please select a Locality.

No matching category found.

No matching Locality found.

Outside India?

Search for topics

# VBA Tip: Repeating Emp Names N number of times using 4 different loops Naga Satyanarayana Anantapalli
01/02/2017 0 0

Hi All,
This is a requirement from one of our student and here we are posting the question along with solution (this can be achieved using 4 different loops). In Column “J” there are few employee names which need to be repeated for “n” (this “n” is in cell “O1”) number of times in column “L”. Check the below screenshot for understanding the requirement. Above requirement can be done using 4 different VBA loops. Here you go

Solving the above task using 1. For Next Loop

Sub EmpName_Recurring1()
Dim emp_loop As Integer
Dim source_lr As Integer
Dim destination_lr As Integer
ThisWorkbook.Sheets("Task").Range("L2:L10000").ClearContents
source_lr = ThisWorkbook.Sheets("Task").Cells(Rows.Count, "J").End(xlUp).Row
For emp_loop = 1 To source_lr
destination_lr = ThisWorkbook.Sheets("Task").Cells(Rows.Count, "L").End(xlUp).Row + 1
Range(Cells(destination_lr, "L"), Cells(destination_lr + Range("Repeat_Count").Value - 1, "L")).Value =          Cells(emp_loop + 1, "J").Value
Next emp_loop
MsgBox "Task completed using For Next loop"

End Sub

Solving the above task using 2. For Each Loop

Sub EmpName_Recurring2()
Dim rng As Range
Dim source_lr As Integer
Dim destination_lr As Integer
ThisWorkbook.Sheets("Task").Range("L2:L10000").ClearContents
source_lr = ThisWorkbook.Sheets("Task").Cells(Rows.Count, "J").End(xlUp).Row

For Each rng In Sheets("Task").Range("J2:J" & source_lr)
destination_lr = ThisWorkbook.Sheets("Task").Cells(Rows.Count, "L").End(xlUp).Row + 1
Range(Cells(destination_lr, "L"), Cells(destination_lr + Range("Repeat_Count").Value - 1, "L")).Value =          rng.Value
Next rng
MsgBox "Task completed using For Each loop"

End Sub

Solving the above task using 3. Do While Loop

Sub EmpName_Recurring3()
Dim rng As Range
Dim row_increment As Integer
Dim destination_lr As Integer
ThisWorkbook.Sheets("Task").Range("L2:L10000").ClearContents
Do While Cells(row_increment + 2, "J").Value <> ""
destination_lr = ThisWorkbook.Sheets("Task").Cells(Rows.Count, "L").End(xlUp).Row + 1
Range(Cells(destination_lr, "L"), Cells(destination_lr + Range("Repeat_Count").Value - 1, "L")).Value =          Cells(row_increment + 2, "J").Value
row_increment = row_increment + 1
Loop
MsgBox "Task completed using Do While loop"

End Sub

Solving the above task using 4. Do Until Loop

Sub EmpName_Recurring4()
Dim rng As Range
Dim row_increment As Integer
Dim destination_lr As Integer
ThisWorkbook.Sheets("Task").Range("L2:L10000").ClearContents
Do Until Cells(row_increment + 2, "J").Value = ""
destination_lr = ThisWorkbook.Sheets("Task").Cells(Rows.Count, "L").End(xlUp).Row + 1
Range(Cells(destination_lr, "L"), Cells(destination_lr + Range("Repeat_Count").Value - 1, "L")).Value =         Cells(row_increment + 2, "J").Value
row_increment = row_increment + 1
Loop
MsgBox "Task completed using Do Until loop"

End Sub

0 Dislike
Follow 0  Please Enter a comment

## Other Lessons for You

Vlookup in excel
Vlookup is a very useful formula in excel. Vlookup can be used in two ways Exact and approximate. We can find and fill in data with the help of Vlookup. The syntax of Vlookup is: Vlookup (Lookupvalue,... ### Looking for Microsoft Excel Training classes?

Find best Microsoft Excel Training classes in your locality on UrbanPro.

Are you a Tutor or Training Institute?

Join UrbanPro Today to find students near you
Sponsored
X

### Looking for Microsoft Excel Training Classes?

Find best tutors for Microsoft Excel Training Classes by posting a requirement.

• Post a learning requirement
• Get customized responses
• Compare and select the best  ### Looking for Microsoft Excel Training Classes?

Find best Microsoft Excel Training Classes in your locality on UrbanPro UrbanPro.com is India's largest network of most trusted tutors and institutes. Over 25 lakh students rely on UrbanPro.com, to fulfill their learning requirements across 1,000+ categories. Using UrbanPro.com, parents, and students can compare multiple Tutors and Institutes and choose the one that best suits their requirements. More than 6.5 lakh verified Tutors and Institutes are helping millions of students every day and growing their tutoring business on UrbanPro.com. Whether you are looking for a tutor to learn mathematics, a German language trainer to brush up your German language skills or an institute to upgrade your IT skills, we have got the best selection of Tutors and Training Institutes for you. Read more