Help wanted with Code, Please

  • Thread starter Thread starter DaveM
  • Start date Start date
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
 
Dim statements should be at the top of the macro. for arrays, you can use a
Redim to make the array larger or smaller.
 
'I need the "Do" statement above the "Dim" sataement,Is there a way of
getting around this problem.
Click to expand...

Why???
_______________________________________________________________________
 
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.
 
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.
Click to expand...
 
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.
 
Back
Top