Xin giúp code

[banhchuoichien]

Mình có vấn đề này nhờ các mem giúp với ạ?
Em có Range ("A1:A10") và Range("B2")
Em muốn mở vòng lặp For
If < B2 không thuộc "A1:A10" exit for >
( Giống code vlookup ( b2,A1:A10 ) = False )
Cảm ơn!

 

[CHAOQUAY]

Mình có vấn đề này nhờ các mem giúp với ạ?
Em có Range ("A1:A10") và Range("B2")
Em muốn mở vòng lặp For
If < B2 không thuộc "A1:A10" exit for >
( Giống code vlookup ( b2,A1:A10 ) = False )
Cảm ơn!

"If < B2 không thuộc "A1:A10" exit for >": Là exit vòng lặp nào

 

[banhchuoichien]

Ý mình là If < "B2" không thuộc "A1:A10" > then exit for

 

[CHAOQUAY]

Ý mình là If < "B2" không thuộc "A1:A10" > then exit for

Tốt nhất là bạn gửi mấy dòng code đó lên cho dễ phán

 

[HeSanbi]

Yêu cầu của bạn đây:

Dim R1 As Range, R2 As Range
Set R1 = Range("B2"): Set R2 = Range("A1:A10")
If Not R1.Parent Is R2.Parent  Then Exit For
If Application.Intersect(R1, R2) Is Nothing Then Exit For

 

[banhchuoichien]

For i = 2 To NoCus + 2 Step 1
Range("H1") = Range("N" & i)
If WorksheetFunction.CountIf(Sheets("HD IN").Range("$L$3:$L$22"), Sheets("HD IN").Range("N" & i)) = 0 Then Next i ( GOTO )
ElseIf Range("N" & i) = Empty Then
Exit For
ElseIf Range("H6") <= 15 Then
TONG = TONG + Range("F28").Value
ElseIf Range("H6") > 15 And Range("H6") <= 30 Then
TONG = TONG + Range("F60").Value
Else
TONG = TONG + Range("F92").Value
End If
Next i

Bác xử lý giúp bằng GOTO với ạ, em chưa rành vụ này

Bài đã được tự động gộp: 2/12/19

For i = 2 To NoCus + 2 Step 1
Range("H1") = Range("N" & i)
If WorksheetFunction.CountIf(Sheets("HD IN").Range("$L$3:$L$22"), Sheets("HD IN").Range("N" & i)) = 0 Then Next i ( GOTO )
ElseIf Range("N" & i) = Empty Then
Exit For
ElseIf Range("H6") <= 15 Then
TONG = TONG + Range("F28").Value
ElseIf Range("H6") > 15 And Range("H6") <= 30 Then
TONG = TONG + Range("F60").Value
Else
TONG = TONG + Range("F92").Value
End If
Next i

Bác xử lý giúp bằng GOTO với ạ, em chưa rành vụ này

 

[VetMini]

Bác xử lý giúp bằng GOTO với ạ, em chưa rành vụ này

Nhờ các bác sửa giúp em code này với ạ!

For i = 2 To NoCus + 2 Step 1 Range("H1") = Range("N" & i) If WorksheetFunction.CountIf(Sheets("HD IN").Range("$L$3:$L$22"), Sheets("HD IN").Range("N" & i)) = 0 Then Next i ( lỗi ở đây ạ ) ElseIf Range("N" & i) = Empty Then Exit For ElseIf Range("H6") 15 And Range("H6")

www.giaiphapexcel.com