Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 101 ocorrências
- Qui Ago 01, 2013 8:57 pm
- Fórum: Geral
- Tópico: VBA para copiar somente os valores duplicados
- Respostas: 5
- Exibições: 6875
Re: VBA para copiar somente os valores duplicados
Boa noite, Segue o exemplo: Sub CopiarDuplicados() Dim i As Long Dim QtLinhas As Long QtLinhas = [A1].CurrentRegion.Rows.Count For i = 1 To QtLinhas If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(i, 1)), Cells(i, 1).Value) > 1 Then Cells(i, 1).Copy Cells(Cells.Rows.Count, "B").End(x...
- Qui Ago 01, 2013 12:39 am
- Fórum: Geral
- Tópico: VBA para copiar somente os valores duplicados
- Respostas: 5
- Exibições: 6875
Re: VBA para copiar somente os valores duplicados
Boa noite, Há várias maneiras de interpretar a expressão "copiar somente valores duplicados". Se determinado valor aparece 3 vezes é para copiá-lo 3 vezes para a outra coluna? Ou é para copiar apenas 1 vez? Ou, ainda, copiar só a partir da segunda vez que aparece, portanto 2 vezes? O códig...
- Sex Jul 26, 2013 6:00 pm
- Fórum: Geral
- Tópico: Código VBA para agrupar linhas que possuam uma informação
- Respostas: 5
- Exibições: 8113
Re: Código VBA para agrupar linhas que possuam uma informaçã
Boa tarde,
Qual a mensagem de erro?
Abraço
Qual a mensagem de erro?
Abraço
- Qui Jul 25, 2013 11:50 pm
- Fórum: Geral
- Tópico: Código VBA para quebrar o texto ou número da célula do Excel
- Respostas: 4
- Exibições: 6514
Re: Código VBA para quebrar o texto ou número da célula do E
Boa noite, Veja se este código de exemplo te ajuda: Sub Separar() Dim i As Integer For i = 1 To 1000 Cells(i, "B").Value = Left(Cells(i, "A").Value, 7) Cells(i, "C").Value = Mid(Cells(i, "A").Value, 8, 6) Cells(i, "D").Value = Mid(Cells(i, "A&qu...
- Qui Jul 25, 2013 10:24 pm
- Fórum: Geral
- Tópico: Código VBA para quebrar o texto ou número da célula do Excel
- Respostas: 4
- Exibições: 6514
Re: Código VBA para quebrar o texto ou número da célula do E
Boa noite,
Se o texto for delimitado, sugiro utilizar a função "Split", caso contrário a função "Mid" deve servir.
Para facilitar a resposta sugiro colocar um exemplo do tipo de texto que pretende separar.
Abraço
Se o texto for delimitado, sugiro utilizar a função "Split", caso contrário a função "Mid" deve servir.
Para facilitar a resposta sugiro colocar um exemplo do tipo de texto que pretende separar.
Abraço
- Qui Jul 25, 2013 10:13 pm
- Fórum: Geral
- Tópico: Código VBA para agrupar linhas que possuam uma informação
- Respostas: 5
- Exibições: 8113
Re: Código VBA para agrupar linhas que possuam uma informaçã
Boa noite, Veja se este código de exemplo te ajuda: Sub Copiar() Dim i As Integer Dim QtdeLinhas As Integer Dim QtdeColunas As Integer 'Conta a quantidade de linhas e armazena na variável QtdeLinhas QtdeLinhas = Sheets("Plan1").[A1].CurrentRegion.Rows.Count 'Conta a quantidade de colunas e...
- Dom Mar 24, 2013 10:50 pm
- Fórum: VBA Básico
- Tópico: Inserir fórmula na célula excel?(Resolvido)
- Respostas: 2
- Exibições: 2766
- Qui Mar 07, 2013 7:58 am
- Fórum: Geral
- Tópico: Importação de dados
- Respostas: 2
- Exibições: 2296
Re: Importação de dados
Bom dia,
Sugiro utilizar "OR" como no exemplo abaixo:
Abraço
Sugiro utilizar "OR" como no exemplo abaixo:
Código: Selecionar todos
WHERE NOME LIKE "A%" or NOME LIKE "D%" or NOME LIKE "J%" or NOME LIKE "W%"
- Sex Out 19, 2012 11:27 am
- Fórum: VBA Básico
- Tópico: contar qt de dias e exibir data sem finais de semana [RESOLV
- Respostas: 7
- Exibições: 6148
Re: contar qt de dias e exibir data sem finais de semana
Bom dia,
Sugiro alterar a seguinte linha:
Por esta:
Abraço
Sugiro alterar a seguinte linha:
Código: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(Me.TextBox1, Me.TextBox2, Range("Feriados"))
Código: Selecionar todos
Me.TextBox3 = WorksheetFunction.WorkDay(CDate(Me.TextBox1), Me.TextBox2, Range("Feriados"))
- Sex Set 28, 2012 10:23 pm
- Fórum: VBA Básico
- Tópico: cálculo com datas
- Respostas: 1
- Exibições: 1781
Re: cálculo com datas
Boa noite,
Veja se atende:
Abraço
Veja se atende:
Código: Selecionar todos
TBox4.Text = CDate(TBox3.Value) - CDate(TBox5.Value)