AMORIM,

Amigo, posso estar enganado, mas creio que o erro esteja ocorrendo justamente porque ao iniciar o Formulário, você está convertendo o txt_Periodo (que está em branco/nulo) em formato Data.

Adicione uma validação logo no inicio deste evento, ex :

If txt_Peridodo = "" Or IsEmpty(txt_Periodo) Then Exit Sub

Espero ter ajudado.

Abs

srobles,

repliquei sua solução também para:

If txt_Peridodo = "" Or IsEmpty(txt_periodo) Then Exit Sub
If txt_rpa = "" Or IsEmpty(txt_rpa) Then Exit Sub
If txt_fspa = "" Or IsEmpty(txt_fspa) Then Exit Sub

Agora abre normalmente...porém meu objetivo com evento "afterupdate ": é fazer com que quando digitada uma data que esteja na planilha e ao mudar o foco do txtbox os demis sejam preenchidas com os demais dados da mesma linha do registro

AMORIM,

Analisando seu modelo, pude notar que a rotina contida no evento AfterUpdate não retorna os dados de acordo com a data e sim, atualiza os valores onde a data for encontrada.
Veja:

If strbusca = datPeriodo Then
   Me.txt_rpa = CCur(.Cells(lngLoopLin, 3))
   Me.txt_fspa = CCur(.Cells(lngLoopLin, 4))
End If

Onde creio que, deveria ser :

If strbusca = datPeriodo Then
   Me.txt_rpa = CCur(.Cells(lngLoopLin, 3))
   Me.txt_fspa = CCur(.Cells(lngLoopLin, 4))
   Exit For
End If

Estou certo quanto á isso?

Abs

Tava observando isso, vc está certo!...ele tava atualizando os valores da planilha:

Como tava:

 If strbusca = datPeriodo Then
            .Cells(lngLoopLin, 3) = CCur(vlrRPA)
            .Cells(lngLoopLin, 4) = CCur(vlrFSPA)
        End If
   Next lngLoopLin
End With

Alteração:

strbusca = .Cells(lngLoopLin, 2)

        If strbusca = datPeriodo Then
            vlrRPA = CCur(.Cells(lngLoopLin, 3))
            vlrFSPA = CCur(.Cells(lngLoopLin, 4))
        End If
   Next lngLoopLin

apenas inverti a ordem de quem recebe quem...pois da forma que estava tava atualizando, conforme observou, porém o objetivo de preencher os dados dos demais txtbox com os demias dados dos registros da planilha não está ocorrendo.

AMORIM,

Experimente substituir a rotina contida no evento AfterUpdate pela que deixo abaixo :

    Dim lngPriLin, lngUltLin, lngLoopLin       As Long
    Dim datPeriodo                             As Date
    Dim strbusca                               As String
    
    lngPriLin = 2
    
    With Me
        On Error GoTo trataErro
        datPeriodo = .txt_periodo.Text
    End With
    
    With wshComum
        lngUltLin = .Cells(.Rows.Count, 2).End(xlUp).Row
    End With
    
    With wshComum
        For lngLoopLin = lngPriLin To lngUltLin Step 1
            strbusca = .Cells(lngLoopLin, 2)
    
            If strbusca = datPeriodo Then
                Me.txt_rpa = CCur(.Cells(lngLoopLin, 3))
                txt_fspa = CCur(.Cells(lngLoopLin, 4))
                Exit For
            End If
        Next lngLoopLin
    End With
trataErro:
If Err = Err Then
    Me.txt_periodo = ""
    Me.txt_rpa = ""
    Me.txt_fspa = ""
End If

Espero ter ajudado.

Abs

o srobles

ainda não deu certo... quando preencho com a data pesquisada, quando saio do "txt_periodo" ele abaga os dados deste txt e não preenche os demais

AMORIM,

Desculpe amigo. Acabei postando a rotina de testes. Favor Altere a linha :

trataErro:
If Err= Err Then

Para:

trataErro:
If Err= 13 Then

Ficando assim a rotina :

Private Sub txt_periodo_AfterUpdate()
    Dim lngPriLin, lngUltLin, lngLoopLin       As Long
    Dim datPeriodo                             As Date
    Dim strbusca                               As String
    
    lngPriLin = 2
    
    With Me
        On Error GoTo trataErro
        datPeriodo = .txt_periodo.Text
        txt_rpa = ""
        txt_fspa = ""
    End With
    
    With wshComum
        lngUltLin = .Cells(.Rows.Count, 2).End(xlUp).Row
    End With
    
    With wshComum
        For lngLoopLin = lngPriLin To lngUltLin Step 1
            strbusca = .Cells(lngLoopLin, 2)
    
            If strbusca = datPeriodo Then
                Me.txt_rpa = CCur(.Cells(lngLoopLin, 3))
                txt_fspa = CCur(.Cells(lngLoopLin, 4))
                Exit For
            End If
        Next lngLoopLin
    End With
    
trataErro:
If Err = 13 Then
    Me.txt_periodo = ""
    Me.txt_rpa = ""
    Me.txt_fspa = ""
End If
End Sub

Espero ter ajudado.

Abs

Srobles...show, deu tudo certo...esse "Err = 13" ler mais...poxa massa viu...obrigado meu caro!

srobles,

A questão inicial foi solucionada, porém teria mais uma questão pertinente a este mesmo evento que verifiquei e gostaria da sua ajuda, se não for pedri de mais

Seguinte a "pesquisa" proporcionada pelo evento afterupdate está ocorrendo porém meus dados na planilha não estão sendo carregados nos txtbox's no formato moeda, tentei algo como:

If strbusca = datPeriodo Then
                Format((Me.txt_rpa), "R$ #,###.00") = CCur(.Cells(lngLoopLin, 3))
                Format((Me.txt_fspa), "R$ #,###.00") = CCur(.Cells(lngLoopLin, 4))
                'Me.txt_rpa = CCur(.Cells(lngLoopLin, 3))
                'Me.txt_fspa = CCur(.Cells(lngLoopLin, 4))
                Exit For
            End If

Porém, os txtbox's são carregados sem preenchimento..como se não fosse a pesquisa não estivesse ocorrendo!

obs.: meus txtbox's já estão programados para exibir valor moeda caso seja inserido valores, porém quando se puxa os valores da pesquisa ele não vem em formato moeda

AMORIM,

Substitua este trecho de código pelo que deixo abaixo :

            If strbusca = datPeriodo Then
                'Formato moeda sem os caracteres de moeda R$
                Me.txt_rpa = Format(.Cells(lngLoopLin, 3), "#,##0.00")
                Me.txt_fspa = Format(.Cells(lngLoopLin, 4), "#,##0.00")
                
                '* DESCOMENTAR AS 2 ÚLTIMAS LINHAS PARA TER O RESULTADO COM O R$ *
                
                'Formato moeda com os caracteres de moeda R$
                'Me.txt_rpa = Format(.Cells(lngLoopLin, 3), "currency")
                'Me.txt_fspa = Format(.Cells(lngLoopLin, 4), "currency")
                
                Exit For
            End If

Espero ter ajudado.

Abs