Ir ao conteúdo
  • Cadastre-se

André_Arruda

Membro Pleno
  • Total de itens

    77
  • Registro em

  • Última visita

  • Qualificações

    0%
  1. 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?
  2. 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;
  3. Já tentou "On error resume next" ??
  4. 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?
  5. 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)
  6. 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
  7. 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;
  8. 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.
  9. Teoricamente isso é fácil mas é necessário detalhes pra montar. você precisa postar seu modelo e dizer extamente o que precisa fazer
  10. 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
  11. ActiveSheet.Range(Range("A1").Text).Select
  12. ActiveSheet.Range ("$A$4:$R$" & Plan1.range("R" & Rows.Count).End(Xlup).Row).Select
  13. 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 p

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda a ler resistores e capacitores

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!