Jump to content

Search the Community

Showing results for tags 'macros y vba'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • First visit?
    • Presentaciones
  • Dudas y consultas sobre Excel
    • Excel General
    • Macros y programación VBA
    • Power BI
    • Comparte tus aportes
  • Sobre ayudaexcel.com
    • Solicitud proyectos
    • Blog
    • Plantillas
    • Productos de ayudaexcel
    • Megaguías
  • Otras aplicaciones de Microsoft Office
  • Variedades
    • Cafeteria Ayuda Excel
    • Temas resueltos
    • Temas Abandonados
  • ¿Eres nuevo? Lee las Normas y Reglas del Foro
    • Access, Word, Power Point, Outlook etc...
  • Archive
  • Resources
    • Ideas y aportes

Categories

  • Tools
  • Add-ins
  • Store
  • Finance
  • Dpto. Admin
  • Purchasing
  • Agendas
  • Data registry

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Skype


Facebook


Twitter


Localización:


Interests

Found 406 results

  1. Hola amigos, soy nuevo por aca y la verdad he llegado buscando un generador para bingos... (me he pillado con tableros donde el computador genera los numeros "sistema de tombola") pero lo que busco es generar los cartones para jugar. en mi curso tenemos como meta vender 1000 bingos los cuales deben tener números del 1 al 75) encontré algunos buscando en google, pero la verdad es que no habían 1000 cartones y no se como generarlos con esos que pille sin repetir tanto los cartones. en resumen, si alguien pudiese ayudarme con esto, estaré infinitamente agradecido. (creo que no es posible generar 1000 sin que se repita mas de alguno, pero la idea es que se repitan los menos posibles...) Desde ya muchas gracias por la ayuda o por leerme
  2. Hola artistas, uso excel 2013. estoy intentando contar los trabajadores que hay trabajando hora a hora mediante una hoja de turnos. Adjunto el archivo esperando que alguien pueda echarme un cable, mil gracias de antemano. salud! EJEMP.xlsx
  3. Buenas! Tengo un problema que llevo intentando buscarle una solución una semana sin éxito. Tengo una tabla Excel con 30.000 filas y 7 columnas, que sería mi base de datos, una de las columnas me da un valor númerico y ahora necesito recopilar todos esos datos que me aporta esta tabla. A la hora de recopilar los datos, quiero hacerlo por bloques de 20 filas y ahí viene mi problema, ya que hacerlo manualmente es una locura, tendría que hacer mas de 1000 formulas Comienzo en una celda con la formula =suma(I2:I21) la siguiente celda es =SUMA(I22:I41), la siguiente es =SUMA(I42:I61), no puedo arrastar ya que si arrastro (seleccionando estas 3 celdas a la vez) las siguientes celdas me salen =suma(I5:I25) la siguiente celda me sale =SUMA(I25:I45), la siguiente me sale =SUMA(I45:I65) y tampoco puedo copiar pegar. lo que necesito es que la siguiente celda tenga la misma columna pero 20 filas mas en los dos valores de la suma (I2:I21), (I22:I41), (I42:I61), (I62:I81), (I82:I101), (I102:I121), (I122:I141) y así hasta (I29982:I30001) si alguien me pudiese ayudar... Muchas garcias y saludos
  4. buenas necesito eliminar una fila especifica por medio de un botón en la hoja de "TODO",EN la celda que esta debajo de "No ORDEN" ahí colocare el numero de orden que deseo eliminar el cual costa de 4 dígitos, luego presionare el botón aceptar y debe eliminarse esa fila. necesito insertar una fila especifica por medio de un botón en la hoja de "TODO" la cual siempre debe ser insertada debajo del ultimo registro, pero esa fila que voy a insertar también por un numero de orden pero de la hoja de "ORDEN DE SERVICIO 2016". la fila debe insertarse con toda la información que esta en fila de orden se servicio todos los campos, fecha, orden No, empresa, equipos. hasta ahí. agradezco su ayuda de antemano, adjunto archivo. Saludos y gracias Nuevo_libro (1).zip
  5. Sub nuevo libro() nbre = Range("a1") ruta = "C:\Users\Alexis Leiva\Desktop\ESCAN" (nombre de carpeta determinada) ActiveWorkbook.SaveCopyAs ruta & "\" & nbre & ".xls" End Sub hola buenos dias me dirigo a ustedes aver si me pueden ayudar en lo siguiente, quiero mejorar esta macro, lo que quiero hacer es guardar un copia del libro de trabajo en una carpeta determinada con el nombre de una cela pero que en ese libro me guarde solo un rango determinado este es el codigo que estoy trabajndo pero me falta determinar el rango de celdas que quiero que se guarde en el libro nuevo. este es el codigo que quiero mejorar el rango que quiero que copie es a1:x50
  6. Hola, Elaboré este archivo, y soy principiante en esto. Lo que quiero es que cada vez que agregue un articulo la fila del articulo que agregue se rellene en verde, y así mismo con las salidas, en color rojo. Lo único que logré fue que se rellene la celda E2, y no del color que quiero. Espero que alguien que me pueda ayudar con el código? Gracias!!! Ctrl Inventario Prueba.xlsm
  7. Excel 2007, necesito una macro que me crea una carpeta en mi escritorio y guarde en la misma la hoja activa ya tengo una macro que hace algo parecido. Pero necesito que las carpetas "PEDIDOS LAMA" Y "HISTORIAL CLIENTES LAMA" se creen solas en el escritorio y si ya están creadas que no se dupliquen que use la que ya esta. Acá dejo la macro quizás me puedan ayudar a modificarla, por favor gracias... Sub Guardarhoja() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False 'Por.Dante Amor ' Macro para crear carpeta, guardar una hoja ActiveSheet.Unprotect ActiveSheet.Range("$F$20:$F$224").AutoFilter Field:=1 'se impide que se ejecute la macro CHANGE de la hoja Application.EnableEvents = False Range("F20:I224").Select Selection.Locked = False Range("BM20:BN224").Select Selection.Copy Range("F20:G224").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Range("$F$20:$F$224").AutoFilter Field:=1, Criteria1:="<>" Range("F4:G5").Select ActiveCell.FormulaR1C1 = "=NOW()" Range("F4:G5").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Range("G7").Select Application.CutCopyMode = False 'Por.Dante Amor Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet ruta = "C:\Users\pablo\Desktop\PEDIDOS LAMA\" 'ruta = "C:\trabajo\" carp = "pedidos " & Format(Date, "dd-mm-yyyy") nomb = h1.[G7] & " " & Format(h1.[F4], "dd-mm-yyyy-hhmmss") ' rut2 = ruta & carp If Dir(rut2, vbDirectory) = "" Then MkDir rut2 End If ' h1.Copy Set l2 = ActiveWorkbook l2.SaveAs Filename:=rut2 & "\" & nomb & ".xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'l2.SaveAs rut2 & "\" & nomb & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False l2.Close ' guardar en carpetas pedidos clientes Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.ActiveSheet ruta = "C:\Users\Pablo\Desktop\HISTORIAL CLIENTES LAMA\" 'ruta = "C:\trabajo\" carp = "pedidos " & [G7] nomb = h1.[G7] & " " & Format(h1.[F4], "dd-mm-yyyy-hhmmss") & "-" & [I3] ' rut2 = ruta & carp If Dir(rut2, vbDirectory) = "" Then MkDir rut2 End If ' h1.Copy Set l2 = ActiveWorkbook l2.SaveAs Filename:=rut2 & "\" & nomb & ".xls", _ FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False 'l2.SaveAs rut2 & "\" & nomb & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False l2.Close ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowSorting:=True, AllowFiltering:=True 'se vuelve a habilitar la macro CHANGE de la hoja Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True ActiveSheet.DisplayPageBreaks = True Application.CutCopyMode = False End Sub Dejo la macro que tengo para que me ayuden a modificarla
  8. Tengo una tabla dinámica y quiero que se actualice el filtro por el valor puesto en una celda. Ya busque codigos que hagan esto y si existen, el problema es que mi tabla viene de PowerPivot y estos codigos no funcionan Al hacer una macro el sistema tira el siguiente codigo: ActiveSheet.PivotTables("Detalle_Cuentas").PivotFields( _ "[Cuenta_Externa].[N_extendido].[N_extendido]").ClearAllFilters -(hasta aquí funciona bien)- ActiveSheet.PivotTables("Detalle_Cuentas").PivotFields( _ "[Cuenta_Externa].[N_extendido].[N_extendido]").CurrentPage = _ "[Cuenta_Externa].[N_extendido].&[(05-002) Mano de Obra Directa]" (Esta es la parte que quiero sustituir por un valor ubicado en la celda ("AA1")) En Internet encontre este codigo que ha de funcionar si la tabla dinamica es creada con un conjunto de datos de Excel Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("AA1")) Is Nothing Then 'En base al campo Region de la Tabla dinámica1: With PivotTables("Detalle_Cuentas").PivotFields("N_extendido") 'Limpiar todos los filtros .ClearAllFilters 'Filtrar por el valor de la celda F1 On Error Resume Next .CurrentPage = Range("AA1").Value End With End If End Sub pero Por tratarse de una tabla creada en PowerPivot este codigo me tira el siguiente mensaje de error "No se puede obtener la propiedad PivotFields de la clase PivotTable" ¿Alguien podrá ayudarme?
  9. Muy buen día, tarde, noche. Me he buscado en la web y no he podido encontrar respuesta a lo que tengo en mente. He creado una UDF, y funciona muy bien, el problema que tengo es que al momento de usarla en una hoja, no muestra los argumentos necesarios para que funcione correctamente la fórmula. La pregunta es: ¿Se puede lograr que se muestren los argumentos necesarios de la función en una hoja? Es decir, así como cuando se usa la función BuscarV, que en pantalla se muestran los argumentos necesario ("valor_buscado, matriz_buscar_en, indicador_columnas, [ordenado]") No se si es necesario subir archivo para esto, pero pego aquí la formula que he creado. Function RetencionISR(Sueldo As Double, Mes As Integer, Optional Extras As Double, Optional OtrosIngresos As Double, Optional AnteriorISR As Double) As Double Dim IngresosAnuales As Double Dim BonificacionAnual As Double Dim RentaBruta As Double Dim IGSSAnual As Double Dim DescuentoAnual As Double Dim TotalDescuentos As Double Dim RentaNeta As Double Dim Meses As Integer Dim ISRAnual As Double Dim DescuentoISR As Double Meses = 12 - Mes + 1 IngresosAnuales = (Sueldo * 12) + Extras + OtrosIngresos BonificacionAnual = 250 * 12 RentaBruta = IngresosAnuales + BonificacionAnual IGSSAnual = IngresosAnuales * 0.0483 DescuentoAnual = 48000 TotalDescuentos = IGSSAnual + DescuentoAnual RentaNeta = RentaBruta - TotalDescuentos If RentaNeta > 300000 Then ISRAnual = (((RentaNeta - 300000) * 0.07) + 15000) Else ISRAnual = (RentaNeta * 0.05) End If DescuentoISR = (ISRAnual - AnteriorISR) / Meses RetencionISR = DescuentoISR End Function
  10. Buenas tardes.Alguien me pueda ayudar a indicarme el código para desplegar la ventana de adjuntar elemento de outlook. No archivo adjunto, sino correo adjunto.anexo una PDF de la ventana que quiero desplegar para el usuario. la ruta "por decirlo así­" es: cuando estas en una nuevo correo en la ficha archivo, esta el grupo incluir, luego adjuntar elemento y por ultimo elemento de outlook.de antemano muchas gracias.excelente foro
  11. Buenas noches, tengo un problemilla y he estado buscando por internet pero no encontre nada, espero que me puedan ayudar en el foro de la misma forma con la que yo espero ayudar. El problema es el siguiente. Tengo un libro con varias hojas, entre ellas las siguiente: Empleados con los Nombre de empleado y el turno en el que trabaja , Mañana Tarde o Noche, con cada uno de los dias del mes (vamos un cuadrante de turnos) Cuadrante con una lista desplegable que coge el nombre del empleado y después en cada una de las celdas pone de los dias de la semana todo cogido de Empleados. Con esto consigo ver en la hoja Cuadrantes, el cuadrante individual de cada persona (Bien en diseño funciona todo perfectamente), en la lista desplegable de cuadrante selecciono la persona y me aparece los turnos que tiene esa persona en cada dia. Ahora bien, mi idea es que si tengo 50 empleados, tengo que ir cambiando el nombre en la lista desplegable y darle a imprimir uno por uno, se que debe de haber alguna forma de incluir un botón con una macro en excel para que al darle a imprimir, el automáticamente imprima los cuadrantes de todos los empleados individualmente, como si desplegáramos la lista uno por uno y le diésemos a imprimir. No se si me he explicado bien. Ahora que lo pienso mientras escribo esto podría grabar una macro y hacerlo todo manual la primera vez, pero claro si añado un nuevo empleado en la hoja empleados y modifico la lista desplegable de la hoja cuadrantes, tengo poca ideas de macros por no decir nula. Ayuda. Reedit: He probado a grabar una macro desplegando la lista de trabajadores y dándole a imprimir uno por uno, el resultado... me imprime 30 copias con el usuario que se encuentra activo en la lista desplegable, es decir no detecta que se haya cambiado de empleado.
  12. Imaginen que tengo estos datos en una Celda 448505, 448035, 448040, 448051, 448502 quiero un macro que me pueda devolver esto: 448505, 035, 040, 051, 502 osea que si los primeros tres numeros son constantes solo me deje el primero completo y los demas sin la constante. me seria de ayuda en un macro porque es un caso que se repite mucho en mi proyecto.
  13. Hola Buen día Si alguien fuera tan amable de ayudarme, nos migraron de sistema de administración de información y me sería muy útil me apoyaran a resolver este dilema (para mi). De antemano, gracias. CalificacionesBanner.xlsb
  14. Hola a todos, Estoy en el proceso de crear una base de datos y necesito replicar en filas la misma información para las diferentes empresas y para diferentes meses. Las variables son las siguientes: # empresa, nombre de empresa, # cuenta, nombre de cuenta y mes. En la base de datos me deben quedar todas las empresas, todas las cuentas para los 12 meses del año. Debido a que necesito colocar un valor diferente para cada empresa, cuenta y mes. Para el ejemplo adjunto, al final, deberían quedar 1200 filas. (12 meses x 10 empresas x 10 Cuentas) Tal vez no me hago entender muy bien pero no se como redactar lo que necesito, por eso envío adjunto un archivo en el que encontrarán la hoja "INFO" que muestra lo que requiero hacer y la hoja "Supuestos" que es toda la información que debo replicar. NOTA: El ejemplo que envío es con poca información respecto a lo que realmente debo hacer, por eso no me es viable la opción de hacerlo manualmente y requiero de una macro. Quedo pendiente y muchas gracias! Ayuda Datos.xlsx
  15. Hola, estoy intentando mostrar un video en un Formulario, cargando una Página HTML pero sin éxito lo que si he logrado es cargar imagen GIF. Anexo Archivo Excel, página HTML y Video mp4 para ver si alguien me puede ayudar. Gracias. video.rar
  16. Hola a todos, tengo 2 PC con Windows 7 de 32 bits y Excel 2010 y MySQL 6.2. A estos 2 equipos ya le instalamos los conectores "mysql-connector-odbc-3.51.30-win32.msi" y "mysql-connector-odbc-5.1.13-win32.msi" (instalé 2 para ver cuál me funcionaba). He conectado Excel con MySQL dentro de la misma PC, es decir, con la base de MySQL que se encuentra en la misma computadora donde hice la conexión (localhost), pero no lo he logrado de una PC a la otra PC. Debo decir que tengo conocimientos muy básicos de MySQL y redes. Lo que pretendo es conectar mi Excel con la base de MySQL de la otra PC para traer una tabla, hacer modificaciones y regresarla a MySQL, todo esto mediante Excel VBA. He buscado códigos en internet y no he logrado adaptarlos a mi necesitad. No hay error cuando usamos MySql que tenemos en nuestro mismo equipo: MiServidor = "localhost" El error es al tratar de indicar el IP de el otro equipo: MiServidor = "10.200.XXX.XX" Sub ExcelMySql20160921() 'variable para la conexión Dim Conexion As New ADODB.Connection 'idem para el nombre del servidor en este caso estoy empleando una versión en local Dim MiServidor As String 'ahora la base de datos en este caso se llama directorio y la tabla example Dim Dd As String 'variables para usuario y contraseña (no la creo porque no la tengo en el servidor, en otro caso hay que crearla Dim User As String 'variables para la tabla que tiene sólo tres campos Dim i As Long, Tabla, Nombre, Edad, Consulta As String 'el Recordset Dim rs As ADODB.Recordset '———————————————————————- 'Estableciendo la conexión '———————————————————————- MiServidor = "10.200.XXX.XX" Db = "northwind" User = "root" Set Conexion = New ADODB.Connection ' con esto utilizamos la conexión indicada más arriba Conexion.Open "DRIVER={MySQL ODBC 5.1 Driver}" & _ ";SERVER=" & MiServidor & _ ";DATABASE=" & Db & _ ";UID=" & User & _ ";OPTION=1" Set rs = New ADODB.Recordset Consulta = "SELECT * FROM example" rs.Open Consulta, Conexion, adOpenStatic With Worksheets(1).Cells .ClearContents .CopyFromRecordset rs End With 'Cerramos la conexión On Error Resume Next rs.Close Set rs = Nothing Conexion.Close Set Conexion = Nothing On Error GoTo 0 End Sub Indicando en el codigo cualquiera de los dos drivers que tenemos instalados el error da igual: "Se ha producido el error '-2147467259(80004005)' en tiempo de ejecucion: [MySql][ODBC 3.51]Host 'mc2530003dc0404' is not alluwed to connect this MySql server Tenemos instalados los dos drivers y con los dos lo intentamos, los corroboramos en esta ruta: Panel de control\Todos los elementos de Panel de control\Herramientas administrativas\Orígenes de datos ODBC\Controladores MySQL ODBC 3.51 Driver MySQL ODBC 5.1 Driver Muchas gracias por el apoyo.
  17. Hola amigos Agradezco anticipadamente a quien me pueda ayudar o asesorar en este tema. Tengo un archivo que me toca enviarlo 1 vez a la semana a unas 10 personas de sus ventas y de sus clientes o tiendas a cargo. Necesito enviar un solo archivo que cuando lo abran les toque colocar un usuario y contraseña y que eso permita que solo puedan ver sobre el filtro de la tabla dinamica. Opcion Coordinador. para cada uno de los coordinadores y no puedan ver lo de los demás coordinadores. Gracias Usuarios Contraseñas INFO.xlsx
  18. Problema que tengo ahora es que solo me permite cargar 2 archivos cuando trato de cargar más de 2 se revienta y sale el error "se ha producido error 1004 en tiempo de ejecución" le doy en depurar y me resalta esta línea Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count) Adjunto el archivo XLSM y un zip con los archivos que se van a cargar al tiempo Gracias por su ayuda Macro_Masivo.xlsm Archivos.zip
  19. Buenos días, llevo uno días intentando encontar una solución al siguiente problema y no lo consigo, os comento de que va, tengo una série de textos agrupados en párrafos en cada celda, con diversos numeros de líneas, según tengo entendido excel no puede saber que numero de "Líneas" hay así que he optado por hacerlos contando caracteres y espacios en blanco. el problema es que me he quedeado atascado a partir de la condición Len y no se como seguir, os pongo dos archivos de ejemplo, el de trabajo y el resultado que esperaba conseguir. Gracias a todos y pasad un buen día Partir textos según caracteres.zip
  20. Muy buenos días. No se si me podrían ayudar con algo... Requiero tener condicionada una textbox, de tal forma que si lo que se escribe en ella no es numero, me mande un mensaje de error... ejemplo: If textbox1 >< numero then 'En "numero", esta la parte del codigo que no puedo encontrar, como condiciono el textbox a que solo asepte numeros. msgbox "introdusca valoeres numericos" end if De antemano muchas gracias!!!...
  21. Buenos días, Me gustaría que me ayudaseis en una duda que tengo. Os explico, tenemos una base de datos con herramientas (HOJA BASE DE DATOS) en la que hay información de cada herramienta y otra hoja de REGISTRO,en la que se van metiendo las salidas de herramienta, lo que quiero hacer es que cuando se meta una salida de herramienta en REGISTRO, automáticamente me vaya sumando todas esas salidas en cantidad retirada por cada herramienta y así saber que cantidad disponible tenemos. Muchísimas gracias . Un saludo HERRAMIENTAS.xlsx
  22. Buenas Tardes, He intentado de varias formas pero no he podido lograrlo, espero que se pueda hacer, lo que quiero es de un listbox seleccionar un grupo e ingresar la misma información simultáneamente a todos los seleccionados. De antemano agradezco a todos y adjunto el archivo junto con una imagen que ayudara a explicar mejor. Saludos! Ejemplo.xlsm
  23. Hola Amigos, nuevamente por aca. Tengo el siguiente problema, necesito sumar por dos criterios por letra y color. Utilice la función Sumar.Si.Conjunto pero necesito el otro criterio que es color. SumaCondiciones.xlsm
  24. hola., alguien puede ayudarme tengo el siguiente código pero me marca que no coinciden los tipos, me pueden apoyar en que estoy haciendo mal?Gracias!! HOJA = ActiveSheet.Name LISTBOX1.RowSource = Workbooks("BCLIENTES.XLSX").Sheets(hoja).Range("A7:q50")
  25. Buen día a todos, un cordial saludo. En primer lugar me gustaría mencionar que no soy un experto de la programación en Visual Basic, y espero lograr explicar la consulta y/o ayuda que necesito con respecto a una macro y su respectiva programación en VBA. Para entrar en contexto, los archivos que voy a anexar corresponden a una encuesta sobre el lanzamiento de un producto al mercado. Dicha encuesta se va a realizar dentro de la compañía, y se hará por supuesto en Excel. El libro contiene dos hojas, la primera denominada "ENCUESTA", la cual es muy sencilla de responder: las personas indicarán con una X la o las respuestas que consideren correctas en cada pregunta. La segunda hoja se llama "RESULTADOS" (aún no contiene fórmulas en los archivos que anexo de ejemplo, pero no es problema ya que en sí requiero algo más complejo para mi), en esta hoja se irán cargando los datos que las personas vayan indicando. A partir de aquí, todas los libros que vaya recibiendo los iré guardando en una carpeta con diferentes nombres, pero los mismos tendrán en la hoja "RESULTADOS" los valores comprendidos en el Rango (D5:D20). Adicionalmente, poseo un libro que le he colocado por nombre "CONSOLIDADO DE ENCUESTAS", y en él ya se encuentra la siguiente macro: Option Explicit Sub Consolidar() Dim Archivos As Variant Dim ArchivoMaestro As Workbook Dim ArchivoActual As Workbook Dim N As Integer Application.DisplayAlerts = False Set ArchivoMaestro = ActiveWorkbook Archivos = Application.GetOpenFilename(filefilter:="Excel Files,*.xls", MultiSelect:=True) If IsArray(Archivos) Then Application.ScreenUpdating = False For N = LBound(Archivos) To UBound(Archivos) Workbooks.Open Filename:=Archivos(N) Sheets("RESULTADOS").Select Range("D5:D20").Copy Set ArchivoActual = ActiveWorkbook ArchivoMaestro.Activate Sheets("CONSOLIDADO").Select Range("D100").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues ArchivoActual.Close SaveChanges:=False Next Else Exit Sub End If End Sub Esta macro, en su forma, funciona digamos bien en gran parte para lo que deseo, que es abrir N cantidad de libros de la Encuesta, copiar los resultados y consolidarlos en mi libro "CONSOLIDADO DE ENCUESTAS". El problema radica en que la información la está colocando en la columna D y yo requiero que vayan colocándose en columnas diferentes, no en filas. Ejemplo: Del libro Encuesta1, Hoja RESULTADOS, Rango(D5:D20), lo coloca en el libro "CONSOLIDADO DE ENCUESTAS", Hoja CONSOLIDADO, Rango(D5:D20) (hasta aquí bien, el primer libro no es problema) Del libro Encuesta2, Hoja RESULTADOS, Rango(D5:D20), lo coloca en el libro "CONSOLIDADO DE ENCUESTAS", Hoja CONSOLIDADO, Rango(D21:D37) (esta información la requiero en el Rango(E5:E20)) Del libro Encuesta3, Hoja RESULTADOS, Rango(D5:D20), lo coloca en el libro "CONSOLIDADO DE ENCUESTAS", Hoja CONSOLIDADO, Rango(D38:D54) (esta información la requiero en el Rango(F5:F20)) En sí, como ya lo he mencionado, lo que requiero es que en vez de pegar todo en una misma columna, vayan moviéndose los datos en diferentes columnas. Espero haya sido clara mi explicación y me puedan ayudar. Muchas gracias de antemano CONSOLIDADO DE ENCUESTAS.xls ENCUESTA1.xls ENCUESTA2.xls ENCUESTA3.xls
×
×
  • Create New...

Important Information

Privacy Policy