Adriel Ortiz Mangia

[Hola Pon una captura de la hoja y ver como está organizado tus datos

[Hola prueba así Private Sub CommandButton1_Click() ' col = "A" ' columna a buscar Set r = Columns(col) Set b = r.Find(TextBox1, lookat:=xlWhole) If Not b Is Nothing Then 'encuentra los datos f = b.Row TextBox2 = Cells(f, "B") Else MsgBox "No existe...

[Hola Para buscar registro en Excel presiona la combinación control + b Observa el vídeo https://www.youtube.com/watch?v=AuYk3d0yAVg

[Hola Te paso la macro Valorar la respuesta para finalizar saludos! Sub Macro_1() 'Adriel Ortiz Mangia ' For i = 4 To Range("F" & Rows.Count).End(xlUp).Row Select Case Cells(i, "F") Case 1 Cells(i, "H") = 47 Case 2 Cells(i, "H") = 20 Case 3 Cells(i,...

[hola Te paso la macro para pasar la fecha del textbox a la hoja Private Sub CommandButton1_Click() ' u = Range("A" & Rows.Count).End(xlUp).Row + 1 Cells(u, "A") = CDate(TextBox1) ' End Sub

[Hola Usa la siguiente fórmula =INDIRECTO("'"&B2&"'!"&"D7") ejemplo

[Hola Te paso la macro actualizada Sub copiar() 'Copiar a Base_Seguimiento Set h1 = Sheets("Base_Seguimiento") ' Hoja de origen Set h2 = Sheets("Hoja2") ' Hoja de destino ' u = h1.Range("B" & Rows.Count).End(xlUp).Row + 2 h1.Range("C31:J85").Copy...

[Hola En el encabezado de tu línea de código Pon dim h, b

[Hola cambia estas líneas hoja = UserForm1.ListBox1.List(ListBox1.ListIndex, 2) fila = UserForm1.ListBox1.List(ListBox1.ListIndex, 3) por Hoja = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) fila = UserForm1. ListBox1. List(UserForm1....

[Hola Descarga este programa es muy práctico Link de descarga https://www.youtube.com/watch?v=FzeRDVb9Waw vídeo tutorial https://www.youtube.com/watch?v=WwT46Qjb_LM