Gênio.
Funciona perfeitamente.
Muito obrigado amigo!!!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 9 ocorrências
- Qui Jan 09, 2020 2:07 am
- Fórum: VBA Básico
- Tópico: Unir funções Worksheet_Change
- Respostas: 2
- Exibições: 2166
- Qua Jan 08, 2020 3:23 am
- Fórum: VBA Básico
- Tópico: Unir funções Worksheet_Change
- Respostas: 2
- Exibições: 2166
Unir funções Worksheet_Change
Bom dia rapazes. Precisava de uma ajuda realmente para um caso em particular, tenho duas funções Worksheet_Change, uma para forçar o formato de data, e outra para forçar as letras em maiúsculas, pesquisando, consegui encontrar uma solução para o mesmo problema, mas como são fórmulas diferentes, não ...
- Ter Jan 07, 2020 2:54 am
- Fórum: VBA Básico
- Tópico: Forçar formato data DD/MM/AAAA VBA
- Respostas: 4
- Exibições: 3195
Re: Forçar formato data DD/MM/AAAA VBA
Consegui! Segue fórmula, só colocar no conteúdo VBA da planilha e escolher o range que no meu caso é apenas a célula C5: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim DateStr As String On Error GoTo EndMacro If Intersect(Target, Range("C5")) Is Nothing Then Exit Sub If Targ...
- Ter Jan 07, 2020 2:52 am
- Fórum: VBA Básico
- Tópico: Converter formato de data
- Respostas: 5
- Exibições: 4954
Re: Converter formato de data
Ops, respondi no tópico errado, rsrs.
- Ter Jan 07, 2020 2:40 am
- Fórum: VBA Básico
- Tópico: Converter formato de data
- Respostas: 5
- Exibições: 4954
Re: Converter formato de data
Consegui! Segue fórmula, só colocar no conteúdo VBA da planilha e escolher o range que no meu caso é apenas a célula C5: Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim DateStr As String On Error GoTo EndMacro If Intersect(Target, Range("C5")) Is Nothing Then Exit Sub If Targ...
- Seg Jan 06, 2020 11:59 pm
- Fórum: VBA Básico
- Tópico: Forçar formato data DD/MM/AAAA VBA
- Respostas: 4
- Exibições: 3195
Re: Forçar formato data DD/MM/AAAA VBA
Opa. Obrigado amigo.
Acompanhei os vídeos e tentei formatar usando a função CDate, mas ainda não consegui acertar :S
Acompanhei os vídeos e tentei formatar usando a função CDate, mas ainda não consegui acertar :S
- Sex Jan 03, 2020 4:43 am
- Fórum: VBA Básico
- Tópico: Forçar formato data DD/MM/AAAA VBA
- Respostas: 4
- Exibições: 3195
Forçar formato data DD/MM/AAAA VBA
Bom dia rapazes. Tenho uma planilha em que insiro datas aleatórias e outros dados para depois imprimir. O que eu precisava é que, quando digitasse na célula por exemplo "03012020" ele transformasse em "03/01/2020". Já tentei de tudo e nada. Se deixo a célula formatada para tipo D...
- Seg Dez 30, 2019 6:25 am
- Fórum: VBA Básico
- Tópico: Imprimir página se encontra palavra específica
- Respostas: 1
- Exibições: 1421
Re: Imprimir página se encontra palavra específica
Opa!!! Consegui fazer, usei o código abaixo no meio do outro acima: With ThisWorkbook .Activate With .Worksheets("LISTAGEM") 'Ativa a planilha onde é feita a busca; .Activate LR3 = .Cells(.Rows.Count, 4).End(xlUp).Row 'Faz a busca na coluna D; For i3 = 8 To LR3 'Começando a partir da linha...
- Sáb Dez 28, 2019 2:57 pm
- Fórum: VBA Básico
- Tópico: Imprimir página se encontra palavra específica
- Respostas: 1
- Exibições: 1421
Imprimir página se encontra palavra específica
Boa tarde rapazes! Sou novo por aqui, mas já consulto os posts há bastante tempo pra personalizar minhas planilhas. Tenho uma macro grande que gera um conjunto de páginas impressas, e dentro desse código eu precisava adicionar uma função, que, caso no range D8:D263 da planilha LISTAGEM, estiver escr...