Luis Marsiglia

Sub TextBox1_Change() UserForm2.Label1.Value = UserForm1.TextBox1.Value End Sub Si te fue de ayuda no olvides puntuar.

Aquí adjunto una foto de las tablas antes de aplicar el código: Y después: Y el código: Sub CompararLibros() Dim Libro2 As String Dim Row1, Row2, i As Integer Dim Flag As Boolean Libro2 = "Libro2.xlsx" 'pon aquí el nombre exacto del libro y la...

Private Sub CommandButton1_Click() Application.DisplayAlerts = False Application.ScreenUpdating = False Temp = [A2]: Flag = False: a = 2 For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row + 1 If Cells(i, "A") = Temp Then Flag = True b = i Else If Flag...

760 pesos. Gastó 160 en las gaseosas: le quedan 600 Le dejó la mitad a su mamá: le quedan 300

No tengo mi computador a la mano pero te es útil el evento exit. Te anexo un ejemplo para el TextBox1: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'pon aquí tu macro de búsqueda End Sub Si te sirvió recuerda puntuar.

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As _ MSForms.ReturnInteger) If KeyAscii = vbKeyF1 Then 'Aquí haces tu código 'Te sugiero que hagas otro userform que contenga tu ListBox y lo muestres así: UserForm2.Show End If End Sub El código anexado...

Este código copia lo que tengas seleccionado en la hoja actual a la celda A1 de la hoja "Resumen" Sub copiar() Selection.Copy Destinación:=Sheets("Resumen").[A1] End Sub

Sub EliminarFilas() Dim i As Integer Dim UltimaFila as Long Dim col as String col = "G" UltimaFila = Cells(Rows.Count, col).End(xlUp).Row For i = 6 To UltimaFila If Cells(i, col).Value = 0 Then Rows(i).Delete Shift:=xlUp End If Next i End Sub