Boa noite Marcusjr

Seja bem-vindo ao fórum!

Movi teu tópico para o fórum VBA & Macros, pois aqui é exclusivo para postar modelo de planilhas.

Por enquanto vou deixar mostrando nos 2 fóruns, para você se localizar.

At.te

Boa noite!!

Use a pesquisa do fórum e poste seu arquivo modelo compactado!

Att

Veja se é isto, como não citou se vai ser de forma automatica, então associe a rotina a um Botão, mas se quiser verificar quando selecionar determinada aba temos de fazer a chamada da rotina no evento Activate da mesma.

Sub VerificaDataInsereTextoSoma()
    Dim sDataRange As Date
    Dim sDataAtual As Date
    Dim UltimaLinha As Long

    sDataAtual = Date 'Data do Sistema
    sDataRange = Range("G1") 'Data na Celula

    If sDataAtual <> sDataRange Then
        Exit Sub
    Else
        'Coluna A
        UltimaLinha = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1 'Verifica ultima linha em branco
        Cells(UltimaLinha, 1).Value = "Soma"
    
    End If
    
End Sub

[]s

Bom, como falei, não entendo quase nada de macros, o Mauro Coutinho me mandou uma, mas não sei como incluí-la na planilha. Para ajudar a entender o que preciso:

Na aba - "Dados" na célula "H8" vou indicar o dia do mês em que fecha o ponto;

Na aba - "Cartão" vão ser inseridos os horários trabalhados dia a dia. Nessa aba é que preciso que quando chegar o dia indicado para fechar o ponto, seja inserida uma linha abaixo com a expressão "Soma", pode ser de forma automática.

Boa noite!!

Então porque não depositar seu arquivo modelo

Att

Segue modelo da planilha para sua analise

Boa noite!!

Tente isso...

Sub AleVBA_IserirTexto()
    Dim s As String, Count As Integer
    Application.ScreenUpdating = False
    s = "25"
    For Count = 13 To Worksheets("Cartão").UsedRange.Rows.Count

        Set f = Cells.Find(s, LookIn:=xlValues)
        If Not f Is Nothing Then
               f.Offset(1, 0).Value = "Soma"
            Application.ScreenUpdating = True
        End If
    Next Count
End Sub

Obs: Eu não sei onde (qual coluna), é para inserir o texto soma.
Att