Ir para conteúdo
  • Cadastre-se

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

Conheça as novidades de 2019 para o BABOO e Fórum do BABOO

osvaldomp

  • Postagens

    1.555
  • Desde

  • Última visita

  • Days Won

    63

Tudo que osvaldomp postou

  1. osvaldomp

    Problemas ao comparar Notas Escolares.

    Considerando: Média em J10 Recuperação em L10 Frequência em O10 Experimente a fórmula abaixo. =SE(O10<75%;"reprovado";SE(OU(J10>=4,5;L10>=4,5);"aprovado";SE(L10="";"recuperação";"reprovado")))
  2. osvaldomp

    EXCEL - Função SE (Adicionar mais de 2 Células)

    Experimente: =SE(OU(G2<=7;E(G2<=8,5;D2>60));"controlado";"não controlado")
  3. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Amigo, o código que passei não interfere na página 2 e a parte que gera o .pdf está exatamente como no seu código original. dica - não acessei o arquivo; não aumente desnecessariamente o seu trabalho e também o nosso, anexe arquivos diretamente aqui no fórum
  4. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Assim: Sub ReplicaCódigosAjustaLinhasGeraPDF() Dim LR As Long, i As Long, nome As String ActiveSheet.AutoFilterMode = False LR = Cells(Rows.Count, 12).End(3).Row For i = 7 To LR [J7] = Cells(i, 12) Rows("13:113").EntireRow.AutoFit ActiveSheet.Range("A12:J12").AutoFilter Field:=1, Criteria1:=0 nome = ThisWorkbook.Path & "\Consistência" & "_" & ActiveSheet.Range("MES").Value & " - " & ActiveSheet.Range("Nome_Concessionaria").Value & ".pdf" nome = Replace(nome, "/", "-") ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False ActiveSheet.AutoFilterMode = False Next i End Sub
  5. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Vamos tentar simplificar. Utilize somente o código abaixo no lugar dos 3 anteriores. Considerei que o conteúdo da coluna J não se altera ao alterar J7, por isso o comando que ajusta a altura das linhas atua uma única vez. Porém, se as células de J se alteram com J7 aí é só passar o comando que ajusta as linhas para o interior do Loop. Segue a sequência que o código faz: 1. remove o Auto Filtro, se houver 2. ajusta a altura das linhas 3. cola cada código de L em J7 para cada código colado: 4. aplica o Auto Filtro na coluna A, critério =0 5. gera e salva .pdf 6. remove o Auto Filtro Sub ReplicaCódigosAjustaLinhasGeraPDF() Dim LR As Long, i As Long, nome As String ActiveSheet.AutoFilterMode = False Rows("13:113").EntireRow.AutoFit LR = Cells(Rows.Count, 12).End(3).Row For i = 7 To LR [J7] = Cells(i, 12) ActiveSheet.Range("A12:J12").AutoFilter Field:=1, Criteria1:=0 nome = ThisWorkbook.Path & "\Consistência" & "_" & ActiveSheet.Range("MES").Value & " - " & ActiveSheet.Range("Nome_Concessionaria").Value & ".pdf" nome = Replace(nome, "/", "-") ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nome, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False ActiveSheet.AutoFilterMode = False Next i End Sub
  6. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Faltou você informar se a macro será aplicada na planilha do seu exemplo, em que a coluna A não se altera, ou se será aplicada na planilha com vínculos ? Se for na planilha com vínculos, a coluna A se altera ao alterar J7 ?
  7. Na planilha você colocou os comentários abaixo. Quando selecionar VALORES em EXIBIÇÃO o intervalo será formatado para CONTÁBIL e vai fazer uma SOMA.SES (SOMASES ) Qual é a fórmula com a função SOMASES ? Onde ela será colocada ? Quando selecionar QUANTIDADES em EXIBIÇÃO o intervalo será formatado para GERAL e vai fazer uma CONT.SES Idem, idem para CONTE.SES
  8. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Não encontrei o arquivo.
  9. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Ainda, disponibilize uma nova amostra do seu arquivo Excel, com alguns dados e com os códigos atuais instalados.
  10. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Veja se atende. 1. no lugar do seu código CopiaColaImprime utilize este abaixo Sub ReplicaCódigosAjustaLinhasGeraPDF() Dim LR As Long, i As Long LR = Cells(Rows.Count, 12).End(3).Row For i = 7 To LR [J7] = Cells(i, 12) Call ajustar Call PDF_ Next i End Sub 2. substitua o seu código Ajustar pelo código abaixo. Sub ajustar() Rows("14:113").EntireRow.AutoFit ActiveSheet.Range("A12:J12").AutoFilter Field:=1, Criteria1:=0 End Sub 3. no seu código PDF_ acrescente End Sub como última linha do código
  11. osvaldomp

    Macro Copiar Celula para Outra Celula

    Cole o código abaixo no módulo da planilha Plan1. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub On Error Resume Next [A5].Cut Sheets([A1].Value).[A7] End Sub
  12. osvaldomp

    Macro transpor linhas em colunas com identificador ao lado

    Me parece que você editou o seu post e acrescentou que quer o resultado nas colunas A e B, então substitua conforme abaixo. Sheets("Plan2").Cells(c + 1, 1).Resize(k - 1).Value = n.Value Sheets("Plan2").Cells(c + 1, 2).Resize(k - 1).Value = _
  13. osvaldomp

    Macro transpor linhas em colunas com identificador ao lado

    Acrescente as partes em vermelho, conforme abaixo. Sheets("Plan2").Cells(c + 1, 13).Resize(k - 1).Value = n.Value Sheets("Plan2").Cells(c + 1, 14).Resize(k - 1).Value = _
  14. osvaldomp

    Macro copiar e transpor próxima linha em branco

    Experimente: Sub ReplicaDados() Sheets("Plan1").[D5:D10].Copy Sheets("Plan2").Cells(Rows.Count, 2).End(3)(2).PasteSpecial Paste:=xlValues, Transpose:=True End Sub
  15. Meio confusa a sua explicação. Se você colocar a fórmula abaixo em D2 não atende? =SE(C2="HOJE";"A VENCER";SE(C2="ONTEM";"VENCIDO";""))
  16. osvaldomp

    Macro de copiar e colar dentro da planilha(loop)

    Ainda, grave uma macro das operações e coloque-a aqui no fórum, ela poderá ajudar a entender o seu objetivo e assim facilitar a elaboração de um novo código.
  17. osvaldomp

    unir colunas no excel

    Experimente a fórmula abaixo em uma coluna vazia. =DESLOC(B$9;INT((LIN(A1)-1)/12);MOD(LIN(A12);12))
  18. osvaldomp

    Criando uma Tabela de Diárias para HOTELARIA

    A ordem das operações não importa: =(120*0,03)/100 = 0,036 =120*(0,03/100) = 0,036 =120*0,03/100 = 0,036 =0,03/100*120 = 0,036 =120/100*0,03 = 0,036 diária bruta = 160,65 diária líquida ~~~> diária bruta x 0,95 ~~~> 160,65 * 0,95 = 152,61 diária bruta ~~~> diária líquida / 0,95 ~~~> 152,61 / 0,95 = 160,65
  19. osvaldomp

    RESPONDIDO Como retirar marca dágua nas paginas

    Olá, Jore. Me parece que não existe essa possibilidade de ativar/desativar a exibição do texto que indica o número da página. Não sei se isto serviria para o seu objetivo: após ativar a Visualização da Quebra de Página basta clicar em Normal para remover aquele texto, permanecendo somente as linhas pontilhadas que indicam as quebras de páginas. Cabe comentar também que os textos que indicam os números das páginas no modo Visualização da Quebra de Página não serão impressos, como são impressas as marcas d'água inseridas como Plano de Fundo.
  20. osvaldomp

    EXCEL - Capturar o último valor preenchido da coluna

    Olá, Paulo. Quanto aos itens 1 a 3 ok. Entendi. Quanto ao item 4 me parece que a minha pergunta no post anterior passou a impressão de que colocar a soma na linha 1004 substituiria a solução que você está buscando, que é selecionar o ano planilha Rel e obter ali os resultados. O que eu quis dizer é que se colocarmos os totais na linha 1004, via SOMA(), as fórmulas da planilha Rel ficariam mais simples, pois buscariam essas somas ao invés de fazer a soma nas próprias fórmulas; ainda, na sua resposta você incluiu o termo "quadro" que eu não sei o seu significado no Excel.
  21. osvaldomp

    EXCEL - Capturar o último valor preenchido da coluna

    Olá, Paulo. dúvidas/comentários: 1. geralmente o recurso de selecionar de lista suspensa é utilizado para replicar dados de múltiplas fontes, uma de cada vez, em um único intervalo, porém na planilha Rel você colocou esse recurso em dois intervalos (C4 e C5); porque dois intervalos e não um?; ainda, já que você colocou dois, porque não colocar três, um para cada planilha de origem (2018, 2019 e 2020), isso facilitaria na elaboração das fórmulas. 2. em continuação ao item acima, se você optar por manter dois intervalos ou um apenas, seria viável alterar os nomes das planilhas de Receb-18 para 2018, de Receb-19 para 2019, ... ,?, isso facilitaria na elaboração das fórmulas 3. nas planilhas Receb-XX há quatro colunas para cada mês, de qual dessas colunas você quer a soma? 4. eu suponho que o intervalo do qual você quer a soma é da linha 2 até a linha 1003, é isso?; se sim, facilitaria se você colocar na linha 1004 uma fórmula para a soma do intervalo ?2:?1003
  22. osvaldomp

    Macro para coluna totais de valores

    Você ignorou todos os pedidos que fiz, então desisto de ajudar. Aguarde ajuda de algum colega.
  23. osvaldomp

    Macro para coluna totais de valores

    1. em lugar da planilha em bruto você disponibilizou a planilha já ordenada/classificada 2. a primeira planilha que você disponibilizou contém 4 colunas com dados, porém a segunda contém somente duas colunas 3. disponibilize um arquivo contendo uma planilha com os dados em bruto e outra planilha com o resultado desejado, ou coloque o resultado desejado na mesma planilha ao lado dos dados em bruto obs. decida-se se são duas ou quatro colunas com dados, pois o código elaborado para uma delas não servirá para a outra, se foi essa a sua ideia.
×