Tema: Ayuda Con Un Formulario Y Una Macro Que Busca Datos En Una Lista
Ver Mensaje Individual
  #3 (permalink)  
Antiguo 06/08/2007, 17:22
sergio_1709
 
Fecha de Ingreso: octubre-2004
Mensajes: 26
Antigüedad: 19 años, 6 meses
Puntos: 0
Re: Ayuda Con Un Formulario Y Una Macro Que Busca Datos En Una Lista
gracias.. ya cambie mi codigo a como me recomendaste y funciona perfecto.. pero.. tengo una duda..
donde me indicas el siguiente codigo:
ActiveCell.Offset(0, 1) = TextBox2
ActiveCell.Offset(0, 2) = TextBox3
ActiveCell.Offset(0, 3) = TextBox4 etc etc..

este codigo lo capturo inmediatamente despues de mi codigo anterior:

TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)

osea.. aqui capturaria el codigo de arriba?
no necesita nada mas..? o el codigo : TextBox2 = ActiveCell.Offset (0,1) va dentro del:

Private Sub TextBox2_change()

TextBox2 = ActiveCell.Offset (0,1)

? lo que pasa es que lo hice como menciono aqui:


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

TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
TextBox6 = ActiveCell.Offset(0, 5)
TextBox7 = ActiveCell.Offset(0, 6)
TextBox8 = ActiveCell.Offset(0, 7)
TextBox9 = ActiveCell.Offset(0, 8)
TextBox10 = ActiveCell.Offset(0, 9)
TextBox11 = ActiveCell.Offset(0, 10)
TextBox12 = ActiveCell.Offset(0, 11)
TextBox13 = ActiveCell.Offset(0, 12)
TextBox14 = ActiveCell.Offset(0, 13)
TextBox15 = ActiveCell.Offset(0, 14)
TextBox16 = ActiveCell.Offset(0, 16)
TextBox17 = ActiveCell.Offset(0, 17)
TextBox18 = ActiveCell.Offset(0, 18)
TextBox19 = ActiveCell.Offset(0, 19)
TextBox20 = ActiveCell.Offset(0, 20)
TextBox21 = ActiveCell.Offset(0, 21)
TextBox22 = ActiveCell.Offset(0, 22)
TextBox23 = ActiveCell.Offset(0, 23)
TextBox24 = ActiveCell.Offset(0, 24)
TextBox25 = ActiveCell.Offset(0, 25)
TextBox26 = ActiveCell.Offset(0, 26)
TextBox27 = ActiveCell.Offset(0, 27)
TextBox28 = ActiveCell.Offset(0, 28)
TextBox29 = ActiveCell.Offset(0, 29)
TextBox30 = ActiveCell.Offset(0, 30)
TextBox31 = ActiveCell.Offset(0, 31)
TextBox32 = ActiveCell.Offset(0, 32)
TextBox33 = ActiveCell.Offset(0, 33)
TextBox34 = ActiveCell.Offset(0, 34)
TextBox35 = ActiveCell.Offset(0, 35)
TextBox36 = ActiveCell.Offset(0, 36)
TextBox37 = ActiveCell.Offset(0, 37)
TextBox38 = ActiveCell.Offset(0, 38)
TextBox39 = ActiveCell.Offset(0, 39)
TextBox40 = ActiveCell.Offset(0, 40)
TextBox41 = ActiveCell.Offset(0, 41)
TextBox42 = ActiveCell.Offset(0, 42)
TextBox43 = ActiveCell.Offset(0, 43)
TextBox44 = ActiveCell.Offset(0, 44)
TextBox45 = ActiveCell.Offset(0, 45)
TextBox46 = ActiveCell.Offset(0, 46)
TextBox47 = ActiveCell.Offset(0, 47)
TextBox48 = ActiveCell.Offset(0, 48)
TextBox49 = ActiveCell.Offset(0, 49)
TextBox50 = ActiveCell.Offset(0, 50)
TextBox51 = ActiveCell.Offset(0, 51)
TextBox52 = ActiveCell.Offset(0, 52)
TextBox53 = ActiveCell.Offset(0, 53)
TextBox54 = ActiveCell.Offset(0, 54)
TextBox55 = ActiveCell.Offset(0, 55)
TextBox56 = ActiveCell.Offset(0, 56)
TextBox57 = ActiveCell.Offset(0, 57)
TextBox58 = ActiveCell.Offset(0, 58)
TextBox59 = ActiveCell.Offset(0, 59)
TextBox60 = ActiveCell.Offset(0, 60)
TextBox61 = ActiveCell.Offset(0, 61)
TextBox62 = ActiveCell.Offset(0, 62)
TextBox63 = ActiveCell.Offset(0, 63)
TextBox64 = ActiveCell.Offset(0, 64)
TextBox65 = ActiveCell.Offset(0, 65)
TextBox66 = ActiveCell.Offset(0, 66)
TextBox67 = ActiveCell.Offset(0, 67)
TextBox68 = ActiveCell.Offset(0, 68)
TextBox69 = ActiveCell.Offset(0, 69)
TextBox70 = ActiveCell.Offset(0, 70)
TextBox71 = ActiveCell.Offset(0, 71)
TextBox72 = ActiveCell.Offset(0, 72)
TextBox73 = ActiveCell.Offset(0, 73)
TextBox74 = ActiveCell.Offset(0, 74)
TextBox75 = ActiveCell.Offset(0, 75)
TextBox76 = ActiveCell.Offset(0, 76)
TextBox77 = ActiveCell.Offset(0, 77)
TextBox78 = ActiveCell.Offset(0, 78)
TextBox79 = ActiveCell.Offset(0, 79)
TextBox80 = ActiveCell.Offset(0, 80)
TextBox81 = ActiveCell.Offset(0, 15)

ActiveCell.Offset(0, 1) = TextBox2
ActiveCell.Offset(0, 2) = TextBox3
ActiveCell.Offset(0, 3) = TextBox4
ActiveCell.Offset(0, 4) = TextBox5
ActiveCell.Offset(0, 5) = TextBox6
ActiveCell.Offset(0, 6) = TextBox7
ActiveCell.Offset(0, 7) = TextBox8
ActiveCell.Offset(0, 8) = TextBox9
ActiveCell.Offset(0, 9) = TextBox10
ActiveCell.Offset(0, 10) = TextBox11
ActiveCell.Offset(0, 11) = TextBox12
ActiveCell.Offset(0, 12) = TextBox13
ActiveCell.Offset(0, 13) = TextBox14
ActiveCell.Offset(0, 14) = TextBox15
ActiveCell.Offset(0, 15) = TextBox16
ActiveCell.Offset(0, 16) = TextBox17
ActiveCell.Offset(0, 17) = TextBox18
ActiveCell.Offset(0, 18) = TextBox19
ActiveCell.Offset(0, 19) = TextBox20
ActiveCell.Offset(0, 20) = TextBox21
ActiveCell.Offset(0, 21) = TextBox22
ActiveCell.Offset(0, 22) = TextBox23
ActiveCell.Offset(0, 23) = TextBox24
ActiveCell.Offset(0, 24) = TextBox25
ActiveCell.Offset(0, 25) = TextBox26
ActiveCell.Offset(0, 26) = TextBox27
ActiveCell.Offset(0, 27) = TextBox28
ActiveCell.Offset(0, 28) = TextBox29
ActiveCell.Offset(0, 29) = TextBox30
ActiveCell.Offset(0, 30) = TextBox31
ActiveCell.Offset(0, 31) = TextBox32
ActiveCell.Offset(0, 32) = TextBox33
ActiveCell.Offset(0, 33) = TextBox34
ActiveCell.Offset(0, 34) = TextBox35
ActiveCell.Offset(0, 35) = TextBox36
ActiveCell.Offset(0, 36) = TextBox37
ActiveCell.Offset(0, 37) = TextBox38
ActiveCell.Offset(0, 38) = TextBox39
ActiveCell.Offset(0, 39) = TextBox40
ActiveCell.Offset(0, 40) = TextBox41
ActiveCell.Offset(0, 41) = TextBox42
ActiveCell.Offset(0, 42) = TextBox43
ActiveCell.Offset(0, 43) = TextBox44
ActiveCell.Offset(0, 44) = TextBox45
ActiveCell.Offset(0, 45) = TextBox46
ActiveCell.Offset(0, 46) = TextBox47
ActiveCell.Offset(0, 47) = TextBox48
ActiveCell.Offset(0, 48) = TextBox49
ActiveCell.Offset(0, 49) = TextBox50
ActiveCell.Offset(0, 50) = TextBox51
ActiveCell.Offset(0, 51) = TextBox52
ActiveCell.Offset(0, 52) = TextBox53
ActiveCell.Offset(0, 53) = TextBox54
ActiveCell.Offset(0, 54) = TextBox55
ActiveCell.Offset(0, 55) = TextBox56
ActiveCell.Offset(0, 56) = TextBox57
ActiveCell.Offset(0, 57) = TextBox58
ActiveCell.Offset(0, 58) = TextBox59
ActiveCell.Offset(0, 59) = TextBox60
ActiveCell.Offset(0, 60) = TextBox61
ActiveCell.Offset(0, 61) = TextBox62
ActiveCell.Offset(0, 62) = TextBox63
ActiveCell.Offset(0, 63) = TextBox64
ActiveCell.Offset(0, 64) = TextBox65
ActiveCell.Offset(0, 65) = TextBox66
ActiveCell.Offset(0, 66) = TextBox67
ActiveCell.Offset(0, 67) = TextBox68
ActiveCell.Offset(0, 68) = TextBox69
ActiveCell.Offset(0, 69) = TextBox70
ActiveCell.Offset(0, 70) = TextBox71
ActiveCell.Offset(0, 71) = TextBox72
ActiveCell.Offset(0, 72) = TextBox73
ActiveCell.Offset(0, 73) = TextBox74
ActiveCell.Offset(0, 74) = TextBox75
ActiveCell.Offset(0, 75) = TextBox76
ActiveCell.Offset(0, 76) = TextBox77
ActiveCell.Offset(0, 77) = TextBox78
ActiveCell.Offset(0, 78) = TextBox79
ActiveCell.Offset(0, 79) = TextBox80
ActiveCell.Offset(0, 80) = TextBox81



Exit Sub

noencontro:

MsgBox "No hay coincidencias"


End Sub

pero al querer modificar un textBox no se modifica la celda de donde toma el valor...
no se si he sido claro o lo confundi mas amigo.. espero y me pueda ayudar..

saludos y gracias de antemano !