Logo 
Search:

MS Office Answers

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Juana Fisher   on Aug 31 In MS Office Category.

  
Question Answered By: Dallas Martin   on Aug 31

I have been doing some more tinkering with my attempted macro.
Although I may be a bit closer, I still need some help... Anyone have
any insights? I'd really appreciate it! Thank you.

*************************************************************
Range("A20:AL27").Select 'Update later with actual range
Do While ActiveCell.Value > 0
Call moveNext 'Calls sub-routine
Loop

End Sub
Sub moveNext()

macro  to copy/paste special  selected cell  X nubers of time. Then
move to next line item.
'
Dim i As Integer
Dim counter As Integer
Dim freq As Integer

Range(0, 1).Select = freq 'Trying to assing the contents  in
column A as the # of times to copy/past. This does not work

counter = 0
Selection.Copy

Do While counter <= freq
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Select
counter = counter + 1
Loop
ActiveCell.Offset(1, 1).Select
'
End Sub

Share: 

 

This Question has 4 more answer(s). View Complete Question Thread

 
Didn't find what you were looking for? Find more on Looped VBA to paste special values Or get search suggestion and latest updates.


Tagged: