Agostinho Paula Filho

Olha, centralizar, tem como sim...... mas ajustar o tamanho de acordo com a resolução, com VBA, eu não sei, acho que não! o que aconselho, realmente é fazer seus Forms pequenos, de tal forma que se a pessoa tiver usando uma resolução 800x600 o form fique dentro da tela! o VBA não é realmente programação para sistemas de grande porte... considero que até médio.... então, o ideal é evitar form grandes.... a propriedade para ajustar o posicionamento inicial do form na tela, é a propriedade StartUpPosition você pode escolher entre 0 - Manual 1 - CenterOwner 2 - CenterScreen ai, você altera e vai testando até encontrar o ideal para vc.. espero ter ajudado

você pode mandar um print desse erro para meu email?

dim elemento1 as double do while elemento1 < 10001 elemento1 = elemento1 + 1 loop msgbox elemento1 acho que é isso...

você pode mandar um print do erro para meu email?

Na torcida para rolar um evento desses em Brasília!!!! parabéns a quem foi!!!! e aos idealizadores

um botão que muda a aba em um multipage: multipage1.value = 0 'zero aponta para a primeira page, 1 aponta para o segunto, 2 aponta para o terceiro, e assim por adiante....

Essa análise pode acontecer todos os dias assim que você abrir o sistema, pera.. você tá fazendo um sistema em VBA para isso, ou tá fazendo apenas como Excel comum? bom, se for via sistema, eu sugiro você fazer um form especial para isso, que quando é acessado ele faz essa varredura e popula um listbox por exemplo. qualquer duvida pode me enviar email

pode explicar melhor mano?

dim data as date data = left("27/10/2014 A", 10) 'ou seja, considere apenas os 10 primeiro caracteres, nesse caso, vai resultar em 27/10/2014 (pode contar os caracteres) qualquer duvida pode me mandar email

http://maximoaccess.maisforum.com/t1570-resolvidoerro-3078-em-uma-funcao vi algo parecido com o seu problema aqui nesse fórum

posta um pint do erro eu também tive alguns problemas ao migrar para Windows sete, mas todos foram solucionados e esse seu será também!

Amigão, abra um tópico para seu problema! estaremos gratos em tentar ajudar

Mas uma planilha Excel aberta em um navegador? ou cada um vai ter uma cópia dessa planilha off-line e ao você alterar os dados da sua planilha local, ele atualiza as planilhas de todo mundo? é isso?

Mas você quer fazer login em um site com o vba?

pow, se puder enviar pra mim pra eu analisar ficar mais fácil.. caso haja interesse envie para meu email

Olha, acho que dentro de um loop ele não consegue captar uma ação, consegue apenar analisar troca mudança em informações, então... você vai ter que repensar esse fluxo e identificar seu problema de uma forma! ex 1º) O que o sistema deve fazer - Quando o usuário fizer X ação, o sistema fará y ação - Depois que a ação y acontecer, o sistema deverá salvar os dados em um banco de dados - depois deverá limpar o textbox - depois fará tal coisa - depois tal coisa e assim por diante... pensa nisso ai e tenta explicar novamente ae pra gente

TEM COMO C POSTA O SUB INTEIRO?

você adcionou o internet explorer em referencias? vá em ferramentas > referencias procure o internet explorer e marque-o, acho que resolve..

o outro arquivo vai está fechado ou aberto? e esse arquivo onde ele vai pegar as informações sempre vai está salvo no mesmo lugar?

Me envia por email, pra eu verificar... acho que é só problemas relacionado a declaração de variáveis.. mas me envia ai por email...

EXPLICO SIM, COM TODO PRAZER"" Private Sub TextBox31_LostFocus() -> Esse código só vai ser executado quando o textbox31 perder o foco, ou seja, você clicar em outro objeto, ou sair dele com o botão "tab" do teclado.. Dim hoje As Date -> Variavel do tipo data capturar a data de hoje Dim dataNascimento As String -> Variavel do tipo String para capturar a data de nascimento do indivíduo On Error GoTo trataerro -> Comando que evita da "pau" no programa, caso haja erro vá para trataerro que é um trecho do código que fica no final do método, e diz o que vai acontecer caso haja erro hoje = Format(Now, "yyyy") -> código que captura a data de hoje: now significa agora e retorna a data de hoje completa mas o "yyyy" significa que você vai pegar só os 4 digitos do ano, no caso 2014. dataNascimento = TextBox31 -> a variavel dataNascimento vai receber a data de nascimento dataNascimento = Right$(dataNascimento, 4) -> essa gambiarra que eu fiz faz o seguinte, recebe os 4 ultimos digitos da dataNascimento, ou seja se 28/08/1985 ele vai tirar o resto e ficar apenas com o 1985 TextBox4.Text = hoje - CDate(dataNascimento) ->, bom, nessa hora eu tenho Hoje(2014) e tenho dataNascimento (1985), então 2014-1985 será postado em texbox4 Exit Sub -> se chegar nessa linha, encerre o método trataerro: -> como dito lá em cima, caso haja erro, nesse caso seria erro digitar um valor que não fosse um data válida, ele executa o que tiver nessa linha MsgBox "Data Inválida" -> exibe uma menságem que diz que a data digitada não foi válida, então digite uma data válida End Sub Lembre, existe outras formas de fazer, essa foi a que no momento eu julguei mais fácil e mais rápido!!!! qualquer duvida estamos ai..

acho que esse tutorial aqui pode ajudar vc !!! boa sorte http://guiadoexcel.com.br/splash-screen-com-gif-animado-no-excel-tela-de-abertura

é, eu não tenho essa ferramenta DTNPicker, mas espero ter ajudado (via e-mail) ps, se tiver dado certo, peço que poste aqui qual foi a solução... isso pode ajudar a alguém..

Tem como sim!!!... para preencher o seu combobox você utilizou um comando em Sql, provavelmente "select * from <tabela>" e combobox1.additem (coluna)... então, você vai precisar: 1 - saber qual foi o valor que foi selecionado - valorSelecionado = combobox1.value 2 - fazer um select com esse valor - "select * from <tabela> where <coluna> = valorSelecionado 3 - popular os textboxs do frame de acordo com os dados que você precisa.... espero ter esclarecido...

uai....mas 65*500 dá 32.500 ;;; bom, quando ao problema... esse resultado é em um textbox mesmo ou em célula do excel? caso seja em textbox.... então, no código a seguir, eu tenho um formulário com tres textbox.... (textbox1, textbox2 e textbox3), e um botão de comando (commandbutton1).... o código foi aplicado ao botão no evento click, primeiro ele multiplica os valores, depois ele formata os dados. os textbox1 e 2 receberam formatação, ao perder o foco, ou após atualizar seus valores. Private Sub CommandButton1_Click() TextBox3 = TextBox1 * TextBox2 TextBox3 = Format$(TextBox3, "R$ ##,####.00") End Sub Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox1 = Format$(TextBox1, "R$ ##,####.00") End Sub Private Sub TextBox2_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = Format$(TextBox2, "R$ ##,####.00") End Sub