Jump to content
cristian9209

ANSWERED consolidación 9 archivos excel en 1

Recommended Posts

hola Amigos, buenos días!

Espero me puedan ayudar realizando esta macro

Necesito consolidar la información de 9 archivos de excel en un unico archivo de Excel llamado "Inventario" . Se debe copiar la información en cada uno de los 9 archivos para consolidar una unica fuente de información. TOdos los 9 archivos cuenta con la misma estructura de información. Se debe empezar a copiar la información desde la celda "C6" hasta la cantidad de registros que se encuentren tanto a la derecha como hacia abajo. 

cualquier inquietud me cuenta

y muchas gracias!

Inventario - copia.zip

Share this post


Link to post
Share on other sites
En 2/4/2020 at 11:30 , Antoni dijo:

La columna G del archivo está vacía.

Si no es un error, lo comentas y cuando tenga un momento, modificaré la macro.

Hola Antoni, así es, se le puede hacer algo que valide las columnas y sí encuentra alguna columna vacía le ponga "no información"

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Correcto, hasta hoy ni un problema, totalmente solucionado!
    • Ayuda especialistas, deseo Sumar varios Texbox en tiempo real, pero en los texbox1 +...+ texbox20,  tengan la coma separadora por miles (ejemplo si dígito 15650.52 se observe 15,650.52 ) al igual en el texbox resultado. De preferencia que no se visualice ningún formato de moneda ($) en ninguno de los texbox. gracias espero su respuesta.
    • Mauricio_ODN Gracias por tu aporte Saludos
    • Muchas gracias por el aporte   He estado trabajando en el registro tengo este codigo para agregar datos pero no logro que me los agregue favor ayuda para detectar el problema     Function ingesarDatos_01() As Boolean Dim sSQL As String Dim sSQLIngreso_01 As String Dim nResultado As Long Dim nFila As Double Dim rCelda As Range Dim sTexto As String ingesarDatos_01 = False '-------------------------------------------------------------------------------- 'obtenemos la ultima fila con datos '-------------------------------------------------------------------------------- '-------------------------------------------------------------------------------- 'Creamos el String de Ingreso de datos '-------------------------------------------------------------------------------- sSQL = "INSERT INTO 02_morosos (Cedula, Carpeta, Funcionario_1, Fecha_1, Numero_Patrono, Nombre_Patrono) " sSQL = sSQL & "VALUES ('" & Worksheets("Registro_01").Range("C9").Value & "', " sSQL = sSQL & Worksheets("Registro_01").Range("J2").Value & ", " sSQL = sSQL & Worksheets("Registro_01").Range("C6").Value & ", " sSQL = sSQL & "#" & Format(Worksheets("Registro_01").Range("F6").Value) & "#, " sSQL = sSQL & Worksheets("Registro_01").Range("C13").Value & ", " sSQL = sSQL & Worksheets("Registro_01").Range("E13").Value & ", " '-------------------------------------------------------------------------------- 'realizamos el ingreso de los datos para cada linea 'si todo salio OK, nResultado sera 0 '-------------------------------------------------------------------------------- If nResultado <> 0 Then MsgBox "Problemas al ingresar el registro", vbCritical, "SACI" Exit Function End If MsgBox "Datos actualizados con Exito!!!", vbInformation, "SACI" ingesarDatos_01 = True End Function  
    • Hola  @GR77 Te dejo una consulta como punto de partida, pero de la manera en que están construidas las tablas, por el momento trae registros duplicados, pero te dejo las consultas para que puedas ir conociendo el lenguaje. Sigo atento y trabajando. Saludos. Sub DatoAccess() Dim cn, rs As Object, strFile, strCon, strSQL As String DateI = Sheets(1).Cells(1, 11).Value DateF = Sheets(1).Cells(2, 11).Value strFile = ThisWorkbook.Path & "\datos.mdb" 'strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";" strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";" Set cn = CreateObject("ADODB.Connection") cn.Open strCon Set rs = CreateObject("ADODB.Recordset") strSQL = "SELECT DISTINCT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado  " & _          "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Clave = T3.Clave)" ''strSQL = "SELECT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado " & _          "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Clave = T3.Clave)"           ''strSQL = "SELECT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado, T2.MontoDescto " & _          "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Clave = T3.Clave) " & _          "INNER JOIN Tabla2 T2 ON T1.Id = T2.Id " ''strSQL = "SELECT T1.Id, T1.Clave, T1.FechaMov, T1.MontoEsperado, T3.MontoPagado, T2.MontoDescto " & _          "FROM (Tabla1 T1 INNER JOIN Tabla3 T3 ON T1.Id = T3.Id) " & _          "INNER JOIN Tabla2 T2 ON T1.Id = T2.Id " & _          "WHERE T1.FechaMov BETWEEN DateI AND DateF" rs.Open strSQL, cn, 3, 3 Cells(2, 1).CopyFromRecordset rs 'Creamos encabezados For i = 0 To rs.Fields.Count - 1 titulo = rs.Fields(i).Name     Cells(1, i + 1) = titulo Next rs.Close cn.Close End Sub
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy