RETURN TO C

[eternal_cat via OfficeKB.com]

CAN SOMEONE SLAP ME SOME CODE THAT ALLOWS ME TO RETURN TO COLUMN C ON THE
NEXT ROW WHENEVER I PRESS ENTER?

THANKS!!!

 

[damorrison]

I think you are out of luck with that one, how about using an event,
like worksheet change.
Private Sub Worksheet_Change(ByVal Target As Range)
'enter your code here
End Sub
record a macro in relative mode,
place your cell where you want to start the macro and then record the
macro for example
ActiveCell.Offset(1, -3).Range("A1").Select

this code starts at F column and goes back 3 and down one, you can
insert this into the the code
Private Sub Worksheet_Change(ByVal Target As Range)

ActiveCell.Offset(1, -3).Range("A1").Select
End Sub

Now to set the range for this to work only in the F column
If Union(Range("$F:$F"), Target).Address = Range("$F:$F").Address Then
enter this code at the beginning like this:



Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Range("$F:$F"), Target).Address = Range("$F:$F").Address Then
ActiveCell.Offset(1, -3).Range("A1").Select
End If
End Sub


right click on the sheet tab and select worksheet from the dropdown
menu that says general
Copy and paste the above code
you can change the code or add another code after 'end if' if you
wanted another worksheet_change event
Dave

 

[eternal_cat via OfficeKB.com]

UMM, WHAT?

I think you are out of luck with that one, how about using an event,
like worksheet change.
Private Sub Worksheet_Change(ByVal Target As Range)
'enter your code here
End Sub
record a macro in relative mode,
place your cell where you want to start the macro and then record the
macro for example
ActiveCell.Offset(1, -3).Range("A1").Select

this code starts at F column and goes back 3 and down one, you can
insert this into the the code
Private Sub Worksheet_Change(ByVal Target As Range)

ActiveCell.Offset(1, -3).Range("A1").Select
End Sub

Now to set the range for this to work only in the F column
If Union(Range("$F:$F"), Target).Address = Range("$F:$F").Address Then
enter this code at the beginning like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Range("$F:$F"), Target).Address = Range("$F:$F").Address Then
ActiveCell.Offset(1, -3).Range("A1").Select
End If
End Sub

right click on the sheet tab and select worksheet from the dropdown
menu that says general
Copy and paste the above code
you can change the code or add another code after 'end if' if you
wanted another worksheet_change event
Dave

 

[damorrison]

Which part didn't you get?
copy and paste this into your worksheet code, adjust it so it works for
your situation
Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Range("$F:$F"), Target).Address = Range("$F:$F").Address Then
ActiveCell.Offset(1, -3).Range("A1").Select
End If
End Sub

 

[eternal_cat via OfficeKB.com]

tHAT DIDN'T Seem TO haVE AnY EffECt!!

KAt

Which part didn't you get?
copy and paste this into your worksheet code, adjust it so it works for
your situation
Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Range("$F:$F"), Target).Address = Range("$F:$F").Address Then
ActiveCell.Offset(1, -3).Range("A1").Select
End If
End Sub

 

[damorrison]

Lets see your code. Are you familiar with VBA?

 

[eternal_cat via OfficeKB.com]

Lets see your code. Are you familiar with VBA?

No I am not familiar with VBA. This is my code.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row + 1, 3).Select
End Sub

 

[damorrison]

"CAN SOMEONE SLAP ME SOME CODE THAT ALLOWS ME TO RETURN TO COLUMN C ON
THE
NEXT ROW WHENEVER I PRESS ENTER? "
This was your original post

your code:
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row + 1, 3).Select
End Sub

Code I gave you:

Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Range("$F:$F"), Target).Address = Range("$F:$F").Address Then
ActiveCell.Offset(1, -3).Range("A1").Select
End If
End Sub
Adjust the ranges that work for you

 

[eternal_cat via OfficeKB.com]

Ok, step by step, what does that code do? I don't know what to adjust. So far
there has been no effect.

 

[eternal_cat via OfficeKB.com]

oK, now I realize what your code does. unfortunately what I wanted was a code
to return me to column on the next row from whichever column I happen to be
on. Whereas this code seems to allow me to pick one row only?

 

[damorrison]

Give this a try,

Private Sub Worksheet_Change(ByVal Target As Range)
Range ("C1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
End If
End Sub
That should work, I am on an Island in the Pacific Right now and the
computer here doesn't have excel

 

[eternal_cat via OfficeKB.com]

i SEE. no that did not work, either. Where can I learn of this VBA that you
speak of?

 

[Norman Jones]

Hi Eternal_Cat

Where can I learn of this VBA that you speak of?

See David McRitchie's introductory notes at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

See also David's Tutorials page at:

http://www.mvps.org/dmcritchie/excel/excel.htm#tutorials

The VBA tutorials appear just below the half way point of that page.

Consider, also, purchasing a book: one that might serve your purpose, and
which receives frequent recommendation in the NG, is
John Walkenbach's 'Excel VBA Programming For Dummies':

http://www.j-walk.com/ss/books/bookxl27.htm