[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Auto-deleting Date columns in Excel (read this instead!)



PureBytes Links

Trading Reference Links

Spyros :

Thanks !

Please look at my TL remarks.




----- Original Message -----
From: "SR" <raftsp@xxxxxxxxx>
To: <metastock@xxxxxxxxxxxxxxxxxx>
Sent: Monday, September 23, 2002 12:53 PM
Subject: Auto-deleting Date columns in Excel (read this instead!)


>
>
> Here is a sub-routine in VBA that deletes the columns with a "Date"
header.
> Just paste it in the VBA workbook code and click RUN.



> If you like you can create a macro that will call it from inside the Excel
> workbook, so you will not
> have to switch every time to VBA to run it.

TL : how ?

> It's also a good idea to use a macro utility to make copy-pasting multiple
> indicators between MS and Excel
> a single click's task.

TL : that would be ideal !  Do You have that macro ?


>
> Make sure that the first line "Option Compare Text" appears before any
other
> procedures.

TL : Can you explain : Why ?


Thanks again  !

Theo


TL : i was up +6,62 % last week but whip-sawing put me back on earth
        money management saved my ass again !
       ( Zig zagging as we say :) ) )






> This sub assumes that you use less than 100 columns and less than 10000
> rows. If you are using more, then
> change the numbers.
>
> Cheers
> Spyros
>
>
> Option Compare Text
> _______________________________
>
> Sub DeleteDateColumns()
>
> For x = 1 To 100
>     If Cells(1, x) = "DATE" Then
>         Range(Cells(1, x), Cells(10000, x)).Select
>         Selection.Columns.Delete
>         x = x - 1
>     End If
> Next
>
> End Sub
>
>