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

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