Adriel Ortiz Mangia

Te paso la macro Sub Copiar() '//Por Adriel Ortiz Set h1 = Sheets("PLAZAS") Set h2 = Sheets("INF TOTAL") ' u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1 h2.Cells(u2, "A") = h1.[B2] h2.Cells(u2, "B") = h1.[C2] h2.Cells(u2, "C") = h1.[B3]...

Te paso la macro de dante amor Sub Consolidar() 'Act.Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Seguimiento TOTAL") 'hoja con el consolidado h1.Range("A2:Z" & h1.Range("A" & Rows.Count).End(xlUp).Row + 1) = Empty i = 2 For...

H o l a Te paso la macro, le pones en el evento keypress Esto para solo números Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If Not (KeyAscii >= 48 And KeyAscii <= 57) Then KeyAscii = 0 End Sub esto para solo texto Private...

H o l a prueba esto, para que le considere como numero a los textbox pon VAL Private Sub TextBox11_Change() TextBox12 = (Val(TextBox11) / 100) * Val(TextBox9) '(Aquí es donde me da el error) TextBox13 = Val(TextBox9) - Val(TextBox12) TextBox9 =...

h o l a ¿Deseas eliminar la fila o los datos de la celda?, si pones una imagen de tus datos sería genial

h o l a te paso la macro Private Sub CommandButton1_Click() If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub Set h1 = Sheets(ComboBox1.ListIndex + 1) u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(u, "A") = ComboBox1 h1.Cells(u,...

H o l a te paso la macro Private Sub CommandButton1_Click() '//por Aortiz hoja = TextBox5.Value encontrado = False For Each h In Sheets If UCase(h.Name) = UCase(hoja) Then encontrado = True Exit For End If Next If encontrado Then Sheets(hoja).Select...

H o l a para proteger todas la hojas y la clave es 1 Sub proteger_todo() For Each h In Sheets h.Protect "1" Next End Sub para desproteger todas las hojas y la clave Sub desproteger_todo() For Each h In Sheets h.Unprotect "1" Next End Sub para...

H o l a Usa esto TextBox1. SetFocus

H o l a Te faltó mostrar como esta organizado tus datos para adecuar la macro. O si deseas envíame [email protected] y lo desarrollo saludos!