Excel, Error 1004 Método Select de la Clase Range

Solicito su colaboración con el error mencionado.

En la hoja FormularioREM tengo unos textbox y un botón.

Tengo el siguiente código que busca en la hoja "BD PDM" el item de la columna A y de acuerdo a ello debe llenar los textbox. Pero en la línea: Columns("B:B").Select me sale el error 

Private Sub btnBuscaPDMREM_Click()
'Busca Registro en la BD
Dim RegistroBuscarPDM As String

RegistroBuscarPDM = txbBuscaPedidoMaterialREM.Value

Sheets("BD PDM").Select
Columns("B:B").Select
Selection.Find(What:=RegistroBuscarPDM, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

'llena los TextBox
txbIngenieroResidenteREM.Value = ActiveCell.Offset(0, 2)
txbCodigoProyectoREM.Value = ActiveCell.Offset(0, 1)

1 Respuesta

Respuesta
1

Hola Adri, gracias por los aportes, revisaré los link para aprender sobre el error.

sin embargo en el foro de Microsoft Community, uno de los mejores expertos Héctor Miguel me explica el porque sucede el error (en mi caso específico) y me lo ayudó a corregir. te comparto la respuesta para que esta aporte a tus dificultades. saludos..

****

Héctor Miguel respondió a tu pregunta Error 1004 - "Error en el método select de la clase range" 

1) es un botón ActiveX incrustado en la hoja de cálculo (por lo tanto...)

2) el control "asume" que toda referencia a rangos NO "calificada" ES "de su misma hoja"

3) cambia la instrucción:

de: => Columns("B:B").Select

_a: => ActiveSheet.Columns("b:b").Select

I. Hola Compañero, muchísimas gracias por ofrecernos este aporte, será de gran utilidad para tratar futuras consultas de este tipo.

También me alegro mucho de que haya podido solucionar su duda y siento no haber acertado.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas