André_Arruda

Você está dizendo que a opção "semanal" some na célula C3? Não, aqui pelo menos está normal. Tenho as duas opções disponíveis: Mensal e semanal Caso não seja isso, poderia ser mais específico?

Acredito que não entendi a sua dúvida. Basta escolher "Semanal" ou "mensal" uma só vez, e o "weekly" não irá mais aparecer;

Já tentou "On error resume next" ??

Pessoal tenho uma Samsung Smart 32 ja faz uns 4 anos. Minha esposa estava limpando ela Domingo e deixou a fonte externa cair no chão (aquela caixinha preta tipo de notebook). Depois disso percebemos que ela liga o led de standby mas a tv não liga. Será que foi apenas coincidência, ou a fonte perdeu a potencia e por isso não liga mais?

Repita atividades em video tutoriais no youtube e ajude pessoas em fóruns. Faça isso por 6 meses e vai sair do iniciante para um semi-avançado. (se é que isso existe)

coloca essa fórmula em e3 finalizando com ctrl + shift + enter =ext.texto(d3;corresp(verdadeiro;énúm(1*ext.texto(d3;lin($1:$100);1));0);núm.caract(d3) - núm.caract(substituir(substituir(substituir(substituir(substituir(substituir(substituir(substituir(substituir(substituir(d3;"1";"");"2";"");"3";"");"4";"");"5";"");"6";"");"7";"");"8";"");"9";"");"0";""))) depois arrasta para as células abaixo

Segue o código para exclusão: Sub macro() For Each cel In ActiveSheet.Range("A:A") If cel.Text Like CStr(Year(Date) & "." & _ Format(Month(Date), "00") & "." & Format(Day(Date), "00")) & " *" Then v_row = cel.Row GoTo nx_step End If Next nx_step: Debug.Print v_row ActiveSheet.Range("A1:A" & v_row - 1).Select Selection.EntireRow.Delete End Sub Para algo mais automatizado, poste sua pasta de trabalho com as planilhas para que eu tenha uma noção;

quantas planilhas, onde estão elas. É quantidade fixa de planilhas ou dinamica. Existe alguma planilha na pasta que não deve ser verificada para exclusão? É recomendado que poste o mais fiel possivel à realidade.

Teoricamente isso é fácil mas é necessário detalhes pra montar. você precisa postar seu modelo e dizer extamente o que precisa fazer

ai um jeito Sub QUESTÃO2() Dim a As Integer Dim b As Integer a = InputBox("Digite um Numero") b = InputBox("Digite um Segundo Numero") If a > b Then MsgBox a ElseIf a = b Then MsgBox "São iguais" Else MsgBox b End If End Sub

Planilha resumo.xlsxSEGUE

ActiveSheet.Range(Range("A1").Text).Select

ActiveSheet.Range ("$A$4:$R$" & Plan1.range("R" & Rows.Count).End(Xlup).Row).Select

pode postar sua planilha?

Sub fill_column() Dim lr, i As Long, my_plan As Worksheet, _ my_val, l_below, v_ignore As Long Set my_plan = Plan1 'planilha de trabalho my_val = 100 ' que valor deve ser inserido? l_below = 1 'inserir valor quantas linhas abaixo? v_ignore = 0 'valor que o código deve ignorar lr = my_plan.Range("B" & Rows.Count).End(xlUp).Row For i = lr To 1 Step -1 Select Case my_plan.Range("B" & i).Value Case Is = v_ignore GoTo prox Case Is <> v_ignore my_plan.Range("B" & i + l_below).Value = my_val GoTo The_end End Select prox: Next The_end: End Sub

testei aqui isso nao era pra acontecer. dá uma olhada nessa planilha: perceba as datas são marcadas conforme o sim e adicionado. Veja que são dias diferentes. A base da fórmula é a mesma. Posta sua planilha. É o jeito mais fácil de te ajudar.

você tem que mudar o formato das células que estão com esses números para "data hora" explicando melhor: o valor antes da virgula é o valor representativo da data e depois da virgula é o valor que representa a hora. só que estão num formato de valor e não de data. Faça o que eu disse acima e será ajustado. se quiser deixar a coluna A em branco, e só aparecer a data quando a coluna B for preenchida, basta criar uma formatação condicional na coluna.

em A7 insira: =SE(B7="";AGORA();A7) Vai dar um erro de referencia circular mas é só ignora-lo se tiver dificuldade, poste sua planilha para ser melhor ajudado.

Tenta isso: =SEERRO(SEERRO(PROCV(A2;'serviceorderreport-3.csv'!$AG:$AH;2;0);PROCV(B2;'serviceorderreport-3.csv'!$AG:$AH;2;0));"") se nao der, tenta postar a planilha

=seerro(seerro(procv(a2;'serviceorderreport-3.csv'!$ag:$ah;2;0);(procv(b2;'serviceorderreport-3.csv'!$ag:$ah;2;0);"")

seria melhor se postasse sua planilha explicando detalhadamente sua necessidade

apenas insira essa informação na fórmula VALOR. =VALOR("06/12/2019 00:00:01") se o texto estiver em A1 então: VALOR(A1) depois mude o formato para data abreviada

Troque os nomes pelo endereços das células: =(Data Fim + Hora Fim) - (Data Inicio + Hora inicio) Exemplo: supondo que propriedade é a primeira coluna (A) então: =(H2+I2) - (F2+G2)

adicionado 1 minuto depois Tinha uma erro. Editei ele ai em cima. Copia ele novamente e tenta de novo. Editei a o da minha postagem, não o da sua.

Private Sub Worksheet_Change(ByVal Target As Range) 'Envia e-mail pelo Outlook Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) For i = 15 To 100 'supondo que os endereços de e-mail estão entre a linha 15 até a 100. Ajuste isso. linha = ActiveCell.Row - 1 'If Target.Address = "$M$" & linha Then If Range("M2").Value <> PrevVal Then If Planilha10.Cells(linha, 13) = "Sim" Then texto = "Prezado(a), " & vbCrLf & vbCrLf & _ "O item: " & Planilha10.Cells(linha, 3) & " necessita de reparo" & "." & vbCrLf & vbCrLf End If If Planilha10.Cells(linha, 13) = "Não" Then texto = "Prezado(a), " & vbCrLf & vbCrLf & _ "Foi reparado o item: " & Planilha10.Cells(linha, 3) & vbCrLf & vbCrLf End If PrevVal = Range("M2").Value With OutMail .to = "" & Planilha10.Cells(i, 15) & "" .CC = "" .BCC = "" .Subject = "Título do e-mail" .Body = texto .Display 'Utilize Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If Next i End sub