Changes to VBA in this excel.

**guidom** · 09-13-2014, 04:24 AM

I have had an excel with vba code from another person.
This VBA copies the names from a column to another column a number of times.
I would like to change it that names are on another worksheet, and the copy has to go to e certain worksheet and places, also names number of times beneath eachother, and number of empty rows.

Could somebody help me.

Guido

**oeldere** · 09-13-2014, 04:32 AM

I can't help you enough with this one, but you get better help if your excel sheet contains the conditions you asked in your question.

e.g. you don't have names in another sheet.

**guidom** · 09-13-2014, 04:43 AM

Originally Posted by oeldere

I can't help you enough with this one, but you get better help if your excel sheet contains the conditions you asked in your question.

e.g. you don't have names in another sheet.

On sheet 1 you see at the left a list of names, now i want to have the copies on for instance on sheet 2.
I need some changes, so i can specify a worksheet where the names are, and i want to specify de destination worksheet on a specific place to start.

Gaggie

**alansidman** · 09-13-2014, 07:59 AM

Try this:

Option Explicit

Sub RepeatRows()
    Dim li As Long
    Dim lRI As Long
    Dim rng As Range
    Dim rngNumberRepeats As Range
    Dim w As Worksheet
    Set w = Sheets("Sheet2")
    
    'Clear previous result
    On Error Resume Next
    w.Cells(1, 5).CurrentRegion.ClearContents
    On Error GoTo 0
    
    'Repeat rows
    Set rngNumberRepeats = Range(Range("A1"), Range("A1").End(xlDown))
    For Each rng In rngNumberRepeats.Cells
        'For li = 1 To rng.Value
        For li = 1 To 4
            lRI = lRI + 1
            w.Cells(lRI, 5).Value = rng.Value
            'Cells(lRI, 6).Value = rng.Offset(0, 1).Value
            'Cells(lRI, 7).Value = rng.Offset(0, 2).Value
        Next li
        lRI = lRI + 13
    Next rng
End Sub