1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

Solucionado borrar ceros por la izquierda

Tema publicado en 'Macros y programación VBA' iniciado por pititor, 18 Jun 2010.

Estado del tema:
Cerrado para nuevas respuestas
  1. pititor

    pititor Usuario

    Registrado:
    18 Oct 2008
    Mensajes:
    181
    Me Gusta recibidos:
    0
    Hola a todos,

    Estoy intentando con una macro borrar 8 ceros por la izquierda en las celdas de una columna. El problema es que no todas las celdas contienen datos con ceros a la izquierda.

    Esto es un ejemplo de los datos que aparecen en la columna F. Como se puede observar hay celdas que tienen varios ceros por la izquierda y otras no, esto es debido a que cuando exporto el archivo de sap a excel los datos que empiezan por una letra no le coloca ceros pero si empieza por número le coloca 11 ceros. Lo que pretendo es eliminar 8 ceros a aquellas celdas que contengan ceros pero las celdas que no contengan ceros a la izquierda no eleimine caracteres.

    C4720015K
    C4720015K
    000000000007770210
    000000000007713478
    C5003892
    000000000007940011
    000000000007942569
    C5000020K
    C5003980
    C50031096
    C50031097
    C50031099
    C4895217K
    000000000007940003
  2. logroastur

    logroastur Incondicional de Ayuda Excel

    Registrado:
    10 Oct 2009
    Mensajes:
    2.531
    Me Gusta recibidos:
    297
    Buenas prueba a pasar las celdas a formato numero por lo que te eliminaria directamente los ceros de la izquierda sino puedes probar con la herramienta reemplazar colocando "000000000" con las comillas paa que lo reconozca como texto y en por lo deja sin cubrir

    un saludo
  3. logroastur

    logroastur Incondicional de Ayuda Excel

    Registrado:
    10 Oct 2009
    Mensajes:
    2.531
    Me Gusta recibidos:
    297
    Buenas revisando he visto que deseabas realizarlo con una macro puedes probar con el siguiente codigo

    PHP:
    Sub eliminarceros()
    Dim celda
    For Each celda In Range("A1:A" Range("A" Rows.Count).End(xlUp).Row)
    If 
    Left(celda.Value8) = "00000000" Then celda.Value Right(celda.ValueLen(celda.Value) - 8)
    Next celda
    End Sub
    un saludo
  4. pititor

    pititor Usuario

    Registrado:
    18 Oct 2008
    Mensajes:
    181
    Me Gusta recibidos:
    0
    Hola logroastur,

    Funciona correctamente la macro.

    Gracias por tu colaboración.
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página