Jump to content

Recommended Posts

Buenas tardes, necesito vuestra ayuda.

Tengo una columna donde hay valores numericos y ceros (de o3 a o100). Necesito que empezando de la celda o3, se copie ese valor a la celda A1, despues la o4 se copie a la A1 de nuevo,asi sucesivamente hasta la o100.Lo unico que debe saltarse los ceros. He intentado con la grabadora de macros, pero se hace muy largo.Supongo que sera con un bucle, pero no se hacerlo.

Adjunto el codigo de ejemplo.

Gracias

 Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[2]C[14]" 'copio valor o3
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[3]C[14]" 'copio valor o4
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R[4]C[14]" 'copio valor 05
    Range("A2").Select

Edited by joseppp
Link to post
Share on other sites
Sub macro()

    Dim cont, ufh2 As Long
    With Hoja2
        ufh2 = .Range("O" & .Rows.Count).End(xlUp).Row
        
        For cont = 3 To ufh2
            If .Cells(cont, 15) <> 0 Then
                .Range("A1") = .Cells(cont, 15)
            End If
        Next cont
    End With
    
End Sub

Prueba el adjunto y comenta, pulsa flecha azul

Calendario1 prueba 1.xlsm

Edited by JSDJSD
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • Hola estimados amigos de ayuda excel quisiera pedirles de favor me ayuden con el siguiente problema: Tengo en la celda a1 de la hoja 1 un texto que puede ser mas largo eso no importa, he colocado un botón con un código que al presionar separa el texto en varias líneas pero el problema es que sustituye el contenido de la celda a1 de la hoja 1, me interesaría que la celda a1 de la hoja 1 quede intacta con la información que se muestra inicialmente y más bien que al presionar el botón del formulario se pueda copiar el contenido a la hoja 2 ahí si me interesa que se separe en líneas como actualmente lo hace, el código trabaja, pero, lo que quiero es que NO sustituya el código de la hoja1 esta información debe mantenerse ya que en el programa que trabajo actualmente se extrae esta información a un formulario, todo este texto, y ustedes comprenderán que al separarse me va a leer solo la primera linea y eso es lo que no quiero, por el contrario el texto separado en lineas necesito que vaya a la hoja2 ya que posteriormente colocare un botón para poder imprimir esa información separada en lineas considerando un rango determinado de celdas que podrian ser desde la a1:a20 , les adjunto el ejemplo para que por favor me colaboren...muchas gracias. Ayuda Copiar texto en Hoja 2.xlsm
    • te parece si adjuntas (una copia RE-DU-CI-DA de) TU modelo (EN archivo "de excel") ? solo asegura que se reproduce el comportamiento que describes
    • Ya los revise es por por que lo oculto el robbin, con otros codigos de vista de impresión suceden lo mismo.
    • la prueba hecha es con la cinta oculta y ejecutando (solamente)... y ya sea que pulse "atrás" o "esc" o mande la impresión, al regresar a la interfaz de usuario la cinta sigue oculta probablemente sea por otras instrucciones en otras partes de tus códigos ?
    • Ni cuenta me di que estaba en Word pero el problema es en Excel.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy