Buen día, tengo un problema con el cuadro de listbox en un formulario de vb, el cual cuando esta en ejecución funciona, luego de agregar un registro, presiono el botón cerrar del formulario y lo cierra todo el libro de trabajo y sin grabar por favor si me pueden ayudar. El código que estoy usando para cargar el listbox del formulario con 5 columnas de datos es esta, el problema surge cuando cierro el formulario y se sale sin grabar; pasa lo mismo cuando uso el Me. list... Sub cargar_lista() Dim fila As Long fila = Hoja1.Range("A" & Rows.Count).End(xlUp).Row frm_proveedores.lis_proveedores.RowSource = Hoja1.Range("A2:E" & fila).A…

Buenas tardes, Amigos del foro quisiera solicitarles la ayuda para tratar de encontrar la solución al error expuesto en el titulo, les comento un poco estoy tratando de recrear un ejemplo del buen amigo Sergio Campos del sitio ExceleInfo: http://www.exceleinfo.com/buscar-registros-en-tabla-de-access-desde-excel-usando-sql-query-vba-y-ado/ Para lograr una actualización de un campo de una tabla de access desde un Userform, hasta donde el logrado interpretar: definí mis variables, mi tabla de Access, pero me genera un error en al instrucción Update que me devuelve el error: Rs.Open Source:=Query, _ ActiveConnection:=Conn Agradezco cualqu…

Buenas tardes, Amigos del foro estuve buscando información del tema en la web, antes de realizar mi consulta en el foro , pero no encontré nada que coincidiera . Detallo mi necesidad: Parte I 1, Deseo "Generar" mediante un botón en una hoja de Excel (Ver botón generar código en el libro adjunto), busque un valor en una tabla de Access" Clave dinámica "de forma aleatoria. la tabla esta compuesta de valores numéricos ordenados en filas y columnas : 2. En la hoja "Base "en la celda E1 colocar el valor del resultado del aleatorio. 3. Devolver el valor encontrado en un msgbox. Parte II 1. En el botón validar se desplego un userform com…

Un cordial Saludo Chicos. Necesito de su ayuda con respecto a cómo guardar datos que se han inscrito en objetos (TextBox y ComboBox) de un Userform en otro libro de trabajo de excel (Ej: "Otro Libro de Trabajo. xlms") que se encuentra en la misma ruta de acceso que la hoja de trabajo habilitado para macros donde se creo el userform (Ej: "Libro de trabajo donde esta el userform.xlms"). Consideren que: 1. los datos se guardaran en el "Otro Libro de Trabajo. xlms" Cuando se ejecute el evento Click del objeto "CommandButton_Guardar" del Userform, ejecutando el proceso de abrir el Libro "Otro Libro de Trabajo.xlms" y guardando los datos escritos en los objetos (TextBo…

Saludos de nuevo y buenas tardes. Desearia saber como puedo renombar un TextBox dentro de un formulario y mas concretamente en el evento Initialize del FORM. He aplicado esta sentencia pero obtengo un error, y no se como resolverlo. Gracias. ThisWorkbook.VBProject.VBComponents("FRM_Benef_Riesgo").Designer.Controls("TXT_Precio").Name = "TXT_Nuevo_Precio" Muchas gracias, Josep Miquel.

Buena noche a todos: Tengo una macro que me compartió un amigo desde hace varios meses, pero no tuve la oportunidad de probar, sin embargo, ahora que lo necesité, traté de utilizarlo pero me arroja un error de #¡VALOR! Esta macro en teoría calcula el área de un polígono usando angulos azimutales y distancias. Para ello selecciono de primero el rango de las distancias, luego el rango que contiene los ángulos azimutales, pero como resultado obtengo el mensaje anterior. Adjunto el archivo de ejemplo, para ver si alguien pueda apoyarme. Saludos. Ejemplo.xlsm

Buenas tardes colegas. Espero su salud sea excelente. Colegas, tengo un Proyecto en el que he venido trabajando para el Control de Ropa Sucia en la Lavandería donde trabajo en estos momentos, per necesito mediante un código poder consolidar los datos, o sea, que me haga una suma por hohas de cada producto. Todas las Hojas, que además contienen una Tabla son idénticas en cuanto a cantidad de columnas y necesito en la Hoja Consolidado hacer dicho calculo. Yo lo tengo hecho con el cálculo rtradcional, o sea, la suma de todas las celdas de cada una de las hojas, pero me gustaría más que fuera a traves de un Botón. Es bueno tener en cuenta que cada una de …

Buenos días a todos amigos, Acudo con ustedes en este momento, me bloquié en un código que estoy realizando, Les cuento, estoy trabajando con una consulta de tipo SOAP desde vba excel, logré enviar y recibir la respuesta de los datos, sin embargo, esto fue solo una prueba, ya que valide un dato en especifico, sin embargo, lo que quiero hacer, es validar varios datos a la vez y que esos datos lo tome desde excel, adjunto parte del código en donde considero que estoy mal, ya que no me da el resultado: Según yo con esto estoy referenciando a las celdas de excel, pero no se si me falta algo. Espero contar con el apoyo de ustedes, Mis respet…

Buenas a todos los forer@s Estoy realizando un userform con varios textbox y combo box y estoy bloqueado en un punto en el cual me gustaria que me ayudasen con ello necesito limitar un textbox con la fecha ,que no se vaya de valores minimo y maximos que indique Quiero limitar el textbox con las fechas 01/01/23 ----31/12/23 Me podrian ayudar con este tema Un saludo y muchas gracias por su tiempo

Buenas a todo el foro. En una macro para enviar correos mediante outlook como esta. With OutMail .To = "[email protected]" '.To = "[email protected]" .CC = "" .BCC = "" .Subject = "Correo de prueba" .Body = "" En el rango J2:J20 tengo correos diferentes y aplicando un filtro, me gustaria agregar a CC los correo/s que resulten en ese rango del filtro aplicado, no se si me explico. Gracias por adelantado ejemplo.xlsm

Hola a todos; ¿Es posible filtrar un segundo ComboBox según el item que seleccione en el primer ComboBox, tal y como reproduzco de forma manual en este .gif.? Los datos los cargo de forma manual para el ejemplo, lo interesante es que una vez cargados sea el método que sea se filtre según la condición. CONDICION: La condición a cumplir es que si el item del ComboBox1 = 55 entonces me filtre el ComboBox2 con los items cuya columna 3 sean igual a "Activo" y para el resto cogerá los "No Activo" Saludos. MCombosEnlazados.xlsm

Buenas tardes a tod@s, He rebuscado y rebuscado, y probado una y más cosas, pero no soy capaz de solucionar este problema. Creado formulario con unas dimensiones de 960x702 en un monitor de 1280x1024 me encuentro con el problema que cuando lo ejecuto en otra máquina (p.e.: portatil con pantalla de 1024x768) el formulario no se muestra completo. He encontrado algunos códigos que deberían tomar la resolución del monitor dónde se ejecuta y redimensionar el formulario (cosa que algunos si hacen) y los controles de este (cosa que no he conseguido casi con ninguno de ellos, aunque con resultados extraños). He tratado de implementar una solución del usuario A…

Hola colegas, buenas tardes y que tengan una excelente salud. Tengo un pequeño proyecto para controlar los comensales, pero necesito una hoja para llevar de manera manual las incidencias. ya tengo hecho todo, excepto que necesito en la Hoja Modelo, en la columna E me ponga una linea en la parte inferior de las celdas (Para Firmar), siempre que existan datos. Yo tengo este código: Private Sub BtnImprimirM_Click() Dim X As Long Application.ScreenUpdating = False Hoja10.Range("A4:D5000").Clear Worksheets("BD Alumnos").Range("A4:D5000").Copy Worksheets("Modelo").Range("A4") With Selection.Interior .Pattern = xlNone .TintAndShade = 0 .P…

Jelow, Yo por aquí de nuevo xD Estoy embarcándome en la posibilidad de dar clases de VBA a gente que no sepa NADA al respecto y explicarles desde lo básico a lo avanzado, las cosas más esenciales en cada aspecto. Como aquí son todos unos maestros, vengo a robaros ayuda (?) Tengo la siguiente tabla: La idea es que luego la persona, investigue en profundidad otros temas más complicados o métodos y trucos para usar cada función y fórmula. ¿Algún concepto que digáis, esto la persona tendría que saberlo? (igual está en la tabla lo que me digáis, pero prefiero saber vuestra opinión :D) Gracias de…

Buenas tardes, estoy haciendo un programilla para un restaurante y estoy atascado en el error del titulo de este post. Me sale en este caso, pero en una instancia anterior que llega a esta, hago exactamente la misma funcion pero con diferentes datos y funciona perfectamente. Vereis, lo que intento digamos es tener una lista de menus, seleccionar un menu y en una nueva pestaña, ver que platos contiene este menu, escoger un plato de dicho menu y ver que ingredientes contiene ese plato, digamos como una jerarquia de informacion. La lista de menu me aparece perfectamente, para ello y todo lo demas uso listboxes. Bien, selecciono el menu deseado y me aparecen lo…

Hola a todos: ¿Podrían ayudarme con esto? Ya he tratado de distintos modos sin éxito. En la celda G7, debo atregar un folio de documento, pero a ese folio (dependiendo del mes) se le debe agregar el numero del mes y el año. Entonces, el folio es "2457" y el mes es "02" y el año "23", por lo tanto en la celda G7 yo debo escribir "AC0223-2457" La idea es que solo se capture el folio "2457" y que automáticamente se agrege "AC0223-" Ya intente con una macro que agrege el texto cuando se modifique la celda, pero cuando la macro agrega el texto se está volviendo a modificar la celda y se cicla el proceso. ¿alguna idea? Les agradezco de antemano su apoyo. …

En lenguaje VBA : Seleccionar un excel por el usuario y buscar una palabra Facturas en la primera hoja excel 2. Hacer una busqueda desde la celda inferior donde esta Facturas hasta encontrar varios directorios de varios .pdf 3. Copie todos esos archivos .pdf en un directorio C:\facturas de manera automática Necesitaría modificar el ultimo bucle porque no para de hacer copias hasta que llega un punto de colapso total. Edito: Ya he podido hacerlo para dos pdfs , pero necesitaria hacerlo para un numero generico de archivos .pdf Edito 2: Ya lo he conseguido para un numero de veces n pero solo para un determinado de extensión . pdf o…

Hola, estoy intentando crear una macro que busque las filas con contenido en una hoja y que haga varias copias de este contenido en otra hoja, numerando el numero de copia. Hasta ahora he conseguido que me encuentre los valores y que copie y pegue pero no que me haga la cantidad de copias y las numere, adjunto codigo por si alguien me puede ayudar y también imagen de datos y resultado final que me gustaría obtener. Sub Copiar_Filas() 'inicializo la variable j j = 2 UltimaFila = Cells(Rows.Count, 2).End(xlUp).Row Dim xCount As Integer LableNumber: xCount = Application.InputBox("Copias de Kits", "Total de copias", , , , , , 1) If xCount < 1 Then M…

Muy buenas a todos, He estado bastante sobre este tema y pensaba que iba a ser un Topic mas sencillo pero la verdad que me he dado una sorpresa para mal! Por lo visto es un tema bastante complicado En mi caso , simplemente quiero adaptar mi userform a la resolución de la pantalla , ya que lo he creado en una resolución de 1920 x 1080 , he probado todo tipo de me.height= application.height .... y este tipo de cosas pero no funciona. En el caso que la solución super complicada como parece , como le puedo decir al userform que siempre se me abra en 1920x1080 Muchas gracias de antemano.

Buenas noches, Soy nuevo por aquí y he observado que hay varios post referente a realizar envío de mensajes mas o menos complejos a Whatsapp desde VBA. Hecho en falta una parte muy importante, que es poder capturar una respuesta que te haya dado un contacto para almacenarla y/o avanzar en la conversacion. Pongo un ejemplo, Tengo un listado de citas medicas en Excel que me gustaría confirmar su asistencia mediante comunicación whatsapp. Con lo que he podido encontrar por los foros llego a poder enviar a cada contacto un recordatorio de la cita, pero necesitaría que de alguna manera me indicara si podrá asistir o no a la cita para us…

Hola a todos. ¿Cómo crear una macro que permita eliminar (no ocultar) los ítems de una lista desplegable una vez estos hayan sido seleccionados? Muchas gracias por su ayuda. Subo un archivo para mayor comprensión. Eliminar item de lista desplegable.xlsx

Hola a tod@s. Tengo libro con 50 hojas. Sub OcultarExceptoActiva() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden Next Ws End Sub Hace lo que dice. Pero el problema está en que no obedece a sus vínculos. ¿Se podría solucionar? Agradecido de antemano.

Holaa, tengo este código con el que genero la eliminación de celdas vacías porque extraigo archivos que contienen muchos datos Me funciona bien cuando los datos no son muchos, pero cuando son muchos me muestra el error del título Alguna alternativa para solucionarlo? Este es mi código Sub EliminarCeldas() ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp Range("A1").Select End Sub Espero puedan ayudarme! Gracias

tengo las siguientes intrucciones: Range("A:E").Select ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Clear ActiveWorkbook.Worksheets("RevicionSubCta").Sort.SortFields.Add Key:=Range( _ "B2:B" & u & ""), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("RevicionSubCta").Sort .SetRange Range("A1:E" & u & "") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range(Range("A1"), Selection.End(xlDown)).Offset(1, 0).En…

Buen día, como puedo variar mediante un ciclo for el número de hoja en el codigo siguiente: For m = 3 To 25 Step 2 For I = 1 To ultfila If Hoja3.Cells(I, 1) = Hoja27.Range("D5") Then ..... a algo así: if Hoja(m).cells(I,1) = Hoja27.Range("D5") Then el detalle está que no deseo usar el nombre de la hoja y si uso el indice de hoja al cambiar de posición me cambia el indice y ya no me funiciona, es decir que debe buscar la hoja sin importa sin cambian el nombre de hoja o posición de hoja..