Visual Basic para Aplicaciones - macro excel 97

Life is soft - evento anual de software empresarial
 
Vista:

macro excel 97

Publicado por Julio (47 intervenciones) el 15/02/2003 01:22:27
Hola,mi pregunta es como puedo hacer en una macro para que revise la cantidad de renglones que yo le diga y en la columna que yo le diga y todo lo que encuentre en esa columna que no sea numerico lo borre?
necesito que borre todas las letras o espacios vacios que existan en esa columna.
gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:macro excel 97

Publicado por J.Fernando (39 intervenciones) el 19/02/2003 17:08:30
Esto puede ser util

Private Sub Borrar()
FilaDesde = InputBox("Entre el numero de fila desde el cual quiere revisar", "Fila Inicial")
FilaHasta = InputBox("Entre el numero de fila hasta el cual quiere revisar", "Fila Final")
FilaDesde = Val(FilaDesde)
FilaHasta = Val(FilaHasta)
Columna = InputBox("Entre el numero de su columna (A=1, _
B=2, C=3....)", "Columna")
Columna = Val(Columna)
Control = 0
For Fila = FilaDesde To FilaHasta
Control = Control + 1
If IsNumeric(Sheet1.Cells(Fila, Columna)) = False _
Or IsEmpty(Sheet1.Cells(Fila, Columna)) = True Then
'Aqui eliges si quieres borrar toda la fila o solo la celda en cuestion
'borrar toda la fila
'Sheet1.Cells(Fila, Columna).Select
'Selection.EntireRow.Delete
'borrar solo la celda
Sheet1.Cells(Fila, Columna).Select
Selection.Delete Shift:=xlUp
Fila = Fila - 1
End If
If Control > FilaHasta Then
Exit For
End If
Next Fila
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar