Hola cordiales saludos a todos,
Me encuentro trabajando con Excel y vba, con la grabadora de Macros hice lo siguiente:
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=24,""REVIEW"",IF(RC[-1]=25,""REVIEW"",IF(RC[-1]=50,""REVIEW"",IF(RC[-1]=75,""REVIEW"",IF(RC[-1]=100,""REVIEW"",""DELETE"")))))"
Lo que pretendo hacer es la columna "L" tiene "X" cantidad de registros que obtengo de otro libro Excel, en esa columna hay valores numéricos y vacíos.
Lo que hice fue meter el IIF arriba posteado y si en la columna hay ciertos valores: 24, 25, 50, 75, 100 entonces agrego en la columna "M" uel texto "REVIEW" si no entonces agrego "DELETE" para posteriormente meter un filtro y eliminar todos aquellos que en la columna "M" digan DELETE.
Lo que quiero hacer es pasar ese código a un ciclo, pero en principios como le indico al for posicionarte en la columna "L,2" y que comience el ciclo.
Dim UltimaFila As Long
'Detecta la última fila del rango de datos en la hoja activa
Range("L2").Select
UltimaFila = Cells(Rows.Count, "L").End(xlUp).Row
For i = 2 To 65536 'Obtengo el error 6 overflow
Select Case Cells(i, 2).Value
Case Is = 24
Cells(i, 3).Value = "REVIEW"
Case Is = 25
Cells(i, 3).Value = "REVIEW"
Case Is = 50
Cells(i, 3).Value = "REVIEW"
Case Is = 75
Cells(i, 3).Value = "REVIEW"
Case Is = 100
Cells(i, 3).Value = "REVIEW"
End Select
Next i
Ya encontre como posicionarme en la columna que requiero y obtener la ultima fila de la columna. Pero ahora obtengo el siguiente error:
Run-time-error 6 Overflow
A que se debe el error?
Espero me puedan ayudar.
DS