LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 26
Default End If without Block If Error Help

I have this code and keep getting the error, ..I have notated where
the error hits, can someone help me out? Basically, when a value is
selected from a dropdown on a sheet, values are filled in to assigned
cells based on the dropdown selection.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rOldCell As Range
If Not rOldCell Is Nothing Then
If Not Intersect(rOldCell, Range("I2")) Is Nothing Then
If Range("I2").Value Like "SPOKANE" Then _
Range("C32").Value =
Sheets("ERRORREPORT").Range("B22").Value
Range("E32").Value =
Sheets("ERRORREPORT").Range("C22").Value
Range("G32").Value =
Sheets("ERRORREPORT").Range("D22").Value
Range("I32").Value =
Sheets("ERRORREPORT").Range("E22").Value
Range("K32").Value =
Sheets("ERRORREPORT").Range("F22").Value
Range("M32").Value =
Sheets("ERRORREPORT").Range("G22").Value
Range("O32").Value =
Sheets("ERRORREPORT").Range("H22").Value
Range("Q32").Value =
Sheets("ERRORREPORT").Range("I22").Value
Range("S32").Value =
Sheets("ERRORREPORT").Range("J22").Value
Range("V32").Value =
Sheets("ERRORREPORT").Range("K22").Value
Range("X32").Value =
Sheets("ERRORREPORT").Range("L22").Value
Range("Z32").Value =
Sheets("ERRORREPORT").Range("M22").Value
Range("AB32").Value =
Sheets("ERRORREPORT").Range("N22").Value
Range("AA11").Value =
Sheets("ERRORREPORT").Range("O22").Value
Range("AA12").Value =
Sheets("ERRORREPORT").Range("P22").Value
Range("AA13").Value =
Sheets("ERRORREPORT").Range("Q22").Value
End If
If Range("I2").Value Like "OPPORTUNITY" Then _
Range("C32").Value =
Sheets("ERRORREPORT").Range("B23").Value
Range("E32").Value =
Sheets("ERRORREPORT").Range("C23").Value
Range("G32").Value =
Sheets("ERRORREPORT").Range("D23").Value
Range("I32").Value =
Sheets("ERRORREPORT").Range("E23").Value
Range("K32").Value =
Sheets("ERRORREPORT").Range("F23").Value
Range("M32").Value =
Sheets("ERRORREPORT").Range("G23").Value
Range("O32").Value =
Sheets("ERRORREPORT").Range("H23").Value
Range("Q32").Value =
Sheets("ERRORREPORT").Range("I23").Value
Range("S32").Value =
Sheets("ERRORREPORT").Range("J23").Value
Range("V32").Value =
Sheets("ERRORREPORT").Range("K23").Value
Range("X32").Value =
Sheets("ERRORREPORT").Range("L23").Value
Range("Z32").Value =
Sheets("ERRORREPORT").Range("M23").Value
Range("AB32").Value =
Sheets("ERRORREPORT").Range("N23").Value
Range("AA11").Value =
Sheets("ERRORREPORT").Range("O23").Value
Range("AA12").Value =
Sheets("ERRORREPORT").Range("P23").Value
Range("AA13").Value =
Sheets("ERRORREPORT").Range("Q23").Value
End If
End If<<<<<----Error Hits Here
End If
Set rOldCell = Target
End Sub

 
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
Compile error: End If without block IF Casey Excel Programming 1 March 28th 07 03:05 AM
Compile error: End If without block IF Stefi Excel Programming 1 March 28th 07 01:09 AM
VBA error - End If without Block If Jane Excel Worksheet Functions 2 December 6th 05 06:00 PM
Error - End If Without Block Gauthier[_2_] Excel Programming 6 September 26th 04 05:14 AM
Error 91, Object var or With block not set Walter Excel Programming 2 August 24th 04 12:37 AM


All times are GMT +1. The time now is 03:08 PM.

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

About Us

"It's about Microsoft Excel"