Atividade
 
Notifications
Clear all
klarc28
@klarc28
Prominent Member
Entrou: dez 8, 2017
Tópicos: 16 / Respostas: 955
Responder
Re: Colaboração para resolver Excel com vírus

Acredito que é apenas pelo fato de ele conter macros. Se quiser desabilitar esse aviso, siga o link: https://support.office.com/pt-br...

7 anos atrás
Responder
Re: Copiar conteúdo de diversos arquivos em uma única sheet

No final da macro que faz o filtro, antes de END SUB, coloque apenas isto: DLin = Sheets("Fiscal").Range("AV3").End(xlD...

7 anos atrás
Responder
Re: ListBox para campo txtBox

Carregue o arquivo na nuvem (OneDrive, GoogleDrive etc) e compartilhe o link.

7 anos atrás
Responder
Corrigi e deu custo<40%

Dim Lg As Single Dim Ht As Single Dim Fini As Boolean Private Sub btn_calcular_Click() Dim quantidade, sv1, sv2 As Long Dim strEmpresa, s...

7 anos atrás
Tópico
Replies: 1
Views: 1174
Responder
Re: Apagar linhas duplicadas, ordenadas

https://www.youtube.com/results?search_query=vba+remover+duplicatas Private Sub ComboBox1_Enter() End Sub Private Sub Use...

7 anos atrás
Responder
Re: Bloquear Tecla Ctrl +J

https://www.hardware.com.br/comunidade/vba-teclas/1072103/

7 anos atrás
Tópico
Replies: 2
Views: 1066
Tópico
Replies: 1
Views: 787
Responder
Re: Copiar valores de várias planilhas para uma única Planil

https://www.youtube.com/results?search_query=vba+copiar+dados+de+uma+planilha+para+outra

7 anos atrás
Responder
Responder
Re: VBA remover espaços em branco

O código a seguir serve para tirar os espaços das células da planilha. Pode ser que executar essa macro antes de exportar, resolva. Option Explicit ...

7 anos atrás
Responder
Re: Copiar conteúdo de diversos arquivos em uma única sheet

Sub Macro4() Dim DLin As Long DLin = Sheets("Fiscal").Range("AV3").End(xlDown).Row Sheets("Contábil x...

7 anos atrás
Responder
Re: Ordenar um combobox ordem alfabetica

Private Sub UserForm_Initialize() Dim I As Long Dim J As Long Dim ANTERIOR As String Dim POSTERIOR As String If ComboBox1�...

7 anos atrás
Responder
Re: Auto Preenchimento

UltimaLinha = Sheets("inscricoes-1").Cells(Cells.Rows.Count, 1).End(xlUp).Row '<<<<<<<<<...

7 anos atrás
Página 14 / 65