Jump to content

SALAVERRINO

Members
  • Content Count

    296
  • Joined

  • Last visited

Everything posted by SALAVERRINO

  1. Buenos días Haplox, la macro esta excelente y es lo que se requería obtener, solo encontré un pequeño detalle, en cuanto a la posición de los datos al ser importados, es decir su posición original debe empezar en la CELDA B8, pero como te indico al ser importados los ubica en la celda B7, eliminando 1 linea de la cabeceras que van desde la celda B5 a la B7, por lo demás todo esta bien, y como me indicaste cambie la ruta de acceso donde se encontraran los archivos a importar, ya que en la macro anterior su ubicación era de forma automática. Desde ya agradezco su colaboración y apoyo. Saludos. adjunto archivo en word ERROR ENCONTRADO.part1.rar ERROR ENCONTRADO.part2.rar ERROR ENCONTRADO.part3.rar
  2. Buenos días, agradezco a los integrantes Gerson Pineda y AnderX, por el aporte brindando y era lo que estaba necesitando, por lo que daría dicha consulta, cómo TEMA SOLUCIONADO.
  3. Buenas noches a los miembros de este foro, recurro a Uds, en esta oportunidad para que me brinde su apoyo en como convertir todas las cuentas de ahorros que empieza con A2, dicha cuenta contiene espacios y lo que pretender obtener como resultado es el formato XXX-XXXXXXXX-X-XX, para lo cual adjunto archivo. Gracias por su apoyo BASES DE DATOS - copia.xlsx
  4. Buenos tardes a los miembros de este foro, en alguna ocasión me brindaron su colaboración con la macro que adjunto, dicha macro permite seleccionar el archivo y posteriormente seleccionar la hoja con la información requerida, ahora mi consulta es, que bajo la misma lógica de la macro me permita seleccionar todos los archivos para extraer la información y sabiendo de que hoja en selección es "PLLA601", desde ya agradezco su coloración y apoyo. Dim R Dim a Sub abrir() Dim drive As String ' Unidad de Disco Dim ruta As String 'Ruta del libro ruta = ActiveWorkbook.Path ' Ruta actual del libro drive = Left(ruta, 2) ' Obtengo la unidad con los dos primeros caracteres de la ruta ChDrive drive ' ChDrive Indicamos la unidad donde está guardado tu archivo ChDir ruta ' ChDir Indicamos el directorio declarado nteriormente Application.ScreenUpdating = False file = Application.GetOpenFilename If file = False Then Exit Sub Else Workbooks.OpenText Filename:=file End If a = ActiveWorkbook.Name UserForm1.Show Range("B8:AO17").Copy 'Range("B8:AO" & Range("B" & Rows. Count).End(xlup). Row). Copy 'permite copiar consolidados globales. Windows("PLANTILLA ELECTRONICA.xlsm").Activate n = Range("b8").Value If n <> Empty Then Range("b8").End(xlDown).Offset(1, 0).Select Else Range("b8").Select End If Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 'Range("B3").Select Range("B1").Select Windows(a).Activate Application.CutCopyMode = False ActiveWindow.Close savechanges:=False Application.ScreenUpdating = True Copiando End Sub Sub Copiando() resultado = MsgBox("Ultimo libro abierto :" & a & Chr(10) & _ "¿Desea copiar otro libro?", vbYesNo, "IMPORTANTE") If resultado = vbYes Then abrir End If End Sub Sub Verificar() R = Hoja1.Range("A2").End(xlUp).Row For i = 2 To R If Hoja2.Cells(i, 1) = "" Then Final = i Exit For End If Next End Sub Sub c() Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row R = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select abrir End Sub PLANTILLA ELECTRONICA.part1.rar PLANTILLA ELECTRONICA.part2.rar PLANTILLA ELECTRONICA.part3.rar PLANILLA.part1.rar PLANILLA.part2.rar PLANILLA.part3.rar PLANILLA.part4.rar PLANILLA.part5.rar PLANILLA.part6.rar PLANILLA.part7.rar
  5. Buenos días a los miembros de este foro y como indica el amigo AnderX, efectivamente, sobre el resultado que me solicitaban, quedo sin efecto porque no se encuentra la finalidad de ordenar una tabla dinámica por otra tabla, por lo tanto daría como: TEMA SOLUCIONADO.
  6. Buenas noches a los integrantes de este foro, en esta ocasión recurro a ayuda, en el como filtrar los datos que me solicitan, como podrán apreciar en la hoja DINAMICO (2) mediante tabla dinámica me permite filtrar como primer dato GRUPO y como consecuente se anexan los datos a seguir COD - NOMBRE - FECHA - BOLETA - ESPECIA. - TN, ahora me solicitan que como llave sea la BOLETA luego valla COD - NOMBRE - FECHA - BOLETA - ESPECIA. - TN, intente filtrar con la misma tabla dinámica como dato principal BOLETA pero no resulta como quiero, y quería solicitarle a Uds. si eso se podría hacer mediante alguna macro o quizás en la misma tabla dinámica. Desde ya agradezco su apoyo y colaboración. Saludos SORT ORDENADO.xlsx
  7. Buenas noches amigos Cristian 1985 y GabrielRaigosa desde ya les agradezco los aportes brindados, luego de haber verificado con varios datos, dicha formula era lo que faltaba complementar a la búsqueda, por lo que daría el TEMA SOLUCIONADO. Gracias.
  8. Buenas tardes amigos GabrielRaigosa y Cristian 1985 , efectivamente no adjunte con los números de boletas reales y me quede con las números antiguos, pero ya hice una pequeña simulación y parece que con la formula adjuntada esta funcionando. Espero sus comentarios. Gracias.
  9. Buenos días a los miembros de este Foro, en esta oportunidad requiero de vuestra ayuda en como obtener el resultado real buscado, actualmente uso la función buscarv, pero estoy teniendo problema con dicha función, el problema detallo a continuación: En la pestaña RESULTADO al buscar el Código del Trabajador en la celda A5 que proviene de la pestaña PLANILLA me muestra el resultado buscado en la celda C5 (resultado valido), pero cuando encuentra el mismo código de trabajador en la celda A6 y A7 muestra el mismo resultado de la celda C5 cuando debería ser resultado que se aprecia en la celda D6 y D7, y así hay varios datos, mi pregunta es si podría adicionar alguna otra función para que resultado buscado sea exacta, adjunto archivo. Desde ya agradezco su apoyo y colaboración. Saludos. PLANTILLA ELECTRONICA x ESPECIALIDAD v1 - copia.rar
  10. Buenas tardes Srs,. para comentarles que los aportes brindados están excelente, por lo que daría esta consulta como TEMA SOLUCIONADO. Saludos Salaverrino.
  11. Buenos días a los miembros de este foro, en esta ocasión recurro a uds, para que me ayuden en como mejorar esta formula, la cual se describe en la Función SI Anidada con la Función O, en dicha formula me permite determinar que si el valor a buscar es verdadero asigna el valor Tarifa1 (Nombre de rango), para lo cual adjunto archivo, mi pregunta es, si dicha formula, se puede desarrollar y combinar con otras Funciones (BuscarV, SI y O) ya que como podrán apreciar en dicha formula es engorroso para determinar un solo valor a buscar (Tarifa1). A la espera de sus comentarios quedo de uds agradecidos por su ayuda. EJEMPLO 08-12-17.xlsx
  12. Buenas noches amigo Haplox, con el archivo que me enviaste pude arreglar la macro, el resultado que quería obtener, por lo que daría como TEMA SOLUCIONADO. Saludos
  13. Buenos días Haplox, tienes razón por error omite en copiar el código de la macro, la cual permite realizar la impresión. Sub ArreglaMargen() Sheets("BOLETA").Select Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "&F" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "Página &P de &N" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.196850393700787) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0.196850393700787) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(10.0393700787402) .FooterMargin = Application.InchesToPoints(0.78740157480315) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperLetter .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 88 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = False ' .EvenPage.LeftHeader.Text = "" ' .EvenPage.CenterHeader.Text = "" ' .EvenPage.RightHeader.Text = "" ' .EvenPage.LeftFooter.Text = "" ' .EvenPage.CenterFooter.Text = "" ' .EvenPage.RightFooter.Text = "" ' .FirstPage.LeftHeader.Text = "" ' .FirstPage.CenterHeader.Text = "" ' .FirstPage.RightHeader.Text = "" ' .FirstPage.LeftFooter.Text = "" ' .FirstPage.CenterFooter.Text = "" ' .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True ' ActiveWindow.SelectedSheets.PrintOut From:=1, To:=10, Copies:=2, Collate _ ' :=False, IgnorePrintAreas:=False End Sub Espero tus comentarios.
  14. Buenos días a los miembros de este foro, en esta ocasión recurro a uds, y me brinden su apoyo en como mejorar la macro que describo a continuación, la macro debe permitir imprimir el nombre del archivo en uso y la numeración de pagina, a su vez dicha macro permite realizar la impresión de 2 copias y "sin intercaladas" y como se muestra en la Imagen 1, dicha macro lo genere con la grabadora del excel, pero al parecer me deja errores, como se muestra en la imagen 2. Esperando me brinde su apoyo en dicha macro. saludos. Salaverrino
  15. Buenos días amigo Haplox, el aporte brindado en la actualización de la macro, era lo que se pretendía obtener como resultado, por lo que daría como TEMA SOLUCIONADO. Gracias.
  16. Buenas tardes a los miembros de esté foro, en esta ocasión recurro a Uds, para que brinden su apoyo en un contador que vaya en el Workbook_Open, en donde se cuente la cantidad de registros que sería a partir de la B8 hasta el final (en este caso tiene 181 registro o podría ser) y que al presionar el boton de Fusionar Consolidado con la macro que indico, se procese los registros como indica en la Contar.png y al culminar dicha fusión, se muestre el mensaje como la Culminado.png. Sub FusionarRetribuciones(): On Error Resume Next Dim Documento As String, Fila As Long Hoja3.Range("A8").Resize(Hoja3.Range("B" & Rows.Count).End(xlUp).Row + 2, 43).Clear Application.ScreenUpdating = False Fila = 7 For x = 8 To Hoja1.Range("B" & Rows.Count).End(xlUp).Row If CStr(Hoja1.Range("B" & x)) <> Documento Then Fila = Fila + 1 Hoja1.Rows(x).Copy Hoja3.Rows(Fila) Documento = Hoja1.Range("B" & x) Else If Hoja1.Range("D" & x) < Hoja3.Range("D" & Fila) Then Hoja3.Range("D" & Fila) = Hoja1.Range("D" & x) End If If Hoja1.Range("E" & x) > Hoja3.Range("E" & Fila) Then Hoja3.Range("E" & Fila) = Hoja1.Range("E" & x) End If For y = 6 To 43 Hoja3.Cells(Fila, y) = Hoja3.Cells(Fila, y) + Hoja1.Cells(x, y) If Hoja3.Cells(Fila, y) = 0 Then Hoja3.Cells(Fila, y) = "" Next End If Next Hoja1.Rows(x).Copy Hoja3.Rows(Fila + 1) For y = 11 To 42 Hoja3.Cells(Fila + 1, y).FormulaR1C1 = "=SUM(R[-" & Fila - 7 & "]C:R[-1]C)" Next Hoja3.Cells(Fila + 1, 35) = "" Application.Speech.Speak "Consolidado terminado" MsgBox ("Consolidado terminado"), , "AVISO" Range("A4").Select End Sub Por lo que desde ya agradezco su colaboración y ayuda. Gracias.
  17. Buenos días a los prestigiosos integrantes de este foro, en esta ocasión recurro a uds, para solicitar su ayuda en como modificar la macro, el cual permita guardar el archivo resultado con la extensión .xls, ya que con esta macro lo genera con la extensión .xlsm , siendo una copia exactamente al original con la diferencia que en el archivo fuente son barrados los datos ingresados, por lo que necesito es que al guardar el archivo resultado elimine las hojas BASES DE DATOS y Hoja1 quedando únicamente la Hoja2 (el cual contiene formula que son transportador de la Hoja1 - resaltado de color celeste) y solo debe quedar como valores, para mejor el archivo fuente. Sub guardar24072015() Nombre = ActiveWorkbook.Name Carpetaa = ActiveWorkbook.Path filaa = Carpetaa & "\" & Nombre Nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO") If Nombrar = vbYes Then filab = Carpetaa & "\" & "plantilla electronica1" Else Titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO") If Titulo = "" Then Exit Sub Else filab = Carpetaa & "\" & UCase(Titulo) & ".xlsm" End If End If ActiveWorkbook.Save ActiveWorkbook.SaveAs Filename:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False xNombre = ActiveWorkbook.Name Workbooks.Open (filaa) Sheets("Hoja1").Range("C2:C50").ClearContents Sheets("Hoja1").Range("G2:G50").ClearContents Workbooks("ESTRUCTURA DE ABONOS.xlsm").Save Sheets("Hoja1").Select Range("C2").Select Workbooks(xNombre).Close savechanges = True Sheets("Hoja1").Range(Cells(2, 1), Cells(lastRow, 50)).ClearContents End Sub Desde ya agradezco su apoyo y colaboración. ESTRUCTURA DE ABONOS.xlsm RESULTADO.xlsm RESULTADO.xls
  18. Buenas noches amigo Hector MIguel, ya pude ver donde estaba el error, de acuerdo a tus comentarios y ya se esta ejecutando con 2 rutinas, como inicialmente me habías indicados. Agradezco el apoyo brindado, por lo quedaría como TEMA SOLUCIONADO.
  19. Buenos días amigo Hector Miguel, como me indicas, la idea era agregar un campo mas que en base al COD me muestre los TN como la especialidad, por otro lado realice una copia del libro agregando un numero para difrenciar y que en base de la macro realice dicha operación, pero mostrándome el TN, pero no consigo que muestre dicho resultado (realice el cambio agregando @), adjunto la macro, donde el COD lo ubico en la Celda E y a partir acá el resultado se ubique en la celda M muestre el nuevo resultado es decir los TN Sub Codigos1() ' procedimiento para obtener datos de un libro cerrado segun condiciones ' _ R&D: Héctor Miguel Orozco Díaz | mayo de 2016 ' Dim ruta As String, archivo As String, hoja As String, _ conexion As Object, registros As Object, celda As Range ruta = ThisWorkbook.Path & "\" ' <= carpeta donde se encuentra el... ' archivo = "sort trab.xlsm" ' archivo del que se rescatan los codigos en ... ' hoja = "ingreso1" ' la hoja que los contiene ' Set conexion = CreateObject("adodb.connection") Set registros = CreateObject("adodb.recordset") conexion.Open "provider=microsoft.ace.oledb.12.0;data source=" & ruta & archivo & _ ";extended properties=""excel 12.0 xml;imex=1;hdr=yes"";" For Each celda In Range([e1], Cells(Rows.Count, 2).End(xlUp)).SpecialCells(2, 2) If celda = "COD" Then celda.Offset(, 8) = "" registros.Open "select grupo from [" & hoja & "$] where tn = """ & celda.Offset(, 1) & """", conexion, 1, 1 If registros.RecordCount > 0 Then _ celda.Offset(, 8) = Join(Application.Transpose(Application.Transpose(registros.GetRows)), "; ") registros.Close End If: Next: Set registros = Nothing: conexion.Close: Set conexion = Nothing: MsgBox ("Extracción Terminado"), , "AVISO": End Sub Agradezco desde ya nuevamente tu apoyo amigo, gracias.
  20. Buenos días a los miembros de este foro,hace mucho tiempo el amigo Hector Miguel me ayudo con esta macro que consistía en como extraer información de otro archivo y la cual me sigue ayudando mucho, ahora quiero que me brinde su apoyo bajo la misma primicia que extraiga el siguiente valor que se encuentra resaltado de color amarillo en el archivo adjunto, también adjunto la macro que realiza dicha rutina. El nuevo valor a extraer deben ir en la Columna L filas 4 - 20 - 36 - 52 - 68 - 84 - 100 - 116 - 132 - 148 Esperando que brinde su ayuda quedo de uds agradecidos. EXTRAER GRUPO.rar getClosedWbData.zip PLANILLA000.rar
  21. Buenas tardes aaquino, el archivo quedo excelente y era lo que se requería, por lo que daria como tema SOLUCIONADO. Gracias.
  22. Buenos dias aaquino, nose si seria factible que adjunte el archivo, para un mejor detalle y adecuación de lo comentado. Gracias. ESTRUCTURA PLANILLAS.part1.rar ESTRUCTURA PLANILLAS.part2.rar
  23. Buenas noches a los miembros de este foro, en esta ocasión quisiera pedirle su ayuda en como generar un numero y que sea correlativo, y lo que se pretende es que el nombre permita ser digitado manualmente, pero el numero ya debería hacerse correlativo, luego de haber encontrado el primer nombre del archivo y el numero. Ejemplo: PLANILLA00.xlsm (Inicial) y a partir de este nombre se valla agregándose el numero siguiente, PLANILLA01.xlsm, PLANILLA02.xlsm, etc., adjunto macro que permite grabar manualmente. Sub guardar24072015() NOMBRE = ActiveWorkbook.Name CARPETAA = ActiveWorkbook.Path filaa = CARPETAA & "\" & NOMBRE nombrar = MsgBox("usar el archivo por default", vbYesNo + vbDefaultButton2, "AVISO") If nombrar = vbYes Then filab = CARPETAA & "\" & "plantilla electronica1" Else titulo = InputBox("¿Como se va a llamar el archivo?", "AVISO") If titulo = "" Then Exit Sub Else filab = CARPETAA & "\" & UCase(titulo) & ".xlsm" End If End If ActiveWorkbook.Save ActiveWorkbook.SaveAs fileName:=filab, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False xnombre = ActiveWorkbook.Name Workbooks. Open (filaa) Sheets("LLENADO"). Range("B7:G16"). ClearContents Sheets("LLENADO"). Range("K7:P16"). ClearContents Sheets("LLENADO"). Range("B21:G30"). ClearContents Sheets("LLENADO"). Range("K21:P30"). ClearContents Sheets("LLENADO"). Range("B35:G44"). ClearContents Sheets("LLENADO"). Range("K35:P44"). ClearContents Sheets("LLENADO"). Range("B49:G58"). ClearContents Sheets("LLENADO"). Range("K49:P58"). ClearContents Sheets("LLENADO"). Range("B63:G72"). ClearContents Sheets("LLENADO"). Range("K63:P72"). ClearContents Sheets("LLENADO"). Range("I7:I16"). ClearContents Sheets("LLENADO"). Range("R7:R16"). ClearContents Sheets("LLENADO"). Range("I21:I30"). ClearContents Sheets("LLENADO"). Range("R21:R30"). ClearContents Sheets("LLENADO"). Range("I35:I44"). ClearContents Sheets("LLENADO"). Range("R35:R44"). ClearContents Sheets("LLENADO"). Range("I49:I58"). ClearContents Sheets("LLENADO"). Range("R49:R58"). ClearContents Sheets("LLENADO"). Range("I63:I72"). ClearContents Sheets("LLENADO"). Range("R63:R72"). ClearContents Workbooks("ESTRUCTURA PLANILLAS.xlsm").Save Sheets("LLENADO").Select Range("B7").Select Workbooks(xnombre).Close savechanges = True Sheets("LLENADO").Range(Cells(7, 1), Cells(lastRow, 50)).ClearContents End Sub Desde ya agradezco su tiempo y apoyo, gracias.
  24. Hola SIlvia, acabo le ver el link enviado y me parece que es lo correcto para aplicar la formula que estoy necesitando. Agradezco tu apoyo, por lo que daria como tema SOLUCIONADO.
  25. Hola Ingrid, pero que pasaría si son otras fechas,, donde por decir se determine obtener los años, meses y lógicamente los días transcurridos según el calendario que usamos cotidianamente y por ello que quisiera usar una formula donde indique los días exactos y así por determinar subsidio por accidente de trabajo y no se estar siempre aumentando 1 como indicas. Agradezco tu ayuda Ingrid. Gracias.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png