ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 56 ocorrências

por Basole
Dom Mar 22, 2020 12:00 pm
Fórum: VBA Básico
Tópico: userform no desktop
Respostas: 4
Exibições: 4536

Re: userform no desktop

Uma outra opcão alternativa é abrir o arquivo do Excel através de um script: Abra o Bloco de notas e coloque o seguinte código vbscript: Set xls = CreateObject("Excel.Application") xls.Visible = false ' **** ALTERE INHA ABAIXO > CAMINHO DO SEU ARQUIVO ***** Set Wb = Xls.Workbooks.Open("C:\Users\USER...
por Basole
Qui Fev 27, 2020 2:22 pm
Fórum: Excel + Access
Tópico: COMO ACESS ORDENAR - UP E DOWN - OU RECORTAR E COLAR
Respostas: 2
Exibições: 4498

Re: COMO ACESS ORDENAR - UP E DOWN - OU RECORTAR E COLAR

Olá nao pode ser atraves de consulta. Exemplo

Ascendente (A a Z, 0 a 9)

Código: Selecionar todos

SELECT Campo1, Campo2
FROM Sua_Tabela
ORDER BY Campo1 ASC; 
Ou decrescente (Z a A, 9 a 0)

Código: Selecionar todos

SELECT Campo1, Campo2
FROM Sua_Tabela
ORDER BY Campo1 DESC; 

por Basole
Qua Dez 11, 2019 8:09 pm
Fórum: VBA Básico
Tópico: Impedir Digitação Após a Vírgula [RESOLVIDO]
Respostas: 4
Exibições: 1016

Re: Impedir Digitação Após a Vírgula

Exemplo: 123,55 (correto - 2 casas) 123,558 (errado - 3 casas) Bom pelo que entendi, conforme seu primeiro post que o usuário consiga inserir apenas 2 números apos a virgula: Mantenha o seu evento keyPress e acrescente o evento Change: Private Sub TxtValor_Change() Dim bMax As Byte bMax = VBA.Len(T...
por Basole
Ter Dez 10, 2019 4:33 pm
Fórum: VBA Básico
Tópico: Impedir Digitação Após a Vírgula [RESOLVIDO]
Respostas: 4
Exibições: 1016

Re: Impedir Digitação Após a Vírgula

Veja se a sugestao lhe atende: No evento change, do seu textbox Private Sub TextBox1_Change() formataMoeda TextBox1 End Sub Em um modulo padrao, (desta forma voce pode usar para outros controles), cole o codigo abaixo Sub formataMoeda(valor) If IsNumeric(valor) Then If InStr(1, valor, "-") >= 1 Then...
por Basole
Qua Abr 11, 2018 1:41 pm
Fórum: VBA Básico
Tópico: Abrir Multipage diferente [RESOLVIDO]
Respostas: 2
Exibições: 1100

Re: Abrir Multipage diferente

Exemplo

Para abrir na page1

Código: Selecionar todos

UserForm1.MultiPage1.Value = 0
UserForm1.Show
para page2

Código: Selecionar todos

UserForm1.MultiPage1.Value = 1
UserForm1.Show
para page3

Código: Selecionar todos

UserForm1.MultiPage1.Value = 2
UserForm1.Show
por Basole
Sex Mar 16, 2018 4:37 pm
Fórum: Excel - Integração com a Web
Tópico: conexão do excel vba com mysql
Respostas: 3
Exibições: 2654

Re: conexão do excel vba com mysql

Acredito que esteja se referindo a mysql web. Para fazer que voce quer, é necessario criar um host web com um bd mysql com acesso remoto . Existem alguns free (veja essa lista): http://radixcode.com/top-free-4-hosts-that-provide-remote-access-to-mysql-database/. Mas o único que consegui utilizar foi...
por Basole
Qua Mar 14, 2018 3:34 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] ListBox em Ordem DECRESCENTE
Respostas: 3
Exibições: 2728

Re: ListBox em Ordem DECRESCENTE

A rotina inverte os dados contidos no listbox, sem uso de filtros ou abas auxiliares

Veja se é isso que deseja.
por Basole
Ter Mar 06, 2018 9:27 am
Fórum: Modelos Prontos
Tópico: VBA - Preenchendo um listbox com mais de 10 colunas
Respostas: 13
Exibições: 6232

Re: VBA - Preenchendo um listbox com mais de 10 colunas

Faz o seguinte, dimensiona a area de dados do listbox. Por exemplo no evento initialize (configure o Listbox): Private Sub UserForm_Initialize() Dim arrLb() As Variant ReDim arrLb(0, 20) ' onde 20 é o nº de colunas With ListBox1 .Rowsource = "" .List = arrLb .ColumnCount = 20 .ColumnWidths = "50 pt;...
por Basole
Ter Mar 06, 2018 12:15 am
Fórum: Modelos Prontos
Tópico: VBA - Preenchendo um listbox com mais de 10 colunas
Respostas: 13
Exibições: 6232

Re: VBA - Preenchendo um listbox com mais de 10 colunas

Tem que acrescentar addItem With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Text .List(.ListCount - 1, 2) = comboBox1.Text .List(.ListCount - 1, 3) = TextBox2.Text .List(.ListCount - 1, 4) = TextBox3.Text .List(.ListCount - 1, 5) = comboBox2.Text .List(.ListCount - 1, 6) = TextBox4.Text '...
por Basole
Qui Mar 01, 2018 9:51 pm
Fórum: Modelos Prontos
Tópico: VBA - Preenchendo um listbox com mais de 10 colunas
Respostas: 13
Exibições: 6232

Re: VBA - Preenchendo um listbox com mais de 10 colunas

fbzam, com o Listbox acrescentando dados de textbox e combobox, seria mais ou menos assim: With ListBox1 .List(.ListCount - 1, 0) = TextBox1.Text .List(.ListCount - 1, 2) = comboBox1.Text .List(.ListCount - 1, 3) = TextBox2.Text .List(.ListCount - 1, 4) = TextBox3.Text .List(.ListCount - 1, 5) = com...