Atividade
 
Notifications
Clear all
klarc28
@klarc28
Prominent Member
Entrou: dez 8, 2017
Tópicos: 16 / Respostas: 955
Responder
Responder
Evite usar o ponto de exclamação

Option Explicit Sub percorrerColuna() Dim i As Long Dim num As Integer Dim j As Integer Dim cl As Object Dim intervalo As Ra...

7 anos atrás
Responder
Já testei o anexo e funciona.

Além do código sairDoExcel, é necessário o código a seguir: Private Sub Workbook_BeforeClose(Cancel As Boolean) If Plan1.Range("aa1"...

7 anos atrás
Responder
Evite usar o ponto de exclamação

https://www.todamateria.com.br/ponto-de-exclamacao-quando-usar/ Option Explicit Sub percorrerColuna() Dim i As Long ...

7 anos atrás
Responder
Re: E-MAIL AUTOMATICO 1X

Para acionar um código VBA, é necessário ter o Excel aberto.

7 anos atrás
Responder
Re: ENVIAR E-MAIL AUTOMÁTICOS

O arquivo precisa estar aberto

7 anos atrás
Responder
Re: Colar como valor entre planilhas

Para acionar o código VBA, é preciso ter o Excel aberto.

7 anos atrás
Responder
Re: RELATÓRIO POR DATAS

O que não deu certo? If cdate(Planilha3.Cells(lin, 2)) >= CDate(txtdtinicial) And _ cdate(Planilha3.Cells(lin, 2)) &...

7 anos atrás
Responder
Re: E-MAIL AUTOMATICO 1X

https://www.youtube.com/results?search_query=vba+enviar+email

7 anos atrás
Responder
Re: Vba para salvar como PDF - Melhorias

'Procedimento para salvar arquivos Sub lsSalvar() Dim fDlg As FileDialog Set fDlg = Application.FileDialog(FileDialogType:=msoFi...

7 anos atrás
Responder
Re: Pegar o último valor do split, somar e atualizar na célu

salto0_split(3) = cdbl(salto0_split(3)) +1

7 anos atrás
Responder
Re: Pode também fazer (relógio display usando forma retângul

Selecione a forma e coloque na barra de fórmulas o endereço da célula que contém o relógio. Exemplo: =A1 Se não entendeu, este vídeo mostra como faz...

7 anos atrás
Responder
Re: Concatenar informações

Estudando laço de repetição: https://www.youtube.com/results?search_query=vba+la%C3%A7o+de+repeti%C3%A7%C3%A3o

7 anos atrás
Responder
Re: Pegar o último valor do split, somar e atualizar na célu

dim valor as double valor = cdbl(salto0_split(3)) +1 Plan1.Range("B3").value = valor

7 anos atrás
Responder
Re: Macro para sair do Excel com o "X" bloqueado

Sub sairDoExcel() Plan1.Range("aa1").Value = 1 ThisWorkbook.Save Application.Quit End Sub

7 anos atrás
Página 30 / 65