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