Dante Amor

Te anexo el código para cargar del 1 al 5 en cada combo Private Sub CommandButton1_Click() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Pondera") If IsNumeric(TextBox1) Then rut = Val(TextBox1) Else rut = TextBox1 Set b =...

H o la: ¿Y te aparece algún error? ¿Tienes declarada sour como un arreglo? ¿Tienes declarada rango como un rango? ¿A veces si funciona y a veces no? No entiendo esto: "pero cuando en el fichero de lectura cambio los datos, no lee el número que indica...

H o l a: Te anexo mis comentarios: Primero. Si el userform2 lo llamas desde el userform1. Si estás en el Userform2, pero el UserForm1 sigue en ejecución, entonces debes hacer referencia al userform2, es decir, tienes esto: For irow = 0 To...

H o la: No entendí muy bien. ¿Modificas la celda I4 y no entra al evento change? Si es así ejecuta la siguiente macro: Sub en() Application.EnableEvents = True End Sub Prueba nuevamente modificando la celda I4

Quedaría así con statusbar, te va a aparecer un mensaje en la esquina inferior izquierda de excel. Sub macro() Application.StatusBar = False num_hojas = ActiveWorkbook.Worksheets.Count num_celdas = Range("G81:P111,Z81:AK111").Count num_h = 1 num_c =...

Te anexo la macro, cambia la palabra "instrucciones" por la palabra o texto que quieres revisar, deberás escribirlo en minúsculas, si el nombre del archivo word tiene ese texto, lo cierra. Sub CerrarWord() 'Por.Dante Amor Set appWord = GetObject(,...

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim valor As String Dim mesano As String If Intersect(Target, Range("I:I")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub...

Entiendo lo siguiente, si modificas la celda I4, empieza a seleccionar cada una de las hojas que tienes, si en esa hoja, en la celda ZZ100 es diferente de blanco, entonces limpia el rango. Revisa que en las hojas en la celda ZZ100 tengas un dato....

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Row = 1 Then Exit Sub If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("P:Q")) Is Nothing Then u...

Te anexo el código para el botón Guardar. En el código te puse un comentario para que ahí pongas tu código para guardar la información en la hoja. Private Sub CommandButton1_Click() 'Por.Dante Amor If ComboBox1.ListIndex = -1 Then MsgBox "Debes...