Una pregunta: "¿Alguien sabe cómo centrar los títulos de un cuadro MsgBox que no se utilizando espacios en blanco, sino que se realice de manera automática?" Debe existir algún valor de una propiedad que desconozca. Gracias.

Hola a todos, Me gustaría preguntar si alguien tiene desarrollada una función tal que cuando el usuario introduzca un número cualquiera, entonces la función devuelva la referencia de la columna asociada a ese número. Algo así, por ejemplo: Function ReferenciarColumnas(numero As Integer) As String Application.ScreenUpdating = False ' Limpiamos los errores anteriores (por si acaso)... Err.Clear ' Tratamos los errores de la función... On Error Resume Next ' Si el número introducido no es válido, entonces... If numero <= 0 Or numero > 16384 Then ' Notificamos al usuario con un mensaje de error... MsgBox "El nú…

buenas tardes, tengo una macro que trabaja con datos, que los extrae de otras planillas y tablas web, cuando hago correr la macro, esta se demora aprox 2 horas en completar su proceso, lo que me imposibilita de trabajar en otras planillas existe alguna manera de abrir otro excel y poder utilizarlo a la par? tal vez con una maquina virtual o algo asi? muchas gracias por su ayuda

Buen día expertos quiero hacerles una consulta y si alguien me puede ayudar por favor. tengo una imagen en formulario a la cual le quiero hacer específicamente la optimización de imágenes que son: inversión de color, poner en espejo, contraste, nitidez, brillo, escala de grises ¿como puedo hacer eso en un formulario para una imagen en especifico?

Hola a todos; -Hoy no vengo a preguntar nada pero si a compartir un video donde muestro tres ejemplos usando variables permanentes. Bueno pedir primero permiso si se puede publicar en caso contrario borráis el post. Enlace del video: https://youtu.be/i5LBBzYeUY4 Con vuestro permiso también adjunto la macro. Espero que os guste y si veis que tiene algún error me lo comunicáis. Saludos Mvp.xlsm

Hola , muy buen dia para todo .tengo una consulta que no se como resolver deseo una macro a travez de un boton en mi pag principal que me oculte las solapas de nombre de hojas ,las baras de direccion vertical y horizontalque , me oculte los encabezados y la cinta de opciones pero solo en el libro indicado. Se podra hacer

Buenas noches expertos, tengo un archivo donde necesito buscar las fechas en la hoja Panel en los rangos J9:L14, donde se debe buscar las fechas depediendo de los codigo de busqueda de la columna J y a la vez mostrarme las ultimas fechas ubicadas en la hoja Llegadas que se encuentra en la columan BO, se debe tomar como referencia la columna BP con la palabra "PROXIMO", muchas gracias por sus ayudas espero me puedan haber entendido. Adjunto el enlase del archivo del google Drive ya es pesa mucho con la catidad de información que se encuentra. https://drive.google.com/file/d/12vbX0rHF2Zz8PUTfGaT38rwt4LeYf6SR/view?usp=sharing

Hola buen día, alguien me puede ayudar con una macro mucho mas eficiente que esta, he realizado esta q subo, pero no estoy satisfecho, habrá otra manera de mejorar el código o que sea mucho mas eficiente, la idea es eliminar las filas que tengan completos los "00:00" de la columna H a la R, menos los que contengan números. muchas gracias de antemano al que me ayude, abrazosNomina.xlsm

Muy buenos días a todos. Estoy realizando un formulario para mi trabajo y necesito ayuda con algunos puntos específicos. Primero, quisiera saber como puedo hacer para que mis txt_purchase y txt_date_corte se ingresen con el formato de las celdas C8 y C9. Segundo, como puedo hacer para que cada vez que filtre lo que escriba en mi txt_busqueda, en mi LISTA (listBox) se muestren todas las columnas que especifico en el código (+ de 10). Tercero, actualmente tengo que mi LISTA (listbox) me muestra todas las columnas de mi tabla, pero en realidad solo quiero que muestre las mismas columnas que en el segundo punto. Cuarto, quiero poner labels encima de l…

Hola a todos, Tengo este evento creado de tipo Worksheet_BeforeDelete: Private Sub Worksheet_BeforeDelete() Application.ScreenUpdating = False Application.StatusBar = "Procedimiento en ejecución..." ' Limpiamos los errores anteriores (por si acaso)... Err.Clear ' Tratamos los errores del evento... On Error Resume Next ' Si la contraseña no coincide, entonces... If FUNCIONES.comprobarContraseña(CONTRASEÑA_HOJA) = False Then ' Copiamos la hoja... ThisWorkbook.ActiveSheet.Copy After:=Sheets(ThisWorkbook.ActiveSheet.Index) ' Y notificamos al usuario con un mensaje de alerta... MsgBox Prompt:="Upps, parece que hubo un error…

¡Hola amigos ! En otro Libro tengo el siguiente código que me funciona perfectamente: Private Sub worksheet_change(ByVal Target As Range) If Not Intersect(Range("Ak14:As18"), Target) Is Nothing Then For Each celda In Range("w25:W34") If celda.Value <> "" Then datos = datos + 1 Next If datos > 0 Then Iniciar Else Parar End If End If 'a partir de aquí quiero modificar el código para que, en lugar de ejecutar el WebBrowser4 y reproducir un GIF animado que tengo en una carpeta , dependiendo del contenido del rango W25:W34, me ejecute el control Windows Media Pla…

Buenas, necesito ayuda, no soy capaz de que el color de un cuadro de texto normal, no el que se añade desde la pestaña programador, sea igual al color de una celda que se encuentra en otra hoja, y este cambie automaticamente el color de la celda. una ayudita porfa muchas gracias!

BUENO.xlsmHola buenas tardes, Tengo un Excel con un formulario de entradas en el que necesito poder aplicar el autocompletado en los textbox asignados a una columna en concreto de mi base de datos. Es decir, si el textbox de "contacto" por ejemplo, al empezar a escribir un nombre me haga el autocompletado segun el listado de ese encabezado de mi base de datos. Un saludo, Javier

Ando Atrapado En Mi Proyecto De Control De Almacén en un pequeño error de que no puedo mostrar mas de diez columnas en mi listbox y no se como solucionar ese error lo deje comentado en el listBox programación dejo el archivo para ver si alguien me puede apoyar y pues si el archivo les sirve os dejo como obsequio INVENTARIO.xlsm

Buenos dias expertos, dias atras me ayudaron con un formulario que filtra muy bien, ahora necesito pedir una ayuda para que cuando al filtrar y realiza los calculos me haga una condición los que tienen iva muestre con esa y los no los tiene igual sin iva lo que pasa es que la operacion de los calculos saca los totales e iva, en la data hay registros que tiene iva y los que no lo tiene, quiero que al momento de filtrar me salga como esta los que tienen que muestre con iva y los que no lo tienen igual sin iva, pero este ejemplo me saca el iva para todos cosa eso no debe ser asi. por favor espero haber me explicado bien los adjunto el archvio. Cotizaciones.xlsm

Hola. Estoy trabajando con ComboBox que permiten desplegar y seleccionar opciones en una celda, sin embargo al momento de seleccionar una fila o columna se crea un ComboBox, imposibilitando el copiar y pegar información. Dejo archivo. Lo que quiero es evitar que se creen o se visualicen ComboBox donde no deberían. COMUNIDADES (1).xlsm

Hola compañeros, Mi problema es el siguiente: "Tengo una macro que ejecuta un código cualquiera sobre varias hojas, y entre ello está inmovilizar los paneles de una hoja. El problema es que yo no quiero que se inmovilicen los paneles de la ventana activa, sino de la ventana de la hoja que yo le indique. Esto se debe a que introduzco la sentencia 'ActiveWindow.FreezePanes = true' Entonces, mi pregunta es: ¿No existe otra sentencia para inmovilizar paneles que no sea la anterior? Es decir, algo así como 'ThisWorkbook.Worksheets("Hoja1").FreezePanes = true'. Ya probé con la sentencia anterior, pero obviamente no me deja dado que FreezePanes es u…

Hola, buen día. Tengo la siguiente macro que me ayuda a quitar caracteres especiales y/o acentos. Pero actualmente solo busca en un rango o en celda especifica. Como necesito que lo haga en 70 celdas especifcas (sin seguir algun rango o logica) lo que hago es copair y pegar lo mismo solo cambiando la celda. pero al momento de correr no me deja porque el proyectoes muy largo. ¿Alguno de uds podría por favor sugerirme alguna otra manera? Quedo pendiente y nuevamente muchas gracias Dejo el código: Sub Quita_acentos() '(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' Auto run when user hits save or closes Excel.…

Saludos a todos los profes de esta gran materia , recurro a uds , si alguien puede ayudarme con el error que no me deja avanzar en mi proyecto . se trata de llenar un listBox y de acuerdo al registro seleccionado debe llenar los txt correspondientes , adjunto la programacion utilizada FSE2Nueva_facturacion.xlsm

Hola Masters! Estoy desarrollando una macro que debe copiar y pegar un rango de datos muy grande de la Hoja "BD" hacia la Hoja "DATOS GRAL" del mismo archivo pero por alguna razón cuando ejecuto la macro se traba y me aparece "Excel no responde". El rango de datos es de apróx 639,360 celdas. El código que uso es este: Sheets("BD").Select Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets("DATOS GRAL").Select Range("A4").Select ActiveSheet.Paste Nota: Si lo hago de forma manual el copiar y pegar los mis…

Mis mas sinceros saludos a equipo y colaboradores de Ayuda Excel. He decidido ponerme en contacto con uds para ver de solucionar un problema con un proyecto que he encarado con mucho entuciasmo, les comento que nadie me explico nada lo poco que se lo aprendí viendo videos y estudiando de alguna paginas de Microsoft para entender algunas cosas . El problema puede parecer muy sencillo , pero para mi no loes , y esta el la macro eliminar del proyecto que elimina la fila completa de la tabla de datos, en algunas oportunidades elimina correctamente pero en ciertas otras me elimina además de la fila la primera columna de mi base de datos, o sea pierdo el nombre de …

¡Hola! Para cargar un ComboBox en un celda (con valores predeterminados de una lista) estoy utilizando el siguiente código: Private Sub mycombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then Range(mycombo.LinkedCell).Offset(1).Select If KeyCode = 13 Then ActiveCell.Offset(-1).Select End If End Sub Private Sub mycombo2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then Range(mycombo.LinkedCell).Offset(1).Select If KeyCode = 13 Then ActiveCell.Offset(-1).Select End Sub Private Sub Worksheet_Selec…

Sub CopiarCeldas() 'Defini objetos Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'indicio el libro de Excel destino Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/Datos - Abastecimientos.xlsm") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Other") Set wsDestino = wbDestino.Worksheets("Datos") 'Indicar la celda de origen y destino Const celdaOrigen = "A1" Const celdaDestino = "A1" 'Inicializar los rangos de origen y destino Set rngOrigen = wsOrigen.Range(celdaOrigen) Set…

Buenos dias expertos, tengo un formulario que funcion bien la busqueda, la unica dificultad es que cuando ingreso un numero que no es el correlivo lo filtra todas las concidencia y no quiero que suceda eso que haga la busqueda de facturas exactos si el correlativo no corresponde simplemente que no muestre nada. Adjunto el link del archivo: https://drive.google.com/file/d/1lms6MCWIPLoRTb1ySTw_pss9q6fKDUhd/view?usp=sharing

Hello everybody My new problem is this. On an Excel sheet with office 2007 I extract links relating to images from a web page. And I insert them in the 8 lines starting from the cell ("B10: B17") And so far everything is ok In turn, the related images are extracted from these links. Now the problem is this: 1) I would like the first image to be imprinted only in the cell (A2) While all the others were positioned at each extraction in the row ("A6: G6") 2) at the same time I would like the procedure start button Remain unchanged in its place That's all, thanks in advance for all the help you want to give me in this regard. Thanks from A.Mauri…