Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
object variable or with block variable not set
hi my problem is with bal.value, a message box appears tilling me objec variable or with block variable not set............the rest of hte cod works fine could u pls tell me why is this..........Thank u Code: PHP code ------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim T As Range Dim bal As Range Set T = Range("I5:BN1000") bal.Value = Range("F" & Target.Row) If Not Application.Intersect(Target, T) Is Nothing Then If ActiveSheet.Range("F" & Target.Row).Value < "" And _ ActiveSheet.Range("F" & Target.Row).Value < 0 Then Beep MsgBox "imbalanced" & bal End If End If End Su ------------------- all helps r appreciated :) yours -- helmekk ----------------------------------------------------------------------- helmekki's Profile: http://www.excelforum.com/member.php...nfo&userid=693 View this thread: http://www.excelforum.com/showthread.php?threadid=26987 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
object variable or with block variable not set
It looks like you want bal to be a simple variable:
Private Sub Worksheet_Change(ByVal Target As Range) Dim T As Range Dim bal As Variant 'what's in column F of that row? Set T = Range("I5:BN1000") bal = Range("F" & Target.Row).Value If Not Application.Intersect(Target, T) Is Nothing Then If bal < "" And _ bal < 0 Then Beep MsgBox "imbalanced" & bal End If End If End Sub bal was already equal to range("F" & target.row).value helmekki wrote: hi my problem is with bal.value, a message box appears tilling me object variable or with block variable not set............the rest of hte code works fine could u pls tell me why is this..........Thank u Code: Formula: -------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim T As Range Dim bal As Range Set T = Range("I5:BN1000") bal.Value = Range("F" & Target.Row) If Not Application.Intersect(Target, T) Is Nothing Then If ActiveSheet.Range("F" & Target.Row).Value < "" And _ ActiveSheet.Range("F" & Target.Row).Value < 0 Then Beep MsgBox "imbalanced" & bal End If End If End Sub -------------------- all helps r appreciated :) yours h -- helmekki ------------------------------------------------------------------------ helmekki's Profile: http://www.excelforum.com/member.php...fo&userid=6939 View this thread: http://www.excelforum.com/showthread...hreadid=269871 -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime Error '91' Object variable or With block variable not set | Excel Discussion (Misc queries) | |||
Cells.Find error Object variable or With block variable not set | Excel Programming | |||
QueryTables Object Variable or With Block Variable Not Set | Excel Programming | |||
Pivot Table - Object variable or with block variable not set? | Excel Programming | |||
Error 91 - Object variable with block variable not set | Excel Programming |