Adriel Ortiz Mangia

[Hola ¿Deseas realizar la búsqueda y mostrarlo en el listbox? Y como esta organizado tu información osea cuales son las columnas a buscar y en que fila empieza tus datos

[Hola, deseas actualizar datos de un nombre encontrado? ¿Por ejemplo encuentras el Dni 12345678 y deseas actualizar el sexo de la persona?

[Hola En workbook_open pon esto Application.Visible = False Userform.show 'cambias el nombre de tu formulario por el tuyo

</Hola Te paso la macro, si tus datos están de esta forma. Datos en la hoja1 resultado en la hoja2 macro Sub copia_ordena() '//Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") h1.Cells.Copy h2.[A1] u = h2.Range("A" &...

</Hola Para pasar los datos del formulario sería al revés Range("G2") = Format(val(Textbox1), "#,##0.00")

</Hola Te paso la macro Private Sub CommandButton1_Click() '//Por Adriel Set h1 = Sheets("Hoja1") ' u = h1.Range("B" & Rows.Count).End(xlUp).Row ' If u < 2 Then u = 2 w = WorksheetFunction.Sum(h1.Range("B2:B" & u)) Sheets("Hoja2").TextBox1 = w End Sub

</Hola Yo uso wondershare PDF converter Link de descarga http://www.intercambiosvirtuales.org/portables/wondershare-pdf-converter-pro-3-0-0-9-portable-convierte-6-formatos-a-pdf-y-soporta-ocr

</Hola Prueba con esto Sub compara() Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row Set r = h1.Columns("A") Set b = r.Find(h1.Cells(i, "B"), lookat:=xlPart) If Not b Is Nothing Then h1.Cells(i, "C") = "existe" Else...

</Hola Usa el control spingButton Private Sub SpinButton1_SpinDown() TextBox1.Value = TextBox1.Value - 1 End Sub Private Sub SpinButton1_SpinUp() TextBox1.Value = TextBox1.Value + 1 End Sub sigue las instrucciones de este vídeo...

</Hola Puedes poner como está organizado tus datos y el resultado deseado saludos!