Hola a todos! Quería saber si me pueden ayudar con este problema. El problema surge porque tengo 133 archivos de excel, y me gustaría poder copiarlos a todos en un solo excel, dividiendo la información de cada archivo en una hoja, y respetando el orden de numeracion, es decir, la información del archivo llamado 1, se coloque en la hoja 1, la del archivo dos, en hoja 2, y así sucesivamente. He encontrado Macros que realizan este trabajo, pero copian toda la información en una sola hoja, y el recorrido de Archivos es aleatorio, por lo que me modifica el orden necesario de los mismos. Un saludo y ojalá puedan ayudarme.

Estimados, Tengo el siguiente códgio para crear citas desde una macro. Private Sub CommandButton1_Click() Dim Respuesta As VbMsgBoxResult Dim ol As New Outlook.Application Dim ns As Outlook.Namespace Dim itmApoint As Outlook.AppointmentItem Set ns = ol.GetNamespace("MAPI") Set itmApoint = Outlook.Application.CreateItem(olAppointmentItem) With itmApoint .Start = "2014-05-22 13:00:00" .End = "2014-05-22 13:00:00" .Subject = "Prueba" .Body = "Prueba" .Importance = olImportanceNormal .Save End With MsgBox "Se creó el recordatorio en Outlook", vbInformation, "Mensaje" End Sub Este código me funciona muy bien en algunas máquinas,…

Buen día, soy un poco nuevo en estos temas de excel, no sé como hacer alguna función o macros para hacer cierto procedimiento en excel, la problemática es la siguiente, hay una lista de datos en una columna y lo que se requiere es que de esa lista de datos seleccionar aleatoriamente datos con la tecla Ctrl o hacer una función como un check en las celdas para seleccionar los datos que requiero y al seleccionar el dato que se pasen esos mismos datos a otra columna de esa misma hoja en excel. Desarrollé una macros que al seleccionar datos aleatoriamente con un botón le indico en que columna requiero pegarlos y los pega en forma de lista y lo que requiero es algo similar…

Hola como estaN, Camila desde argentina y estoy terminando, Pero me quede trabada y no puedo sacarla a flote El codigo es el siguiente Set RsBusq = .Columns("A2:Z2").Find(what:="cocacola", lookat:=xlWhole, LookIn:=xlValues) If Not RsBusq Is Nothing Then ROFO = RsBusq.Offset(0, 1).Value Necesito que encuentyre todas las palabras"cocacola...." y me copie sus respectivas columnas hacia la derecha, pero no me esta saliendo... Agradezco su ayuda!

Queridos colegas tengan buen día. Ahora me encuentro con una dificultad la cual es que no logro mostrar los encabezados de los datos que voy añadiendo al ComboBox. Cambie Mencionar que el combobox de arriba en el evento change realice la instruccion sobre el combobox de abajo. codigo: With ComboBox10 .AddItem BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 1) = BD.Range("A" & x_Busco) .List(ComboBox10.ListCount - 1, 2) = BD.Range("D" & x_Busco) .List(ComboBox10.ListCount - 1, 3) = BD.Range("C" & x_Busco) .List(ComboBox10.ListCount - 1, 4) = BD.Range("B" & x_Busco) .List(Co…

Saludos para todos. En una hoja protegida, necesito trabajar con algunas celda bloqueadas, necesito limitar el área de trabajo a determinados rangos. La opción SrollArea del la hoja solo me permite indicar un rango, y necesito hacerlo con varios rangos de la misma hoja. ¿Hay alguna forma de hacerlo? ¿Se puede hacer con un código VBA? Gracias por vuestra ayuda.

Buenas tardes tengan todos ustedes, sin encontrar una solución a mi problema hoy acudo a su apoyo. Tengo el siguiente código que me ayuda a seleccionar varios elementos de una lista desplegable: Private Sub Worksheet_Change(ByVal Target As Range) Dim I As Integer Dim xRgVal As Range Dim xStrNew As String Dim xStrOld As String Dim xFlag As Boolean Dim xArr Select Case Target.Column Case 7 On Error Resume Next Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation) If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub If Intersect(Target, xRgVal) Is Nothing Then Exit Sub Application.EnableEvents = False xFla…

Hola buenas tardes. Si es posible, necesito una mano con un tema. Tengo un archivo en Excel con 2 hojas: La hoja base de datos la utilizo para cargar 3 cosas: 1) nombre, 2) desempeño laboral, y 3) potencial de una persona. En la otra hoja tengo una matriz, y lo que deseo hacer es insertar el nombre y apellido de la persona en el cuadrante correspondiente. Ej Ariel y Javier deberían encontrarse en la celda “E3”, Pedro en “D4”y Juan en “E5”. Hay alguna manera de desarrollar una formula o macro para esta actividad, teniendo en cuenta que la lista de gente puede ir creciendo y toda esa información luego debería ir a parar a la matriz en el cuadrante correspondiente?. Ad…

Buenas tardes, quisiera saber si me podrían ayudar con lo siguiente: - Tengo un sistema de facturación en excel, el cual se ejecuta con un macros, quisiera que almacene los datos de la lista generada en la macros factura en la hoja FActura puesto que solo almacena el ultimo dato ingresado(todo esto esta ubicado en la hoja FACTURA). Muchísimas gracias les adjunto el archivo [ATTACH]38378[/ATTACH] factura.zip

Hola a todos, He escrito un macro con un bucle (Do/Loop Until) para que realice iterativamente el cálculo de una probabilidad hasta que esta sea mayor que el valor umbral fijado. Cuando se supera este valor, la macro debe de escribir en unas celdas determinadas el resultado del calculo inmediatamente anterior al que superó el umbral. Lo he probado y al ejecutarlo el cursor no para de girar y me dice que Excel No Responde. Supongo que entra en un bucle infinito. No se que he hecho mal. Os subo el archivo por si me podeis ayudar. Gracias de antemano. Saludos. Cálculo tamaño familias_m2.xlsm

UserForm.Comobobox pasar datos a columnas según el titulo se coloquen datos uno debajo. Estimados. He venido a buscar vuestra ayuda con algo que me está rompiendo la cabeza. Tengo un UserForm donde ingreso unos datos a una hoja con varias columnas pero no siempre se llenan todas por lo cual necesitaría que se llene por fila uno bajo otro como base de dato dependiendo lo que se ingrese, el tema que cuando se graba a partir de la 3 fila se terminan grabando en la fila anterior sobre los datos que ya estaban ingresados. Adjunto archivo para que se pueda entender visualmente. Desde ya muchas gracias por su tiempo. Muy bueno el foro me ha enseñado mucho. ---------------…

Hola a todos. Solicito ayuda para poder concatenar textos de celdas consecutivas. La verdad parece sencillo pero no doy con la solución. Atento a sus respuestas quedo agradecido de antemano. Prueba concatenar textos consecutivos.xlsm

hola a todos. Tengo un fichero en formato .xlsm que calcula cuadros de amortización de préstamos "sistema francés". Tengo en la columna "C" que es el Número de cuota, pero necesito añadir una nueva columna al lado derecho (que sería la columna "D" y que actualmente corresponde al "Capital") que calcule el VENCIMIENTO en formato Fecha. Entonces, creo que habría que crear una celda con la FECHA INICIAL para que calcule los vencimientos de la nueva columna, que debería llamarse "Vto" Si alguien puede ayudarme, se lo agradecería. Saludos y feliz semana. Cuadro Amortización PTMO francés macros_Nº cuota.xlsm

macro que borre contenido de celdas especificas? Muy buenas Tardes Me han pedido en mi trabajo que realize una base de datos que pueda borrar ciertas por asi decirlo encuestas y es una base de datos de mas de 50000 filas, cada encuesta tiene su numero unico y quisiera que me ayudaran a hacer una macro que hago lo siguiente ya que programar si no es lo mio y me urge: Al yo ingreser un numero de encuesta o una lista de numeros como les sea mas facil la macro encuentre la fila donde esta ese numero unico y borre las celdas de la misma fila en la columna X al archivo que adjunto tiene las notas para entender un poco mas macro.xls

Estimados Maestros me encuentro realizando un proyecto de trazabilidad en el cual he podido extraer los datos de una determinada fecha a los textbox pero desde la hoja de excel que en realidad no es muy complicado, el problema es que necesito importar los datos desde un archivo de texto al formulario que adjunto en el presente los datos deben estar separados por delimitador punto y coma ya que contienen algunas columnas creadas con macros desde excel, no he resuelto aún realizar la búsqueda en función de la fecha y peor aún organizarlos en los textbox, de ser posible y si alguien me puede ayudar adjunto ambos archivos para su colaboración. Agradezco de antemano todos…

Hola . Un favor , tengo un formulario para llenar las ventas del día, el cual va cargando los datos a la hoja2 buscando la ultima fila y llenándolo con los datos que grabe, mis encabezados son los siguientes NOMBRE/FECHA/LA/COD/BOLETANº/PASAJERO/BOLIVIANOS/DOLARES Y lo que quiero que me ayuden es que solo me visualice en el listbox los encabezados y el ultimo dato ingresado, Gracias Jesús

Necesito de su ayuda quisiera cambiar este título: “PUBLICACIÓN. . .”, por otro. Esto sucede cuando estoy exportándolo o convirtiéndolo a PDF una hoja de Excel. Aquí les dejo la MACRO: Sub Imprimir() If MsgBox("¿Estás seguro que deseas imprimir el archivo.?", vbQuestion + vbOKCancel, "HOLA") = vbOK Then MsgBox "Procediendo con la impresión del archivo. . .", vbInformation, "HOLA" MsgBox "Seleccione la ubicación o Directorio a guardar su archivo .PDF. . . !", vbExclamation, "HOLA" 'nombre = WorksheetFunction.Text(Now(), "dd-mmm-yyyy-O-hh-mm-ss") nombre = "HOLA" ruta = Application.GetSaveAsFilename(nombre, "Pdf,*.pdf", , "Guardar como") If ruta &l…

Buenas tardes Estoy intentando adaptar a mis necesidades un aporte de Macro Antonio (combobox dependientes o independientes), lo único que conseguí es que no funcione nada, por favor si alguien puede ayudarme se lo agradecería Es realidad lo que quiero conseguir es que en lugar de cuatro columnas, tenga siete, todo lo demás me sirve tal como esta el aporte Envío archivo con lo que hice mal Gracias Un saludo J. Carlos Combos dependientes y no dependientes (5).zip

Hola a todos, Sé que la exportación a pdf es un tema concurrido pero no he conseguido resolverlo en excel. Problema: Necesito exportar varios documentos a pdf. Cada documento pdf consta de dos hojas del libro excel: 1 hoja llamada "informe_1" y 1 llamada "presupuesto_1" Además necesito que este archivo exportado a excel tenga como nombre el campo de 4 celdas del informe separados por guiones para que quede algo como: Agente - nºpresupuesto - CUPS - Titular En total tengo que exportar 10 archivos pdf. Cada archivo correspondería a su informe_n + presupuesto_n Agente - nºpresupuesto - CUPS - Titular Informe_1 Presupuesto_1 Ag…

Saludo cordial. Por favor a quien me pueda ayudar . Deseo cargar los nombres de las hojas en un combobox pero que este se de a partir de la hoja 5. Prívate Sub Userform_Initialize Dim hoja as Worksheet. Combobox1.clear For Each hoja un Worksheets MySheet= hoja.name Combobox1.Additem MySheet Next End Sub Este código me carga la totalidad de los Nombres de las hojas en el combo y requiero que solo me cargue los nombres apartir de la hoja 5 . De ante mano, mil gracias a quien me pueda colaborar

estoy tratando de hacer una macro que haga una tabla dinamica con rangos Dinamicos esta es la formula, Pero al Ejecutar la macro Me aparece un error que dice arugmento o llamada a procedimiento no valida, que estoy haciendo mal? de su ayuda Por Favor........ Dejo el archivo adjunto, y por favor indicarme cual es mi error. Gracias. Libro1.rar

buenos días compañeros, espero que se encuentren bien, Tengo el siguiente caso, en la columna W se pone el mes anterior al que estoy, es decir, estamos en Marzo 2020, en W1 se deberá poner Febrero 2020. las columnas L a V seguirá disminuyendo de a mes , cómo así? Sí en W1 está Febrero 2020 las columnas deberán quedar así v1: Enero 2020 - u1:Diciembre 2019 - T1: Noviembre 2019 - S1: Octubre 2019 - R1: Septiembre 2019 .... L1:Marzo 2019 El proximo mes, cuando estemos en abril, la casilla W1 deberá ser Marzo 2020 y el resto de columnas v1:Febrero 2020 - u1:Enero 2020 - T1: Diciembre 2019 - S1: Noviembre 2019 - R1: octubre 2019 .... L1:Abril 2019 …

Buen dia Tengo la siguiente macro en la cual debo ir filtrando cada una de las columnas, con valores y las demas en ceros para poder sacar la suma y copiarla en la parte superior, y asi ir recorriendo todas las columnas, en la siguiente la columna 5 ya no hago nada y a la 6 la filtro con los <> a cero, esto lo quiero meter en un ciclo pero no he podido, creeria que seria un for e ir eliminando de una columna en cada nuevo ciclo hasta llegar al ultimo, si tienen alguna idea de como lo podria realizar, les agradezco este es parte del codigo que tengo hoy en dia manual, pero para que vean que en el siguiente va saliendo una columna. ActiveSheet.…

Hola, Estoy intentando aprender macros sencillas, pero me enganche en el Vlookup, no consigo hacer uno sencillo que me añada el nombre de un codigo que esta en otra pestaña. Que me falta o me sobra!?!? Basicamente quiero que me añada en la columna H el nombre del Codigo. Sub Vlookup() Dim Destination Dim Name Dim Cont Cont = 2 Do While Range("A" & Cont) <> "" Range("K" & Cont).Select Application.WorksheetFunction.Vlookup Range("H" & Cont), Worksheets("Sheet2").Columns("A:B"), 2, 0 Cont = Cont + 1 Loop End Sub Vlookup.xlsm

Hola a todos, He estado tratando de programar un trabajo que me pusieron en mi carrera, lo he intentado varias veces pero siempre me quedo atascado en el mismo error. No sé qué error es, y tampoco sé cómo arreglarlo. Por favor, si alguien sabe qué error es o sabe cómo se puede solucionar dicho error, ayudarme lo más pronto posible. Les dejo las instrucciones que me dieron para solucionar el programa, que por cierto, es un parqueadero. _____________________________________________________________________________________________________ La práctica consiste en la gestión de un parqueadero que tiene un número determinado de puestos identificados con los números 1, 2, 3 ……