Macro Creation

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I currently have code in VB to position me to the next cell row (1) after i
reach Row 10 in any given cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row = 11 Then

Target.Offset(1 - Target.Row, 1).Select

End If

End Sub


How do I also incorporate a Ctrl+Shift+J to jump to the next cell row(1) if
I want to manually do it before reaching Row 10 in any cell?

Your help is much appreciated.
 
Sub Row1()
Application.Goto Cells(1, ActiveCell.Column)
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Do I have this as another Sub under my VB code in the work sheet or does this
get included in my Macro? Sorry for the questions.

Sub MyMacro()

' MyMacro Macro
' Macro recorded 7/28/2005 by markl
'
' Keyboard Shortcut: Ctrl+Shift+J
'
End Sub

Sub Row1()
Application.Goto Cells(1, ActiveCell.Column)
End Sub
 
No just put that code in myMacro.

--

HTH

RP
(remove nothere from the email address if mailing direct)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Worksheet_change with 2 functions to insert date and hyperlink window 0
Excel How to run multiple Private Sub Worksheet_Change(ByVal Target As Range) 0
Object required??? What object? 8
Two variables for Target.Value 5
sort and delete rows of information 4
VB Coding 1
Format using VBA not activating when needed 4
Format new rows. 2

Back
Top