Prev: Mobile Office 6.1, Excel Mobile
Next: VBA code to update sheets in manual calc workbook
From: KWhamill on 16 Jul 2008 16:23
I want to include an if Statement. That will look for the word Payside in the
column header and if it can find it then continue with the Sub or if it can't
just skip the sub. I'm not sure what i'm doing wrong.
Thanks,
Karl
From: KWhamill on 16 Jul 2008 17:06
Never mind answered my own question:

' PaySide
With Worksheets("Entries").Rows("1:3")
Set PaySide = .Find(what:="PaySide", LookIn:=xlValues)
If PaySide Is Nothing Then
GoTo TradeID
Selection.Find(what:="PaySide", After:=ActiveCell,
LookIn:=xlFormulas _
, lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlDown)).Copy
Application.Goto Reference:=Worksheets("uploader").Rows("1:1")
Selection.Find(what:="PaySide", After:=ActiveCell,
LookIn:=xlFormulas, _
lookat:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End With

"KWhamill" wrote:

> I want to include an if Statement. That will look for the word Payside in the
> column header and if it can find it then continue with the Sub or if it can't
> just skip the sub. I'm not sure what i'm doing wrong.
> Thanks,
> Karl
 | 
Pages: 1
Prev: Mobile Office 6.1, Excel Mobile
Next: VBA code to update sheets in manual calc workbook