FORUM EXCEL  &   POWER BI Uma iniciativa DATAB

Experimente:

É preciso converter a variável para String ~~~> Str(variável) Sub InsereFórmula() Dim r As Double r = 0.8 [C2] = "=IF(" & Str(r) & "-RC[-1]<0,0," & Str(r) & "-RC[-1])" End Sub dica - não utilize Select e nem Activate nos seus códigos ;)

Oi, Thaisa.

Veja o arquivo anexo.
Apliquei a FC com base na fórmula que eu sugeri antes, alterei somente as colunas referenciadas de acordo com o lay out da sua planilha.

Na fórmula considerei se o evento ocorrer em até 7 dias, altere se necessário.

Olá, Thaisa. Considerei que os dados estão a partir da linha 2. Aplique a FC a partir da linha 3. =E($E3="Comunicação de Falta";($A3-MAIOR(SE($C$2:$C3=$C3;SE($E3="Comunicação de Falta";$A$2:$A3));2))<8) Se você não conseguir então disponibilize aqui no fórum uma amostra do seu ar...

Acrescente a linha em vermelho, conforme abaixo.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count>1 Then Exit Sub
Application.EnableEvents = False

Olá, Geneci. Instale uma cópia do código abaixo no módulo da planilha Planilha1 . Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$4" Then Exit Sub [B3:B4].Copy [C3].Insert shift:=xlToRight: [B3:B4] = "": Application.CutCopyMode = False [B3].Activate E...

Experimente: Sub InsereFórmulasV1() Range("C58:C88") = "=INDIRECT(""'0""&ROW(A1)&""'!X5"")" End Sub ou Sub InsereFórmulasV2() Dim k As Long For k = 1 To 31 Cells(k + 57, 3) = "='0" & k & "'!X5" Next k End...

Substitua as 4 ocorrências de ~~~> Sheets(continent)

por ~~~> Sheets("base_dados")

ou exclua todas as 4 ocorrências, e omita o nome da planilha como está por exemplo em ~~~> Range("F2") = ...

Olá, Geneci.

Veja se atende.

Veja se o código abaixo faz o trabalho que você quer. Sub CópiaDaPlanCONTROLE() Sheets("CONTROLE").[E15] = Sheets("CONTROLE").[E15] + 1 ActiveWorkbook.Save Sheets("CONTROLE").Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = [E15] ActiveSheet.Shapes("Rounded Rect...

Sugestão: disponibilize aqui no fórum uma amostra do seu arquivo Excel com a planilha Matriz e com uma cópia dela como você deseja que fique.

Experimente: Sub PontaOuForaPonta() Dim LR As Long Application.ScreenUpdating = False With ActiveSheet .AutoFilterMode = False LR = .Cells(Rows.Count, 1).End(3).Row .Range("J5:K" & LR) = "" .Range("K5:K" & LR).FormulaLocal = "=DIATRABALHO(B5-1;1;R$1:R$7)=B5...

Experimente:

Um exemplo de fórmula poderia ser: "=SE(OU(PERGUNTA 1 = "SIM";PERGUNTA 2 = "SIM";PERGUNTA 3 = "SIM";PERGUNTA 4 = "SIM");"SIM";"NÃO")" Se me permite aproveitar a sua ideia, eu colocaria a fórmula abaixo na coluna H e em seguida ap...

Olá, Geneci. Veja se os códigos abaixo atendem. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = "$B$1" Then [A1] = [A1] + 1: Cancel = True ElseIf Target.Address = "$C$1" Then [A1] = [A1] - 1: Cancel = True End If End Sub Privat...

Eu postei uma solução para o arquivo que você disponibilizou, com base nos critérios que eu entendi, no entanto, com base na sua resposta acima me parece que você ignorou totalmente e a sua ideia é que eu analise e arrume o código que você está tentando utilizar. Desculpe, mas a minha sugestão é de ...

Experimente:

Olá, Dani. Se entendi corretamente a planilha Final será utilizada como banco de dados, por isso eu sugiro que os dados sejam replicados nela via macro e não via fórmulas. Se for viável utilizar macros no seu caso e se você quiser fazer um teste então instale uma cópia do código abaixo no módulo da ...