Buenos dias Estoy trabajando un formulario en el que hay 4 option button; la idea es que al dar clic en un boton valide que por lo menos un optionbutton este seleccionado pero no lo logro. Private Sub CommandButton1_Click() If OptionButton1.Value = False & OptionButton2.Value = False & OptionButton3.Value = False & OptionButton4.Value = False Then MsgBox "SELECCIONE UN TIPO DE PROVEEDOR", vbCritical End if Exit sub

Hola de nuevo compañeros, ¿Cómo puedo hacer para mostrar toda la información contenida dentro de un array en un sólo cuadro MsgBox? Tengo el siguiente código de pruebas con dos opciones disponibles, pero ninguna de las dos funciona: Sub pruebas() ' Declaramos las variables... Dim miArray() As Variant miArray = Range(Cells(2, 1), Cells(2, 8)) ' Opción 1: ' MsgBox Join(miArray(1, 3), vbCr) ' Opción 2: For i = 0 To UBound(miArray) msgString = miArray(i) & vbCr Next i ' Mostramos el contenido del array... MsgBox "Los valores del Array son los siguientes: " & vbCr & msgString End Sub

Cordial saludo, gracias a todos por sus aportes... Deseo impedir que los usuarios de mi aplicación tengan acceso a las opciones de excel, en el ID de VBA, en This WorkBook, tengo varias opciones para no permitir el acceso, adjunto código; pero si tecleo el comando abreviado Ctrl + P (Imprimir), se abre el menú que permite hacer modificaciones en opciones avanzadas, Compartir, Publicar, Información del archivo, que pueden ser modificados desde esa ventana. Lo que deseo es Cancelar todas esas opciones y dejar "Libre", solamente la opción de "Imprimir", que no encuentro por ningún lado... Por favor requiero su ayuda... Private Sub Workbook_Activate() ' Evita copia…

Hola cumpas de nuevo, estoy bloqueada ante un paso en mi archivo en la hoja RazonSocial, cargue un cuadro de lista en funcion de los clientes que tengo de ejemplo, no encuentro la forma de hacer que al seleccionar alguno o varios de ellos me los carge en mi rango G14:Nx... En un userform seria un listobox pero queria ver la forma de no usar en este proyecto un userform sino directamente los controles de excel. el otro punto que tampoco encontre es lograr que el texto que escriba en la celda combinada RazonSocial.Range("C13:E14"), me filtre por coindicidencias similares los datos que me carga en el cuadro de lista de abajo... la verdad que no est…

Buenas tardes compañero. He encontrado un ejemplo de formulario el cual me gustaría adaptar al mío. Mi pregunta es la siguiente. Cuando generas un registro aleatoriamente empieza a generar desde el número 500, 501, 502...etc ¿En vez de que empiece a generar por números podría empezar a generar letras y números? Me explico, por ejemplo: HT-001, HT-002, HT-003.... Muchas gracias siempre por vuestras ayudas y vuestras ideas. Si alguien pudiese ayudarme se lo agradecería, SALUDOS CONSECUTIVO PERSONALIZADO.xlsm

Hola a todos, Este formulario no ejecuta el código... Hay algo que me da errores!! Agradezco cualquier aporte. Muchas gracias. PRUEBAS.xlsm

Hola a todos! les comparto un archivo en el que estoy trabajando , lo modifique en base a un archivo que encontre aqui en el foro. Tengo en la Hoja 4 unos boton de check, que hasta ahora solo configure uno.... la idea que al seleccionar la primera opcion "Menos de $1.000" , me filtre los datos de la hoja 1, y me los pegue en la misma hoja 4 a partir del rango Hoja4 (G14:N) El archivo de base que tome como ejemplo, me pega los datos correctamente en la hoja 3, pero cuando lo modifico para que me los ponga en la hoja 4 en el rango que tengo para agregar los datos, me los arroja en cualquier lado... me podrian ayudar por favor si mal no recuerdo e…

Buenos dias quisiera que me ayuden en un pequeño proyecto quiero que en un textbox al digitar 25 automaticamente se pongra el "ºC" quedando "25ºC" y digitando otro valor como 46 automáticamente se ponga el "%HR" quedando "46%HR" claro separado por un "/" tambien que se ponga automaticamente, no se si me hice entender finalmente quedaría digitando 25 y 45 asi en el un textbox "25ºC / 46%HR". Muchas gracias por su ayuda

Hola a todos; Adjunto una macro con un formulario y varios botones que abren un determinado formulario. Al abrir el formulario este lo hace con un ancho predeterminado y al hacer clic en un determinado botón este se encoje en el ancho. ¿Cómo puedo hacer para que el formulario "principal" recupere el ancho cada vez que cierro los formularios secundarios? -Quería evitar usar una macro para cerrar el formulario. Adjunto macro con el ejemplo. Saludos. MWith.xlsm

buen dia recurro a su experticia para conocer un código el cual no e podido entender unas líneas y seguir en mi proceso de aprendizaje y lógica ya que al cambiar de fila me genera error y quiero que el combo registre desde A1 y no de A31 en A31 despues de cerrado el formulario me genera error 1004 es decir que hace linea a linea lo marcado en rojo que es donde me esta generando el error o si esta en la salida para el registro en la hoja gracias ... Dim lr As Long, i As Long, fin As Long, cont As Long, n As LongDim pre As String''ValidacionesIf ComboBox1 = "" Or ComboBox1.ListIndex = -1 ThenMsgBox ("Se requiere que seleccione un nombre para insertar un codigo"…

Buenas tardes, Me gustaría saber si sería posible duplicar una hoja que contiene una macro y que siga conteniendo esa macro. Es decir, que en cada hoja nueva siga funcionando la macro. En el caso que adjunto, cuando las celdas de la columna F contienen un "SI" envía un mail. Muchisimas gracias de antemano. Duplicar con MACRO.rar

Buenos días, Lo primero agradecer la ayuda de esta página que sin ella no serían posible muchas cosas. Mi duda es la siguiente, Tengo una tabla que por cada fila nueva que relleno (columna A), se crea una pestaña nueva con el nombre de dicha fila. Pero lo que necesito conseguir es que, cada pestaña nueva que se cree con el nombre de dicha fila contenga el formato de una hoja tipo que ya está creada. Esta a su vez (Hoja Tipo) tiene fórmulas en celdas y una macro (que hará ciertas cosas) que también debería funcionar en cada copia. El caso que os pongo es que mande un mail cuando la columna F contenga un SI. Si alguien me pudiera echar una mano se lo a…

Buenos días, expertos necesito una ayuda por el momento en la hoja llamado 1 que cuando pulso clic en cualquiera de los botones de opción de los platos u otros que se encuentran en la parte inferior se me agreguen en el cuadro de lista como por ejemplo la cantidad, plato, precio y otros, y si vuelvo a presionar clic en el mismo botón que agregue solo se aumenten la cantidad mas no debe agregarse un nuevo registro; por favor me pueden ayudar y espero lo pueden entender mi problema es un poco complicado para mi. Adjunto el archivo MEJORA-2.0.xlsm

Hola compañeros de nuevo, Tengo un problema con la siguiente fórmula: Function VentaConDescuento(ByVal fkProducto As Range, ByVal fkPedido, ByVal descuento As Range) As Double ' Limpiamos los errores anteriores... Err.Clear ' Tratamos los errores... ' On Error resume next ' Declaramos las variables... Dim productos As Range, pedidos As Range Set productos = ThisWorkbook.Sheets("PRODUCTOS").Cells(1, 1).CurrentRegion Set pedidos = ThisWorkbook.Sheets("PEDIDOS").Cells(1, 1).CurrentRegion Dim precioCompra As Double, precioVenta As Double precioCompra = Application.VLookup(fkProducto, productos, 5, False) precioVenta = Application.…

Buenos días, ¿Alguien sabría decirme porque al poner una / en una celda evita que corra la macro ? Al rellenar la columna B con una dirección cualquiera, crea una pestaña con el nombre de la celda. Por ejemplo calle San Juan, pero si pongo c/ San Juan no crea la pestaña Gracias de antemano. PD: Este archivo lo estoy construyendo con la ayuda de este foro Gracias! Un saludo Estado Certificaciones y Anexos FORO.xlsm

Hola, en caso de poder eliminar con macros pestañas personalizadas en la cinta de opciones (Ribbon) cuando estas se han creado mediante XML podría alguien darme una orientación sobre el tema?, gracias. En este caso sería eliminar la pestaña Amortización Placas Solares. Prueba.xlsm

No consigo que se ponga la fecha en el formato deseado a no ser que cuando cierro el formulario presione F2 + ENTER que tampoco se hacerlo automáticamente después de la inserción. AYUDA formato deseado 27-feb-22 Consumo Total 2022_MASTER_fecha.xlsm

Tengo un archivo que no puedo subir pk contiene muchisimos datos y no procede pero os paso lo que pueda de capturas para que en el TextBox aparezca la fecha de hoy al darle userform.show

Buenos días amigos, el presente es para hacerles la consulta sobre encontrar la forma mas óptima de contar el número de filas que hay en una columna, antes usaba un código que conseguí por la red, pero me dijeron que consume muchos recursos ya que ese código recorre celda por celda, así que decidí buscar otras opciones y me topé con 2 mas, así que mi consulta era saber su opinión sobre cual creen que sea la forma mas óptima de contar el número de filas de una columna, sobretodo cuando se trata de una base de datos bastante grande, los códigos que tengo son estos: 'Este código además de contar, me situa en la celda en blanco que esté a continuación, para contar el númer…

Hola Foristas buenos días. Colegas, acudo a ustedes para ver si pueden echarme una mano en este archivo. Es el mismo en el que he venido trabajando hace unos días y que ya algunos de ustedes me han ayudado, como DiegoPC y JasallBtn a los cuales agradezco su colaboración. ¿Qué estoy necesitando? En este proyecto estoy trabajando el Pago de los Choferes que, según la Categoría, los Km recorridos, el Tonelaje y los tipos de Equipo y Carga ellos devengan un Salario "X". Hasta aquí tengo conformado todo y funciona perfectamente, pero necesito además poder UNIR las HOJAS desde Kelvis hasta Jesús. Todas estas Hojas tiene el mismo formato, o sea, la misma cant…

Buenas tardes; -Adjunto una macro con una serie de valores y en una determinad columna los tengo separados por comas. Ejemplo: 12, 20 ,11,102,6,205, etc... Os he marcado con dos colores porque dichos colores forman como una especie de binomio. Puede haber uno o hasta veinte. Lo que quiero es reemplazar el número que pongo de color azul por texto. MS, 20 ,LS,102,PS,205, etc... Enlace video: https://youtu.be/sJxiPJ96eC4 También adjunto macro. Saludos a todos. MMaq.zip

Buenos días estoy teniendo problemas con que se ejecuten correctamente mis alertas de vencimiento de fechas en mi proyecto cuando agrego o modifico en mi tabla de registro echa en VBA, si alguien me puede Ayudar por favor se lo voy agradecer mucho. Gracias de antemano. Base De Datos Streaming_v4.xlsm

Hola chicos, no sé por qué razón dentro de mi módulo de login cuando introduzco mal la contraseña una vez, se repite el mismo proceso dos veces... Cuando introduzco mal la contraseña dos veces, se repite el mismo proceso tres veces... Cuando introduzco mal la contraseña tres veces, se repite el mismo proceso cuatro veces, y así sucesivamente... Adjunto el fichero para que lo echéis un ojo. Las contraseñas son: programador@email.com > "asdfg" administrador@email.com > "zxcvb" Por favor, cualquier aclaración por vuestra parte me sería de muy grata utilidad. Saludos. PRUEBAS.xlsm

Un gran saludo.. Tengo una macro que filtra de 120 preguntas, las que mayor puntaje hayan obtenido, estaba funcionando perfectamente con la hoja protegida. Pero de un momento a otro comenzó a mostrar error y no funciona. Adjunto la macro, agradezco de antemano la ayuda para solucionar este impase... Sub FILTRO () Dim RNG As Range Set RNG = Active Sheet.Range("Xxx") RNG.AdvancedFilter Action:=xlFilter Copy, CriterialRange:=_ Active Sheet.ListObjects("Tabla1").Range, _ copytorange:=("B180"), Unique:=False Sheets ("Xxx").Select End sub

Hola a todos Tengo el siguiente caso, espero que alguien me pueda apoyar. El siguiente archivo de Excel está con varias columnas y datos que los guardo por medio de una macro en la unidad “C”, en formato CSV y con ciertos campos como lo es la Clave|Fecha de Baja|Causal| esta información se llena de los mismos campos que contiene el archivo, si embargo debo hacerlo por rango de período, es decir del 1 al 15 y despues del 16 al 31 de cada mes, por lo que me gustaría que por medio de una macro me permita solamente filtrar el rango que corresponda y que dicha macro tome la información y la generé en formato CSV. No se si sea posible que me al momento de que s…