buenas tengo esta macro '--------------------------------------------------------------------------------------- ' Module : UserForm1 ' Purpose : Búsqueda "as type" '--------------------------------------------------------------------------------------- '1)Al iniciar Private Sub UserForm_Initialize() Me.Height = 83 End Sub '2)Al escribir texto en el TextBox Private Sub TextBox1_Change() If Me.TextBox1.Value = "" Or Me.TextBox1.Value = " " Then Me.Height = 83 Else Me.Height = 160 Dim rng As Range, e Set Lista = Range("lstProductos") With Me .ListBox1.Clear For Each i In Lista.Value If (i <> "") * (i Like "*" & .TextBox1.Value & "*") Then .ListBox1.AddItem i End If Next i End With End If End Sub '3)Aceptar el valor elegido y capturarlo en la celda activa Private Sub CommandButton2_Click() Cuenta = Me.ListBox1.ListCount For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) = True Then ActiveCell.Value = Me.ListBox1.List(i) End If Next i Unload Me End Sub '4)Cerrar el formulario Private Sub CommandButton1_Click() Unload Me End Sub '--------------------------------------------------------------------------------------- ' Module : UserForm1 ' Author : MVP, Sergio Alejandro Campos ' Date : 19/02/2016 ' Purpose : Búsqueda "as type" '--------------------------------------------------------------------------------------- '1)Al iniciar Private Sub UserForm_Initialize() Me.Height = 83 End Sub '2)Al escribir texto en el TextBox Private Sub TextBox1_Change() If Me.TextBox1.Value = "" Or Me.TextBox1.Value = " " Then Me.Height = 83 Else Me.Height = 160 Dim rng As Range, e Set Lista = Range("lstProductos") With Me .ListBox1.Clear For Each i In Lista.Value If (i <> "") * (i Like "*" & .TextBox1.Value & "*") Then .ListBox1.AddItem i End If Next i End With End If End Sub '3)Aceptar el valor elegido y capturarlo en la celda activa Private Sub CommandButton2_Click() Cuenta = Me.ListBox1.ListCount For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) = True Then ActiveCell.Value = Me.ListBox1.List(i) End If Next i Unload Me End Sub '4)Cerrar el formulario Private Sub CommandButton1_Click() Unload Me End Sub '--------------------------------------------------------------------------------------- ' Module : UserForm1 ' Author : MVP, Sergio Alejandro Campos ' Date : 19/02/2016 ' Purpose : Búsqueda "as type" '--------------------------------------------------------------------------------------- '1)Al iniciar Private Sub UserForm_Initialize() Me.Height = 83 End Sub '2)Al escribir texto en el TextBox Private Sub TextBox1_Change() If Me.TextBox1.Value = "" Or Me.TextBox1.Value = " " Then Me.Height = 83 Else Me.Height = 160 Dim rng As Range, e Set Lista = Range("lstProductos") With Me .ListBox1.Clear For Each i In Lista.Value If (i <> "") * (i Like "*" & .TextBox1.Value & "*") Then .ListBox1.AddItem i End If Next i End With End If End Sub '3)Aceptar el valor elegido y capturarlo en la celda activa Private Sub CommandButton2_Click() Cuenta = Me.ListBox1.ListCount For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) = True Then ActiveCell.Value = Me.ListBox1.List(i) End If Next i Unload Me End Sub '4)Cerrar el formulario Private Sub CommandButton1_Click() Unload Me End Sub que un userform con autobusqueda pero no entiendo como seleccionar la lista datos donde el va a buscar Else Me.Height = 160 Dim rng As Range, e Set Lista = Range("lstProductos") With Me .ListBox1.Clear la hoja donde esta los contactos se llama proveedores quiero cambiar para que sea una de clientes y no se como hacerlo si alguien sabe envienme un correo para enviarles el archivo

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

no entiendo esta macro

Autor del tema doommasta
Fecha de inicio 25 Jul 2018

doommasta

New member

25 Jul 2018

buenas tengo esta macro

'---------------------------------------------------------------------------------------
' Module : UserForm1
' Purpose : Búsqueda "as type"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Resuelto

Repaso de la macro, no entiendo que estoy haciendo mal

Respuestas: 7

4 Jun 2023

joselica

Resuelto

"=@ Unique(....)" y no entiendo el motivo

Respuestas: 3

2 Jun 2023

Macro Antonio

Pregunta

Adaptar una macro que no entiendo como funciona

Respuestas: 11

26 May 2022

joselica

Pregunta

No entiendo porque la macro va a medias

Respuestas: 2

5 Mar 2021

joselica

Pregunta

Estoy en blanco "Macro" que no entiendo

Respuestas: 5

19 Sep 2020

joselica

Pregunta

NO ENTIENDO LA MACRO

Respuestas: 2

18 Jun 2019

joselica

Pregunta

No entiendo este 'Error 9'

Respuestas: 3

3 Ago 2015

Cacho R

Pregunta

esto no entiendo

Respuestas: 2

30 Jul 2014

jorgelin

Pregunta

Me da error un array y no entiendo porque...

Respuestas: 1

13 May 2010

Adrian

Pregunta

no entiendo el funcionamiento de este archivo

Respuestas: 2

9 Ago 2006

eberber

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba