Pesquisa resultou em 2645 ocorrências

 Voltar para a pesquisa avançada

Re: utilizando o comando destination:= entre pastas de trabalho

 por osvaldomp ¦  23 Jul 2021 às 19:28 ¦  Fórum: Macros e VBA ¦  Tópico: utilizando o comando destination:= entre pastas de trabalho ¦  Respostas: 8 ¦  Exibições: 85

Amigo, não encontrei na planilha destino dos dados as fórmulas que eu sugeri no post #65935. :?:

Ainda, você colocou múltiplas novas demandas nas suas planilhas que nada têm a ver com o assunto deste tópico, então eu sugiro que você encerre este tópico e abra outros para as suas novas demandas.

Re: Como limpar o meu código

 por osvaldomp ¦  23 Jul 2021 às 17:01 ¦  Fórum: Macros e VBA ¦  Tópico: Como limpar o meu código ¦  Respostas: 3 ¦  Exibições: 41

Nesses casos utilize o formato abaixo.

Código: Selecionar todos
Sub ReplaceV3()
 Dim Coluna As Range, Linha As Long
  For Each Coluna In Range("A:E,G:G,J:M").Columns
  
   MsgBox Coluna.Column 'substitua a MsgBox pelo restante do código
   
  Next Coluna
End Sub

Re: Alterar mensagem de PRocv quando encontra resultado

 por osvaldomp ¦  23 Jul 2021 às 12:16 ¦  Fórum: Fórmulas e Funções ¦  Tópico: Alterar mensagem de PRocv quando encontra resultado ¦  Respostas: 3 ¦  Exibições: 32

Olá, @Domingues .

Experimente:

Código: Selecionar todos
=SE(ÉERROS(PROCV(F2;Atividade!AO:AO;1;0));"NÃO FATURADO";"FATURADO")

Re: Como saber quantas segundas-feiras tem entre duas datas

 por osvaldomp ¦  23 Jul 2021 às 09:21 ¦  Fórum: Fórmulas e Funções ¦  Tópico: Como saber quantas segundas-feiras tem entre duas datas ¦  Respostas: 5 ¦  Exibições: 51

Cole uma cópia da fórmula abaixo em C12 e arraste até G12. =DIATRABALHOTOTAL.INTL($B9;$C9;" 0 111111";$J11) A fórmula acima irá contar segundas-feiras, já para contar terças,quartas, ... mude a posição do zero em vermelho de acordo com cada dia da semana, nesta ordem: seg ter qua qui sex s...

Re: utilizando o comando destination:= entre pastas de trabalho

 por osvaldomp ¦  23 Jul 2021 às 08:23 ¦  Fórum: Macros e VBA ¦  Tópico: utilizando o comando destination:= entre pastas de trabalho ¦  Respostas: 8 ¦  Exibições: 85

Não entendi. :?: :?: :?:

Re: utilizando o comando destination:= entre pastas de trabalho

 por osvaldomp ¦  22 Jul 2021 às 14:50 ¦  Fórum: Macros e VBA ¦  Tópico: utilizando o comando destination:= entre pastas de trabalho ¦  Respostas: 8 ¦  Exibições: 85

1. abra os dois arquivos 2. selecione E5 na planilha destino e digite o sinal de igual ( = ) 3. selecione A1 na planilha origem | aperte Enter em E5 irá aparecer ~~~> =[ArquivoOrigem.extensão]PlanilhaOrigem! $A$1 [/color] 4. remova as referências absolutas de A1 ~~~> =[ArquivoOrigem.extensão]Planilh...

Re: Como limpar o meu código

 por osvaldomp ¦  22 Jul 2021 às 14:30 ¦  Fórum: Macros e VBA ¦  Tópico: Como limpar o meu código ¦  Respostas: 3 ¦  Exibições: 41

Olá, @BrunoLuiel . Experimente (não testado). Sub ReplaceV2() Dim Coluna As Variant, Linha As Long For Each Coluna In Array(145, 147, 151, 152, 555, 565) 'falta incluir a coluna WT For Linha = 2 To Range("A1").End(xlDown).Row If Sheets("XML txt").Cells(Linha, Coluna) <> "&qu...

Re: Aparecer número completo

 por osvaldomp ¦  20 Jul 2021 às 16:38 ¦  Fórum: Excel Básico ¦  Tópico: Aparecer número completo ¦  Respostas: 3 ¦  Exibições: 27

Oi, @samira . Realmente, na formatação estão como números mas os rebeldes ainda precisam de mais um empurrãozinho para se transformarem em números reis. Coloquei esta fórmula em E2 da base 1 e estendi pela coluna ~~~> =PROCV(C2;'base 2.xlsx'!Tabela1[ean];1;0) agora o empurrãozinho: 1. em base 1 sele...

Experimente: Sub ContaUns() Dim co As Range, LR As Long Application.ScreenUpdating = False [C:C] = "" LR = Cells(Rows.Count, 2).End(3).Row Range("C1:C" & LR) = "=IF(B1<>1,#N/A,B1)" Range("C1:C" & LR).Value = Range("C1:C" & LR).Value Range...

Re: Aparecer número completo

 por osvaldomp ¦  20 Jul 2021 às 15:02 ¦  Fórum: Excel Básico ¦  Tópico: Aparecer número completo ¦  Respostas: 3 ¦  Exibições: 27

Olá, @samira . Já experimentou formatar como Número? 1. selecione o intervalo 2. clique com o direito sobre qualquer parte da seleção 3. Formatar células | Número | Número | Casas decimais: 0 | OK Se não der certo então eu sugiro que você disponibilize diretamente aqui no fórum uma amostra do seu ar...

Re: loop para zerar valores

 por osvaldomp ¦  20 Jul 2021 às 09:24 ¦  Fórum: Macros e VBA ¦  Tópico: loop para zerar valores ¦  Respostas: 1 ¦  Exibições: 19

Cole uma cópia do código no módulo da planilha. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column <> 4 Or Target.Value <> "produzido" Then Exit Sub Cells(Target.Row, 7) = "" End Sub # funcionamento - o código irá limpar G se fo...

Re: utilizando o comando destination:= entre pastas de trabalho

 por osvaldomp ¦  20 Jul 2021 às 08:44 ¦  Fórum: Macros e VBA ¦  Tópico: utilizando o comando destination:= entre pastas de trabalho ¦  Respostas: 8 ¦  Exibições: 85

... seria por exemplo enviar as informações da pasta de trabalho ABC, para a pasta de trabalho DEF, sem precisar abrir a segunda pasta de trabalho. Me parece que não é possível inserir dados em arquivo fechado. Uma solução seria colocar fórmulas na planilha do arquivo DEF para buscar os dados da Pl...

Re: URGENTE! Por Favor, alguém pode me ajudar?

 por osvaldomp ¦  20 Jul 2021 às 07:58 ¦  Fórum: Fórmulas e Funções ¦  Tópico: URGENTE! Por Favor, alguém pode me ajudar? ¦  Respostas: 4 ¦  Exibições: 51

JCabral escreveu: 19 Jul 2021 às 21:13Veja se ajuda
Congrats :!: :D

Re: MACRO - Não executar a macro caso haja células vazias.

 por osvaldomp ¦  19 Jul 2021 às 11:16 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO - Não executar a macro caso haja células vazias. ¦  Respostas: 3 ¦  Exibições: 28

Para atuar na planilha protegida cole uma cópia do código abaixo no lugar do existente. Sub ReplicaDados() If Application.CountA([A5:E5]) < 5 Then MsgBox "PREENCHA TODAS AS CÉLULAS EM A5:E5": Exit Sub ActiveSheet.Protect UserInterfaceOnly:=True [B10:F14].Copy [B11]: [A5:E5].Copy [B10]: [A5...

Re: MACRO - Não executar a macro caso haja células vazias.

 por osvaldomp ¦  18 Jul 2021 às 21:02 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO - Não executar a macro caso haja células vazias. ¦  Respostas: 3 ¦  Exibições: 28

Olá, @Wemmer . Acrescente ao seu código a linha em vermelho, conforme abaixo. Sub Macro1() If Application.CountA([A5:E5]) < 5 Then MsgBox "PREENCHA TODAS AS CÉLULAS EM A5:E5": Exit Sub Range("B10:F14").Select ... ... [/color] # Como alternativa, se você quiser testar, o código ab...

Re: Dentro e Fora do Prazo.

 por osvaldomp ¦  17 Jul 2021 às 14:58 ¦  Fórum: Fórmulas e Funções ¦  Tópico: Dentro e Fora do Prazo. ¦  Respostas: 4 ¦  Exibições: 44

Olá, @ljrbrasil . Veja se esta atende. =SE(D2="";"HBF";SE(OU(E(OU(C2=H$10;C2=H$16;C2=H$24);D2>=3);E(C2<>H$10;C2<>H$16;C2<>H$24;D2>=2));"fora";"dentro")) # ou, esta abaixo irá retornar resultado igual, porém irá retornar HBF se o intervalo A2:C2 não estiver pre...

Re: Adicionar a data quando salvar o arquivo.

 por osvaldomp ¦  17 Jul 2021 às 13:52 ¦  Fórum: Macros e VBA ¦  Tópico: Adicionar a data quando salvar o arquivo. ¦  Respostas: 5 ¦  Exibições: 64

Código: Selecionar todos
Sub SalvarComo()
 ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1) & Format(Date, " dd-mm-yyyy") & ".xlsm")
End Sub

Re: Dentro e Fora do Prazo.

 por osvaldomp ¦  17 Jul 2021 às 09:12 ¦  Fórum: Fórmulas e Funções ¦  Tópico: Dentro e Fora do Prazo. ¦  Respostas: 4 ¦  Exibições: 44

Experimente:

Código: Selecionar todos
=SE(A2="";"HBF";SE(OU(E(OU(C2=H10;C2=H16);D2>3);D2>2);"fora";"dentro"))

Re: Ordenar WorkBooks após usar o método Visible

 por osvaldomp ¦  16 Jul 2021 às 20:46 ¦  Fórum: Macros e VBA ¦  Tópico: Ordenar WorkBooks após usar o método Visible ¦  Respostas: 4 ¦  Exibições: 42

Concordo, deveria funcionar. Existe algum comando Application.ScreenUpdating = False antes do comando que tenta ativar o nomeArquivoExcel ? Se quiser fazer um teste, rode o código abaixo a partir de um arquivo vazio. Não utilize variável, coloque o nome do arquivo a ser ativado diretamente no código...

Re: Ordenar WorkBooks após usar o método Visible

 por osvaldomp ¦  16 Jul 2021 às 18:26 ¦  Fórum: Macros e VBA ¦  Tópico: Ordenar WorkBooks após usar o método Visible ¦  Respostas: 4 ¦  Exibições: 42

Olá, @NemPensar . Nesta expressão ~~~> Workbooks("nomeArquivoExcel").Activate consta a extensão do arquivo ? Se não, experimente colocar ~~~> Workbooks("nomeArquivoExcel .aaa ").Activate no lugar de aaa ~~~> xlx ou xlsx ou xlsm ... conforme a extensão do seu arquivo

  • 1
  • 2
  • 3
  • 4
  • 5
  • 133

Boa noite, pessoal, alguém consegue me ajud[…]

Contar dias através da data

Boa tarde Segue uma opção Até[…]

Boa tarde!! Eu copiei o mesmo código e os […]

prezados, bom dia eu tenho duas pastas de trabal[…]

bom dia ok, eu vou fazer isso

Oii, boa tarde! Tenho uma planilha com 50 colunas […]

Como limpar o meu código

Nesses casos utilize o formato abaixo. Sub Replac[…]

Boa tarde Veja se como foi feito é o que vc[…]