Can't call macro from another
Substitute the Cell references to the first row and column where the data is
to be pasted and try this.
Private Sub DropButton_Click()
With cells
Range("DROPS").Select
Selection.Copy
strDrops = Range("TEAMDROPS").Value
Range(strDrops).Select
set rng = .Range(.Cells(1,1),.cells(1,1)).End (xlDown)
rng.Offset(1,0).Activate
Activecell.PasteSpecial
End With
DropButtonContinue
End Sub
--
Best wishes,
Jim
"Jim Tibbetts" wrote:
Hi All. I have the following code for a UserForm. It copies a list of dropped
golfers, goes to another part of the spreadsheet and finds the 1st empty cell
in the column, pastes it and then moves 1 cell to the right and enters the
date. All that works fine. The problem is that after it completes that it
doesn't go to macro "DropButtonContinue". It loops again. Can anyone tell me
what I am missing?
Private Sub DropButton_Click()
Range("DROPS").Select
Selection.Copy
strDrops = Range("TEAMDROPS").Value
Range(strDrops).Select
For DropsCounter = 1 To 100
If ActiveCell.Value = "" Then
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Date
DropButtonContinue
Else
ActiveCell.Offset(1, 0).Select
End If
Next DropsCounter
End Sub
Private Sub DropButtonContinue()
<<<More Code Here
Thanks for any help.
--
Jim T
|