Select 3 rows down, 2 columns right

[jamesexcel1970]

Hello Everybody.


Can i have a simple one line code to select 3 rows down and 2 columns right.
am struck with the code in one of the macro development.

Cheers!

 

[Monty]

Hello James.

Hope you are doing good.

Please always upload file to help with quick solution.

thnaks

 

[jamesexcel1970]

Hey monty...

U there long time.

It's a simple question out of my big project, am using different things to achieve this.

can i have simple on line code fo this!

Cheers!

 

[Monty]

Okay!

 

[Monty]

Try this..

iam not really sure about your project and how you want to achieve this..but here is the simple code which you are expecting.

ActiveCell.Offset(3, 2).Select

Monty

 

[Monty]

This can be simple achived by recording macros....that's what i did.

'==Select from active cell to last row of list:

Range(Selection, Selection.End(xlDown)).Select

 

[Monty]

'==Select from current cell to last column of list:

Range(Selection, Selection.End(xlToRight)).Sel

 

[Monty]

'==Select last cell of worksheet:

Selection.SpecialCells(xlLastCell).Select

 

[Monty]

May be you require this aswell.

Everthing i have recored nothing from writing macros as such

'==Hide a column:
Selection.EntireColumn.Hidden = True
'==Insert a column:
Columns("N:N").Insert
'==Delete columns:
Columns("B:E").EntireColumn.Delete
'==Insert a new row at current cell:
Selection.EntireRow.Insert
'==Delete row of current cell:
Selection.EntireRow.Delete
'==Set column width:
Selection.EntireColumn.ColumnWidth = 10
'==Set row height:
Selection.RowHeight = 26.25
'==Set row height to size of co

 

[Monty]

Let me know if you have any challenges happy to help you with project.


Monty

 

[jamesexcel1970]

Thanks champ for give more information..

i will start using code provided any challenges will post..of course aim trying my end as you suggested before positing question.

 

[Monty]

Hey james.

Iam glad that i can be helpful..pleas shoot...Thank you so very much.

 

[jamesexcel1970]

Champ.

Thanks for you concern..am almost done...need some more help from on this.

 

[jamesexcel1970]

Any help on formatting ones selection is done.

 

[Monty]

James.

Please ask yourself a question what you need and start doing recording which am doing for you...any thing challenge let me know or any one in the forum...people are always there to help you.


Monty

 

[Monty]

James!

As i said, i dont know your requirment...but still giving you a code on formating just check it.

==Text not wrapped:
Selection.WrapText = False
'==Remove color:
Selection.Interior.ColorIndex = xlNone
'==Set font size:
Selection.Font.Size = 8
'==Date and time format:
Selection.NumberFormat = "mm-dd-yyyy hh:mm AM/PM"
'==Number format with comma:
Selection.NumberFormat = "#,##0"
'==Left aligned:
Selection.HorizontalAlignment = xlLeft
'==Bottom aligned:
Selection.VerticalAlignment = xlBottom
'==Indented text:
Selection.IndentLevel = 3
'==Delete contents but not formatting:
Selection.ClearContents
'==Delete contents and formatting:
Selection.Clear

 

[jamesexcel1970]

Wow champ...that's cool.

i put my self for a week to achieve this...i think i can finish this morning..

As always thank you so very much!

Cheers!

 

[Monty]

Please do not mention...My objective to help you in your project...Shoot meeeee.

 

[jamesexcel1970]

Thank you so very much Champ!.

thought you have provided extensive code for all the possibles...i used as per my requirement...and am done.