Atividade
 
Notifications
Clear all
klarc28
@klarc28
Prominent Member
Entrou: dez 8, 2017
Tópicos: 16 / Respostas: 955
Responder
Re: Ordenar conteúdo

https://drive.google.com/file/d/1buX6dG5Mcpbh9CMItZLz2Zah5dXX2St4/view?usp=sharing

5 anos atrás
Responder
Testei e funcionou sem nenhum erro

Sub teste() 'Desativa a atualização de tela Application.ScreenUpdating = False 'Abrir pasta 2 Workbooks.Open Filename:="C:Use...

5 anos atrás
Responder
Re: Identificar coluna (local) de registro no form

O número 10 refere-se à coluna 10, ou seja, coluna J. Ao deslocar da coluna A para a coluna J, houve o deslocamento de 9 colunas, por isso, escrevi j ...

5 anos atrás
Responder
Re: Armazenar nome do gráfico em uma variavel

Sub teste() Worksheets(1).ChartObjects(1).Activate MsgBox ActiveChart.Name End Sub Sub teste2() Sheets(1).Select MsgBox Active...

5 anos atrás
Responder
Re: Valor de uma Inputbox em formato específico

Sub teste() Dim sd As String Dim dt As Date dt = CDate(InputBox("Informe a data")) Dim mes As Integer Dim ano As Integer mes = Month(dt)...

5 anos atrás
Responder
Re: Valor de uma Inputbox em formato específico

Sub teste() Dim dt As Date dt = InputBox("Informe a data") dt = Format(dt, "dd/mm") End Sub

5 anos atrás
Responder
Re: Dúvida com For Next com mais de 2 níveis

Sub CriarTabelaFuros() Dim NomeArquivo As String Caminho = ThisWorkbook.Path & Application.PathSeparator NomeArquivo = ...

5 anos atrás
Responder
Re: Identificar coluna (local) de registro no form

i = 0 Esse i seria o número da linha que está percorrendo no momento. Para começar na linha 6, você deve mudar para i = 5. emptyRow = WorksheetFu...

5 anos atrás
Responder
Re: codigo para excluir

Private Sub CommandButton1_Click() Dim i As Integer Dim linha As Long linha = 2 For i = 1 To ThisWorkbook.Sheets.Count For linha = 2 To Shee...

5 anos atrás
Responder
Re: Otimizando Código

Private Sub ConfBase() Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.EnableEvents = False Applic...

5 anos atrás
Responder
Re: Menu de Atalho Pasta e Arquivos

Private Sub bt_arquivo_Click() Dim X, Y Dim strPath As Variant Dim NomeArquivo As String Dim Posição As Variant X = 2 For Contad...

5 anos atrás
Responder
Re: Menu de Atalho Pasta e Arquivos

Private Sub bt_arquivo_Click() Dim X, Y Dim strPath As Variant Dim NomeArquivo As String Dim Posição As Variant X = 2 For Contad...

5 anos atrás
Responder
Re: Menu de Atalho Pasta e Arquivos

Private Sub bt_arquivo_Click() Dim X, Y Dim strPath As Variant Dim NomeArquivo As String Dim Posição As Variant X = 2 For Contad...

5 anos atrás
Responder
Re: Salvar alteração "caption"

Se quiser que seu tópico seja respondido. Envie o arquivo com todos os controles e formulários que serão usados. Esses controles e formulários já deve...

5 anos atrás
Responder
Re: Deletar dado no excel através de dado deletado no access

No VBA, uma função deve ser nomeada como Function, quando aparece Sub, não é uma função. É um procedimento ou macro. Exemplo a ser estudado e modific...

6 anos atrás
Página 1 / 65