Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Programming > Excel Macro delete certail column's
Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 6
Default Excel Macro delete certail column's
Hi,
I have a macro that does some kind of comp..task. Now I would like add
a piece of code that deletes certain column's before the maco creates
the final worksheet..
Ex. Delete Column B,C,M,AA etc. ( My headrsalways start row 23)..

We tried this way..But cannot connect the existing code...

Sheets("tab one").Select
Range("D42").Select
Sheets("custom").Select
Selection.AutoFilter
Range("B23:B400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollRow = 249
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 257
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 265
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 280
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 283
ActiveWindow.ScrollRow = 284
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 288
ActiveWindow.ScrollRow = 289
ActiveWindow.ScrollRow = 290
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 294
ActiveWindow.ScrollRow = 295
ActiveWindow.ScrollRow = 296
ActiveWindow.ScrollRow = 298
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 304
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 315
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 359
Selection.Delete Shift:=xlToLeft
Range("C23:C400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll ToRight:=3
Range("M23:M400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll ToRight:=9
Range("P23:T400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll ToRight:=9
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("final tab").Select
End Sub
Reply With QuoteReply With Quote
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
  
Posts: 420
Default Excel Macro delete certail column's
I'd try something like:

worksheets("tab one").range("b1,c1,m1,aa1").entirecolumn.delete



On 07/31/2010 21:42, dii jii wrote:
Hi,
I have a macro that does some kind of comp..task. Now I would like add
a piece of code that deletes certain column's before the maco creates
the final worksheet..
Ex. Delete Column B,C,M,AA etc. ( My headrsalways start row 23)..

We tried this way..But cannot connect the existing code...

Sheets("tab one").Select
Range("D42").Select
Sheets("custom").Select
Selection.AutoFilter
Range("B23:B400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollRow = 249
ActiveWindow.ScrollRow = 250
ActiveWindow.ScrollRow = 251
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 257
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 261
ActiveWindow.ScrollRow = 263
ActiveWindow.ScrollRow = 265
ActiveWindow.ScrollRow = 267
ActiveWindow.ScrollRow = 269
ActiveWindow.ScrollRow = 270
ActiveWindow.ScrollRow = 272
ActiveWindow.ScrollRow = 273
ActiveWindow.ScrollRow = 275
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 277
ActiveWindow.ScrollRow = 279
ActiveWindow.ScrollRow = 280
ActiveWindow.ScrollRow = 282
ActiveWindow.ScrollRow = 283
ActiveWindow.ScrollRow = 284
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 286
ActiveWindow.ScrollRow = 287
ActiveWindow.ScrollRow = 288
ActiveWindow.ScrollRow = 289
ActiveWindow.ScrollRow = 290
ActiveWindow.ScrollRow = 291
ActiveWindow.ScrollRow = 292
ActiveWindow.ScrollRow = 294
ActiveWindow.ScrollRow = 295
ActiveWindow.ScrollRow = 296
ActiveWindow.ScrollRow = 298
ActiveWindow.ScrollRow = 299
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 302
ActiveWindow.ScrollRow = 304
ActiveWindow.ScrollRow = 306
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 312
ActiveWindow.ScrollRow = 315
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 323
ActiveWindow.ScrollRow = 327
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 333
ActiveWindow.ScrollRow = 336
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 340
ActiveWindow.ScrollRow = 342
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 344
ActiveWindow.ScrollRow = 346
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 348
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 353
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 359
Selection.Delete Shift:=xlToLeft
Range("C23:C400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll ToRight:=3
Range("M23:M400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll ToRight:=9
Range("P23:T400").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll ToRight:=9
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Sheets("final tab").Select
End Sub

--
Dave Peterson
Reply With QuoteReply With Quote
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Linear Mode Linear Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I invert a column's contents Todd Excel Worksheet Functions 2 April 27th 06 05:47 PM
Highlight certail text in a userform Text box sheeba Excel Programming 0 February 4th 06 10:58 AM
Moving between a column's cells LoveCandle[_5_] Excel Programming 8 November 10th 05 09:36 PM
How do i delete a macro in Excel 2003 when delete isn't highlight Abel Excel Discussion (Misc queries) 2 September 13th 05 04:09 AM
Hiding Rows and column's Keith[_11_] Excel Programming 1 June 15th 05 05:16 PM


All times are GMT +1. The time now is 06:23 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement