Este fórum está sendo desativado

[AMORIM123]

Saudações às pessoas deste fórum.

Estou cm a seguinte questão que gostaria de compartilhar com vc's e caso alguém possa dar uma mão ...sou-lhe muito grato!

Seguinte:

Nó "frm_anexo1_quest" tenho o evento "txt_icms_proprio_AfterUpdate" para a partir da variável "Public": "datAnterior" verificar se na sheets("Anexo1") há alguma data semelhante à que está armazenada na variável pública "datAnterior" que é definida ao preencher o "txt_periodo" do "frm_rbpa", após click no "btn_ok"; porém ao depurar o cód de "frm_anexo1_quest" a variável publica "datAnterior" está com "00:00:00", no entando deveria ser a data selecionada em "txt_periodo" do "frm_rbpa", no teste a data é 05/05/2018

No modulo do "frm_anexo1_quest"

Código: Selecionar todos

Private Sub txt_icms_proprio_AfterUpdate()

Dim lngPriLin, lngUltLin, lngLoopLin        As Long
Dim strBusca                                          As String

    lngPriLin = 2


With wshAnexo1
    
    lngUltLin = .Cells(.Rows.Count, 2).End(xlUp).Row
    'loop
    For lngLoopLin = lngPriLin To lngLoopLin Step 1

        strBusca = .Cells(lngLoopLin, 2)

        'comparação dos valores em loop para ver se há valor semelhante
        If strBusca = datAnterior Then
            'se houver valor semelhante então preenche os txt's com os demais dados do registro
            Me.txt_icms_proprio = Format(CCur(.Cells(lngLoopLin, 3)), "R$ #,###.00")
            Me.txt_icms_st = Format(CCur(.Cells(lngLoopLin, 4)), "R$ #,###.00")
            Exit Sub
        Else
            'se não vazio
            Me.txt_icms_proprio = ""
            Me.txt_icms_st = ""
        End If

    Next lngLoopLin

End With


End Sub

No módulo "Módulo1" defini:

Código: Selecionar todos

Public datAnterior As Date

No "btn_ok" do "frm_rbpa":

Código: Selecionar todos

datAnterior = CDate(Me.txt_periodo.Value)

Quando for abrir a planilha ela abrirá em pop-up, para ter acesso à woorkbook é só clickar na extremidade do canto inferior esquerdo