Foros del Web - Ver Mensaje Individual - Ayuda Con Un Formulario Y Una Macro Que Busca Datos En Una Lista

sergio_1709 · #1 (**permalink**) 03/08/2007, 18:09

HOLA A TODOS. TENGO UNA HOJA DE CALCULO CON UN FORMULARIO QUE BUSCA DATOS EN UNA LISTA.. TENGO ESTA MACRO:

Private Sub CommandButton1_Click()

On Error GoTo noencontro

[a1].Select
[A:A].Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell.Offset(0, 1).Select
TextBox2 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox10 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox11 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox12 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox13 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox14 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox15 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox81 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox16 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox17 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox18 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox19 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox20 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox21 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox22 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox23 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox24 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox25 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox26 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox27 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox28 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox29 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox30 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox31 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox32 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox33 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox34 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox35 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox36 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox37 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox38 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox39 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox40 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox41 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox42 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox43 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox44 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox45 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox46 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox47 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox48 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox49 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox50 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox51 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox52 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox53 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox54 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox55 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox56 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox57 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox58 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox59 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox60 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox61 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox62 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox63 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox64 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox65 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox66 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox67 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox68 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox69 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox70 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox71 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox72 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox73 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox74 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox75 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox76 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox77 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox78 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox79 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox80 = ActiveCell

Exit Sub

noencontro:

MsgBox "No hay coincidencias"

End Sub

DE ESTA MANERA BUSCA, ENCUENTRA EL NUMERO, Y ME DEVUELVE TODOS LOS DATOS A UN FORMULARIO.. PERFECTO.. PERO.. QUISIERA QUE ME AYUDARAN A MODIFICAR LA MACRO.. PARA QUE ME PERMITA MODIFICAR LOS DATOS QUE ME DEVUELVE, Y QUE ESTOS SE EJECUTEN EN LA HOJA DE CALCULO (BASE DE DATOS) DE DONDE LAS TOMA POR EJEMPLO
C O L U M N A S
--A-----B-------C----D------E-----F----G----H-----I-----J------
filas
1 SR---Nombre-Direcc-Ciudad-Estad-Pais-Telef-Edad-Email- comentarios
2
3

ok.. yo doy la orden a la macro de buscar "1" en la columna "A:A", entonces me devuelve todos los datos siguientes:el nombre direccion etc etc.

ahora... yo quiero que cuando me este mostrando los datos por ejemplo.. la edad (que se ubica en la celda H1).. que supongamos fuera 30 años, yo pudiera modificar de 30 a 31 años, y entonces la celda H1, cambiara a 31...
eso es lo que quiero hacer.. se que debe ser mucho trabajo.. asi que me conformo con que me pasaran el codigo de una sola linea..y yo desarrollo las demas.. por ejemplo.. la de como modificar SR, que es A1, y yo desarrollar el codigo para nombre direccion ciudad estado pais telefono edad email y comentarios...
Ojala y me puedan Ayudar...

Saludos y gracias de antemano