Preguntas esperando respuesta
Actividad pública reciente
Ha preguntado en el tema en
Microsoft Excel
Resumen de información de base de datos
Ha valorado "Excelente" la respuesta
Copiar Datos de una base de datos a tres hojas diferentes que copie si establesco una condicion
Ha valorado "Excelente" la respuesta
Concatenar y copiar de varios archivos a otro archivo en especifico para Dante amor
Te envié el archivo con los cambios a la macro. Esta es la macro completa Sub copiar() ' Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Semana 37") ' ruta = l1.Path Set l2 = Workbooks.Open(ruta & "\" & "BD Ventas") Set...
Ha preguntado en el tema en
Microsoft Excel
Para Dante Amor copiar datos de una hoja y que se genere un nuevo libro con los datos copiados
Hola buen día muchas gracias ya cheque la macro muchas gracias muchas gracias por tu ayuda eres grande nada más un ultimo favor sera que esa hoja se pueda generar una copia de ella del libro de la semana 37 pero se pueda modificar su nombre y sea...
Sin respuestas
Ha valorado "Excelente" la respuesta
Macro para copiar varios archivos a uno solo en columna especifica para Dante amor
Esta es la macro para el paso 5 'Abrir "CALIDAD" Set l2 = Workbooks.Open(ruta & "\" & "BD Control de Calidad") Set h2 = l2.Sheets("BD") For i = 3 To h2.Range("C" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") Set b = r.Find(h2.Cells(i, "C"),...
Ha valorado "Excelente" la respuesta
Buscar y copiar en un varios archivos de excel y pegarlos a un solo archivo dante amor
Esta es la macro para el paso 6 'Abrir "PRODUCCIÓN" Set l2 = Workbooks.Open(ruta & "\" & "DB Produccion", ReadOnly:=True) Set h2 = l2.Sheets("SEPTIEMBRE") For i = 3 To h2.Range("C" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") Set b =...
Ha valorado "Excelente" la respuesta
Macro para copiar varios archivos a uno solo para dante amor
Esta es la macro para el paso 4 'Abrir "BD LOGISTICA Y FACTURACION" Set l2 = Workbooks.Open(ruta & "\" & "BD LOGISTICA Y FACTURACION") Set h2 = l2.Sheets("ADMON Y LOGISTICA") For i = 3 To h2.Range("A" & Rows.Count).End(xlUp).Row Set r =...
Ha valorado "Excelente" la respuesta
Macro para copiar varios archivos a uno solo
Reviso el archivo que me enviaste y te ayudo.
Ha valorado "Excelente" la respuesta
Ayuda con una macro Dirigida a Dante Amor
Te envié el archivo con la macro Sub copiar() ' Application.ScreenUpdating = False Set l1 = ThisWorkbook Set h1 = l1.Sheets("Semana 37") ' ruta = l1.Path Set l2 = Workbooks.Open(ruta & "\" & "BD Ventas") Set h2 = l2.Sheets("VENTAS") ' u1 =...
Voto positivo a la respuesta
