Copiar rangos en nueva hoja continuamente

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Copiar rangos en nueva hoja continuamente

Notapor celinaresb » 19 Dic 2011 08:42

Q tal Foro?

Nueva semana! nuevos retos y próximos a navidad!!! :)

En esta ocasión quisiera solicitar algo de colaboración para algo sencillo!

Tengo un libro "Proveedores" con 2 hojas, una hoja de "proveedores" y la otra hoja que seria la "BBDD".

Notas:
* El numero de proveedores cambia continuamente por nuevos datos pero siempre con el mismo formato. es decir, que periódicamente cargare nuevos proveedores a reemplazando los antiguos.

Lo que busco es un codigo que copie el rango de proveedores en la hoja de BBDD y que cada cuando cambien los proveedores entonces copie el nuevo rango de proveedores continuando verticalmente en la fila inmediatamente siguiente a donde termina el rango anterior.

Un saludo cordial y de antemano a todos Felices Fiestas!
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
Registrado: 12 Jul 2011 12:06
Ubicación: Madrid, España

Re: Copiar rangos en nueva hoja continuamente

Notapor celinaresb » 20 Dic 2011 06:44

Bueno ya que he visto que han visitado este mensaje tantas personas...

y aunq nadie ha aportado nada, supongo que los mismos tendran la misma duda!
A lo cual chichos he encontrado una solucion q les comparto y espero les funcione tan bien como a mi (aunq mis conocimientos son basicos!) :

Código: Seleccionar todo
Sub CopyMbbdd()
If Range("BBDD!A2") = Empty Then
    Range("tabla1").Copy
    Sheets("BBDD").Select
    Range("Tabla2[[#Headers],[Session ID]]").Select
    Selection.End(xlDown).Select
    ActiveSheet.Paste
Else
    Range("tabla1").Copy
    Sheets("BBDD").Select
    Range("Tabla2[[#Headers],[Session ID]]").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("Tabla2[[#Headers],[Session ID]]").Select
    ActiveSheet.Paste
End If

Application.CutCopyMode = False

End Sub


Si alguien logra mejorarla! pues los cambios seran bienvenidos!

Saludos!
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
celinaresb
Miembro Frecuente
Miembro Frecuente
 
Registrado: 12 Jul 2011 12:06
Ubicación: Madrid, España


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: ALEJANDROREYES, Google [Bot] y 6 invitados