deejaywesley

Boa Noite @Igor F.
 
Não sei se entendi direito, mas vamos lá....
Na celula C6 coloque esta formula.
=C1+C3  
e em C7 coloque esta.
=SEERRO(SE((C6+$C$3)>$C$2;"";SE(TEMPO(HORA(C6+$C$3);MINUTO(C6+$C$3);SEGUNDO(C6+$C$3))>TEMPO(HORA($C$2);MINUTO($C$2);SEGUNDO($C$2));(DATA(ANO(C6);MÊS(C6);DIA(C6))+1)+TEMPO(HORA($C$1);MINUTO($C$1);SEGUNDO($C$1));C6+$C$3));"")  
depois arraste a formula de C7 ate C500.
 
espero ter ajudado, forte abraço! 😎

Boa noite @AlexandreFrancoBh
 
Tenta assim amigo, 
=SOMA(INDIRETO("K3:"&ENDEREÇO(LIN();COL()-1))) abraços😎

Bom dia @guicrissantos
 
Eu copiei o código que postei pra você, colei em uma nova planilha e rodei, e como antes funcionou....
gerou o arquivo em pdf e depois exibiu a mensagem de confirmação.
 
o problema é alguma alteração que você esta fazendo ai...

Bom dia @BiaMidori
 
tente assim:
Sub CreateDynamicComment() Dim SelRow As Long Dim CommText As String With Plan1 SelRow = .Range("A4").Value CommText = .Range("D" & SelRow).Value & vbCrLf & "Type " & Range("E" & SelRow).Value & vbCrLf & "Phone: " & Range("F" & SelRow).Value .Range("E" & SelRow).ClearComments .Range("E" & SelRow).AddComment With .Range("E" & SelRow).Comment .Text Text:=CommText .Shape.Width = 200 .Shape.Height = 80 End With End With End Sub  
aqui funcionou!
 
ps. suas imagens não abriram!
 
😎

Boa noite@Phernando Machado
 
Dei uma olhada na sua planilha aqui, e pra ser sincero não entendi a parte de colocar o +1 na formula, pois, nos testes que fiz, o cálculo saiu correto sem ele.
 
quanto a parte de calculo de horas de dias diferentes, não sei se é o mais correto mas para mim funcionou quando precisei fazer cálculos desse tipo, que é adicionar a DATA as horas, para que o excel intenda que você está pegando, como no seu exemplo, 07:00 de hoje menos 22:00 de ontem...
 
mais ou menos como na imagem...
Nova Imagem (13).bmp
 
espero ter ajudado!😎

Boa tarde amigo
 
veja se é isso que precisa!
 
PS. deixei  as colunas C e D visíveis, mas só para você ver o que foi feito, pode ocultá-las depois pra ficar como antes!
Criterios para Avaliação com sequencias ruins.xlsx

Bom dia!
 
acho que tem como fazer uma gambiarra ai pra resolver....
 
você pega uma celula que você nunca vai precisar, sei l´tipo a XFD1
ai no vba de inserir codigo, você coloca um IF no inicio que se a celula XFD1 estiver vazia ele roda, se tiver prenchida ele nao faz nada!
 
e no codigo do botao, no inicio você cloca um
 
ranger("XFD1").value = "OK"
ou seja ela vai ta prenchida o outro nao vai rodar
 
e no final dele um
 
ranger("XFD1").value = clear
ela vai ta vazia o outro vai rodar normal...
 
tenta ai... vai que cola....