UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

msanpan


Hola,

Primero de todo muchas gracias de antemano. A continuación detallo mi duda Smile

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?

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 ya que solo me deja adjuntar un archivo
https://drive.google.com/open?id=0B0FpDdn6mihtWXR2elZLQ29JOUE
https://drive.google.com/open?id=0B0FpDdn6mihtalNOMGEyRG1xTWc
Archivos
TORTJOE OFFER TEMPLATE.xlsm
No tienes los permisos para descargar los archivos.
(125 KB)

2 AYUDA PARA FINALIZAR ESTA MACRO el 19/10/17, 03:30 pm

gomezvila


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


Buenas tardes msanpan
El el curso que estoy realizando te dije que había varios ejemplos que te pueden ayudar a resolver todas las dudas que tienes, por favor míralos
 Solo te resolveré el problema que tienes con este procedimiento




Sub MACROSIVACIA()
Sheets("Hoja1"). Select
Range("B3:Y3").Copy
'Entiendo que el libro en que lo quieres pegar es otro, entonces tiene que poner las instrucciones de 'abajo, si es el mismo libro te saltas hasta la fila donde pone Sheets(" Nombre de la 'hoja).Range("B1").Select
' supongo que este libro lo tendrás abierto, de lo contrario tendrías que poner la ruta,  por ejemplo
Workbooks.Open Filename:=("C:\CARPETA\ARCHIVOS\BASE DE DATOS CENTRAL C.H.ROBINSON OFFERS .xlsm")
Windows("BASE DE DATOS CENTRAL C.H.ROBINSON OFFERS.xlsm").Activate
Sheets(" Nombre de la hoja").Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1,0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 Un saludo 
José Carlos

jhon1904

avatar
se cierra por abandono....


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.