2) different conditional copy and paste

agog1 · Jan 18th 2018

My data
column B
1
2
3
4

And so on
What i wanted is to Copy complete column B data and paste to column G
Condition is in column G 1 should be 59 times,2 should be 59 times and so on

ColumnG
1
1
1
1
1
Upto 59 times
2
2
2
2
2
2
2
2
Upto 59 times
And so on

agog1 · Jan 19th 2018

Any doubts?

agog1 · Jan 20th 2018

Kindly see the attachment

agog1 · Jan 20th 2018

Any doubts? Sir/Mam

agog1 · Jan 21st 2018

Any doubts?

agog1 · Jan 21st 2018

Ozgrid is not a free forum is it so?

agog1 · Jan 22nd 2018

Plz look into my sample file

davesexcel · Jan 22nd 2018

Maybe just a little loop.

Code

Sub Button1_Click()
    Dim LstRw As Long, Rng As Range, c As Range, x
    LstRw = Cells(Rows.Count, "B").End(xlUp).Row
    Set Rng = Range("B1:B" & LstRw)


    For Each c In Rng.Cells
        For x = 1 To 59
            Cells(Rows.Count, "G").End(xlUp).Offset(1).Value = c
        Next x
    Next c
End Sub

Display More

dgfsag · Jan 22nd 2018

Thnx alot Daves i also needed the same

2) different conditional copy and paste

Participate now!

Share

Users Viewing This Thread