Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 122 ocorrências

por vbalexandre
Sáb Dez 07, 2013 8:55 pm
Fórum: Geral
Tópico: Atualizar Banco de Dados
Respostas: 1
Exibições: 1921

Re: Atualizar Banco de Dados

Boa noite!!

Para que o pessoal possa ajuda-lo, seria melhor postar seu arquivo modelo.

Att
por vbalexandre
Dom Out 27, 2013 3:25 pm
Fórum: VBA Básico
Tópico: Redimencionar celulas ao texto
Respostas: 1
Exibições: 2409

Re: Redimencionar celulas ao texto

Boa tarde!!

Use o método AutoFit..
http://msdn.microsoft.com/pt-br/library ... 20840.aspx

Código: Selecionar todos

Worksheets("Sheet1").Columns("A:AM").AutoFit

Código: Selecionar todos

Worksheets("Sheet1").Range("A1:AM1").Columns.AutoFit
Att
por vbalexandre
Dom Out 27, 2013 3:21 pm
Fórum: VBA Básico
Tópico: Formulario com Imagem
Respostas: 1
Exibições: 2499

Re: Formulario com Imagem

Boa tarde!! Leia: http://guiadoexcel.com.br/cadastro-vba-com-imagem http://excelmax.blogspot.com.br/2011/01/criar-um-formulario-userform-com.html ##### http://www.tomasvasquez.com.br/forum/viewtopic.php?f=5&t=1906#.Um1ZnHC-rp4 http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=940#.Um...
por vbalexandre
Dom Out 27, 2013 3:15 pm
Fórum: VBA Básico
Tópico: lista suspensa com auto preenchimento
Respostas: 1
Exibições: 4018

Re: lista suspensa com auto preenchimento

Boa tarde!! Considerando que o controle usar por você é um ActiveX. Private Sub ComboBox1_Change() 'Ponha dendro do módulo de planilha Call addNmRng End Sub Sub addNmRng() 'Ponha dentro de um módulo Dim ws1 As Worksheet Set ws1 = Worksheets("Validacao_Dinamica") myrng = ws1.Range("NOM...
por vbalexandre
Dom Out 13, 2013 10:31 am
Fórum: Geral
Tópico: Código VBA para encontrar valores repetidos numa coluna
Respostas: 2
Exibições: 10321

Re: Código VBA para encontrar valores repetidos numa coluna

Bom dia!! Outra forma seria... Sub AleVBADeletaDepoisCopiar() With Sheets("Plan1") .Range(.Range("A2"), .Range("A65536").End(xlUp)).Copy End With Sheets("Plan2").[A65536].End(xlUp)(2).PasteSpecial Paste:=xlValues Cells.RemoveDuplicates Columns:=Array(1), Heade...
por vbalexandre
Dom Out 13, 2013 10:19 am
Fórum: Geral
Tópico: Somar dados
Respostas: 4
Exibições: 4201

Re: Somar dados

Bom dia!!

Eu não entendi.
Em sua 1 º postagem foi vejo essa descrição, afinal o que gostaria que fosse para a Sheet1?

Att
por vbalexandre
Dom Out 13, 2013 10:12 am
Fórum: Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel
Tópico: Erro! Key is not unique in collection 35602 Listitems
Respostas: 1
Exibições: 2515

Re: Erro! Key is not unique in collection 35602 Listitems

Bom dia!!

Poste sua rotina ou seu arquivo modelo.

Att
por vbalexandre
Sáb Out 12, 2013 9:45 pm
Fórum: Geral
Tópico: Mastrar formatos
Respostas: 1
Exibições: 2158

Re: Mastrar formatos

Boa noite!! Consegue editar ....para sua necessidade :?: Sub myCDType() 'Cell type(Data, Format, Formula test & Font), of single cell in MsgBox. 'Load code into "Standard Module." 'Best if run by Hot-key(Macros-Macro-Options). ' 'Test for formula in cell. Dim myF As String Dim myFColor...