Estimados amigos. Me surge una duda, existe una forma de saber si se ha deseleccionado un Item de un ListBox ¿? Es decir, si tengo el primer item de un ListBox seleccionado, y lo destildo, hay manera de registrar esta acción para poder ejecutar una macro ¿? Agradecido de antemano por vuestra ayuda.

Algún Maestro que me pueda ayudar Como bloquear la tecla menú contextual del teclado en Visual Basic VB, encontré como hacerlo con el ratón, pero necesito bloquear también el botón del teclado. De antemano muchas gracias por el apoyo que me puedan brindar Saludos

Buenos días,Por favor necesito vuestro apoyo para saber si es factible realizar lo que indico a continuación. Yo cNecesito crear una página principal, donde aparecerán 24 opciones y cada opción tendrá un selector y un contador con un número para saber si esa opción debe repetirse o no (es decir, ese número indicará el número de veces que esa opción debe aparecer, por defecto será un 0). Por defecto, todos los selectores aparecerán desmarcados y el número con 0. Cuando un usuario clique en un selector el número aumentará a 1 y después cuando aumentemos o disminuyamos el contador irá aumentando o disminuyendo el número. Si disminuimos a 0, el selector se desmarcará au…

Hola buenas tardes foreros. Retomando una macro que tenía a medias, a ver si podéis ayudarme porque mis conocimientos en VBA no son muy amplios y por más referencias que miro en ejemplos de "exportar a pdf" no saco el error. Describo: - Función: Exportar un rango de la hoja a pdf en función de 2 variables, para esto utilizo "if" con ocultar y mostrar filas para que entrase justo en 1 o 2 hojas. - Errores: 1 - El msgbox de la ruta donde guarda el archivo SIEMPRE muestra la ruta donde se ENCUENTRA el excel, NO donde lo ha guardado. 2 - Da igual el nombre que pongas en en el msgbox de "guardar como", siempre utiliza el pre-programado. …

Hasta hace poco usaba un ordenador con Windows Xp y ahora he cambiado a otro con Windows7. En ambos casos con office 2.007. El caso es que no sé muy bien porque, pero ahora hay macros que no puedo interrumpir, mientras que antes si podía. Uso las teclas control + Interr y tambien ESC pero la macro no se para. La única forma de interrumpir la macro es a lo bruto con el administrador de programas cerrando excel. Además normalmente en mis macros para saber como evoluciona la misma pongo dentro del código que en la barra de estado me muestre la evolución de ciertos parámetros, sobre todo en bucles for. En este caso la macro a lo mejor empieza funcionando bien y muestra lo…

Hola foristas. Hace un tiempo atrás Macro Antonio me ayudó a crear un formulario en el cual llenaba un ComboBox y un ListBox con la información que tenia en una Hoja. Lo modifiqué porque fui agregando varias cosas mas pero estoy perdido como turco en la neblina para acomodar el código a la nueva forma del formulario. El codigo es el siguiente: Private Sub Cat_Click()Dim Categoria As Boolean Ali.Clear If Cat.ListIndex < 1 Then Ali.ColumnWidths = "75;110;0" Else Ali.ColumnWidths = "90;0;0" End If For x = 2 To Alimentos.Range("B" & Rows.Count).End(xlUp).Row If Alimentos.Range("B" & x).Interior.Color = vbBlack Then If Cat.Text = …

Hola a todos: Pues eso, tengo una función que funciona si la llamo desde una macro, pero no funciona como fórmula en una celda. Parece fácil, ¿No?, pues no, el detalle es que la función obtiene múltiples resultados y no doy con la sintaxis de la fórmula. La solución es fácil, utilizar tantas funciones como resultados, pero se me ha metido en la cabeza utilizar solo una. Quizás no se pueda hacer lo que pretendo. Paz y amor Ejemplo Fórmula.xlsm

Buenas amigos. Recurro a ustedes con la siguiente problema. Tengo iformacion en dos tablas que necesito cambiar masivamente, la idea es utilizar el formulario para buscar el valor que se repite y modificar los valores de las celdas adyacentes con informacion que se selecciona en dicho formulario. Ejemplo: Necesito buscar un balor en la columna D (Llamada Baul), y cambiar el o los valores de las celdas adyacentes a este valor en las columas B y C, y que estos se vean reflejados en el ListBox antes y despues del cambio. Adjunto archivo ejemplo Es posible hacerlo ¿? Agradecido de antemano por vuestra ayuda. Ejenplo-1.xlsm

Hola, ante todo gracias por vuestro tiempo. Tengo que ir recopilando datos de diferentes Excels en uno solo. Datos que corresponden a diferentes celdas, pero siempre las mismas en cada Excel. Por ejemplo, quiero tener un excel recopilatorio con todas las C4, K28, M56 y H3 de 50 archivos Excels diferentes que los tengo en una carpeta común. ¿Alguna idea de como puedo hacerlo? Muchísimas gracias.

Hola a tod@s de nuevo Como ya he dicho antes no tengo casi nada de idea de excel,asi que voy bastante perdido. Estoy trabajando en un libro para hacer escandallos de los trabajos que realizo, l que quiero hacer es copiar unas celdas que se repiten en todas las hojas y colocarlas en otra como una tabla y si se puede (que no lo se) despues de la tabla poner las imagens que inserto en cada hoja. he mirado en el foro y he visto un tema antiguo que pedía lo mismo que yo, he mirado la formula y como si viera chino,a si que os pido ayuda para ver si puedo conseguirlo. os adjunto un archivo de ejemplo para que veais la formula (es el modulo 5) para que me expliqueis lo que te…

Buenas Tardes Tengo dos cadenas de texto, la idea es averiguar si todos los caracteres que contiene una cadena están en la otra, no importando el orden. Saludos Cordiales Pedro Cadenas de texto.xlsx

Muy buenas tardes a todos! El motivo de esta consulta es para ver si me pueden ayudar a crear un formulario para poder llevar un registro de mercadería que se solicita y traslada entre almacenes (bodegas). Actualmente tengo un ERP el cual no me ayuda en esta gestión y manejamos un formulario que se llena en excel y se envía en formato PDF, pero no lleva ningún folio único y dependemos de la persona que lo llena los campos que ingresa etc. Adicionalmente no tengo como encargado una opción de poder ver las gestiones que se realizan entre ciudad y cuales se dejan de atender y por otro lado la fuerza de venta no sabe si su gestión del otro almacén atendió su solicitud. …

Hola a todos si alguien me puede ayudar con el siguiente caso: Tengo una hoja llamada "enero" que contiene como 8,000 registros la cual tengo que imprimir, pero como ejemplo adjunto solo una parte, bueno el caso es que antes de inprimir necesito que al inicio de cada hoja aparesca la misma cabecera, tal como se muestra en la hoja "ener_imp", y que tambien si es posible que aparesca las palabras van y vienen al final e inicio de cada hoja tal como se muestra en las letras de color rojo con su respectiva sumatoria asi como se encuentra. cabe mencionar que en cada hoja entraran 104 filas incluido la cabecera y las letras de color rojo. Gracias.. prueba…

Buenos dias a todos Es la primera vez que solicito ayuda, pero veo que tienen buenos expertos en el área Tengo un archivo en excel 2003 que utiliza macros Al aplicar la instrucción: MsgBox "Se ha Cancelado la Respuesta." & Chr(10) & "Por favor reintentelo", vbInformation[/CODE] Me arroja un error en Excel 2010, que es el siguiente Error de compilación: No se puede encontrar el proyecto o la biblioteca Y marca Chr(10) como error Tengo varios aplicaciones escritas en macros de excel 2003 y tengo que migrarlas a 2010 y utilizo mucho esta función. Creo que falta una librería para compatibilizar los dos tipos de macros ya que si hago un archivo en excel 20…

Amigos, Quisiera saber si alguno de uds sabe la línea de código que necesito para colocar "Importancia Alta" al enviar un Correo desde Outlook 2010. Si pudieran ayudarme se los agradecería un montón. Les envío el código con el que estoy trabajando, por si le sirve a alguien: Sub EnviarEmail() Dim objOutlook As Object Dim objItem As Object Dim objNamespace As Object Dim ADJUNTO As Variant Set objOutlook = CreateObject("Outlook.Application") Set objNamespace = objOutlook.GetNamespace("MAPI") Set objItem = objOutlook.CreateItem(olMailItem) objNamespace.Logon "EXCELSPACE", , True, True ADJUNTO = "Destino.xlsm" With objItem .Attachments.Add (ADJUNTO) .Display .…

Buenos días, Tengo una tabla dinámica en la que he creado unos campos calculados para que muestre los costes agrupados por tipo de trabajo. Dichos costes, ya están calculados en base a la moneda local de cada país, por lo que inicialmente al no haber ningún filtro, muestra la suma de todos. Lo que necesitaría sería saber es como hacer que cuando filtre por un país, las celdas de los costes me muestren el símbolo de la moneda de dicho país. Por ejemplo, que si selecciono España me ponga €, USA, $, UK £, etc... Gracias y un saludo.

Hola a todos Tengo un problema con un formulario, estoy intentando poner los datos en la siguiente fila de una columna mediante: Private Sub CommandButton1_Click() Dim Hoja As String Hoja = Nombre.Value Sheets(Hoja).Select Range("D32").End(xlUp).Offset(1, 0) = Titular.Value End Sub Todo lo hace bien, SI LA CELDA ESTA VACIA SIN FORMULAS, es decir, escribe en la siguiente fila hacia abajo.... ...Pero yo en los valores de las celdas de esa columna tengo (cambiando el nº de fila obviamente) lo siguiente =SI(C6="NO";"-";SI(C6="XX";"-";SI(C6="YY";"-";""))) Con lo que, la celda de cara a 'verla' está vacia pero para el proceso VBA no lo está :-( Asi es que, como pued…

Hello, My Friends:I have a workbook with several sheets, some of which are going to be printed at once, eighther to a .pdf file or to a paper. Doing so, there are several dialogs that are shown, for example: Dialog PrinterSetup to choose the printer.Dialog Save PDF file as, in the case of a .pdf, to choose where to save the document.Dialog Confirm Save to confirm the operation, of course.Dialog Adobe PDF that shows the addition of sheets to the final document.I am not sure, but only the first one is really an Application.Dialogs, the others are not, at least they do not appear in the VBA list as one.All of the dialogs have a "Cancel" button, to cancel the printing. My cod…

hola!primero voy a mencionar que soy nuevo en eso. trabajo en un almacen de frutas i my jefe me pidio crear un libro en excel para un buen control.he creado un libro con los productos,los clientes.proveedores,entrada salida incluso un formulario para ingresar todo estos datos mas facil.ahora he visto en otros libros que he descargado del internet que se puede crear una macro para calcular el saldo de los productos incluso por proveedor(o otras referencias)i tambien las salida(igual que el saldo)o las entradas(igual).estoy intentando vrear esta macro de una semana i no hay manera pffff.si dejo el libro aki me puede ayudar alguien crear esta macro con los procedimientos i …

Buenas tardes Forista Por favor necesito ayuda con macro para poder cruzar bases de datos, para identificar que persona esta repetida en estas. Los campos que se deben de mirar son nombre y numero de identificacion que pueden estar en diferentes filas y a su vez poder organizar los listados sepados en nombres y apellidos. Si es posible que se pueda seleccionar o escoger el archivo asi mismo la fila a buscar y comparar. Muchas gracias, Anexo dos archivos como ejemplo Aprobados.rar YUMBO.rar

hola amigos , tengo el siguiente codigo para calcular el digito de verificacion del nit para colombia pero no se como usarlo para que me funcione utilizando dos textbox uno es donde se digita el nit y el otro donde arroja el resultado del DV : Public Function DV(Nit) Dim TipoRet, lnRetorno, Arreglo_PA(15), WSuma, WDato, WDig_Ver As Integer TipoRet = VarType(Nit) Select Case TipoRet Case TipoRet = "C" Nit = Trim(Nit) Case TipoRet = "N" Or TipoRet = "Y" Nit = Trim(Str(Nit)) End Select Arreglo_PA(1) = 71 Arreglo_PA(2) = 67 Arreglo_PA(3) = 59 Arreglo_PA(4) = 53 Arreglo_PA(5) = 47 Arreglo_PA(6) = 43 Arreglo_PA(7) = 41 Arreglo_PA(8)…

Buenos días Muchas gracias por todas las ayudas brindas en el mi proyecto. Acudo a ustedes para que me ayuden con un nuevo formulario para que el cada usuario pueda cambiar la contraseña sin necesidad de hacerlo desde la base de datos. https://mega.nz/file/cVpgDIaK#92-eFaVsW8t493NeL7GWT5YLy6dyn641Gl72fbe3FqU Saludos.

Hola, Necesito ayuda con un trabajo. Necesito contar la cantidad de casillas a las que se les asigna un colo especifico, EN Internet encontre una macro para usar, pero solamente actualiza cuando se edita, o cuando copio pego sobre la celda en que se encuentra el rango de funcion. Podria alguien ayudarme para que se actualizará la formula sola? El codigo de la funcion se encuentra a continuacion Function CountCcolor(range_data As Range, criteria As Range) As Long Dim datax As Range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 …

Hola a todos, tengo una duda a ver si alguien puede ayudarme, Tengo una hoja de cálculo vinculada a una base de datos online (concretamente con cotizaciones de Bolsa en tiempo real), y la hoja va haciendo unos cálculos. Mi problema es que si estoy haciendo otra cosa, no me entero de cuando las cotizaciones superan las esperadas. Es decir que por ejemplo cuando la columna D (que se actualiza automáticamente cada minuto a online) supera a la cantidad de la cantidad de la columna B (precio actual supera al previsto y por lo tanto al de venta) que me avise de ello con algún beep sonoro o música… Mi pregunta es: ¿hay alguna forma de que Excel haga esto? Muchas gracias. B…

Buenas tardes aquí solicitando de su apoyo, alguien me puede corregir de favor tengo los siguientes variables Tengo establecido estos variables para determinar mi última columna puesto que a veces mi base de datos trae 10 columnas y otras veces mas (cantidad variable) hasta aquí parece funcionar 1.- uc = Sheets("Hoja1").Range(Sheets("Hoja1").Range("a8"), Sheets("Hoja1").Range("a8").End(xlToRight)).Columns.Count 2 .-Tengo esto para determinar mi ultima fila referenciando la ultima columna , no se por que pero en otras columnas no puedo usarlos para determinar mi ultima fila ocupada , me imagino que ha de traer caracteres ocultos o de color blanco pero no …