Tengo este evento el cual quisiera aplicarlo en varios eventos de varios formularios Sub Limpia(nameform As String) 'para TextBox y ComboBox en formulario 'Dim Ctrl As Object ''Aqui la rutina para Ejecucion 'For Each Ctrl In nameform 'Entrada.Controls 'If TypeOf Ctrl Is MSForms.TextBox Then Ctrl = Empty 'If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = Empty 'Next Ctrl 'MsgBox ("Controles limpios para nuevo uso"), vbInformation, "Limpiesa" End Sub[/CODE] Tal como esta no funciona, funciona si si le quito nameform As String y nameform y le dejo Entrada.Controls (Entrada es nombre de uno de los formularios) Para ello tendria que repetir el mismo codigo con solo …

Hola, buenas tardes, como podría crearme una macro para inmovilizar paneles?. La cuestión es que al ejecutar una macro que copie las cabeceras del archivo de una plantilla, las filas que tengo inmovilizadas de esta plantilla, al ejecutar la macro se pierden. Muchisimas gracias.....

Hola a todos Recien comienzo a intentar aprender por mi cuenta VBA y estoy haciendo mi primer factura en la que quisiera que por medio de un boton se generase el numero de factura automaticamente y se copiaran: ese numero correspondiente de factura, el nombre del cliente y el importe. Dichos datos se guardan en otro libro a modo de resumen donde la primer columna es ese numero automatico generado, la segunda el nombre del cliente y finalmente el importe. He estado mirando codigos y solo me he liado y estoy hecho una maraña. Si alguien pudiese orientarme, se lo agradeceria ampliamente. Un saludo y gracias por la atencion.

Buenas tardes: tengo el siguiente problema: copie una tabla que excel llama "TABLA11" y al copiarla en otra hoja aparece como "TABLA1128", al hacer la macro para filtrarla la macro busca "TABLA1128" y como esta aumenta de numero automaticamente pues la macro no ejecuta. Como hago para decirle a la macro que filtre sin importar el numero que de la tabla copiada? - - - - - Mensaje combinado - - - - - el codigo aparece asi: Selection.AutoFilter ActiveSheet.ListObjects("Tabla1128").Range.AutoFilter Field:=1, Criteria1:= _ "ACEITE BRONCEADOR, MEJORA FORMULACION" AL EJECUTAR LA MACRO NUEVA APARECE "Tabla1129" y asi cada vez que se ejecuta

Buenas tardes, Tengo una macro que me combina por medio de marcadores algunos campos de excel a word hasta ahí todo perfecto, solo que quiero que al momento de ejecutar la macro me cargue los campos y automaticamente me lo mande a imprimir el documento en word sin guardar los cambios Espero haber sido lo mas claro posible Saludos,

Hola gente acudo a ustedes ya que realmente no se que hacer; tengo un userform que al ingresar "x" valor en el textbox1 buscara en la base de datos especificada y devolvera el resultado en textbox2. Si bien el formulario funciona, lo hace solo si busco numeros, es decir si busco el numero "1" me devuelve corretamente el valor que necesito, pero si busco por ejemplo "una palabra" ya no la encuentra. el código es el siguiente Private Sub CommandButton1_Click() On Error GoTo error: nombre = Application.WorksheetFunction.VLookup(VBA.CInt(Me.TextBox1), Sheets("datos").Range("A:B"), 2, 0) Me.TextBox2 = nombre: Exit Sub error: Me.TextBox1 = "": Me.TextBox2 = "" Me.T…

Buenos Días compañeros, Soy nuevo en programación en VBA y estoy un poco perdido, agradeceria que me ayudarais en este tema. Estoy creando una macro donde necesito que el usuario interactue. Es decir la macro empieza, y con un msgbox le pide al usuario que introduzca unos valores a partir de la celda C7. El usuario tiene que copiar una información que tendrá guardada donde el quiera, a partir de esta celda C7 y cuando lo del al boton acceptar del msgbox me gustaria que la macro se reanudará en el puesto donde se paro. esto es possible?

He creado una macro que envía mails desde mi cuenta de gmail. Los mails se envían bien. El problema es que no incluye la firma configurada en gmail cuando lo envío desde la macro. ¿Cómo puedo hacer para que incluya la firma en el mensaje? Sub EnviarMail() Dim MailExitoso As Boolean 'llamo a la funcion: MailExitoso = EnviarMails_CDO() 'si me devuelve un resultado Verdadero, todo salió bien: If MailExitoso = True Then MsgBox "El mail fué enviado satisfactoriamente", vbInformation, "Informe" End If End Sub Function EnviarMails_CDO() As Boolean ' Creo la variable de objeto CDO Dim Email As CDO.Message Dim Autentificion As Bo…

buenas tardes sólo tengo algunas nociones de vba pero consultando la web he creado una macro mi macro pretende abrir una página web y extraer algunos datos y copiarlos en una hoja excel la página requiere la inclusión de un usuario, contraseña y un CIF he logrado automatizar la apertura de la página principal, desplazarme a otra página de la misma web pulsando un enlace, incluir en ésta el usuario, contraseña y CIF y validar los datos pulsando el botón oportuno en este punto se muestran parte de los datos a importar a Excel en este punto no sé cómo seguir y se me plantean tres problemas 1º. Cómo selecciono la página que contiene los datos para importarlos a excel.…

amigos buenas tardes... mi duda va a lo siguiente, necesito un boton editar, que a partir del ingreso del run del alumno despliegue el userform con los datos ya ingresados, para que se puedan agregar los datos faltantes... en otras palabras... - click en buscar - ingresar run - busca los datos -aparece el userform original con los datos ya ingresados - se ingresan los datos faltantes o modifican los ya ingresados - guardar, limpiar y volver al userform les agradeceria cualquier ayuda al respecto... les dejo el archivo que estoy trabajando.. Dropbox - matricula_v12.xlsm mi mail por cualquier cosa el archivo esta disponible para cualquiera que necesite part…

Buen día En el lugar donde laboro, se generó un archivo que se encuentra compartido, y donde varios usuarios pueden realizar modificaciones al mismo tiempo. Para hacerlo mas factible se le agregaron botones que filtran la información del departamento de producción donde se encuentra el articulo ( ver ejemplo en archivo anexo ). Uno de los usuarios ejecuto en todas las hojas del archivo la funcionó de ordenar por color, pero selecciono tan solo unos campos a ordenar, lo que provoco una alteración en el orden de todos los renglones del archivo, y por ende provoco que la información se mezclara y arrojara informes erróneos. Se me encargo que protegiera cada unas de las hoja…

Buenas noches a todos, Llevo todo el dia buscando una solucion pero no la encuentro. Tengo un libro excel con muchos hoas como base de datos de registros de telefonia movil. En el primer sheet es donde se introducen los datos en celdas y con un commandbutton los graba a sus respectivos sheets dependiendo del tipo de registro. El tema es que quiero abrir el excel con un userform para hacerlo mas bonito y sencillo visualmente para que lo usen terceras personas, y todo lo tengo perfecto exceptuando cuando tiene que grabar los datos ya que no se como llamar al commandbutton situado en el primer sheet del libro desde el userform para que ejecute todos los procesos que este co…

Me gustaría saber si hay manera de hacer lo siguiente: Que el usuario seleccione el rango a analizar y que mediante macro se cuente y añada en una tabla en la misma hoja las veces que aparece cada franja horaria con un color determinado. Es decir: en el rango seleccionado aparecen las franjas de tiempo: ·0:15 Aparece en cuatro ocasiones en celdas de color amarillo. Aparece en seis ocasiones en celdas de color verde. Aparece en dos ocasiones en celdas de color rojo. ·0:30 Aparece en tres ocasiones en celdas de color amarillo. Aparece en cinco ocasiones en celdas de color verde. Aparece una ocasión en celdas de color naranja. ·Etc. Y luego esos datos colocarlos e…

He visto varias macros que realizan esta macro, incluso tengo un excel con esa macro incorporada y funciona. Pero cuando copio y pego esas macros a mi excel siempre me sale error 438 donde se especifica la fecha de la cita. Lo único que busco es un botón que cree una cita/tarea en outlook y que tome de dos celdas de mi excel los datos asunto y la fecha con hora. Gracias

NECESITO UNA MACRO QUE ME PERMITA RESTRINGIR EL INGRESO DE TRABAJADORES SEGUN SU RECORD LABORAL EN EL ADJUNTO LO EXPLICO MEJOR GRACIAS RECORD 2.rar

Buen día... hoy les escribo con el ánimo que me puedan brindar una ayuda con mi siguiente duda, la cual deseo solucionar mediante una macro vba... La idea es la siguiente... Tengo en C:\ creada una carpeta y esta contiene varios archivos los cuales son unos backups... deseo que sin necesidad que estos archivos estén abiertos o que los abra, pueda buscar un texto especifico, el cual esta en un formulario en un TextBox, y que a la vuelta me devuelva el nombre del archivo, en lo posible que sea un hipervínculo para abrir el archivo en donde se encuentra dicho texto (Label) y si no lo encuentra pues que se indique mediante un mensaje. Faltaba indicarles que dicho Formulario …

Saludos a todos, Necesito si es posible que me ayuden a transformar la formula que les adjunto a VBA. SUMAR.SI.CONJUNTO($E$4:$E$9;$F$4:$F$9;"FALLECIMIENTO FAMILIAR";$H$4:$H$9;"CORRALIZ") Adjunto archivo para que me entiendan mejor. Un saludo y muchas gracias FORMULAVBA.xls

Hola amigos foreros, y saludos a los maestros. Estoy de nuevo con todos ustedes para solicitar su inestimable ayuda con un problema que no puedo resolver y les agradeceria, le explico; tengo un buscador que necesito me encuentre ( eso lo tengo resuelto ) por varias opciones, el problema es que solo me devuelve un total de 8 columnas de datos y tengo 13, he provado varias cosas pero no doy con el asunto, les dejo la hoja para que lo vean, muchas gracias por anticipado Saludos cordiales Prueba.rar

Hola a tod@s, Tengo esta macro que funciona perfectamente, que renombra las hojas según el listado de nombres de la hoja "AA_Nombres": Sub renombra_hoja() Dim Hoja As Worksheet Dim Fila As Long Fila = 5 For Each Hoja In Worksheets Hoja.Name = Cells(Fila, 3) Fila = Fila + 1 Next End Sub ¿Se podría modificar la macro para que en vez de renombrar la hoja, pegue el nombre en la celda A2 (por ejemplo)?

Hola me gustaria poder crear una cinta personalizada en el ribon (botones opciones etc etc) ahora desconosco totalmente como se hace, si mediante codigo (cosa que lo dudo) o con alguna herramienta especial tengo mi sospecha que es un xml pero bueno espero alguna orientacion de parte de ustedes. Saludos

Hola amigos expertos molestándoles una vez más en mi proyecto tengo un grupo de checkbox´s y mi objetivo es activar desde uno o dos botones de opción y que estos checkbox´s sus nombres cambien de color al activar uno por uno o todo el grupo. Espero que me den una ayudita desde ya les doy mis sinceros agradecimientos no se que fuera de la programación sin ustedes. Gracias Nota. Les envío el archivo Activar CheckBox´s desde un botón de opción con color en nobre de CheckBox.xlsm

Buen día gente, lo que quisiera hacer es que en una celda especifica que tengo, la cual una formula devuelve un numero de 5 cifras, quisiera que las dos primeras cifras sean un poco más pequeñas que las otras tres restantes, subo un captura de pantalla porque excel no me deja hacerlo ni manualmente, al salir de la celda se pierde el cambio. Quizás sea imposible pero con preguntar no se pierde nada (excepto tiempo de ustedes para responderme, jaja el cual agradezco y estimo) Saludos Jose

Hola amigos Tengo este problema Tengo un rango que ordenar automáticamente. Pero no consigo que me ordene por los nombres. Me esta ordenando por la columna de las calificaciones. Estoy colocando Sort key1 pero ordena pero la columna 3 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then With Range("A:C") .Sort key1:=.Cells(1, 3), Header:=xlYes End With End If End Sub Saludos Calificaciones.xlsm

Buenas noches, Adjunto mi archivo a fin de encontrar una solucion. Cada check ejecuta un userform en la cual con los botones podemos cambiar de color de verde a rojo en el ejemplo solo estoy considerando 5 check. LO que busco es insertar un solo userform para todas las check y que estas se ejecute de manera individual para no seguir insertando tantas userform como numeros pudan haber. Agradezco su ayuda Esperando una respuesta. Saludos...... Un solo userform para todos.xlsm

Saludos a todos los foreros de esta comunidad, por sus conocimientos y ayuda que nos proporcionan a los iniciados al tema de las macros, haber si podeis aclararme que estoy haciendo mal. Si en el textbox9 introduzco la cantidad de 2566,45 en textbox13 debería dar la cantidad de 231,00 y no es así, me devuelve la cantidad de 0,23 (adjunto macro) Gracias por adelantado Private Sub TextBox9_Change() With Me.TextBox9 .Value = TextBox9.Value .Value = Format(.Value, "#,##0.00") End With TextBox13 = Format(Val(TextBox9.Value) * (0.090009), "#,##0.00") End Sub