Tomás Vásquez Fórum

Basole

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...

Basole

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;

Basole

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...

Basole

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...

Basole

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

Basole

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...

Basole

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

Veja se é isso que deseja.

Basole

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;...

Basole

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 '...

Basole

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...

Pesquisa resultou em 56 ocorrências

Re: userform no desktop

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

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

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

Re: Abrir Multipage diferente

Re: conexão do excel vba com mysql

Re: ListBox em Ordem DECRESCENTE

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

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

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