Erro VBA With

[Mateus Bodanese]

Public Sub leCracha(ByVal pCracha As String, ByVal nuCracha As Long)
Dim alocaNumCracha As Worksheet
Dim pStatus As String
    pStatus = Dir("C:\Users\alcir.scarmin\Desktop\Programa Fabrica\DadosInternos\StatusCracha")
    alocaNCracha = Range("A1").Activate
    While (alocaNCracha <> "")
        If (nuCracha = alocaNCracha) Then
            acaoAtual = Column.Offset(1).Value
            osAtual = Column.Offset(1).Value
            MsgBox "Teste"
        End If
        alocaNumCracha = alocaNumCracha + Row.Offset(1)
    Wend
End Sub

 

O erro esta na linha "  alocaNumCracha = alocaNumCracha + Row.Offset(1) " não encontrei o motivo deste erro.

Att

Mateus

[Wendell Menezes]

você precisa postar a sua planilha para faciliar a nossa vida. Simplesmente olhando me parece estranho você declamar a variável como alocaNumCracha como sendo uma planilha e no final do código tentar colocar algo que na verdade parece ser um número ou texo.

Dim alocaNumCracha As Worksheet

Posta o arquivo e explica (delhadamente) o q você quer q a macro faça.