Macro eliminar decimales de columnas
Estimados, es un gusto saludarlos nuevamente. Por favor su ayuda con lo siguiente:
Tengo la siguiente macro que elimina espacios entre la columna A y J,
necesito modificar este código (o crear otro) de manera de que además entre las columnas K y Q elimine los decimales dejando solo numeros enteros.
Agrego macro inicial:
Set rango = Range("A1:J" & Range("A" & Rows.Count).End(xlUp).row)
For Each celda In rango
celda.Value = Trim(celda)
Next
Muchas gracias!
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Sub eliminar()
Set rango = Range("A1:J" & Range("A" & Rows.Count).End(xlUp).Row)
For Each celda In rango
celda.Value = Trim(celda)
Next
Set rango = Range("K1:Q" & Range("A" & Rows.Count).End(xlUp).Row)
For Each celda In rango
If IsNumeric(celda) And celda.Value <> "" Then
celda.Value = Int(celda)
End If
Next
End SubSaludos.Dante Amor
Si es lo que necesitas.
