Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 8
Default i need to record a macro to....

MAN! This is BS! I am an EE with some coding background and i cant
figure this out for my life. here is the code that i am using:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Column = 6 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(2, Target.Row + 1).Select

End If

If Target.Count 1 Then Exit Sub
If Target.Column = 7 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(13, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 8 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(24, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 9 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(35, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 10 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(46, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 11 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(57, Target.Row + 1).Select
End If

If Target.Count 1 Then Exit Sub
If Target.Column = 12 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(68, Target.Row + 1).Select
End If
If Target.Count 1 Then Exit Sub
If Target.Column = 13 And Target.Row 3 And Target.Row < 256 And
Target.Value = "F" Then
Worksheets("Test Results").Select
Worksheets("Test Results").Cells(77, Target.Row + 1).Select
End If

End Sub

I would like to insert a piece of code into each if statement to change
the target cell + the next 10 rows in that column to a red font. then
change the font back to black (or default) after the selection changes.

i have once again given my best shot and the best i can get (once i get
passed the runtime errors), is for nothing to happen.


Thanks yet again!

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

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
Record Macro and Edit Macro options disabled Huzza New Users to Excel 1 March 18th 09 03:55 PM
Record New Macro ju1eshart Setting up and Configuration of Excel 3 August 25th 06 04:21 PM
how to record new macro using vba bhavin vyas Excel Programming 0 February 16th 06 06:54 AM
Record Macro - Record custom user actions Sal[_4_] Excel Programming 1 December 23rd 04 03:18 PM
how to count/sum by function/macro to get the number of record to do copy/paste in macro tango Excel Programming 1 October 15th 04 01:16 PM


All times are GMT +1. The time now is 04:09 AM.

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

About Us

"It's about Microsoft Excel"