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

Macro que elimina valor ingresado en un formulario de un rango seleccionado

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro que elimina valor ingresado en un formulario de un rango seleccionado

Mensaje por kruciare el Miér Mayo 02, 2012 11:34 pm

Hola, nuevamente vengo a solicitar su ayuda con un código que encontré. Que hace el código me permite eliminar un valor numérico de un rango seleccionado funciona bien en office 2003 pero yo uso 2010 y no se como modificar este código para que funcione en mi excel 2010.
como les comente esta macro funciona solo para valores numéricos no se si pueden codificarla para que también funcione con palabras texto.
desde ya muchas gracias.
y por ultimo el que me puedan orientar el porque las macros en 2007 y 2010 las referencias deben primero empezar con la palabra Dim
ya que los problemas me los da con las palabras (valor,inicio,i, ultimafila,etc..)
dejo el código gracias
Sub EliminarValores()

''Elimina las filas de los registros iguales al valor indicado

'Solicita el valor limite
valor = InputBox("Ingrese el valor limite" & Chr(10) & "(Valores menores, iguales o vacios se elimnaran)", "CRITERIO", 100) * 1
'Captura la dirección inicial
inicio = ActiveCell.Address
'Crea un punto de inicio
i = ActiveCell.Row
'Captura la ultima celda con valores en la columna actual
Cells(ActiveSheet.Rows.Count,ActiveCell.Column).Activate
ultimafila = Selection.End(xlUp).Row
'Vuelve al inicio
Range(inicio).Activate
ciclo:
'Ciclo
For i = i To ultimafila
If Cells(i,ActiveCell.Column) = valor Then
Cells(i, 1).EntireRow.Delete
ultimafila = ultimafila - 1
GoTo ciclo
End If
Next
End Sub
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 36
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: Macro que elimina valor ingresado en un formulario de un rango seleccionado

Mensaje por GalileoGali el Jue Mayo 03, 2012 7:32 am

kruciare: el objetivo de este foro es que todos aprendamos entre consulta y consulta. Creo que llegó la hora de que enfrentes manuales y tutoriales de VBA para Excel. La orientación general de este foro es la de ayudar en temas puntuales. Por ejemplo, podrias indicar en que sentencia del codigo se produce el desfase con Excel 2010??

Es correcto esto For i = i To ultimafila ?
Por que en el Input se agrega *1?
Esa operacion no permite capturar datos "no numéricos"
Se anuncia eliminar valores menores, en qué linea de código lo realiza?
y respecto de los vacíos, en que línea de código se produce?
Cuál es el propósito de eliminar valores menores cuando se trate de textos?
(las cadenas de texto son ordenables y por ende, comparables, pero me gustaría saber el propósito)

Estas y otras cuestiones, estarían claras (no digo las soluciones, sino su ubicación dentro del procedimiento) si el puesto sobre el tapete fuera un código elaborado por vos. Eso no quiere decir que no atendamos algun caso donde las piezas de codigo resulten empalmables o adaptables, pero cuando evidentemente esto forma parte de una elaboración y no de una mera recopilación.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1963
Edad : 62
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Macro para eliminar caracteres de texto, numéricos y símbolos

Mensaje por kruciare el Dom Mayo 27, 2012 8:08 pm

Estimado maestro Gali tome sus palabras y me puse a estudiar unos Tutoriales de VBA con lo cual pude crear algo como lo que necesitaba muchas gracias por el consejo y las muchas veces que me a ayudado con los problemas relacionados con esta área..

Código:
Sub Eliminar()
'Eliminar texto, numéricos y símbolos
    On Error Resume Next
    Dim c As Range
    Dim myString As String
    myString = InputBox("Introduzca carácter o una cadena a remover")
 
    For Each c In Selection
        c = Application.Substitute(c, myString, "")
    Next
 
End Sub
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 36
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: Macro que elimina valor ingresado en un formulario de un rango seleccionado

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.