Buscar el valor de un textbox en una columna de otro libro...

Tengo un problema con mi macro y aún no sé cuál es:

En mi userform tengo mi textbox "numcot" y el botón "baja"

Cuando presiono el botón "baja" mi macro hace lo siguiente:

Private Sub baja1_Click()

'Abrir mi libro "Seguimiento2015"

Workbooks.Open Filename:="Y:\comp\Seguimiento2015.xlsm"

'Buscar el número que se encuentra en mi textbox "nocot"

Columns("B:B").Select

Set cell = Selection.Find(What:=Val(nocot), After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False)

'Seleccionar la celda correspondiente a la misma fila, pero en la columna "T"

ActiveCell.Offset(0, 18).Select

End Sub

Sin embargo, cuando abre el libro "seguimiento2015" solamente selecciona la columna B, selecciona B1 y selecciona la celda T1... O sea, se brinca la búsqueda...

¿Me puedes ayudar con este problemita? Ya intente cambiar el método de búsqueda, pero en todos los intentos llego al mismo resultado.

2 Respuestas

Respuesta
3

A primera vista veo 2 nombres: nocot y numcot, quizás tengas mal escrito el nombre del textbox en la instrucción Val(...).

Comentame y seguimos tratando.

Sdos!

Respuesta
2

Y me parece que al momento de escribirlo aquí fue donde estuvo el error, sin embargo ya pude lograr lo que quería, les dejo el código por si alguien más lo pueda necesitar:

Columns("B:B").Select
Cells.Find(What:=NOCOT, After:=ActiveCell).Activate
ActiveCell.Offset(0, 18).Select

Y así de fácil fue, lo encontré "sin querer" quitándole tanto comando.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas