Buenos dias expertos: Solicitando su ayuda con un pequeño problema el cual explico brevemente Tengo una macro que abre un numero determinado de archivos con un bucle con la instruccion Worksheet.open extrae infromacion y cierra dichos archivos mi problema es que cuando alguno de estos archivos trae formulas relacionadas con otros archivos al momento de abrirlo la macro me envia el sig mensaje y se detiene hasta no dar clic en actualizar o no actualizar, pudiera haber una manera de que no aparezca dicho mensaje o que se pueda dar clic automaticamente al abrirlo para que no se interrumpa el proceso. PD no considero necesario adjuntar algun archivo …

Buenas noches amigos necesito una ayudita para los que les gusta comparatir su conociemtiento en VBA, estoy tratando de desarollar un formulario que carga o enliste en una hoja de excel archivos pdf con sus caractieristicas generales y a su vez luego poder visualizar en un Web Browser. Este formulario cuenta con un textbox donde se visualiza la ruta del archivo a cargarce en la lista de la hoja1, el boton examinar buscará el archivo a enlistar, una vez que tengo mis archivo estos se visualizar en un combobox y al escoger puedo visualizar, no se si el boton Cargar PDF esta demás para visualizar porque simplemente se elegiria del combobox. Me intereza también poder extraer …

Buenos días Foristas. Una vez más por acá. Quizás más rápido de lo que yo hubiera querido, pero sigo teniendo problemas con los cálculos en VBA. Es algo que no acabo de aprender y necesito aprenderlo. Acá en mi país cuando un trabajador se enferma y el Médico le da Reposo, emite un Certificado Médico, donde entre otros datos consigna los días a Descansar y la fecha Inicial cuando comienza ese Reposo. Imagino que en todos lados sea parecido, quizás difiera en el cálculo. Yo quise automatizarle esto a mi esposa para que hiciera los cálculos de manera automática con sólo introducir los datos imprescindibles. Primero: Declara el Salario devengado por cada uno d…

Buen dia, Necesito ayuda con una macro, la cual concatena unos números con un guion. Necesito que en el resultado final reemplace el guion por una coma. Trate de hacerlo grabando y usando buscar>reemplaza, funciona, pero al pegar el código en la macro solo lo hace con la primera celda, a las demás les quita el guion y fusiona los números Dentro del archivo hay un cuadro explicando mas fácil. Saludos!. Guion x coma.xlsm

Buenas Tardes: Tengo 2 hojas en excel una categorias y otra subcategorias. Necesito crear 2 combobox en un userform y que suceda lo siguiente: 1. combobox categoria sea medicamento combobox subcategoria aparezcan humano, fitoterapeutico, homeopatico, veterinario y oficinal. 2. combobox categoria sea cosmetico combobox subcategoria aparezcan humano, veterinario y dermatologico. 3. combobox categoria sea suplemento dietario combobox subcategoria no aparezca nada 4. combobox categoria sea alimento combobox subcategoria no aparezca nada 5. combobox categoria sea plaguicida combobox subcategoria no aparezca nada Una vez mas gracias

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

Hola. Tengo una macro que me rellena un excel, que está en extension .csv. Si pincho en la X de cerrar , me pregunta "Algunas caracteristicas de su libro pueden perderse si lo guarda como CSV (delimitado por comas). ¿Desea seguir utilizando este formato?" Yo le digo que Si y me lo guarda delimitado por ";" (punto y coma), que es como yo necesito El problema es que si en mi macro incluyo ActiveWorkbook.Save, o ActiveWindow.Close, no me hace dicha pregunta y lo guarda delimitado por "," (coma), lo cual no me sirve ¿Alguien sabe como hacer para que cerrandolo con la macro, lo guarde delimitado por ";" (punto y coma)? ¡Gracias anticipadas!

Hola compañeros, Tras varios intentos devanándome los sesos de cómo modificar un registro existente, lo intentaré por aquí a ver si puedo encontrar la solución. Tengo un formulario en el que puedo registrar la entrada de un nuevo alumno, si este alumno está en la base de datos me devuelve al formulario todos los datos existentes. Ahora bien quisiera poder modificar esos datos del alumno existente sin que me cree un nuevo registro. Adjunto el archivo. Muchas gracias de antemano Un saludo registro modificacion.rar

Me ha ocurrido algo muy raro, en las hojas excel que habro las columnas van numeradas 1, 2, 3 así sucesivamente y las columnas igual 1, 2, 3 así sucesivamente, pero hasta hace unos días las filas estaban numeradas con a, b, c .... Como puedo cambiarlo. Envío adjunto. Gracias Pitidos.xls

Hola, tengo un userform con un ComboBox que al iniciar selecciono un item. se podria hacer que al seleccionar uno de esos item cargue en el TextBox1 otro item relacionado con el ComboBox. ejemplo: Seleccionar Enero y en el texbox1 ponga 31 dias. Que los datos no los seleccione de una tabla que los seleccione desde el userform. Gracias Saludos. Libro1.xlsm

existe algun comando para terminar la ejecucion de la macros desde dentro del codigo? If StoPper <= RealMonth Then mSg = MsgBox("El mes analizado no cuenta con datos reales", vbCritical, "Error") 'aqui nececito algo que termine todos los procesos y termine la macros Else ... gracias.

Buenas me gustaría saber como hacerle para crear una macro que sea capaz de informarme cuando esta por agostarse mis inventarios Inventario.rar

Hola. Tengo una base en la que por columnas introduzco diferentes datos. Necesito una macro que me cree filas en blanco para introducir nuevos registros, pero no me elimine el formato y las fórmulas, porque sin ellas el resto de la base no tiene sentido, y las personas que le darán uso no estarán atentas para arrastrar las fórmulas de las otras filas hacia las nuevas. Solo conseguí la macro que crea filas nuevas, pero me copia el valor de la fila superior, y si ordeno limpiar las celdas no consigo que me respete las fórmulas. A ver si alguien me puede ayudar, muchas gracias.

Tengo un problema tengo que simular una baraja americana con numeros aleatorios ya tengo los numeros aleatorios que estan asignados a cada carta y el aleatorio que genera una carta cuando presionamos F9 , lo que quiero es que al presionar F9 aparesca la imagen de la carta. saludos aqui les dejo mi archivo zandoval.zip zandoval.zip

Hola buenas, estoy haciendo una planilla de control de partido de balonmano i no sé cómo hacer lo siguiente: Un cronometro que empiece de 00:00 hasta 30:00 son dos partes de 30:00 que tenga cuatro botones (iniciar crono ,pausa crono i resetear para que vuelva a 0 el crono i seleccionar parte 1ª o 2ª ). Después hacer unas casillas de control de resultado cada cinco minutos ( 5,10,15,20,25,30) primera parte i segunda parte (5,10,15,20,25,30) me guastaría que cada 5 minutos se pusiera solo el resultado en cada casilla que toque a partir del crono. Tengo hecho dos celdas donde representa el marca…

Hola amigos tengo la siguientes macro que saque por ahí, pero me a traido muchos problemas, lo que quiero es que según un valor ingresado me entregue una fotos con ese nombre y además me comprima la foto, porque tengo que insertar cerca de 40. agradezco desde ya su ayuda y buena voluntad. adjunto archivo saludos imagenes.rar

Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim rumbo As String If Application.Intersect(Target, Range("E4")) Is Nothing Then Exit Sub Else Set KeyCells = Range("E4") Azi = KeyCells If (Azi >= 0 And Azi <= 20) Then rumbo = "nn" ElseIf (Azi >= 21 And Azi <= 69) Then rumbo = "ne" ElseIf (Azi >= 70 And Azi <= 110) Then rumbo = "ee" ElseIf (Azi >= 111 And Azi <= 159) Then rumbo = "se" ElseIf (Azi >= 160 And Azi <= 200) Then rumbo = "ss" ElseI…

Amigos Muchas gracias por este necesario e impresionante sitio y ayuda prestada. Tengo una duda tengo un macros para guardar ciertos datos de manera vertical, pero mi gran duda ahora es se puede hacer algo similar pero de forma horizontal? Sub copia() Dim Datos As Range, Dato As Range, x As Byte Set RECUENTO = Range("R3:U3") With Sheets("Hrs").Cells(Rows.Count, 2).End(xlUp)(2) For Each Dato In RECUENTO .Offset(, x) = Dato: x = x + 1 Next Dato End With End Sub Lo que necesito es copiar un rango fijo (q7:v404) a otra hoja y que estos sean copiados hacia la derecha (despues de la ultima columna vacia) Desde ya mu…

Hola, es mi primer mensaje en el foro. Mi nombre es Alejandro y soy estudiante de Ingenieria Civil Siguiendo un post anterior Macro ReSolver ecuaciones de una incógnita quise resolver el problema planteado en el ultimo mensaje, en el cual se llega a un error de la función cuando la ecuación presenta un cambio de tendencia. Mi idea fue la siguiente: En cada ciclo comprar el resultado obtenido de Q con el real y guardar la diferencia en una variable. Luego si la diferencia es menor que la anterior guardar el valor de Y en una variable Yb. Para evitar el error de la función en el cambio de variable, cambie la condición de comparación del ciclo Do por una que recorra t…

Buenas, escribo este tema para ver si a alguien más le ha pasado y sabe el motivo por el cual sucede o como corregirlo. Desde ayer, cuando ejecuto cualquier macro (de un mismo archivo o cualquier otro archivo), la misma se “para” sin motivo aparente, y sale el recuadro de “La ejecución del código se ha interrumpido”; le doy a continuar y todo finaliza sin problemas; si le doy a depurar la macro se para el cualquier línea de código (nunca es la misma línea); si la macro es larga, el recuadro de interrupción sale varias veces hasta que finaliza la ejecución del mismo (dandole a continuar). El problema, según lo que yo he logrado detectar, sucede cuando la ejecución del a…

Buenos días gente, bueno es simplemente lo que dice el titulo, quisiera que en una determinada hoja (no en todo el libro) se resalte la fila activa con algún color, sin que modifique los formatos condicionales que pueda llegar a tener esa hoja No lo intenté hacer con formato condicional ya que es una tabla muy extensa y supongo que el rendimiento del libro bajaría en comparación si usaría VB Desde ya muchas gracias y saludos Buena Vida

Hola amigos: Tengo el siguiente código: Public Buscarhoja As String Private Sub UserForm_Initialize() 'Al iniciar el userform Application.Visible = False 'Ocultar la Aplicación Excel End Sub Private Sub UserForm_Terminate() 'Al cerrar el userform Application.Visible = True 'Mostrar la Aplicación Excel End Sub Private Sub UserForm_Activate() 'cargar número TextBox20 = Sheets("EXTRAS").Range("O1") + 1 'Cargar combobox ComboBox1.RowSource = "FP" ComboBox4.RowSource = "LA" ComboBox5.RowSource = "EP" p = Sheets("CLIENTES").Range("C1").End(xlDown).Row ComboBox2.RowSource = "CLIENTES!D2:D" & p End Sub Private Sub TextBox1_Change() 'Formato de fecha E…

Hola amigos, solicito su ayuda con el siguiente caso: Mediante una macros quisiera subir varios archivos excel automáticamente a la nube de DRIVE (hojas de cálculo Online). Para no estar subiendo uno por uno, ya que diariamente tengo que subir 50 archivos excel al Drive, y como son los mismos formatos tendría que reemplazar diariamente la misma hoja de cálculo de Drive. Ejemplo - Hojas de cálculo de Google. Quedo atento a vuestra gentil respuesta. Gracias!!! EJEMPLO.rar

Pretendo crear una tabla para hacer un seguimiento de documentos, de dónde vienen y dónde están. Los documentos son ingresados a la tabla con anterioridad (en una primera etapa), junto con otros. Luego de un tiempo estos documentos tienen destinos diferentes. Mi problema esta en la segunda etapa, al momento de registra el destino de esos documentos. Mi idea es por medio de un USEFORM: Textbox1: Ingresar el Nº del documento. (Buscaría en datos ya cargados) Textbox2: Fecha de Endoso. => COLUMNA (J) Textbox3: Endosado a. => COLUMNA (K) Textbox4: Obs. => COLUMNA (L) Lo que quisiera lograr es: Buscar en la Tabla, el dato ingresado en el Textbox1, a partir de …

tengo un libro con 20 hojas, 1 por cada deposito de vino, la cuestion es la siguiente: -hoja de deposito 1: fecha entrada salida a deposito total 1/1/1 1000 1 1000 "/2/2 100 2 900 -hoja de deposito 2: En la hoja del deposito 2 deberá aparecer esa ultima linea automáticamente fecha entrada salida a deposito total 2/2/2 100 100 2 100 solo se copiaría hasta la celda total, el resto no porque tengo datos externos