Error 1004 - "Error en el método select de la clase range"

Question

Buenas tardes grupo,

Solicito su ayuda con lo siguiente,

En la hoja FormularioREM, tengo el txbBuscaPedidoMaterialREM y la idea es que al diligenciar el textbox, me llene unos texbox con los datos que tengo en la hoja BD PDM. Pero al momento de ejecutar me sale el siguiente error: 

Error en el método select de la clase range - en la línea "Columns("B:B").Select"

Esto lo tengo en un usrForm, (para otro caso), y me funciona.

Este es el código usado para el llenado de los texbox además de otro evento para una consulta.

Private Sub btnBuscaPDMREM_Click()

'Selecciona Productos del PDM

    Worksheets("FormularioREM").Range("c6") = txbBuscaPedidoMaterialREM.Value

'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, 1)

    txbCodigoProyectoREM.Value = ActiveCell.Offset(0, 2)

    txbNombreProyectoREM.Value = ActiveCell.Offset(0, 3)

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Application.EnableEvents = False

    Application.ScreenUpdating = False

'Seleccionar Producto por Línea de Negocio y Grupo Insumo

        Worksheets("BD PDM P").Range("a1").CurrentRegion.AdvancedFilter _

        Action:=xlFilterCopy, _

        CriteriaRange:=Range("c5:c6"), _

        CopyToRange:=Range("h2:l2"), _

        Unique:=False

        Application.EnableEvents = True

End Sub

Les agradezco me ayuden a corregir el error

Saludos

Jorgef

Answer 1

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"

• el problema es que "su hoja" YA NO ES la hoja "activa"... solución ?

3. cambia la instrucción:

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

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

Answer 2

Hola Héctor

Muchas gracias por tu ayuda, funciona perfecto

saludos...

jorgef