Ir ao conteúdo
  • Cadastre-se

osvaldomp

Membros VIP
  • Total de itens

    2.251
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

915

Sobre osvaldomp

Informações gerais

  • Cidade e Estado
    São Paulo - SP
  • Sexo
    Masculino
  1. Experimente: Sub RenomeiaPlanilha() ActiveSheet.Name = [G2] End Sub obs. G2 deve ser texto e não data real, pois se for data real e G2 estiver formatada para exibir 21-04-2019, o Excel considera como 21/04/2019 e barras não são aceitas em nomes de planilhas; uma forma de contornar é 21_04_2019 (que é texto); outra forma é colocar a data real em outra célula, por exemplo em H2, então H2 = 21/04/2019 e em G2 = TEXTO(H2;"dd-mm-aaaa").
  2. A sua fórmula procura os registros que contêm o mês cujo nome esteja em E17. Como procurar mês supõe que o registro pesquisado seja uma data, e como isto "--- --- ---" não é uma data, então a fórmula retornaria erro, porém a sua fórmula contém tratamento de erro (SEERRO ~~~> então retorna vazio), e por isso ela retorna vazio. dica - se em lugar de "--- --- ---" você colocar zero ou vazia, o Excel considerará isso como 00/01/1900, então se E17 contiver JANEIRO a fórmula provavelmente retornará resultado indesejado. Vale a pena testar. Para contornar coloque mais um critério: ou o critério ano além do critério mês, ou um critério para não procurar mês em célula com zero ou vazia
  3. solução manual - copie a linha 1 e cole na linha 2, em seguida aplique na linha 2 o procedimento que comentei antes solução por fórmula - cole uma cópia da fórmula abaixo em A2 e arraste para a direita (se a fórmula retornar #NOME então substitua as duas ococrrências de COLUNA por COL) =SE(COLUNA(A1)>CONT.NÚM(1:1);"";ÍNDICE(1:1;CORRESP(MENOR(1:1;COLUNA(A1));1:1;0))) solução por macro Sub ReplicaOrdena() Range("A1", Cells(1, Columns.Count).End(1)).Copy [A2] Range("A2", Cells(2, Columns.Count).End(1)).Sort Key1:=[A2], Order1:=xlAscending, Orientation:=xlLeftToRight End Sub
  4. Primeiramente vamos confirmar se estamos tratando do mesmo tema pois até agora você não informou com exatidão qual é o problema e a sua última postagem me pareceu que estamos tratando de coisas distintas, meio confuso. Com base nas postagens e nos prints acima, eu estou supondo que inicialmente o problema é que TODAS as fórmulas que estão na planilha 01 ML estão retornando vazio. Ao menos foi o que notei ao abrir o seu arquivo. Porém, considerando que ao ser aberto apresenta mensagem de conteúdo ilegível, talvez aqui os resultados das fórmulas apareçam diferentes do que aí pra você. Voltando ao problema das fórmulas retornarem vazio, caso apareçam assim aí pra você também, isso se deve SIM à existência do sinal "--- --- ---". Fiz um teste aqui, exclui as linhas da TABLA a partir da linha 1320 (é a partir daquela linha que aparecem o sinais "--- --- ---" na coluna B), após a exclusão as fórmulas retornam valores ao invés de retornar vazio. No entanto, se aí pra você as fórmulas não retornam vazio e o seu problema é quanto aos valores retornados pelas fórmulas, então coloque manualmente os resultados esperados, ao menos para as fórmulas existentes em A20:D22, e explique com exatidão como obteve os resultados.
  5. Em TABLA, coluna MES, deveriam existir somente datas, no entanto naquela coluna há fórmulas que retornam "--- --- ---", por isso ocorre o erro, e em consequência as fórmulas na planilha O1 ML retornam vazio. Não verifiquei se nas colunas Turnos também há problemas com "--- --- ---".
  6. Considerando que os dados estão nas colunas A:B a partir da linha 1, cole uma cópia da fórmula abaixo em qualquer célula vazia e em seguida arraste para baixo. =DESLOC(A$1;INT((LIN(A1)+1)/2)-1;MOD(LIN(A1)+1;2))
  7. Veja se atende. Sub PDF() Dim c As Range For Each c In Sheets("SRA").Range("C3:C" & Sheets("SRA").Cells(Rows.Count, 3).End(3).Row) [B2] = c.Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\jorge.neto.HSR\Desktop\Ordem de serviço\OS Automatizada_teste.pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False Next c End Sub
  8. Olá, Wagner. Com base na imagem que você postou, o código que passei está contido em outro código () e está no módulo da planilha Despesas de Viagem e não em um módulo comum. Você poderá colar o código no Módulo2, já existente, basta aplicar duplo clique em Módulo2 e colar o código na janela que irá se abrir. Se já houver outro código lá não há problema, pode colocar também o que passei, e somente o que passei, pois ele não requer qualquer adição como você fez. Se você preferir colar em um novo módulo então clique no menu Inserir / Módulo.
  9. Olá, Wagner. Experimente: cole uma cópia do código abaixo em um módulo comum, em seguida vincule-o a um botão. Você poderá também atribuir um atalho de teclado para rodar o código (Alt+F8 / selecione o nome do código / Opções). Aí o código poderá ser rodado tanto pressionando o botão como pelo atalho. Sub AdicionaUmEmI11() [I11] = [I11] + 1 End Sub
  10. Conforme mostrado na segunda imagem, a linha que você acrescentou está inativa devido ao apóstrofo inicial. Remova o apóstrofo daquela linha e rode o código. Ainda, há um sinal de interrogação ("?") ao final da referida linha que não faz parte do comando e provocará erro. Precisa ser removido também.
  11. Acrescente a linha em vermelho conforme abaixo. Sub Macro1() ActiveSheet.Protect "1", UserInterfaceOnly:=True ' Macro1 Macro obs. 1. a senha atual é 1, se quiser alterar então altere na linha em vermelho do código também 2. se você disponibilizar um novo arquivo com uma planilha antes de formatar as células e outra planilha depois de formatar (preferível formatada manualmente, conforme desejado), será possível elaborar um novo código para fazer a formatação, que provavelmente será beeeeem menor do que o atual
  12. Testaí... Sub SalvaArquivo() Dim path As String Dim nome As String Dim mes As String Dim data As String Dim ano As String mes = Format(Date, "mmmm") data = Format(Date - 1, "dd_mm_yyyy") nome = "RESUMO DIARIO" & data ano = Format(Date, "yyyy") path = "C:\Users\galemos\Desktop\" & ano & "\" & mes & "\" Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=path & nome & ".xlsx", FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True ThisWorkbook.Close End Sub
  13. Se você quer que o novo número seja inserido de forma automática então é preciso que você informe em que etapa da criação de um novo relatório você quer rodar a macro. Ou informe se você prefere acionar um botão para rodar a macro e assim inserir o novo número

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!