Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
MACRO CODE
Hi, can anybody please tell that what should be the macro code if I
want to select next cell of the last value in coloumn. like if i have values in coloumn "A" then how can i select next cell of coloumn "A" cell which have the last value. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
MACRO CODE
Hi
for column A Cells(rows.Count,"A").End(xlUp).offset(1,0).Select if you want the last cell in a block, but don't want to jump to a second block in column A e.g. you have data in A2 to A10 and in A14 to A20, but you just want the end of the A2 to A10 block then: Range("A2").End(xldown).offset(1,0).select regards Paul On Feb 25, 3:38*pm, K wrote: Hi, can anybody please tell that what should be the macro code if I want to select next cell of the last value in coloumn. like if i have values in coloumn "A" then how can i select next cell of coloumn "A" cell which have the last value. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
MACRO CODE
On Feb 25, 3:44*pm, wrote:
Hi for column A Cells(rows.Count,"A").End(xlUp).offset(1,0).Select if you want the last cell in a block, but don't want to jump to a second block in column A e.g. you have data in A2 to A10 and in A14 to A20, but you just want the end of the A2 to A10 block then: Range("A2").End(xldown).offset(1,0).select regards Paul On Feb 25, 3:38*pm, K wrote: Hi, can anybody please tell that what should be the macro code if I want to select next cell of the last value in coloumn. like if i have values in coloumn "A" then how can i select next cell of coloumn "A" cell which have the last value.- Hide quoted text - - Show quoted text - thanks paul |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
MACRO CODE
On Feb 25, 3:44*pm, wrote:
Hi for column A Cells(rows.Count,"A").End(xlUp).offset(1,0).Select if you want the last cell in a block, but don't want to jump to a second block in column A e.g. you have data in A2 to A10 and in A14 to A20, but you just want the end of the A2 to A10 block then: Range("A2").End(xldown).offset(1,0).select regards Paul On Feb 25, 3:38*pm, K wrote: Hi, can anybody please tell that what should be the macro code if I want to select next cell of the last value in coloumn. like if i have values in coloumn "A" then how can i select next cell of coloumn "A" cell which have the last value.- Hide quoted text - - Show quoted text - Hi paul, i asked the above question so i can amend my macro. Please see my macro below as its not working. can you please tell that what wrong i am doing? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LastRow As Long Dim StartRow As Long Dim slc As Long slc = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select If slc < "" Then StartRow = Cells(Rows.Count, 2).End(xlUp).Row - 1 Cells(StartRow + 1, 1).Resize(6, 1).EntireRow.Insert For i = 1 To 6 Cells(StartRow + i, 9).Resize(1, 6).Merge Next i LastRow = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False With Range(Cells(StartRow, 2), Cells(LastRow, 2)) .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ Step:=1, Trend:=False End With Application.ScreenUpdating = True End If End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
MACRO CODE
Hi
As written, slc is a range not a long Avoid the select and do slc = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value If you need the select for something else later then do Dim myRange as Range myRange = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select slc = Selection.Value regards Paul On Feb 25, 3:56*pm, K wrote: On Feb 25, 3:44*pm, wrote: Hi for column A Cells(rows.Count,"A").End(xlUp).offset(1,0).Select if you want the last cell in a block, but don't want to jump to a second block in column A e.g. you have data in A2 to A10 and in A14 to A20, but you just want the end of the A2 to A10 block then: Range("A2").End(xldown).offset(1,0).select regards Paul On Feb 25, 3:38*pm, K wrote: Hi, can anybody please tell that what should be the macro code if I want to select next cell of the last value in coloumn. like if i have values in coloumn "A" then how can i select next cell of coloumn "A" cell which have the last value.- Hide quoted text - - Show quoted text - Hi paul, i asked the above question so i can amend my macro. *Please see my macro below as its not working. can you please tell that what wrong i am doing? Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LastRow As Long Dim StartRow As Long Dim slc As Long slc = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select If slc < "" Then StartRow = Cells(Rows.Count, 2).End(xlUp).Row - 1 Cells(StartRow + 1, 1).Resize(6, 1).EntireRow.Insert For i = 1 To 6 Cells(StartRow + i, 9).Resize(1, 6).Merge Next i LastRow = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False With Range(Cells(StartRow, 2), Cells(LastRow, 2)) .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _ Step:=1, Trend:=False End With Application.ScreenUpdating = True End If End Sub- Hide quoted text - - Show quoted text - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Slow code when used as VBA code instead of macro (copying visible columns) | Excel Programming | |||
Can I use code/macro to change code/macro in an existing file? | Excel Programming | |||
Macro code to remove a macro after it executes | Excel Programming | |||
read macro code by vb code | Excel Programming | |||
do anybody have a sample code for executing excel macro from vb code?<eom | Excel Programming |