Pesquisa resultou em 9166 ocorrências

Voltar à pesquisa avançada

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: 54

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: 54

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: 60

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: 49

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: 59

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: 55

Re: Ordenar Uma ListView Por Nome

Bom dia!!

Cara eu não sei se vou conseguir te ajudar... :(

talvez seu Sistema Operacional + (arquitetura) e MS Office + (arquitetura) + o controle ListViwer seja diferente do meu.

vamos ver se mais alguém pode te ajudar, desculpa.

Att
por alexandrevba
Ter Mar 14, 2017 10:33 am
 
Fórum: VBA & Macros
Tópico: Ordenar Uma ListView Por Nome
Respostas: 6
Exibições: 63

Re: Ordenar Uma ListView Por Nome

Boa tarde!! Não testado!! With ListView1 .Gridlines = True '.View = lvwReport .FullRowSelect = True .ColumnHeaders.Add Text:="ID", Width:=20 'ID= Nome da 1ª coluna .ColumnHeaders.Add Text:="EMPRESA", Width:=295, Alignment:=0 'País= Nome da 2ª coluna .ColumnHeaders.Add Text:="...
por alexandrevba
Seg Mar 13, 2017 12:48 pm
 
Fórum: VBA & Macros
Tópico: Ordenar Uma ListView Por Nome
Respostas: 6
Exibições: 63

Re: Ordenar Uma ListView Por Nome

Bom dia!! talvez te ajude... Consegue adaptar o código abaixo? Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) With ListView1 .SortKey = ColumnHeader.Index - 1 If .SortOrder = lvwAscending Then .SortOrder = lvwDescending Else .SortOrder = lvwAscending End If .Sorted...
por alexandrevba
Seg Mar 13, 2017 11:10 am
 
Fórum: VBA & Macros
Tópico: Ordenar Uma ListView Por Nome
Respostas: 6
Exibições: 63

Re: Alterar Cadastro

Boa noite!! Veja: https://cse.google.com.br/cse?cx=partner-pub-8829010114171957%3A3054449148&ie=UTF-8&q=alterar+cadastro&siteurl=www.planilhando.com.br%2Fforum%2F&ref=www.planilhando.com.br%2F&ss=4119j2781449j16&oq=alterar+cadastro&gs_l=partner.3...1472.5664.0.6125.16.16....
por alexandrevba
Sex Mar 10, 2017 7:26 pm
 
Fórum: VBA & Macros
Tópico: Alterar Cadastro
Respostas: 1
Exibições: 50
Próximo

Voltar à pesquisa avançada