Dante Amor

Te anexo la macro Sub ContarVisibles() 'Por.Dante Amor For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row If Rows(i).Hidden = False Then filas = filas + 1 Next MsgBox "Filas visibles = " & filas End Sub 'S aludos. Dante...

H o l a: Te anexo la macro Sub Resultado() 'Por.Dante Amor Set h1 = Sheets("Datos") Set h2 = Sheets("Resultado") h2.Cells.Clear h2.Range("A1:B1") = Array("Workzone", "Carro") j = 2 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row k = 2 Do While...

Te anexo lo que agregué a tu formulario: Private Sub OptionButton7_Click() If cbo_Nombre.ListIndex = -1 Then MsgBox "Selecciona un registro del combo" cbo_Nombre.SetFocus OptionButton7 = False Exit Sub End If TextBox1 = cbo_Nombre End Sub 'S aludos....

H o l a: No sé cuáles celdas están en la hoja1 y cuál celdas van en la hoja2. Te anexo la macro con la sintaxis. Solamente tienes que cambiar h1 si las celdas están en la hoja1 y h2 si las celdas están en la hoja2 Sub CopiarValor() 'Por.Dante Amor...

H o l a: Envíame tu archivo y me explicas con ejemplos qué es lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “ jose luis martinez hernandez ” Y el título de esta pregunta. Avísame en esta pregunta...

H o l a: Envíame tu archivo y me explicas con ejemplos, con colores y con comentarios lo que necesitas que haga la macro. Entiendo que modificaste la macro para resolver lo que necesitas, pero veo que tienes 4 ciclos For-Next. Tendrías que explicarme...

Envíame un correo nuevo, en el asunto escribe tu nombre de usuario.

H o l a: No me queda muy claro que hay que copiar y en dónde hay que pegar. Tengo las siguientes dudas: Cuando dices: "Copiar los resultados en la hoja 2", te refieres a que se tienen que pegar como valores, ¿o a qué resultados te refieres?Quieres...

Te anexo la macro para el ejemplo 2 Sub OrdenSinId() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Datos") Set h2 = Sheets("Orden") h2.Cells.Clear ' fil = 2 col = 2 num = 1 wmax = 0 h2.Cells(fil, "A") = num For i = 2 To...

Se debe verificar el contenido del textbox, después de que terminas la captura, y eso sucede cuando te quieres salir del textbox, es por eso que voy a validar en el evento Exit: Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)...