Hola buenos dias:

Tengo una macro con la que me ayudo a registrar una plantilla formato muchos códigos, en la que yo selecciono la celda y me muestra una ventana emergente con un listado de códigos que extraigo de otra hoja. y al seleccionarlo escribe el código en la celda seleccionada.

Funciona bien. siempre si escribo letras  iniciales del código o texto.

Lo que necesito hacer, es poder escribir cualquier parte del código texto, me de las coincidencias.

un ejemplo:tengo el código Margarita-2025 con solo yo poner gari me mostrara este código o los códigos que existen.

Muchas gracias

Mariano

Filtro en lista despegable3.xlsm

Prueba y comenta

Private Sub buscar_Change()
 material.Clear
    If buscar = "" Then
        material.List = Hoja2.Range("C3:C" & Hoja2.Range("C" & Rows.Count).End(xlUp).Row).Value
        Exit Sub
    End If
    For x = 3 To Hoja2.Range("C" & Rows.Count).End(xlUp).Row
        If InStr(1, UCase(Hoja2.Range("C" & x)), UCase(buscar)) > 0 Then
            material.AddItem Hoja2.Range("C" & x)
        End If
    Next
End Sub

 

hace 3 horas, JSDJSD dijo:

Prueba y comenta

Private Sub buscar_Change()
 material.Clear
    If buscar = "" Then
        material.List = Hoja2.Range("C3:C" & Hoja2.Range("C" & Rows.Count).End(xlUp).Row).Value
        Exit Sub
    End If
    For x = 3 To Hoja2.Range("C" & Rows.Count).End(xlUp).Row
        If InStr(1, UCase(Hoja2.Range("C" & x)), UCase(buscar)) > 0 Then
            material.AddItem Hoja2.Range("C" & x)
        End If
    Next
End Sub

 

Hola: Muchas gracias por tu gran ayuda, me ha funcionado perfecto en mi ejemplo.

Pero tengo un problema, espero me puede ayudar.

Ahora en la hoja donde quiero poner  la estructura de la macro que me has dado ya tengo otra macro que utiliza Worksheet_Change(ByVal Target As Range).

Lo puse y me marca errores.

Este es la otra macro:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngData As Range 'Aqui inicia

Set rngData = Range("g5")

On Error Resume Next

If Union(Target, rngData).Address = rngData.Address Then

Application.EnableEvents = False

Target.ClearFormats

Select Case Len(Target)
Case 1, 2
Target = DateSerial(Year(Date), Month(Date), Left(Target, 2))
Case 4
Target = DateSerial(Year(Date), Right(Target, 2), Left(Target, 2))
Case 8
Target = DateSerial(Right(Target, 4), Mid(Target, 3, 2), Left(Target, 2))
Case 7
Target = DateSerial(Right(Target, 4), Mid(Target, 2, 2), Left(Target, 1))
Case Else
MsgBox "Entrada Incorrecta"
Target = ""

End Select

Application.EnableEvents = True

End If
On Error GoTo 0
If Intersect(Target, Sheets("RegistroS").Range("G4")) Is Nothing Then Exit Sub

If Application.WorksheetFunction.CountIf(Sheets("Base"). _
    Range("B2:b1000"), Target) <> 0 Then
        MsgBox "Folio Repetido"
        Target = ""
    End If
End Sub

 

Por favor si me puede ayudar.

 

Muchas gracias

Sube tu archivo

hace 17 minutos , JSDJSD dijo:

Sube tu archivo

Muchas gracias:

 

Adjunto el archivo con la estructura de las macros.

 

Saludos

 

 

Prueba de 2 macros en hoja.xlsm

Cual es el problema ?

hace 1 minuto , JSDJSD dijo:

Cual es el problema ?

Me marca error de compilacion, no se ha definido la variable

y me marca en amarillo:Private Sub buscar_Change()

Gracias

Declara la variable como te muestro y lo tiene funcionando

 

Aquí tienes el archivo

Prueba de 2 macros en hoja.xlsm

hace 1 minuto , MarianoCruz dijo:

Me marca error de compilacion, no se ha definido la variable

y me marca en amarillo:Private Sub buscar_Change()

Gracias

Gracias:

yo había puesto Dim x as range, pero noo me daba.

Muchas gracias por tu ayuda y seguimiento a mi peticion.