Opción para pegar antes de habiltar macro

Tengo el siguiente código el cual me copia y pega información de la hoja1 ala hoja 2

El cual es el siguiente:

 Sub MACOR()On Error Resume NextApplication.ScreenUpdating = FalseRange("a1:d1000" & Range("a65536:d65536").End(xlUp).Row).SelectSelection.CopySheets("Hoja2").ActivateCells(1, Range("iv4").End(xlToLeft).Column + 1).SelectActiveSheet.Paste = xlPasteFormulasActiveSheet.PasteActiveSheet.Paste = xlPasteFormulasApplication.CutCopyMode = FalseApplication.ScreenUpdating = TrueEnd Sub

entonces lo que necesito es que si en A1 pusiera Hoja2 este me pegase la informacion de la hoja1 en la hoja2..

Si en A1 pongo hoja3 los datos de la hoja1 me lo pegase en ese orden en la hoja3

Y así sucesivamente con otras hojas...

O si no se pudiese entonces algo así que me salga un imputbox que me pregunte donde lo quiero pegar y yo solo ponga el nombre de mi hoja...

1 Respuesta

Respuesta
1

Con la siguiente macro, tomas el nombre de la celda A1

Sub MACOR()
    On Error Resume Next
    Application.ScreenUpdating = False
    Range("a1:d1000" & Range("a65536:d65536").End(xlUp).Row).Select
    Selection.Copy
    hoja = Range("A1")
    existe = False
    For Each h In Sheets
        If h.Name = hoja Then
            existe = True
            Exit For
        End If
    Next
    If existe Then
        Sheets(hoja).Activate
        Cells(1, Range("iv4").End(xlToLeft).Column + 1).Select
        ActiveSheet.Paste = xlPasteFormulas
        ActiveSheet.Paste
        ActiveSheet.Paste = xlPasteFormulas
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
    Else
        MsgBox "No existe la hoja: " & Range("A1"), vbInformation
    End If
End Sub

Con la siguiente macro le puedes poner el nombre de la hoja en un inputbox

Sub macro2()
    On Error Resume Next
    hoja = InputBox("Escribe el nombre de la hoja")
    If hoja = "" Then Exit Sub
    existe = False
    For Each h In Sheets
        If UCase(h.Name) = UCase(hoja) Then
            existe = True
            Exit For
        End If
    Next
    If existe Then
        Application.ScreenUpdating = False
        Range("a1:d1000" & Range("a65536:d65536").End(xlUp).Row).Select
        Selection.Copy
        Sheets(hoja).Activate
        Cells(1, Range("iv4").End(xlToLeft).Column + 1).Select
        ActiveSheet.Paste = xlPasteFormulas
        ActiveSheet.Paste
        ActiveSheet.Paste = xlPasteFormulas
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
    Else
        MsgBox "No existe la hoja: " & Range("A1"), vbInformation
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar rango de celdas de una hoja a otra de acuerdo a condicional

A ver si pueden brindarme una ayuda. He desarrollado una macro que inserta un rango de celdas desde una hoja (01) a otra (02) Asi: Sub CopiarRangoActual() Sheets("01").Select Range("A1").CurrentRegion.Copy Sheets("02").Select...
2 respuestas

Macro para acceso a determinadas hojas

Tengo unlibro en el cual se controla adecuadamente el acceso al mismo dependendo si el usuario esta inscrito en el mismo y además si esta habilitado. Ademas queda el registro histórico de los ingresos con fecha y hora, pero necesito encontrar la...
1 respuesta

Pegar del UserForm dos veces un número en la misma hoja seleccionada... Para Dante Amor

Me proporcionaste una macro tal como te la pedí, quedó perfecta, pero también te comenté que yo quería hacer la siguiente parte sobre esta misma, pero me falló, ahora apelo a tu buena voluntad de apoyarme con esta partecita… Una vez hecha la...
1 respuesta

Guardar como pdf área de impresión con PDFCREATOR

Me gustaría agregarle a un botón una macro para que al apretar el mismo me guarde el área de impresión que seleccione como pdf, usando pdf creator, en office 2003. Pero, a su ves, que la paginas en blanco las elimine. Es decir, como por ejemplo. Yo...
1 respuesta

Filtro avanzado

¿Me podrías ayudar con filtros avanzados por medio de macro? Tengo la sig. Rutina pero no me respeta el valor del filto que le pongo. Gracias de antemano Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$2" Then Call filtrar...
1 respuesta

Hacer una búsqueda en una hoja especifica de un libro excel

Quisiera saber como puedo modificar parte de una macro para que realice la búsqueda en una sola hoja por ejemplo hoja datos, y no en todo el libro. O bien ingresar la hoja a buscar mediante un inputBox. Sub ejemplo() Sheets("buscador").Select Dim...
1 respuesta

Sumatorio total por año y cliente para dante amor

Tengo un excel con 5 pestañas, una para cada año 2010-2014. En cada pestaña hay una tabla con 3 culumnas: nr cliente, descripcion cliente e importe. Necesito, en otra pestaña, hacer un resumen. 7 columnas: nr cliente, descripcion, importes 2010,...
2 respuestas

Crear hojas nuevas con nombres específicos según contenido de celdas

Tengo la necesidad mediante una macro se copie una hoja del libro del Excel con todo su contenido y formatos (Hoja2) y se ubique al final del libro. Además que esta hoja nueva se nombre con el contenido de una determinada celda (Hoja1. E3). Además la...
1 respuesta

Cómo establecer un valor límite en la división de un rango de valores

La siguiente macro nos permite ingresar un valor máximo para dividir un rango y copiar los valores únicos en una Hoja2. Sub DividirValorConLimite() 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 =...
1 respuesta

Pregunta para Luis Mondelo: Macro

Me ayudaste con esta macro hace algunos dias. Me surge otra inquietud mas bien necesidad. Podria ser que el valor buscado en este caso C11 no se arroje en J11. Me explico que sólo arroje en J11 los datos que estan a la derecha del valor buscado.....
1 respuesta