View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default Syntax problem with" intersect"

Hi
this looks like a wrong syntac. I assume you want to test if the
changed range target is within A1:A25, A29:A48 or A52:A94

try something like the following:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim test_range
set
test_range=union(me.range("A1:A25"),me.range("A29: A45"),me.range("A52:A
94"))
if not intersect(target,test_range) is nothing then
'now your code
end sub


--
Regards
Frank Kabel
Frankfurt, Germany


Imbecill wrote:
Hello All, I hope someone is still active despite the weekend...

I get a error message " The argument is not "free of choice" (or what
it will be like in an english version) and the .Intersect. command
highlighted. (sorry about the double "not" in sentence "Not .. Is
Nothing...)

Here is a extract of the code:

Private Sub Worksheet_Change(ByVal Target As Range)
...
ActRow = Target.Row
ActCol = Target.Column
If Not ActiveSheet.Intersect.Range("A6:A25, A29:A48, A52:A94") Is
Nothing Then ' HERE !!!
If Application.Range(Cells(ActRow, ActCol)).Value = "" Then
If Application.Range(Cells(ActRow, ActCol + 1)).Value =
"" Then End If
If Application.Range(Cells(ActRow, ActCol + 1)).Value <
"" Then MsgBox "DuhmDiduhm DaDiDo"
End If
End If
If Not Application.Intersect.Range("B6:B25, B29:B48, B52:B94") Is
Nothing Then
If Application.Range(Cells(ActRow, ActCol)).Value = "" Then
If Application.Range(Cells(ActRow, ActCol - 1)).Value =
"" Then End If
If Application.Range(Cells(ActRow, ActCol - 1)).Value <
"" Then Application.Range(Cells(ActRow, ActCol -
1)).Value = 0 End If

Any suggestions? What is wrong with Intersect syntax?

/regards