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

(Ctrl+B) Buscar Y Reemplazar con Userform

Ver el tema anterior Ver el tema siguiente Ir abajo

(Ctrl+B) Buscar Y Reemplazar con Userform

Mensaje por henryh007 el Sáb Sep 05, 2009 8:58 am

Hola a todos en el foro, necesito su ayuda por favor, En el archivo que subi, necesito que seleccione de la celda A1:A10 y Reemplaze cierto Numero, hay esta 5%,al hacer click en el Boton Cambiar %, abre el userform1, tiene 2 textbox, el textbox1 es el valor Buscado, y el TextBox2 es el valor a reemplazar, porfavor necesito su ayuda, lo e intentado y no lo e logrado, agradecere su ayuda.

Saludos.

[Tienes que estar registrado y conectado para ver este vínculo]

henryh007

Masculino Cantidad de envíos : 53
Edad : 26
Ciudad - Pais : Cusco - Perú
Version de Excel : Excel 2007
Fecha de inscripción : 29/08/2009

Volver arriba Ir abajo

Re: (Ctrl+B) Buscar Y Reemplazar con Userform

Mensaje por Percy el Jue Sep 10, 2009 4:09 am

Hola Henry en textobox1 escribes para buscar
Private Sub TextBox1_AfterUpdate()
Dim dato As String
Dim rango As Variant
Dim midato As Variant
ASISTE = Hoja1.Name

If Sheets(ASISTE).Range("A1").Value = "" Then
filalibre = 2
Else
filalibre = Sheets(ASISTE).Range("A1").End(xlDown).Offset(1, 0).Row
End If

control = 0
dato = TextBox1
rango = "A1:A" & filalibre

Set midato = Sheets(ASISTE).Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (midato) Is Nothing Then
ubica = midato.Address(False, False)
TextBox2.Value = Sheets(ASISTE).Range(ubica).Offset(0, 1).Value
control = 1
End If
If (midato) Is Nothing Then
MsgBox "El Dato es Incorrecta", vbCritical, "Atención"
Exit Sub
End If
Set midato = Nothing
End Sub



Boton OK

Private Sub cmdOk_Click()
Dim dato, rangito As String
Dim miCodigo As Variant
Destino = Hoja1.Name

If TextBox1 = "" Then
MsgBox "Debe ingresar un código"
Exit Sub
End If

dato = TextBox1
rangito = "A1:A" & filalibre

Set miCodigo = Sheets(Destino).Range(rangito).Find(dato, LookIn:=xlValues, LookAt:=xlWhole)
If Not (miCodigo) Is Nothing Then
Aqui = miCodigo.Address(False, False)
End If
Sheets(Destino).Range(Aqui).Offset(0,0).Value = Val(TextBox2)
End Sub

espero que esto te ayude, espero ser lo bastante claro, saludos

Percy

Masculino Cantidad de envíos : 9
Edad : 51
Ciudad - Pais : peru
Version de Excel : 2003
Fecha de inscripción : 08/09/2009

Volver arriba Ir abajo

Re: (Ctrl+B) Buscar Y Reemplazar con Userform

Mensaje por yobanidiazh el Miér Nov 06, 2013 3:09 pm

Hola como esta espero me pueda ayudar tengo un userform de busqueda y me funciona muy bien si el dato buscado concide a totalidad con la busqueda, pero lo que quiero es que si la celda que busco tiene numero y letras ej: 1287-652 Jose, si solo lo busco por el numero me localise esa celda con los dos valores este es el procedimiento que tengo.

Public rango As String, valorbuscado As String

Sub Encontrarvalores()
Dim resultado As Range
Dim primerabusqueda As String



Set resultado = Range("B7:Q39").Find(valorbuscado, , xlValues, xlWhole, xlByColumns, xlNext, False, , False)

rango = ("B7:Q39")

If resultado Is Nothing Then
MsgBox "No se encontraron coincidencias."
Else
primerabusqueda = resultado.Address
       Do
       resultado.Activate
                    Set resultado = Range("B7:Q39").FindNext(resultado)
     Loop While Not resultado Is Nothing And resultado.Address <> primerabusqueda
       
     
      End If

End Sub
Private Sub CommandButton1_Click()
Call Encontrarvalores
End Sub

Private Sub TextBox2_Change()
valorbuscado = TextBox2.Text
End Sub

yobanidiazh

Masculino Cantidad de envíos : 2
Edad : 36
Ciudad - Pais : Santo Domingo
Version de Excel : 2010
Fecha de inscripción : 05/11/2013

Volver arriba Ir abajo

Re: (Ctrl+B) Buscar Y Reemplazar con Userform

Mensaje por Tatayayan el Jue Nov 07, 2013 12:08 pm

Hola, no vi todo el desarrollo de éste post, sólo el encabezado.
Lo que aporto es lo siguiente:
Application.CommandBars.FindControl(ID:=1849).Execute

Hace que aparezca la ventana de Buscar - Reemplazar
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: (Ctrl+B) Buscar Y Reemplazar con Userform

Mensaje por yobanidiazh el Sáb Nov 09, 2013 10:56 am

Gracias pero no es lo que busco

yobanidiazh

Masculino Cantidad de envíos : 2
Edad : 36
Ciudad - Pais : Santo Domingo
Version de Excel : 2010
Fecha de inscripción : 05/11/2013

Volver arriba Ir abajo

Re: (Ctrl+B) Buscar Y Reemplazar con Userform

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.