All Activity

Hola, Una de las primeras cosas que se recomienda es que el consultante aporte toda la información que pueda servir para facilitar la ayuda solicitada. Saludos

Buenas tardes, Estoy intentando hacer un presupuesto en Exel he buscado en el foro y no he encontrado nada, he intentado hacer con sumar.si.conjunto pero no he sido capaz de solucionarlo. Lo que estoy intentando hacer es que de la hoja BD en la columna E(Ingreso) reste la columna D(gasto) y traslado a la hoja Gastos el resultado a columna B(gastos/Ingresos), cuando seleccione la fecha correspondiente dela hoja gastos columna B1. EspPresupuestos.xlsmero que me podáis ayudar Muchas gracias.

Muchas gracias por la respuesta pero no me sirve por 2 motivos: 1) borra todos los combobox del formulario y yo sólo quiero los 10 que indiqué 2) borra el contenido y la lista queda en blanco. Yo necesito que la lsita quede con contenido para elegir un nuevo valor. Saludos y muchas gracias.

El código que buscas es el siguiente. Lo puedes asignar a un botón, o incluirlo en algún módulo Dim ctrl As Control For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "ComboBox" Then ctrl.clear End If Next

Hola a todos. Me gustaría me ayuden con lo siguiente. Quiero hacer una macro que borre el contenido de 10 combobox cuyo nombre es CbxComp1.....al....CbxComp10. Una forma de hacerlo es obviamente la que sigue (y me funciona): CbxComp1.Value = "" CbxComp2.Value = "" CbxComp3.Value = "" CbxComp4.Value = "" CbxComp5.Value = "" CbxComp6.Value = "" CbxComp7.Value = "" CbxComp8.Value = "" CbxComp9.Value = "" CbxComp10.Value = "" El tema es que quiero hacerlo con un bucle porque voy otras situaciones similares pero con más com

Buenas Héctor, Tienes razón, no había tomado en cuenta la traducción automática... 🙄 Y en efecto es mejor apoyarse en el documento en ingles 👍, o digamos no traducido. Nuevamente gracias.

Convierte a mayúsculas o minúsculas al preguntar. Sub may() For i = 2 To ActiveSheet.UsedRange.Rows.Count If UCase(Cells(i, "A").Value) = UCase(Cells(i, "B").Value) Then Cells(i, "C").Value = "iguales" Else Cells(i, "C").Value = "diferentes" End If Next End Sub

Buenos días, me pongo en contacto con ustedes para consultar por lo siguiente. En esta oportunidad necesito combinar buscarv con coincidir, es posible que hará falta alguna función más para lo que necesito lograr pero desconozco cual sería, es por eso que recurro a ustedes. El archivo tiene 2 hojas. Una hoja base, en donde se registra todos los resultados ordenados como los exporta la maquina que hace los análisis. Esta hoja tiene 3 alternativas de análisis (a futuro puede haber más) que son las columnas pintadas en colores naranja, verde y violeta, en algunos casos se rep

Hola, He hecho una macro para comparar si dos celdas son iguales, el problema es que discrimina entre mayúsculas y minúsculas y no sé cómo decirle que no lo haga. Hola = HOLA (ahora mismo no lo reconoce como igual). Gracias de antemano. T_ejemplo_MY_MIN.xlsm

perfecto, pero y si quisiera que en la celda se escribiera la formula para poder arrastrarla? es decir, que en lugar de poner: =SIFECHA("01/05/1998";HOY();"m") la macro escribiera: =SIFECHA(DERECHA(I2;2)&"/"&EXTRAE(I2;5;2)&"/"&IZQUIERDA(I2;4);HOY();"m") donde I2, seria el valor de la variable Fecha1

También funcionaría con FrmulaR1C1, en este caso, al no existir rangos por medio, es indiferente. Si quieres el resultado como valor en lugar de formula: Sub DifMesesValor() ' ' Calcula diferencia de meses entre fechas ' Dim Fecha1 As String Fecha1 = Range(InputBox("Dirección de la celda donde está la fecha inicial", "Cálculo meses")) ActiveCell.Formula = Evaluate("=DATEDIF(""" & Right(Fecha1, 2) & "/" & _ Mid(Fecha1, 5, 2) & "/" & _ Left(Fecha1, 4) &

muchas gracias Antoni. Veo que la diferencia está en no usar R1C1 y añadir ". Genial!

el "error" que mencionas asoma por las traducciones "automáticas", si lees el artículo en inglés no existe tal discrepancia, por eso mismo prefiero leer los artículos "originales" al fin de cuentas, todos los que he visto en español (en algún momento) han "tocado base" en el origen de los mismos (en inglés) 😉

Hola, buenas tardes. Acudo a ustedes con el siguiente complejo inconveniente. Trabajo con un sistema de Facturación el cual me permite importar desde archivos Excel, las listas de precios de mis proveedores. El sistema de facturación permite códigos de hasta 20 caracteres. Los caracteres permitidos en la composición del código son: letras de la A a la Z números del 0 al 9 y / todos los demás caracteres los elimina. El problema principal radica en los códigos repetidos. Solucione por un lado que no haya códigos repetidos entre diferente p

Hola Héctor, he estado leyendo la traducción del enlace que me has dado. Y para ser franco, de entrada me pareció complejo. Después de una rato de lectura, realice una búsqueda sobre el tema en español. como para tener mas clara la cosa, porque estaba medio enredado. Y me tope con esta pagina, que sin mucha vuelta pone un ejemplo, el cual "aclaro"..., de alguna manera mi duda. OJO con el ejemplo, que yo de entrada no me di cuenta de que hay un error en el código. En donde ponen el código del modulo (estándar), colocaron Cass1 y es Clase1, un pequeño pero crucial detalle.

Hola me alegro que te sirva, ...el archivo tiene un pequeño error. tienes que fijar C$10. Saludos.

Hola , muchas gracias , me sirvió mucho su ayuda par aclarar algunas cosas.

Hola sramirezl , saludos jotaeme . Prueba el adjunto. Saludos. Buscar valor en celda_tor.xlsx

Buenas Héctor, muchas gracias, leeré, y releeré y si me quedan dudas lo leeré de nuevo, y cualquier duda pregunto 👍

si quieres que sea el usuario quien dispare eventos al cambiar la hoja en cualquier libro, prueba desde módulos "de clase" con eventos a nivel de la aplicación lee, relee y vuelve a leer estos procedimientos: Events And Event Procedures In VBA

Buenas Antoni, me encantaría subirlo, pero estoy muy crudo, apenas estoy empezando a crear las macros que llevara el complemento (y me tope con esta dificultad), y para evitarme tener a la vista (mientras trabajo) tantos Modulos y formularios, pretendo colocar cada herramienta en archivo separados, para después unir todo en un solo archivo, hacer lo propio en XML y convertir el archivo en Add-in. Pero básicamente es un formulario (no tiene nada especial), y al cambiar de hoja, me gustaría que evaluara nuevamente si hay o no objetos ocultos en la hoja activa (primer CheckBox). Ya que

@John Jairo V, gracias Crack. También estudiare tu método, según cual demore menos en cierta cantidad de información. Saludos.

ahi esta el apoyo de Antoni

Sube el archivo, o sea, el complemento.

Prueba así: Sub DifMeses() ' ' Calcula diferencia de meses entre fechas ' Dim Fecha1 As String Fecha1 = Range(InputBox("Dirección de la celda donde está la fecha inicial", "Cálculo meses")) ActiveCell.Formula = "=DATEDIF(""" & Right(Fecha1, 2) & "/" & _ Mid(Fecha1, 5, 2) & "/" & _ Left(Fecha1, 4) & """,TODAY(),""m"")" End Sub