UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

franticzero


Hola Amigos

Estoy haciendo un formulario en Excel VBA y necesito ayuda con una busqueda.
Mi campo de busqueda es el txt_buscar, el cual es un codigo de cliente y al presionar la tecla enter, necesito que me traiga de vuelta en otro text_nombre_completo, el nombre cliente, que está en otro hoja del mismo libro, en la hoja Clientes.

Bueno,, espero me puedan ayudar.
Saludos

adolfo castro


Buenos días, creo, por lo que veo, que entramos en el foro, y en la parte superior, en rojo, biennnnn claro, se lee algo asi que dice:

sin archivo adjunto no hay respuesta, todo ello en rojo bien claro, ahora me pregunto

no observan, no leen, o simplemente pasan y si cuela cuela, usted cree que los que intentamos ayudar, hemos hecho un curso de brujería para saber como tiene usted un desarrollo hecho, cogemos nuestra bola de cristal y yata, averiguado.

por favor, si usted necesita algo, al menos aporte una planilla con lo que tiene y sea claro y explicito en su pregunta, y que minimo, que leer las recomendaciones del foro, donde se indica como realizar correctamente una pregunta, que minimo


saludos Adolfo castro

3RESUELTO Archivo el 28/07/15, 10:45 pm

franticzero


Hola
Al crear el post, apareció "Formato de archivo no válido", aun cuando lo puse en rar, zip, etc.. asi que no lo subí. Bueno, ahora tampoco puedo, así lo envío a través de dropbox.

Archivo Excel

adolfo castro


te adjunto[url=#74840304] una[/url] posible solución
Archivos
test.zip
No tienes los permisos para descargar los archivos.
(34 KB)

5RESUELTO Acercando a lo que necesito... el 30/07/15, 11:47 pm

franticzero


Gracias Adolfo
Cambié el objeto y ya obtube algo mas o menos parecido a lo que necesitaba.

Private Sub txt_codigo_Change()
On Error Resume Next

Sheets("clientes").Select
Range("a2").Select
Cells.Find(What:=txt_codigo.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
   txt_cliente = ActiveCell.Offset(0, 1).Value
End Sub

¿Existe alguna forma de hacer esto mismo con un DoWhile o un For?


Gracias por tu ayuda

adolfo castro


Hola buenas noches, la verdad es que si, pero para que ??? no te va bien??? es cuestión de que los busques los estudies, y sobre todo sepas que hace cada uno para que se usa, y con practica como hacemos los aquí presentes, po se aprende, no obstante, cualquier duda, aquí estamos, eso si , siempre con educación y valentía que es la que se ha de tener cuando uno se mete en Excel, si quieres aprender, horas, horas, y mas horas, pero siempre debes de estudiar que precisas y para que, una vez clara, afronta el proyecto.

saludos Adolfo castro

adolfo castro


ejemplos de las funciones que tu dices

Sub CopiaFilasImpares()
Dim i As Byte
Dim filalibre As Integer
'esta variable guarda la primer fila donde se copiarán los datos
filalibre = 20
'copia desde la fila 5 hasta la 10 en saltos de 2
For i = 5 To 10 Step 2
    Worksheets("Hoja1").Cells(i, 1).EntireRow.Copy Destination:=Worksheets("Hoja2").Cells(filalibre, 1)
    filalibre = filalibre + 1
Next
End Sub


La instrucción Do......Loop repite un bloque de instrucciones cuando una condición es Verdadera o hasta que una condición se convierta en Verdadera.
Hay 2 maneras de utilizar este bucle: con While (mientras sea verdadero) o Until (hasta que sea verdadero)
Sintaxis:
Do [{While | Until} condición]
[instrucciones]
[Exit Do]
[instrucciones]
Loop
O bien, puede utilizarse esta sintaxis:
Do
[instrucciones]
[Exit Do]
[instrucciones]
Loop [{While | Until} condición]
Ejemplo: obligar al ingreso de un nombre en un InputBox
Sub IngreseClave()
Do
miNombre = InputBox("Por favor, ingrese su nombre:", "DATOS PERSONALES")
'se repite el bucle 'mientras' el contenido del InputBox sea 0
Loop While Len(miNombre) = 0 'obliga a ingresar dato en este inputbox
End Sub

Igtelo


Hola Adolfo.

Gracias por la explicación, ejemplos y tu tiempo. A otros más les ayudará.
Lo damos por resuelto.

Saludos
Ignacio Téllez

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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