............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para borrar datos de una lista mayores al introducido por el usuario

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para borrar datos de una lista mayores al introducido por el usuario

Mensaje por sergio_madrid el Jue Nov 03, 2011 7:49 am

Hola buenas,

estoy haciendo una macro, que te pide un valor, y a partir de ese valor quiero que me haga un bucle en una columna de datos, para que sólo me deje en la columna los valores inferiores a él. No termino de compilarlo... me podría decir alguien mi fallo ?

Sub recortar_curva()

Dim caudal_lim As String
caudal_lim = InputBox("Introduzca caudal límite para la curva")
Dim j As Integer
Dim x As Integer

Do While 7 < j And j < 107
x = DATOS.Cells(j, 10)
If (x > caudal_lim) Then
DATOS.Cells(j, 10).Select
Selection.ClearContents

End If

Loop

End Sub

lo de j sería el número de fila, que empieza en el 7 y termina en el 106...

gracias !

sergio_madrid

Masculino Cantidad de envíos : 8
Edad : 27
Ciudad - Pais : España
Version de Excel : 2010
Fecha de inscripción : 25/10/2011

Volver arriba Ir abajo

Re: Macro para borrar datos de una lista mayores al introducido por el usuario

Mensaje por Cacho R el Jue Nov 03, 2011 11:57 am

Hola! Sergio. Podrías intentar algo así:

Código:
Sub recortar_curva2()
Dim caudal_lim As Double
caudal_lim = InputBox("Introduzca caudal límite para la curva")
ActiveSheet.AutoFilterMode = False
With Range("j6:j106")
  .AutoFilter Field:=1, Criteria1:="<" & caudal_lim
  .Offset(1).ClearContents
End With
ActiveSheet.AutoFilterMode = True
End Sub
Saludos, Cacho R.


Última edición por Cacho R el Jue Nov 03, 2011 3:48 pm, editado 1 vez (Razón : Para ajustar un detalle y medio...)
avatar
Cacho R
Moderador
Moderador

Masculino Cantidad de envíos : 210
Ciudad - Pais : Buenos Aires
Version de Excel : Desde Multiplan (pre-Excel) hasta 2010
Fecha de inscripción : 29/06/2011

Volver arriba Ir abajo

Re: Macro para borrar datos de una lista mayores al introducido por el usuario

Mensaje por sergio_madrid el Vie Nov 04, 2011 6:43 am

Hola !

Gracias Cacho R. por responder ! al final lo logré al rato de publicar, lo dejo aquí por si alguien lo necesita:

Sub recorte()
Dim caudal_lim As String
Dim j As Integer
Dim x As Integer

caudal_lim = InputBox("Introduzca caudal límite para la curva")
For j = 7 To 106
x = Hoja1.Cells(j, 10)
If x > caudal_lim Then
Hoja1.Cells(j, 10).Select
Selection.ClearContents
End If
Next j


End Sub

de 7 a 106 es por el numero de filas,

sergio_madrid

Masculino Cantidad de envíos : 8
Edad : 27
Ciudad - Pais : España
Version de Excel : 2010
Fecha de inscripción : 25/10/2011

Volver arriba Ir abajo

Re: Macro para borrar datos de una lista mayores al introducido por el usuario

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.