patel45
16-08-2009, 07:45
Ho una macro che confronta 2 colonne ed estrae le celle non uguali che su Excel funziona benissimo. Ho provato a trasferirla su OO con Option VBASupport 1 ma da errore. La macro è:
REM ***** BASIC *****
Option VBASupport 1
Option Explicit
Sub diversi()
Dim i, j As Long
Dim confronta As Variant
j = 3
For i = 3 To 50
confronta = Application.Match(Range("b" & i), Range("A3:A50"), 0)
If IsError(confronta) Then
Range("e" & j) = Range("b" & i)
j = j + 1
End If
Next i
End Sub
Come la traduco nel linguaggio basic di OO ? dove posso trovare supporto possibilmente in italiano ?
REM ***** BASIC *****
Option VBASupport 1
Option Explicit
Sub diversi()
Dim i, j As Long
Dim confronta As Variant
j = 3
For i = 3 To 50
confronta = Application.Match(Range("b" & i), Range("A3:A50"), 0)
If IsError(confronta) Then
Range("e" & j) = Range("b" & i)
j = j + 1
End If
Next i
End Sub
Come la traduco nel linguaggio basic di OO ? dove posso trovare supporto possibilmente in italiano ?