macro para eliminar ciertos digitos en una columna

[yonigrinwod]

Si tengo estos datos en la columna D

1000210240
1000004205
1000004208
1000012070
1000012094
1000012096
1000012097
1000012305
1000012940
1000012942
1000012944
1000012950
1000012956

como los puedo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

hola, =EXTRAE(A1;4;100)

 

[galileogali]

o tal vez

=EXTRAE(A1;2;256)+0

https://foro.todoexcel.com/

 

[Adrian]

Muy Buena Gali, cero a la izquierda no vale y sumás, bueno de ahí pongo esta opción (la primera falla)
=VALOR(EXTRAE(A1;4;100))

 

[yonigrinwod]

y con macro no se puede hacer?

 

[Adrian]

Voy por lo aportado por Gali, con una función:
Function QUITAR(Valor)
QUITAR = Mid(Valor, 2, 256) + 0
End Function

Con una sub rutina

Sub QUITAR2()
On Error GoTo x
Dim Rango As Range, Celda As...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Hola:

Voto por la UDF de Adrián, pero yo he hecho esto:

Sub Procesar()
  For Each celda In Selection
     celda.Value = CDbl(Mid(celda.Value, 2))
  Next
End Sub

Saludos

 

[yonigrinwod]

muchas gracias pero se me acopla una mas de este tipo

Sub Procesar()
For Each Celda In Selection
Celda.Value = CDbl(Mid(Celda.Value, 2))
Next
End Sub

el unico problema es que solo...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Me parce lo que esta pasando es que no seleccionas todo el rango, fijate que la macro "dice":

Sub Procesar()
For Each Celda In Selection
Celda.Value = CDbl(Mid(Celda.Value, 2))
Next
End...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[yonigrinwod]

me pone en amarillo esta parte

Celda.Value = CDbl(Mid(Celda.Value, 2))

y si seleccioo todo el rango

cuando selecciono una sola celda si me funciona

 

[Adrian]

Desconcertado. ¿? Prueba esto, agregué una declaración.
Sub Procesar()
Dim Celda As Range
For Each Celda In Selection
Celda.Value = CDbl(Mid(Celda.Value, 2))
Next
End Sub

 

[yonigrinwod]

me sigue modificando solo la celda en la que estoy ubicado

 

[Adrian]

Ya no sé que decirte, algo mal hacés y no se que, ni idea, pruebo con seleccionar el rango por código:
Sub Procesar()
Dim Celda As Range
Hoja1.Range("A1:A13").Select
For Each Celda In...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[yonigrinwod]

te anexo el archivo para que corras la macro y veas que estoy haciendo mal

gracias

 

[Adrian]

Me regunto donde ponés la macro? el archivo que me das no tenía la macro, la puse, la hice correr y todo de 10!
Ah, otra la extención del archivo que ponés es xlsx y debe ser xlsm habilitado para...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

"quien pregunta por Pedro, tal vez no sepa bien donde está pero al menos debería saber quien es Pedro para reconocerlo cuando llegue"
(extraido de la otra parte inactiva de mi cerebro que no...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[yonigrinwod]

ok dejame poner eso de la extension

se me olvida eso de la nueva version 2007

 

[yonigrinwod]

ok de casualidad elegi solo el rango y me quito los unos y los ceros si funciona con rango

mi pregunta es si lo puedo hacer con toda la columna aunque no tengan valores algunas celdas

ya que no...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

pero no lo probaste? Antes de preguntar lo hubieses probado y si, si funciona, ya más no puedo hacer.

 

[yonigrinwod]

ok no te preocupes ya me quedo bien

no se que me estaba pasando

muchas gracias por tu tiempo