Pesquisa resultou em 117 ocorrências

 Voltar para a pesquisa avançada

Re: Classificar coluna de data do mais recente para o mais antigo com VBA

 por mucascosta ¦  22 Jul 2021 às 11:32 ¦  Fórum: Macros e VBA ¦  Tópico: Classificar coluna de data do mais recente para o mais antigo com VBA ¦  Respostas: 9 ¦  Exibições: 99

Aqui tá funcionando...

Re: Classificar coluna de data do mais recente para o mais antigo com VBA

 por mucascosta ¦  22 Jul 2021 às 09:44 ¦  Fórum: Macros e VBA ¦  Tópico: Classificar coluna de data do mais recente para o mais antigo com VBA ¦  Respostas: 9 ¦  Exibições: 99

Sub Asc() 'Coloca a chamada no inicio da sua rotina para que desproteja a sua Planilha Call UnProtectSheet Range("B13").Sort Key1:=Range("B14"), _ Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom 'Coloca a chamada no fim da sua...

Re: Classificar coluna de data do mais recente para o mais antigo com VBA

 por mucascosta ¦  21 Jul 2021 às 17:18 ¦  Fórum: Macros e VBA ¦  Tópico: Classificar coluna de data do mais recente para o mais antigo com VBA ¦  Respostas: 9 ¦  Exibições: 99

Veja se é isso: Sub Asc() Range("B13").Sort Key1:=Range("B14"), _ Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, _ Orientation:=xlTopToBottom End Sub Sub Desc() Range("B13").Sort Key1:=Range("B14"), _ Order1:=xlDescending, Header:=xlYe...

Re: vba copiar dados de outra planilha

 por mucascosta ¦  17 Jul 2021 às 17:39 ¦  Fórum: Macros e VBA ¦  Tópico: vba copiar dados de outra planilha ¦  Respostas: 1 ¦  Exibições: 55

Veja se o anexo lhe ajuda...

Re: Adicionar a data quando salvar o arquivo.

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

Em anexo...

Re: Adicionar a data quando salvar o arquivo.

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

Veja se ajuda...

Código: Selecionar todos
Sub SalvarComo()
    ActiveWorkbook.SaveAs (CurDir & "\" & Format(Now(), "DD-MM-YYYY") & ".xlsm")
End Sub

Re: Gerar Parcelas em uma ListBox

 por mucascosta ¦  15 Jul 2021 às 16:24 ¦  Fórum: Macros e VBA ¦  Tópico: Gerar Parcelas em uma ListBox ¦  Respostas: 6 ¦  Exibições: 132

Veja outra versão em anexo...

Re: Gerar Parcelas em uma ListBox

 por mucascosta ¦  13 Jul 2021 às 11:09 ¦  Fórum: Macros e VBA ¦  Tópico: Gerar Parcelas em uma ListBox ¦  Respostas: 6 ¦  Exibições: 132

Veja o anexo:

Re: Gerar Parcelas em uma ListBox

 por mucascosta ¦  12 Jul 2021 às 10:55 ¦  Fórum: Macros e VBA ¦  Tópico: Gerar Parcelas em uma ListBox ¦  Respostas: 6 ¦  Exibições: 132

Veja se a solução lhe ajuda:

Incluí a Sub Parcelas() para gerar as parcelas. Quando houver mais de uma parcela, ao clicar no botão "Adicionar" a macro gera e inclui na planilha os dados sem a necessidade de clicar no botão "Salvar Todos"

Re: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR?

 por mucascosta ¦  29 Jun 2021 às 14:21 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR? ¦  Respostas: 13 ¦  Exibições: 113

Em anexo

Re: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR?

 por mucascosta ¦  29 Jun 2021 às 13:52 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR? ¦  Respostas: 13 ¦  Exibições: 113

Testei aqui e funcionou sem problemas. Tente novamente.

Re: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR?

 por mucascosta ¦  29 Jun 2021 às 11:11 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR? ¦  Respostas: 13 ¦  Exibições: 113

Veja se essas alterações resolve: Sub Filtrar() Dim P As String, PT As String, PC As String, B As String, BT As String Sheets("Folha de Ponto").Select Titulo Criterio With ActiveSheet P = .Cells(.Rows.Count, "B").End(xlUp).Row PT = Range("B1") PC = Range("C1")...

Re: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR?

 por mucascosta ¦  28 Jun 2021 às 14:29 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR? ¦  Respostas: 13 ¦  Exibições: 113

Segue, em anexo, funcionando...

Re: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR?

 por mucascosta ¦  28 Jun 2021 às 09:06 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR? ¦  Respostas: 13 ¦  Exibições: 113

Tente essa macro: Sub Filtrar() Dim P As String, B As String Sheets("Folha de Ponto").Select With ActiveSheet P = .Cells(.Rows.Count, "B").End(xlUp).Row End With If P > 23 Then Range("A24:K" & P).Select Selection.ClearContents End If Sheets("Controle de Horas&q...

Re: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR?

 por mucascosta ¦  27 Jun 2021 às 17:03 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR? ¦  Respostas: 13 ¦  Exibições: 113

Está confuso:
Onde vc seleciona o funcionário?
Veja que a validação de dados apresenta erro nas duas abas...

Re: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR?

 por mucascosta ¦  27 Jun 2021 às 14:54 ¦  Fórum: Macros e VBA ¦  Tópico: MACRO PAROU DE FUNCIONAR - ALGUEM ME AJUDA POR FAVOR? ¦  Respostas: 13 ¦  Exibições: 113

Com senha no VBA fica difícil! ...

Re: buscar nome do computador "hostname "

 por mucascosta ¦  13 Jun 2021 às 10:24 ¦  Fórum: Macros e VBA ¦  Tópico: buscar nome do computador "hostname " ¦  Respostas: 3 ¦  Exibições: 68

Veja o anexo e faça as adaptações necessárias...

Re: Extrair Textos de duas StringS [BEGIN] [END]

 por mucascosta ¦  10 Jun 2021 às 12:37 ¦  Fórum: Macros e VBA ¦  Tópico: Extrair Textos de duas StringS [BEGIN] [END] ¦  Respostas: 7 ¦  Exibições: 87

Pode ser assim também: Sub Extrair() Dim LR As Long, k As Long LR = Cells(Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False For k = LR To 1 Step -1 If Cells(k, "A").Value <> "" Then c1 = Cells(k, "A").Replace("0", "", xlPart...

Re: Mostrar mensagem após a impressão da planilha

 por mucascosta ¦  09 Jun 2021 às 16:33 ¦  Fórum: Macros e VBA ¦  Tópico: Mostrar mensagem após a impressão da planilha ¦  Respostas: 3 ¦  Exibições: 29

Ou num módulo

Código: Selecionar todos
Sub PrintWS()
    Application.EnableEvents = False
    ActiveSheet.PrintOut
    Application.EnableEvents = True
    MsgBox "o evento Workbook_AfterPrint não existe no Excel/VBA"
End Sub

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[…]