Macro que recorra una planilla...
Hoy les traigo una propuesta un poco complicada, o al menos para mi.
Trabajo con una planilla algo extensa que es mensual, en la que mes a mes cargo el impuesto de una persona, los valores negativos es la deuda y los positivos son los créditos que posee.
Lo que ando buscando es una macro que recorra toda la planilla en busca de los números negativos, y una vez ubicados me cree dos variables de búsqueda, el CUIT del contribuyente y la fecha (o mes en el que se encuentra), ya que la fecha de vencimiento varia por fecha obviamente pero también por terminación de CUIT
1 Respuesta
No dejaste ninguna idea del diseño de tu tabla, ubicación de los campos a evaluar, ni donde dejar las variables.
Así que te dejo una macro claramente explicada para que tomes la idea y ajustes referencias a tu modelo.
Se recorre la col con posibles valores negativos (imagino col E), hasta el fin de datos según col A.
Si el valor es negativo se te envía un mensaje indicando en qué fila se encuentra y coloca en tabla auxiliar (col T:V) los datos de col A:B imaginando que allí puede estar el Cuit y la fecha y el nro de fila encontrada.
Sub val_negativos()
'x Elsamatilde
'se recorre la col E (valores negativos) hasta el fin de rango que indica la col A
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
ini = 1 'fila de tabla auxiliar donde se mostrarán los datos encontrados
'si es un valor negativo envía mensaje y guarda datos
If Range("E" & i) < 0 Then
MsgBox "Se encontró valor negativo en fila " & i
'guarda datos relacionados en otra tabla
Range("T" & ini) = Range("A" & i)
Range("U" & ini) = Range("B" & i)
Range("V" & ini) = i
i = i + 1
End If
Next i
End SubHechas las aclaraciones utiliza el código para adaptarlo a tu modelo. Si luego necesitas algunos ajustes puedes dejar nueva consulta en el tablón con todas las aclaraciones del caso.
