Mario Rodríguez

:) Hola! Te muestro un modelo básico que incluye un buscador en dos columnas: https://bit.ly/2QkeARt ¿Es lo que buscabas?... Saludos, Mario (Cacho) Rodríguez. :) .

:) Lo siguiente te puede ser de utilidad: Sub ExtDatos() Dim i%, ws As Worksheet On Error Resume Next Set ws = Worksheets("Datos") If Err.Number <> 0 Then Set ws = Worksheets.Add On Error GoTo 0 With ws: .Name = "Datos": .Move Before:=Sheets(1):...

. Hola! Jesús Antes de mandar a imprimir tienes que ocultar esos botones mediante: CommandButton1. Visible = False Desde luego y a posteriori reviertes la condición mediante "True". Saludos, Mario (Cacho) Rodríguez. :)

:) Busca en la ayuda del VBA, que significa: lookat:=xlPart para el método Find. ¿Te orientas?...

:) Creo que esto puede ponerte en camino: https://bit.ly/2Q3TPcL Saludos, Mario (Cacho) Rodríguez. :)

. Los ListBox -por defecto- ya vienen con sus dos barras de desplazamiento (la horizontal y la vertical) "a la vista". O sea: ¿De qué estás hablando?... ¿Estás segura que "estás mirando" un ListBox?... :)

. Cambia "el orden" de las cosas y simplifica del siguiente modo: ¿Te sirve la idea?... TextBox1 = Format(TextBox1, "Standard") TextBox2 = Format(TextBox2, "Standard") TextBox3 = Format(TextBox3, "Standard") TextBoxSubTotal = Format(0 + TextBox1 +...

:) Fíjate si algo así te puede servir: Ejemplo624 Saludos, Mario (Cacho) Rodríguez :)

:) Hola! Armando (y jrcces). Otra posibilidad sería: Private Sub ComboBox1_Enter() Dim C As Range With CreateObject("Scripting.Dictionary") For Each C In Hoja3.Range("b2", Hoja3.[b2].End(xlDown)) If Not .Exists(Str(C)) Then .Add Str(C), Empty Next...

:) Hola! CSI. Dos re preguntas: - ¿Es correcto afirmar que tienes TODAS las celdas de las columnas A, B y C con datos (dentro de una cantidad variable de filas)? - Los datos de las celdas: ¿Son datos fijos o son fórmulas?... Saludos, Mario (Cacho) R. :)