Pesquisa resultou em 9143 ocorrências

Voltar à pesquisa avançada

Re: Importar Dados da Web

Boa tarde!! Veja: https://www.tomasvasquez.com.br/blog/ https://www.google.com.br/url?sa=t&rct=j&q=&esrc=s&source=web&cd=3&cad=rja&uact=8&ved=0ahUKEwj6y_nFodLUAhVKiZAKHbJcAy0QtwIIODAC&url=https%3A%2F%2Fwww.youtube.com%2Fwatch%3Fv%3Dhk-65p2ivvQ&usg=AFQjCNGIiTBU...
por alexandrevba
Qui Jun 22, 2017 5:14 pm
 
Fórum: VBA & Macros
Tópico: Importar Dados da Web
Respostas: 1
Exibições: 33

Re: Copiar planilhas de pasta e consolidar no banco de dados

Boa tarde!!

No meu teste eu não tive problema, isso, se caso eu não tenha entendido.
Dentro de um diretório eu coloquei 15 arquivos com cada guia contendo 24 linhas de 4 colunas.

Após roda o código, veio os dados das guias de cada arquivo.

Att
por alexandrevba
Qui Jun 22, 2017 3:45 pm
 
Fórum: VBA & Macros
Tópico: Copiar planilhas de pasta e consolidar no banco de dados
Respostas: 4
Exibições: 40

Re: Método de Busca

por alexandrevba
Qui Jun 22, 2017 12:33 pm
 
Fórum: VBA & Macros
Tópico: Método de Busca
Respostas: 3
Exibições: 41

Re: Maxlength casas decimais

Boa noite!! O código que eu passei foi uma previa da logica que você vai adotar e não a real solução ou necessidade que você precisa. https://www.thespreadsheetguru.com/the-code-vault/prevent-userform-textbox-from-accepting-non-numerical-values No link acima há algumas formas de fazer algo como sua ...
por alexandrevba
Ter Abr 25, 2017 10:39 pm
 
Fórum: VBA & Macros
Tópico: Maxlength casas decimais
Respostas: 4
Exibições: 65

Re: Maxlength casas decimais

Bom dia!!

Onde será digitado esse valor, em um controle?

Tente usar o Len
Exemplo:
Código: Selecionar todos
Private Sub TextBox1_Change()
    If Len(TextBox1.Value) > 4 Then
        MsgBox "Atingiu o máximo de caracteres!"
        TextBox1.SetFocus
    End If
End Sub


Att
por alexandrevba
Qua Abr 12, 2017 9:31 am
 
Fórum: VBA & Macros
Tópico: Maxlength casas decimais
Respostas: 4
Exibições: 65

Re: CRIANDO NOVA PLANILHA

Boa noite!! Tente adaptar. Sub AleVBA_23992() Dim lastRow As Long, myRow As Long, mySheet As Worksheet lastRow = ThisWorkbook.Sheets("AleVBA").Cells(Rows.Count, 1).End(xlUp).Row For myRow = 2 To lastRow Step 39 Set mySheet = Worksheets.Add Sheets("AleVBA").Rows(myRow & "...
por alexandrevba
Sex Mar 17, 2017 11:33 pm
 
Fórum: VBA & Macros
Tópico: CRIANDO NOVA PLANILHA
Respostas: 3
Exibições: 68

Re: Comunicação via e-mail

Bom dia!!

Seria a mesma coisa?
viewtopic.php?t=23821&p=120166

Att
por alexandrevba
Sex Mar 17, 2017 11:32 am
 
Fórum: VBA & Macros
Tópico: Comunicação via e-mail
Respostas: 2
Exibições: 58

Re: Alterar tabela do Word com o VBA  [Resolvido]

Bom dia!! Tente algo assim e faça sua adaptação. Sub AleVBA_23980() Dim appWord As Word.Application Set appWord = New Word.Application appWord.Visible = True Range("A1").Copy appWord.Documents.Add.Content.Paste End Sub Leia: https://msdn.microsoft.com/pt-br/library/office/gg508920.aspx htt...
por alexandrevba
Sex Mar 17, 2017 11:25 am
 
Fórum: VBA & Macros
Tópico: Alterar tabela do Word com o VBA
Respostas: 1
Exibições: 66

Re: Macro para envio de email

Bom dia!!

Use nossa base de dados!!!

Veja também:
https://www.extendoffice.com/documents/ ... ients.html

Att
por alexandrevba
Sex Mar 17, 2017 11:22 am
 
Fórum: VBA & Macros
Tópico: Macro para envio de email
Respostas: 2
Exibições: 62
Próximo

Voltar à pesquisa avançada