Excel - MACRO CASI ACABADA AYUDAA! INSERTAR DATOS SI VACÍA

   
Vista:

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?

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.Copy
 
Windows("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.Paste
End 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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder