Pesquisa resultou em 1432 ocorrências

Voltar à pesquisa avançada

Re: Macro com condição coloca fotos

por osvaldomp ¦ 05 Dez 2019 às 19:08 ¦ Fórum: Macros e VBA ¦ Tópico: Macro com condição coloca fotos ¦ Respostas: 3 ¦ Exibições: 9

Olá, Leandro.

Experimente o comando abaixo. Se ainda não funcionar então seria oportuno você disponibilizar uma amostra do seu arquivo Excel.

Código: Selecionar todosIf r.Offset(, 2).Value <> 0 And r.Offset(, 2).Value <> "" Then

Re: Macro com condição coloca fotos

por osvaldomp ¦ 05 Dez 2019 às 18:05 ¦ Fórum: Macros e VBA ¦ Tópico: Macro com condição coloca fotos ¦ Respostas: 3 ¦ Exibições: 9

Acrescente as duas linhas em vermelho conforme abaixo.

For Each r In Range("F6:F" & Cells(Rows.Count, 2).End(3).Row)
If r.Offset(, 2).Value > 0 Then
...
...
...

End If
Next r

Re: mesclar celulas

por osvaldomp ¦ 04 Dez 2019 às 17:03 ¦ Fórum: Macros e VBA ¦ Tópico: mesclar celulas ¦ Respostas: 3 ¦ Exibições: 23

Experimente: Sub RearranjaDados() Dim a As Range, x As Long, v As Long, n As Long Application.ScreenUpdating = False Columns("I:L").Clear For Each a In Columns(1).SpecialCells(2).Areas If a.Cells(1) Like "*sequencial*" Then Cells(a.Row, 9).Resize(, 4).Value = a.Cells(1).Resize(, ...

Re: mesclar celulas

por osvaldomp ¦ 04 Dez 2019 às 10:24 ¦ Fórum: Macros e VBA ¦ Tópico: mesclar celulas ¦ Respostas: 3 ¦ Exibições: 23

Me parece que não se trata de mesclar células e sim de excluir células com valores duplicados.

Sugestão: disponibilize aqui no fórum o seu arquivo Excel contendo uma planilha com alguns dados originais e ao lado coloque o resultado desejado.

Re: Copiar parte de uma matriz nas células

por osvaldomp ¦ 01 Dez 2019 às 17:06 ¦ Fórum: Macros e VBA ¦ Tópico: Copiar parte de uma matriz nas células ¦ Respostas: 2 ¦ Exibições: 23

Sub Copiar() Dim mMatriz, vPosição As Integer 'localizo posição vPosicao = Match(Valorprocurado, ColunaComValores, 0) 'COMO FIZ mMatriz = Cells(vPosição, 1).Resize(, 3).Value [A1].Resize(, 3).Value = mMatriz End Sub Sub ReplicaSemMatriz() Dim vPosição As Integer vPosicao = Match(Valorprocurado, Col...

Re: Erro de soma no conjunto de planilhas

por osvaldomp ¦ 01 Dez 2019 às 16:42 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Erro de soma no conjunto de planilhas ¦ Respostas: 1 ¦ Exibições: 19

Sugestão: disponibilize o seu arquivo Excel, imagem não serve.

Re: Controle de parcelas por data  [resolvido]

por osvaldomp ¦ 30 Nov 2019 às 17:32 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Controle de parcelas por data ¦ Respostas: 7 ¦ Exibições: 111

Veja se atende.

Código: Selecionar todos=M5-SOMA(DESLOC(A5;;14;;CORRESP(E$1;$3:$3;1)-14))

Re: FORMULA  [resolvido]

por osvaldomp ¦ 29 Nov 2019 às 16:26 ¦ Fórum: Fórmulas e Funções ¦ Tópico: FORMULA ¦ Respostas: 2 ¦ Exibições: 22

Utilize a função FIMMÊS().

Re: Controle de parcelas por data  [resolvido]

por osvaldomp ¦ 29 Nov 2019 às 12:01 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Controle de parcelas por data ¦ Respostas: 7 ¦ Exibições: 111

Não entendi o que você quer.

Na sua planilha coloque o resultado esperado em cada caso, informe em qual coluna estão os resultados e explique como obteve cada resultado.

Re: Controle de parcelas por data  [resolvido]

por osvaldomp ¦ 28 Nov 2019 às 22:09 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Controle de parcelas por data ¦ Respostas: 7 ¦ Exibições: 111

...não gerar calculo da parcela se a data da nota fiscal for inferior da data do mês Me parece que você quis dizer superior ... é isso? No final da fórmula deixei Nn pois não entendi que cálculo você quer fazer :?: Arraste para a direita e para baixo. =SE(OU(FIMMÊS(O$3;0)<$H5;E($I5<>"";FI...

Re: MACRO PARA ATRIBUIR UM X SE A CELULA ESTIVER FORMATADA  [resolvido]

por osvaldomp ¦ 26 Nov 2019 às 22:23 ¦ Fórum: Macros e VBA ¦ Tópico: MACRO PARA ATRIBUIR UM X SE A CELULA ESTIVER FORMATADA ¦ Respostas: 4 ¦ Exibições: 82

Sub InsereX() Dim c As Range Range("E5:E50,F29:F50,CA29:CA50,CB5:CB50").Value = "" For Each c In Range("AN5:AN50,AO29:AO50,AR29:AR50,AS5:AS50") If c.Interior.ColorIndex = 48 Then c.Offset(, 35 * IIf(c.Column < 44, -1, 1)).Value = "x" End If Next c End Sub

Re: Esconder e exibir Aba - VBA

por osvaldomp ¦ 26 Nov 2019 às 00:51 ¦ Fórum: Macros e VBA ¦ Tópico: Esconder e exibir Aba - VBA ¦ Respostas: 2 ¦ Exibições: 51

Código: Selecionar todosSub OcultaReexibe()
 If ActiveSheet.Name = "detalhes" Then
  Sheets("HOME GERAL").Activate
  Sheets("detalhes").Visible = False
 Else
  Sheets("detalhes").Visible = True
  Sheets("detalhes").Activate
 End If
End Sub

Re: Relatório de performance  [resolvido]

por osvaldomp ¦ 25 Nov 2019 às 18:44 ¦ Fórum: Fórmulas e Funções ¦ Tópico: Relatório de performance ¦ Respostas: 7 ¦ Exibições: 59

Código: Selecionar todos=(E4/F4)/(C4/D4)

ou
Código: Selecionar todos=(D4/C4)/(F4/E4)


Formate a célula para Porcentagem

Re: Fórmula que retorne o valor do cabeçalho  [resolvido]

por osvaldomp ¦ 21 Nov 2019 às 18:42 ¦ Fórum: Excel Básico ¦ Tópico: Fórmula que retorne o valor do cabeçalho ¦ Respostas: 3 ¦ Exibições: 54

Experimente:

Código: Selecionar todos=ÍNDICE(B$3:V$3;CORRESP(W4;B4:V4))

Re: Limpar celulas a partir da seleção de outra  [resolvido]

por osvaldomp ¦ 20 Nov 2019 às 12:36 ¦ Fórum: Macros e VBA ¦ Tópico: Limpar celulas a partir da seleção de outra ¦ Respostas: 4 ¦ Exibições: 49

Quero limpar uma celula da coluna A quando uma celula da mesma linha da coluna Q for alterada . Ola! a sua logica fez o contrario do que pedi kkkkk era pra apagar os dados da coluna Q quando alterasse a coluna A , mas so inverti e deu certo, obrigado!!! Eu fiz o código com base no que você pediu no...

Re: Erro em tempo de execução 9 ao usar Set Workbook  [resolvido]

por osvaldomp ¦ 20 Nov 2019 às 12:23 ¦ Fórum: Macros e VBA ¦ Tópico: Erro em tempo de execução 9 ao usar Set Workbook ¦ Respostas: 2 ¦ Exibições: 42

Experimente: 1. substitua as linhas abaixo Dim wsOrigem As Workbook Dim wsDestino As Workbook por estas Dim wbOrigem As Workbook Dim wbDestino As Workbook Dim wsOrigem As Worksheet Dim wsDestino As Worksheet 2. substitua as linhas abaixo 'Especifica o caminho do arquivo de origem. Workbooks.Open Fil...

Re: Limpar celulas a partir da seleção de outra  [resolvido]

por osvaldomp ¦ 19 Nov 2019 às 18:34 ¦ Fórum: Macros e VBA ¦ Tópico: Limpar celulas a partir da seleção de outra ¦ Respostas: 4 ¦ Exibições: 49

Experimente:

Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [Q3:Q1003]) Is Nothing Then Exit Sub
 Cells(Target.Row, 1).ClearContents
End Sub

Olá, Daniele. Depois que eles te passarem uma posição a respeito dos critérios exatos que eles adotam para calcular a data do pagamento aí sim será possível elaborar uma fórmula para retornar as datas que coincidam com as datas deles. A fórmula simplificada que passei retorna as datas exatas conform...

Me parece que as datas para pagamento calculadas pela Administradora levam em conta dois critérios: 31 dias de acréscimo para cada parcela (no caso do seu exemplo) e postergar se a data para pagamento for um sábado ou um domingo. E quanto aos feriados ? Para efeitos de testes de comparação, coloquei...