Espero que me ayude con un problemita que me surgio mientras estaba realizando mi macro. Yo tengo mi macro en un archivo sin datos, cuando ejecuto mi macro tengo abierto otro archivo donde se le hacen varias cosas con la macro en determinado momento se pide abrir un archivo es donde se abre el cuadro de dialogo para seleccionar el archivo, hasta ahi todo bien, me abre el archivo, pero al momento que quiero interacturar entre los achivos con las formulas me muestra el cuadro abrir archivo (2 veces por cda formula). Si selecciono el archivo del que quiero los datos todas las veces que aparece me jala los datos bien, pero el punto es que si ya tengo el archivo (y su nombre e…

Hola, gusto saludarles. Necesito realizar una modificaciones de formato en una hoja que está oculta, lo que quiero es que al estar oculta no tener que hacerla visible, seleccionarla, correr la macro y volverla a ocultar. Tengo el siguiente código: With Hoja7 With Range("D23:D24").Font 'encabezado .ThemeColor = xlThemeColorDark1: .TintAndShade = 0 End With With Range("D26:D43").Font 'cuerpo sin lo estreses que deben quedar más tenues .ThemeColor = xlThemeColorLight1: .TintAndShade = 0.499984740745262 End With With Range("D49:D51,D53:D54").Font 'CSD y Generación de divisas .ThemeColor = xlThe…

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.

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…

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

Buenas, Estoy realizando una Macro en Excel con Visual Basic (SO Windows 7), y necesito obtener datos de un archivo .ods. Mi problema es que la macro me devuelve un error cuando intento abrir el archivo con el comando Workbooks.Open (ruta + nombre), pero si abro el archivo ods, le doy a guardar como, y lo sobreescribo, la macro ya lo abre sin problemas. Lo que necesito es lo siguiente: automatizar de cualquier forma ese proceso de abrir y sobreescribir el documento .ods. Lo ideal sería realizarlo desde la macro, pero si es necesario llamar a un .bat o ejecutar líneas de comando en la consola no hay problema, lo que necesito es automatizarlo. P.D: Evidentemente …

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…

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. ---------------…

Saludos @JSDJSD espero estes bien como ya me dio un excelente soporte adaptando a Macros Vba las fórmulas de mi anterior post: Espero también pueda ayudarme con los resultados de estas dos últimas fórmulas que me faltan en los TextBox26: y TextBox32: TextBox26: si alguno de los TetxBox16, 17, 18, 19, 20, 21, 22 es mayor que el ComboBox2 entonces se debe de restar el TetxBox que cumpla con la condición menos el ComboBox2 siendo así el resultado que se debe mostrar en el TextBox26 de manera simultánea y automática será la sumatoria de los resultados individuales de cada TetxBox mediante la combinación de las siguientes operaciones equivalentes en Vba: SI(Text…

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!

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…

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

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.

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…

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

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

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

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

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 …

Hola a todos, Tengo un lista box que me carga la información de una tabla de 13 columnas de las cuales me interesan sólo 5 de ellas: la 1, 4, 9, 11 y 13 por lo cual oculto las que no tienen con ancho 0. El listbox carga los datos sin problema. El buscador funciona bien también pero cuando la columna es la 10 o mayor de .list es menor que 10. Va marcado en azul y negritas donde está el problema. ¿cómo puedo solucionarlo? Private Sub UserForm_Initialize() 'se definen características del Listbox (columnas, ancho, títulos) With LstBusqueda .ColumnCount = 13 .ColumnHeads = True .ColumnWidths = "60;0;0;160;0;0;0;0;240;0;100;0;100…

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, 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

buena tarde solicito su ayuda con lo siguiente. Tengo una BD en access con cierta cantidad de registros que cada día aumenta. tengo una columna de la tabla que se llama CAUSAL, la cual tiene items diferentes. Necesito contar esos items y mostrarlos en un label de un formulario de excel. el formulario de excel tiene un combobox que me muestra una lista de causales entonces debo contar el causal que seleccione del combobox y que sea igual al de la bd y que muestre la cantidad en el label. ejemplo de items columna causal: Retiro, fallecimiento, falta de dinero. espero haber sido claro y de antemano mil gracias por su ayuda

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…