............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Quiero el código de búsqueda

Ver el tema anterior Ver el tema siguiente Ir abajo

Quiero el código de búsqueda

Mensaje por alidroos1 el Miér Oct 26, 2011 6:41 pm

Hola mañana miel
Quiero un código de búsqueda para el inicio de un carácter de palabra
ejemplo
Palabra (HQA) y (HQA2) y (Hqga) Quiero un copiar celdas
Que comienza con la letra (h) A otra tarjeta

alidroos1

Masculino Cantidad de envíos : 1
Edad : 30
Ciudad - Pais : spain
Version de Excel : 2007
Fecha de inscripción : 26/10/2011

Volver arriba Ir abajo

Re: Quiero el código de búsqueda

Mensaje por Robert Gunn el Lun Dic 12, 2011 12:22 pm

¿Quiero?... de pronto conoces las palabras ¡Por favor!

Robert Gunn

Masculino Cantidad de envíos : 3
Edad : 37
Ciudad - Pais : Perú
Version de Excel : 2010
Fecha de inscripción : 28/11/2011

Volver arriba Ir abajo

Re: Quiero el código de búsqueda

Mensaje por moises melgar el Lun Dic 12, 2011 6:22 pm

hay muchos codigos de busqueda ...normalemente cada una depende de las necesidades del usuario, pero me pregunto lo sig:

Por que escribes asi????, es como si usaras otra lengua y no el español........
Si hablas otra lengua es importante mencionarlo para poder conocer las limitaciones del ususario pero........ de mientras lo sig:


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim variable
variable = Range("G2").Value ''''''''''''''''defino la variable a buscar'''''''''''''''''''''''

Hoja2.Range("A4:B" & Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents ''''''''''''''''''''' borro los daos de la hoja destino''''''''''''''''''''''

Select Case variable '''''''''''''''''''''''''''''' tengo dos casos de busqueda especiales si el dato esta vacio "" o se escribio la palabra "TODOS" "''''''''''''''''''''''''''''
Case ""
GoTo FIN
Case "TODOS"
variable = ""
End Select

''''''''''''''''''''A travez de un bucle busco en todos las celdas del rango A que empiezen con las mismas letras que empieza mi criterio de busqueda'''''''''''''''''''''
For x = 4 To Range("A3").End(xlDown).Row
If UCase(Left(Range("A" & x).Value, Len(variable))) = UCase(variable) Then '''"SI encuentro el valor : las ultimas celdas vacias de destino adquieren el valor encontrado'''''''''
Hoja2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A" & x).Value
Hoja2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("B" & x).Value
End If
Next x
FIN:
End Sub
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 557
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Quiero el código de búsqueda

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.