Lỗi Intersect VBA (1 người xem)

[gianghoxaotra]

Hi cả nhà,
Mình có 1 đoạn code sau nhờ AE sửa giúp, khi chạy đến intersect nó báo lỗi:
run time error 1004 method intersect of object _global failed

Code mình như sau:
Sub Select_Bin()
Dim colnum As Integer
Set ws = Sheet2
Sheet2.Range("G2").Select
If Intersect(ActiveCell, Range("Var_Convert")) Is Nothing Then
Sheet9.Range("A1").Select
Else
Sheet9.Range("A2").Select
End if
End sub

 

[ChanhTQ@]

Nên đổi lại, là vầy:

If Not Intersect(ActiveCell, Range("Var_Convert")) Is Nothing Then
   Sheet9.Range("A2").Select
Else
   Sheet9.Range("A1").Select
End if

Thứ 2: Xem lại vùng gán tên Range("Var_Convert") đang ở đâu trên thế gian, hay nó đang ở cõi hư vô!

 

[gianghoxaotra]

Nên đổi lại, là vầy:

If Not Intersect(ActiveCell, Range("Var_Convert")) Is Nothing Then
   Sheet9.Range("A2").Select
Else
   Sheet9.Range("A1").Select
End if

Thứ 2: Xem lại vùng gán tên Range("Var_Convert") đang ở đâu trên thế gian, hay nó đang ở cõi hư vô!

Tks bạn,
Active cell ở sheet 2, còn Var_Convert ở sheet 9.
Đổi lại như bạn vẫn bị lỗi như cũ. Hic

 

[SA_DQ]

(/ậy thì chỉ còn cách giả lập file & đưa lên thôi.

 

[HieuCD]

Tks bạn,
Active cell ở sheet 2, còn Var_Convert ở sheet 9.
Đổi lại như bạn vẫn bị lỗi như cũ. Hic

So sánh Cells ở Việt nam với trời tây không bị lỗi mới lạ
Thử code

Sub Test()
If Not Intersect(ActiveCell, Range(Range("Var_Convert").Address)) Is Nothing Then
   Sheet9.Select
   Range("A2").Select
Else
   Sheet9.Select
   Range("A1").Select
End If
End Sub

 

[ndu96081631]

So sánh Cells ở Việt nam với trời tây không bị lỗi mới lạ
Thử code

Sub Test()
If Not Intersect(ActiveCell, Range(Range("Var_Convert").Address)) Is Nothing Then
   Sheet9.Select
   Range("A2").Select
Else
   Sheet9.Select
   Range("A1").Select
End If
End Sub

Thay vì 2 lần Select, có thể dùng Application.Goto