@Muca Costa
Sub DtVbaDJ()
Dim X As Range, P As String
On Error Resume Next
P = Planilha4.Cells(Rows.Count, "D6,D8,D10,D12,D14,G6,G8,G10,G12,G14,J6,J8,J10,J12,J14,M6,M8,M10,M12,M14,P6,P8,P10,P12,P14,S6,S8,S10,S12,S14,S16").End(xlUp).Row
sbx = Date
With ThisWorkbook.Sheets("Planilha4").Range("D6,D8,D10,D12,D14,G6,G8,G10,G12,G14,J6,J8,J10,J12,J14,M6,M8,M10,M12,M14,P6,P8,P10,P12,P14,S6,S8,S10,S12,S14,S16" & P)
Set sby = .Find(sbx, , xlValues, xlWhole, , , False)
End With
If Not sby Is Nothing Then
sby.Select
End If
tentei fazer assim mas não aconteceu nada ... ela não selecionou nem a célula da data e nem a célula que fica ao lado da data
o intervalo das celulas com o conteudo das datas sao : "D6,D8,D10,D12,D14,G6,G8,G10,G12,G14,J6,J8,J10,J12,J14,M6,M8,M10,M12,M14,P6,P8,P10,P12,P14,S6,S8,S10,S12,S14,S16"
no caso o codigo da macro tem que pegar a referencia da celula com a data atual e colocar o resultado da soma ao lado da celula, no caso esse intervalo que eu citei aqui é somente das celulas com as datas... depois estava pensado em usar um offset para selecionar o resultado na celula ao lado