Help wanted with Code, Please

D

DaveM

Hi all

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 24/06/2007 by Grandad
'

'Always start in R2C16 loop down one cell at a time, in column P.
Application.Goto Reference:="R2C16"

Dim FoundCell As Range

Set FoundCell = ActiveCell.EntireColumn.Find(What:=ActiveCell.Value, _
After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Not FoundCell Is Nothing Then
FoundCell.Select

'I need the "Do" statement above the "Dim" sataement,Is there a way of
getting around this problem.

Do
ActiveCell.Offset(0, -13).Range("A1").Select
Selection.Copy
ActiveCell.Offset(0, 13).Range("A1").Select

On Error Resume Next
With ActiveCell
..EntireColumn.Find(What:=.Text, After:=.Cells(1, 1), LookAt:=xlWhole, _
LookIn:=xlValues, SearchDirection:=xlPrevious, MatchCase:=False).Select
End With
ActiveCell.Offset(0, -11).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 11).Range("A1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Loop Until IsEmpty(ActiveCell.Offset(0, 11))

End If

End Sub


Any help appreciated

Thanks in advance

Dave
 
J

Joel

Dim statements should be at the top of the macro. for arrays, you can use a
Redim to make the array larger or smaller.
 
V

Vasant Nanavati

'I need the "Do" statement above the "Dim" sataement,Is there a way of
getting around this problem.

Why???
_______________________________________________________________________
 
D

Don Guillett

It appears that a look in the vba help index for FINDNEXT would be helpful.
Follow the example and do your best to remove the selections as they are not
necessary or desirable. If all else fails, tell us exactly what you are
trying to do with an example.
 
D

DaveM

all ok, Thanks for your help
Don Guillett said:
It appears that a look in the vba help index for FINDNEXT would be
helpful. Follow the example and do your best to remove the selections as
they are not necessary or desirable. If all else fails, tell us exactly
what you are trying to do with an example.
 
D

DaveM

My usenet account was not posting my messages, I've uninstalled and
reinstalled my account for newsgroups. things were a little mixed up. My
apologises.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top