Dante Amor

Para que solamente se ejecute cuando modificas la celda de Range("Planning_economic_study") Private Sub Worksheet_Change(ByVal Target As Range) 'MEJORAS MACROS If Not Intersect(Target, Range("Planning_economic_study")) Is Nothing Then...

Qué tienes en el cbo_nombre, ¿tienes un nombre o un número? Envíame tu archivo con el formulario y me explicas con un ejemplo cuál registro eliminarías de las 2 hojas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...

Sería así en el evento Activate Private Sub UserForm_Activate() ComboBox1. AddItem "Factura A" ComboBox1. AddItem "Factura B" End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Sería así: Sub DesprotegeHoja() Dim hojas As Worksheet For Each hojas In ActiveWorkbook.Worksheets If hojas.Visible = -1 Then hojas.Unprotect Password:="XXX" End If Next End Sub La macro tiene que recorrer todas las hojas y verificar si está visible,...

H o la: Te regreso los códigos. Para poner un mensaje en caso de que no se encuentre en la base de datos: Private Sub textbox1_AfterUpdate() Set h = Sheets("BASE DE DATOS") Set b = h.Columns("A").Find(TextBox1) TextBox2 = "" If Not b Is Nothing Then...

H o l a: Te anexo la macro para realizar la separación. Hay que considerar lo siguiente: Pon tu información en la hoja1El resultado quedará en la hoja2Cambia en la macro "Universidad B", por el nombre que vas a buscar.Los nombres de los autores deben...

La macro hace visible la hoja, genera el pdf y por último vuelve a ocultar la hoja. Private Sub CommandButton1_Click() 'Por.Dante Amor Application.ScreenUpdating = False If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub ' hoja =...

H o l a: Estoy agregando la variable werr para activarla en caso de faltar algún dato. Después valido si la variable es verdadera, si es así, entonces se sale de la rutina. Si no hay errores de captura entonces continúa con el código para agregar la...

Envíame tu archivo con el formulario para realizar los ajustes. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Mustaches ur” y el título de esta pregunta.

H o l a: Te anexo la macro actualizada. Lo primero que hace es tomar el nombre de la celda A1, hoja1. Busca el nombre en la lista de nombres del archivo, si existe, entonces copia el rango referido en el nombre y lo pega en la hoja2, celda A1....