Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforeDoubleClick Event not working
I have this BeforeDoubleClick event, below, that I am trying to run.
Everything was working fine yesterday now, it just jumps from the "If" to the "End If" statements. I can't figure out what's going on. Any ideas? Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim errorWS As Worksheet, siteWS As Worksheet Dim i As Integer, rw As Integer Set siteWS = Worksheets("Site Milestone Dates") Set errorWS = Worksheets("Error_MarketList") errorWS_lastRow = errorWS.Range("A65536").End(xlUp).Row If Target.Address() = "$A$5" Or Target.Address() <= "$A$" & errorWS_lastRow Then Application.EnableEvents = False Application.ScreenUpdating = False siteWS.Range("C4").Value = Target.Value siteWS.Range("E4").Value = UCase(Target.Offset(0, 1).Value) rw = 7 For i = 2 To 23 Step 2 siteWS.Range("E" & rw).Value = Target.Offset(0, i).Value siteWS.Range("G" & rw).Value = Target.Offset(0, i + 1).Value rw = rw + 2 Next i rw = 7 For i = 24 To 45 Step 2 siteWS.Range("M" & rw).Value = Target.Offset(0, i).Value siteWS.Range("O" & rw).Value = Target.Offset(0, i + 1).Value rw = rw + 2 Next i Application.EnableEvents = True Application.ScreenUpdating = True End If siteWS.Select End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help With BeforeDoubleClick | Excel Programming | |||
BeforeDoubleClick | Excel Programming | |||
i want to know about "beforedoubleclick" event | Excel Programming | |||
BeforeDoubleClick Cancel=True not working | Excel Programming |