Jump to content

Enrique_chuc

Members
  • Content Count

    10
  • Joined

  • Last visited

Posts posted by Enrique_chuc


  1. buenas tardes

    Les molesto con una pequeña duda, es algo simple para ustedes, pero a mi me esta dando dolor de cabez,

    por que cuando mando a imprimir cierta tabla (en este caso es una tabla que abarca como dos o 3 hojas), le doy vista previa y me sale que la segunda hoja solo tiene una celda, y en la tercera sigue la tabla.

    les adjunto el archivo, talvez a ustedes les salga bien, pero aqui cuando le quiero imprimir me sale ese problema, y es el unico archivo que me tira eso, en las demas tablas cuando las mando a imprimir no me pasa eso, tanto como la primera, segunda o tercera, salen con la pagina llena de la tabla y no solo una fila,

    les agredesco me puedan informar que estoy haciendo mal.

    gracias....

    X.zip


  2. buenas tardes

    solicito de su ayuda para adaptar la "MACRO2" que permite imprimir consecutivamente, lo adapte a la "MACRO1", en una pestaña hay datos y en la siguiente esta el formato en la cual al momento de imprimir agarra los datos de la pestaña anterior, los coloca donde se pide y se imprime, sin embargo quisiera que esto sea consecutivo, debido a que por ahora solo e logrado que imprimira solo una, y si yo necesitara imprimir mas de un dato tendria que imprimir uno y luego borrar e imprimir el otro, y de igual manera quise adaptarlo a "MACRO3" sin embargo solo me coloca los datos en una sola calumna de etiquetas.

    la unica macro que funciona al 100 es la "MACRO2" la cual quiero adaptar a las otras.

    cualquier ayuda que me puedan brindar se las agradeceria muchisimo.

    IMPRIMIR.rar


  3. Buen dia

    Me disculpo si no anexe la macro, pregunte desde mi cel y no tenia la macro a la mano, en la macro que envio solo se hay que precionar el boton de pegar y pega el dato a la base, pero como ya le habia comentado al igual que la macro inicial no paga comentarios.

    Le agradesco de ante mano las molestias que se toma para ayudarme.

    MACRO.rar


  4. Le agradesco mucho la ayuda, y si no es mucha molestia como seria del mismo verificador a la base, tengo una macro que complementa esta, tiene las mismas condiciones y su funcion es al contrario de esta, en vez de buscar y devolver el valor, busca y pega el dato puesto en el verificador, para pegar lo tengo puesto asi "dato.columns(2) = cells(a, 2).value" pero igual no me pega los comentarios, intente invertir la solucion que me dio pero no funciono asi, algun consejo que me pueda dar???


  5. Buenas tardes

    tengo una macro que tiene la misma funcion de buscarv pero sin formula,

    se coloca en la hoja "verificador" el codigo a buscar en la hoja "base", y pega en la hoja "verificador" el dato buscado, la macro funciona, sin embargo e notado que no se pegan los comentarios puestos en una celda, la macro funciona con "target.columns(2) = dato.columns(2)", la e modificado con "target.columns(2) = dato.columns(2).comment.text" sin embargo solo e conseguido que se pegue el comentario y lo que la celda traia en un pricipio desaparece y se pega en la celda lo que se ecribio como comentario.

    de antemano agradesco cualquier ayuda que me puedan brindar.

    MACRO.rar


  6. Buenas tardes

    Solicito de su apoyo para mi pequeño problema, tengo una macro que me busca el codigo puesto en la hoja "VERIFICADOR" y me dice en que hojas del libro se encuentra dicho dato, si trabaja como se debe, pero lo hace cuando son muchos codigos, cuando solo busco un codigo la macro se traba, esto es debido a que tiene un .End(xlDown), si yo le quito eso la macro funciona, pero solo para buscar un codigo, mi solucion es hacer dos macros, una para solo un codigo y otra para varios, pero quisiera saber si hay forma de modificarla para que haga las dos funciones y no tenga que hacer dos macros en el mismo libro.

    Sub BuscarCedula_Libro_GP()

    Application.ScreenUpdating = False

    Dim hoja As Worksheet

    Dim vc As Range

    With Range("A2").CurrentRegion

    .Offset(1, 4).Resize(.Rows.Count - 1, 3).ClearContents

    End With

    For Each hoja In Sheets

    If hoja.Name <> "VERIFICADOR" Then

    For Each cedula In Range("A3", _

    Range("A3").End(xlDown))

    Set vc = hoja.Columns("B").Find(What:=cedula, _

    LookIn:=xlValues, Lookat:=xlWhole)

    If vc Is Nothing Then GoTo ira:

    Cells(cedula.Row, "B") = Cells(cedula.Row, "B") & hoja.Name & " - "

    If Cells(cedula.Row, "B") <> "" Then

    End If

    ira:

    Next

    End If

    Next

    Set vc = Nothing

    Application.ScreenUpdating = True

    End Sub

    Codigo.xls

×
×
  • Create New...

Important Information

Privacy Policy