MACRO CASI ACABADA AYUDAA! INSERTAR DATOS SI VACÍA
Publicado por Marc (1 intervención) el 14/10/2017 23:26:54
Hola,
Primero de todo muchas gracias de antemano. A continuación detallo mi duda :)
Necesito crear es una base de datos central la cual seria el archivo "BASE DE DATOS CENTRAL...." en la que mediante una macro se vuelquen todos los datos introducidos en el archivo "TORTJOE OFFER TEMPLATE" de la "Hoja 1" y que al clickar en el boton azul de la Hoja "Mail" el rango B3:Y3 de la "Hoja 1" se copie en la "BASE DE DATOS CENTRAL..." y que antes de pegar la información en la hoja "DDBB" busque siempre la celda vacía cogiendo como referencia la B1 o B2 (no tengo claro que es mejor).
Alguien sabria decirme donde estaría el fallo?
Por favor descargar ambos archivos ya que no me deja adjuntarlos. En el adjunto podéis ver como hay un código que está funcionando casi, pero hay un bucle que no averiguo ver donde está el fallo
Añado aquí los adjuntos en Drive por si no pudierais descargarlos
https://drive.google.com/open?id=0B0FpDdn6mihtWXR2elZLQ29JOUE
https://drive.google.com/open?id=0B0FpDdn6mihtalNOMGEyRG1xTWc
Primero de todo muchas gracias de antemano. A continuación detallo mi duda :)
Necesito crear es una base de datos central la cual seria el archivo "BASE DE DATOS CENTRAL...." en la que mediante una macro se vuelquen todos los datos introducidos en el archivo "TORTJOE OFFER TEMPLATE" de la "Hoja 1" y que al clickar en el boton azul de la Hoja "Mail" el rango B3:Y3 de la "Hoja 1" se copie en la "BASE DE DATOS CENTRAL..." y que antes de pegar la información en la hoja "DDBB" busque siempre la celda vacía cogiendo como referencia la B1 o B2 (no tengo claro que es mejor).
Alguien sabria decirme donde estaría el fallo?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MACRO SI VACIA()
Sheets("Hoja1").Select
Range("B3:Y3").Select
Application.CutCopyMode = False
Selection.CopyWindows("BASE DE DATOS CENTRAL C.H.ROBINSON OFFERS.xlsm").Activate
ActiveSheet.Range("b1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1).Activate
Loop
ActiveSheet.PasteEnd Sub
Por favor descargar ambos archivos ya que no me deja adjuntarlos. En el adjunto podéis ver como hay un código que está funcionando casi, pero hay un bucle que no averiguo ver donde está el fallo
Añado aquí los adjuntos en Drive por si no pudierais descargarlos
https://drive.google.com/open?id=0B0FpDdn6mihtWXR2elZLQ29JOUE
https://drive.google.com/open?id=0B0FpDdn6mihtalNOMGEyRG1xTWc
- ultimaultima.rar(163,8 KB)
Valora esta pregunta
0