Ir ao conteúdo
  • Cadastre-se

Pesquisar na Comunidade

Mostrando resultados para as tags ''Visual Basic''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
    • Recomendação de sistemas operacionais
    • Windows
    • GNU/Linux, BSD, Unix-like e software livre
  • Eletrônicos
    • Equipamentos de som, home theaters e gravadores de mesa
    • Televisores e projetores
    • Câmeras e filmadoras
    • Players portáteis
    • Consoles (videogames)
    • GPS
    • Telefonia fixa
    • Eletrônica
    • Retrocomputação
  • Outros
    • Recomendações de serviços e lojas
    • Preços e ofertas
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
  • Clube do Hardware
    • Comentários, elogios, críticas, sugestões e questões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrar resultados em...

Encontrar resultados que...


Data de criação

  • Iniciar

    FIM


Última atualização

  • Iniciar

    FIM


Filtrar pelo número de...

Data de registro

  • Iniciar

    FIM


Grupo


Caixas de som

Encontrado 115 registros

  1. Boa tarde Peço ajuda para o seguinte Como pesquisar valores inscritos em células, que por sua vez tem formulas, numa dada folha Obrigado
  2. preciso de ajuda eu só consegui fazer 2 partes ainda falta 2 e eu não sei como finalizar o restante do meu programa: Elaborar um algoritmo em Visualg, utilizando o conceito de matriz, para efetuar os seguintes cálculos numa matriz (3 x 3) que deverá ser lida pelo teclado. a) Determinante. b) Matriz Transposta. c) Matriz Inversa. d) Cofator da diagonal principal. algoritmo "semnome" // Função : // Autor : // Data : 10/12/2018 // Seção de Declarações var matriz: vetor[1..3, 1..3] de inteiro n, i, j, det, prod_dp, prod_ds: inteiro inicio n <- 3 para i de 1 ate n faca para j de 1 ate n faca escreva("Informe matriz[", i, ", ", j, "]: ") leia(matriz[i, j]) escreva(matriz[i,j]) fimpara //achar a determinante fimpara prod_dp <- 1 para i de 1 ate n faca prod_dp <- prod_dp * matriz[i, i] fimpara prod_ds <- 1 para i de 1 ate n faca prod_ds <- prod_ds * matriz[i, n - i + 1] fimpara det <- prod_dp - prod_ds escreval("---DETERMINANTE--- ") escreval(det) //diagonal principal para i de 1 ate 3 faca para j de 1 ate 3 faca fimpara escreval("") fimpara escreval("---A DIAGONAL PRINCIPAL--") escreval(matriz[1,1], "" ,matriz[2,2],"",matriz[3,3]) fimalgoritmo
  3. Boa noite! Sou iniciante e gostaria de uma ajuda... Eu gravei a seguinte macro: Sub teste() ' ' teste Macro ' ' Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("212").Select Range("A1").Select ActiveSheet.Paste Sheets("Comb18nº").Select Range("T1").Select Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "='212'!RC[18]" Range("T1").Select ActiveCell.FormulaR1C1 = "='212'!RC38" Range("T1").Select Selection.AutoFill Destination:=Range("T1:AL1"), Type:=xlFillDefault Range("T1:AL1").Select Range("U1").Select ActiveCell.FormulaR1C1 = "='212'!R[1]C38" Range("V1").Select ActiveCell.FormulaR1C1 = "='212'!R[2]C38" Range("W1").Select ActiveCell.FormulaR1C1 = "='212'!R[3]C38" Range("X1").Select ActiveCell.FormulaR1C1 = "='212'!R[4]C38" Range("Y1").Select ActiveCell.FormulaR1C1 = "='212'!R[5]C38" Range("Z1").Select ActiveCell.FormulaR1C1 = "='212'!R[6]C38" Range("AA1").Select ActiveCell.FormulaR1C1 = "='212'!R[7]C38" Range("AB1").Select ActiveCell.FormulaR1C1 = "='212'!R[8]C38" Range("AC1").Select ActiveCell.FormulaR1C1 = "='212'!R[9]C38" Range("AD1").Select ActiveCell.FormulaR1C1 = "='212'!R[10]C38" Range("AE1").Select ActiveCell.FormulaR1C1 = "='212'!R[11]C38" Range("AF1").Select ActiveCell.FormulaR1C1 = "='212'!R[12]C38" Range("AG1").Select ActiveCell.FormulaR1C1 = "='212'!R[13]C38" Range("AH1").Select ActiveCell.FormulaR1C1 = "='212'!R[13]C38" Range("AI1").Select ActiveCell.FormulaR1C1 = "='212'!R[14]C38" Range("AJ1").Select ActiveCell.FormulaR1C1 = "='212'!R[15]C38" Range("AK1").Select ActiveCell.FormulaR1C1 = "='212'!R[16]C38" Range("AL1").Select ActiveCell.FormulaR1C1 = "='212'!R[17]C38" Range("AM1").Select End Sub Qual comando eu uso dentro dessa macro para ele continuar verificando as demais linhas? Vamos lá, eu copiei "A1:R1" de uma planilha e colei em outra planilha, com isso ele jerou uns resultados e retornou para a planilha de onde copiei. Agora, eu queria que isso continuasse automaticamente para "A2:R2", "A3:R3" em diante, ou seja, quando eu apertar o botão que criei para a macro ele vá automáticamente até a ultima linha que é "A480700:R480700".
  4. Olá Preciso de uma planilha que calcule a distância entre lugares, pelo CEP ou cidade. Alguém pode me ajudar?<>
  5. Boa noite gurizada, Eu comecei a aprender um pouco de VBA, e estou com um pouco de dificuldade para entender essas funções Preciso de fazer o seguinte, se a celula que eu to digitando não for menor que hoje, não for "DECLINADO" e não for "ADP CANCELADA", faça x, se for um dos 3, não faça y O problema é que quando utilizo desta forma, não consigo inserir "DECLINADO" e "ADP CANCELADA" nas celulas, para data funciona, o que está de errado, seria a formula detectando que o valor é maior que a data? Como contornar este erro? If Not Intersect(Target, Me.Range("M5:N1048576")) Is Nothing Then For Each cell In Target If Not cell < Now() Or cell = "DECLINADO" Or cell = "ADP CANCELADA" Then MsgBox "O valor" & cell.Value & " não pode ser uma data maior que a de hoje, ou então, deve ser DECLINADO ou ADP CANCELADA." Application.Undo End If If Not cell = "" Then If cell < ActiveCell.Offset(0, -1) Then MsgBox "A data " & cell.Value & " não pode ser menor que a abertura da ADP." Application.Undo Exit Sub End If End If Next End If Abraço galera, agradeço pela intenção!
  6. Olá Preciso de uma planilha que calcule a distância entre lugares, pelo CEP ou cidade. Alguém pode me ajudar?
  7. Boa tarde Peço ajuda para o seguinte: - Como escrever invisível, num inputbox Segue o código Dim senha As String Sheets("main").Select senha = InputBox("Digite a Password, de Administração") If senha = "tiparque2018" Then MsgBox "Password correta... Bem vindo ao Menu de Administração" Run "mostrarfolhas" Sheets("menuadmin").Select Else Run "mensagemtempoencerrar" ThisWorkbook.Save Application.Quit End If ' End Sub que tenho Obrigado
  8. Então pessoal, me colocaram pra fazer um programinha rápido em vb6 para adicionar e editar usuários em uma tabela sql, eu já fiz toda a parte de adicionar, porém to com um ultimo problema na hora de atualizar, existem 2 forms, um você insere o ID do usuário, e caso esse campo esteja preenchido, quando você abre o outro form, ele já abre com as informações do usuário que você digitiou o ID anteriormente, porém eu não estou conseguindo editar as combobox, pois eu queria que a informação como ativo ou cancelado já aparecesse selecionada na combobox com base no que esta na tabela sql,porém na tabela nós subimos os .itemdata do item que foi selecionado na hora de criar o usuário, enfim, tem como eu deixar selecionado no combobox um item puxando o seu valor da tabela sql?porque eu sei como dar o select no codigo que corresponde a esse item, mas não sei como deixar ele selecionado assim que carregar o form
  9. Boa tarde amigos, preciso de uma ajuda Sou novata no uso de VBA Estou montando um userform com dados que serão utilizados para fazer etiquetas e esses mesmos dados serão repassados para uma planilha de controle. Tenho os dados necessários para completar o userform. A minha dúvida esté em como fazer os dados do userform virarem etiquetas e como fazer com que as etiquetas sejam impressas em uma quantidade que estarei colocando no userfor. Segue em anexo o modelo do que ja fiz. Etiquetas 05-11 enviar.rar
  10. Pessoal beleza? Eu estava pesquisando na internet como criar jogos, daí me deparei com o "Visual Basic". Eu só queria saber como executo ele no meu computador. Windows 7 Ultimate 32Bits 3GB RAM Pentium Dual Core 1.20GHz. Desde Já, Agradeço.
  11. Boa tarde Senhores, Preciso implementar uma função em que eu digito a data inicial e recebo em outra textbox uma data com 5 dias úteis descontando finais de semana e feriados. Segue: Private Sub txtData_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim Data As Date Dim dataResp As Date Dim Feriado Feriado = Array(#11/2/2018#, #11/15/2018#, #11/20/2018#, #12/25/2018#) If IsDate(txtData.Text) = True Then Data = txtData.Value dataResp = WorksheetFunction.WorkDay(Data, dataResp, Feriado) txtDataResposta = dataResp + 5 Else erro = MsgBox("Erro na data", vbCritical, "Erro") txtData.SetFocus End If End Sub Obs.: neste formato não está descontando fins de semana e nem feriado. Poderiam me ajudar?
  12. Alguem sabe criar botões a partir de imagens no blits 3d? Criei 2 botões em png no paint e quero fazer rodar um jogo com menu fazendo o start game e o exitgame do jogo para ir para outro png atraves do click do mouse e das teclas direcionais do teclado. adicionado 6 minutos depois Segue o codigo que comecei a fazer, é que no blitz3d não tem a propriedade buttom, não sei como fazer. Graphics 640,480,16,0 HidePointer ;texturas img_entrada1 = LoadImage("texturas\entrada1.png") img_entrada2 = LoadImage("texturas\entrada2.png") img_entrada3 = LoadImage("texturas\entrada3.png") img_campeonato = LoadImage("texturas\campeonato.png") MaskImage img_campeonato,255,255,255 img_quit = LoadImage("texturas\quitgame.png") MaskImage img_quit,255,255,255 img_cursor = LoadImage("texturas\cursor.png") MidHandle img_cursor MaskImage img_cursor,255,255,255 ;sons do jogo sndplayer = PlayMusic("sounds\lac.wav") ;desenha imagens de entrada com espera de 5 segundos DrawImage img_entrada1,0,80 Delay 5000 Cls DrawImage img_entrada2,0,80 Delay 5000 SetBuffer BackBuffer() While Not KeyHit(1) Cls ;coordenadas campeonato x=140 y=302 ;coordenadas quit game x1=360 y1=302 ;coordenada mouse pontox=MouseX() pontoy=MouseY() ;desenha imagens DrawImage img_entrada3,0,80 DrawImage img_campeonato,x,y DrawImage img_quit,x1,y1 DrawImage img_cursor,pontox,pontoy If MouseHit(1) Then ImagesCollide (img_campeonato,x,y,0,img_cursor,pontox,pontoy,0) Cls Else If MouseHit(1) Then ImagesCollide (img_quit,x1,y1,0,img_cursor,pontox,pontoy,0) Exit EndIf Flip Wend End
  13. BOA TARDE PROGRAMADORES, Sou iniciante no ramo de vba, uso sorrateiramente para suprir algumas necessidades que tenho, estou com um problema, estou elaborando um sisteminha tipo ERP para controle de processos em um escritório de advocacia, porém, me deparei com um erro que não consigo corrigir, já revi, trevi e nada. O problema: O formulário elaborado contém o botão pesquisar e outro alterar, a lógica seria: - pesquisar um nome, fazer a alteração e apertar alterar, analogicamente, alteraria na mesma linha, porém não consigo essa façanha, no meu caso ela está criando um novo usuário e salvando na linha ativa da planilha. Peço por gentileza alguém possa me ajudar. obrigado TRESTE.rar
  14. Bom dia! Tenho em uma planilha valores negativos e positivos na horizontal, estou tentando realizar a soma dos valores positivos e negativos separadamente mas não estou conseguindo, alguém consegue me ajudar? Segue abaixo o que testei, consegui realizar a soma porém ele faz compensação, exemplo se tenho 1 e -1 na mesma linha o resultado exibido é 0. Sub calculohorizontal() Dim LR, linha As Long LR = 5 linha = 5 Do Until Cells(linha, 1) = Empty 'TENTATIVA 1 Range("BK" & LR) = Application.WorksheetFunction.SumIf("H" & LR & ":BJ" & LR, " > 0") 'TENTATIVA 2 If Application.WorksheetFunction.Sum(Range("H" & LR & ":BJ" & LR).Value) > 0 Then With ActiveSheet .Range("BK" & LR).Value = Application.WorksheetFunction.Sum(.Range("H" & LR & ":BJ" & LR).Value) End With End If LR = LR + 1 linha = linha + 1 Loop End Sub Soma Horizontal.txt
  15. Boa Tarde Mestres! Por gentileza, alguém sabe me dizer como eu faço para programar uma macro que execute a seguinte tarefa: Eu tenho uma pasta R:\BACKOFFICE\Banda Dentro dessa pasta eu tenho vários arquivos salvos no formato PDF. Essa macro vai abrir os arquivos conforme seu nome, copiar as informações do PDF e salvar em uma planilha que eu desejar. Tudo isso de forma automática, sem ter que abrir o Adobe Acrobate ou abrir o arquivo onde as informações serão salvas. Obrigado.
  16. Saudações! Tenho uma pasta de trabalho com 12 planilhas de gasto mensal, ao final tenho uma de resultados, onde quero que apareçam todos os meus fornecedores e o quanto foi gasto com cada um em cada mês. Não posso disponibilizar a pasta como exemplo mas segue um exemplo similar: Como esta: | A | B | C | D | E | F | G | H | | Fornecedor | N.F. Jan | N.F. Fev| N.F. Mar | N.F. Abr | N.F. Mai | N.F. Jun | N.F. Jul | | XXX | 100 |0 |0 | 0 | 0 | 0 | 0 | | YYY | 5000 |0 |0 | 0 | 0 | 0 | 0 | | XXX | 200 |0 |0 | 0 | 0 | 0 | 0 | | XXX |0 |1000 |0 | 0 | 0 | 0 | 0 | | YYY |0 |0 |2000 | 0 | 0 | 0 | 0 | Como eu quero que fique: | A | B | C | D | E | F | G | H | | Fornecedor | N.F. Jan | N.F. Fev| N.F. Mar | N.F. Abr | N.F. Mai | N.F. Jun | N.F. Jul | | XXX | 300 |1000 |0 | 0 | 0 | 0 | 0 | | YYY | 5000 |0 |2000 | 0 | 0 | 0 | 0 | Grato!
  17. Eu tenho um planilha, que está no arquivo Geral.xls. Esse arquivo Geral.xls, tem uma planilha chamada plan1, que vai receber dados de várias outras planilhas de arquivos diferentes ( jose.xls, arnaldo.xls, etc...). Eu precisaria de um código que fizesse a cópia desses dados para a planilha plan1 dentro do arquivo geral.xls. Alguém teria alguma ideia de código? Estou usando o código abaixo: Sub Importar() Dim wkbOrigem As Excel.Workbook Dim wksOrigem As Excel.Worksheet Dim wkbDest As Excel.Workbook Dim wksDest As Excel.Worksheet Dim lngLast As Long 'Abre pastas de trabalho e planilhas. 'Altere os caminhos e nomes de planilhas para adequar a seu caso. Set wkbOrigem = Workbooks.Open("C:\Users\getronics.fragoso\Perossi\Amaury - Planilha de Reembolso.xlsb") Set wksOrigem = wkbOrigem.Worksheets("Relatorio de despesas") Set wkbDest = Workbooks.Open("C:\Users\getronics.fragoso\teste - Reembolso 2º Ciclo Setembro_SDOSS.xlsm") Set wksDest = wkbDest.Worksheets("Consolidado") 'Descobre a última linha da planilha de destino With wksDest wksDest.Range("b1").Select wksDest.Range("b1").End(xlDown).Offset(1, 0).Select => mas nessa linha está dando erro de execução 9 End With 'Range("e1").Select 'Range("e1").End(xlDown).Offset(1, 0).Select 'ActiveCell.Value = Me.cbologmein 'ActiveCell.Offset(1, 0).Activate wksOrigem.Range("A4:Q250").Copy wksDest.Range("b1").PasteSpecial Paste:=xlPasteValues wkbOrigem.Close SaveChanges:=False wkbDest.Close SaveChanges:=True End Sub
  18. Boa tarde, pessoal! Tenho uma demanda pra salvar arquivos, gostaria de saber se alguém pode me ajudar: tenho uma pequena programação em VBA, que é utilizada para selecionar um arquivo no computador, copia-lo e salvar num local padrão. O problema é que com esse programa que eu tenho atualmente só consigo selecionar arquivo unitário. Gostaria de saber se posso modificar a programação de maneira que eu consiga copiar e colar pastas inteiras. Esse código seleciona um arquivo para ser aberto: Private Function AbrirArquivo() As String 'PROCEDIMENTO PARA ABRIR O ARQUIVO Dim Filtro As String Dim Titulo_da_Caixa As String Dim Arquivo As Variant Filtro = "todos os arquivos (*.*)," Titulo_da_Caixa = "Selecione o arquivo" ChDrive ("C") ChDir ("C:\") With Application Filename = .GetOpenFilename(Filtro, 3, Titulo_da_Caixa) ChDrive (Left(.DefaultFilePath, 1)) ChDir (.DefaultFilePath) End With If Filename = False Then MsgBox "Nenhum arquivo foi selecionado." Exit Function End If AbrirArquivo = Filename End Function Private Sub CommandButton3_Click() E esse é o botão que eu clico pra escolher o arquivo. ele simplesmente chama a função acima. 'BOTÃO ABRIR ARQUIVO On Error Resume Next txtCaminhoArquivo.Text = AbrirArquivo
  19. Boa noite!!! Galera estou com um problema, tenho uma arquivo como se fosse um formulario e preciso exportar as respostas desses formulários para uma pagina da web alguém sabe como faz? A página da web contém os campos idênticos ao formulário. Pensei em fazer algo utilizando o formulário do google...ou então com programação mesmo. Alguém poderia me ajudar?? Desde já agradeço.
  20. Gostaria de uma ajuda criei uma consulta atraves de um textbox no formulario no Excel e minha consulta esta funcionando apenas se o campo tiver 4 digitos, alguem pode me ajudar Private Sub TextBox1_AfterUpdate() Dim intervalo As Range Dim texto As String Dim Matrícula As Integer Dim pequisa Dim mensagem Matrícula = TextBox1.Text Sheets("Luvas").Select Set intervalo = Range("A2:E200") On Error GoTo trataErro pesquisa = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 2, False) pesq1 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 3, False) pesq2 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 4, False) pesq3 = Application.WorksheetFunction.VLookup(Matrícula, intervalo, 5, False) TextBox2.Text = pesquisa TextBox3.Text = pesq1 TextBox4.Text = pesq2 TextBox5.Text = pesq3 TextBox1.SetFocus Exit Sub
  21. Tudo bom pessoas? Poderiam me ajudar com uma dúvida. Recentemente uma companheira de trabalho efetuou o download de uma planilha da web. Na planilha havia uma macro (COM SENHA) programada para fazer com que toda vez que abro o excel, a planilha que a pessoa baixou, também abra. Tentei excluir a macro, desativar as macros (central de confiabilidade), salva a planilha com .xls. Sabem de alguma maneira de excluir essa macro? Segue anexo a planilha. OBS: CUIDADO AO ABRIR A PLANILHA PARA A MACRO NA AFETAR VOCÊS TAMBÉM
  22. Boa tarde, Estou fazendo uma planilha e gostaria de uma macro que ocultasse os valores de todo o intervalo ("G5:G64"), mas sem ocultar a coluna. E caso fosse digitado algum valor em qualquer uma das células do intervalo "C5:C64" , os valores de todo o intervalo "G5:G64" voltem a ser mostrados na planilha. Então, se eu digitar algum valor na célula "C8" por exemplo, todos os valores da coluna "G" voltariam a ficar visíveis na planilha. Alguém sabe me dizer se é possível fazer isso? Segue planilha em anexo. Obrigado. Planilha1 - Teste.xlsx
  23. Eu preciso extrair informação de um arquivo TXT, porém ele é grande demais para ser aberto diretamente(pesa cerca de 25Gb). Antes ele estava em uma extensão chamada rpt mas eu converti para txt. Estou em uma empresa e meu acesso a programas como compiladores é limitado, então eu preciso fazer uma macro do excel para isso, como sou novo em vba estou abrindo esse tópico para perguntar como eu faço em vba as coisas que preciso criar: -Um loop que percorra o arquivo todo -O comando para criar um arquivo de texto com determinado nome -Como armazenar os dados da linha atual em uma string -Como inserir o valor da string no arquivo de texto A logica de como fazer eu tenho uma noção já, mas preciso dos comandos para fazer essas 4 coisas Agradeço quem puder me ajudar, sou novo aqui no forum
  24. Olá, pessoal. Estou montando uma macro no Excel para um relatório do trabalho, com o intuito de automatizar a alimentação de uma base. Para evitar ter que abrir manualmente as bases eu inseri o código: Workbooks.Open ("caminho do arquivo") O problema é que assim que o arquivo é aberto, todo o restante do código para de rodar. Eu testei esse código em separado com uma rotina simples para ver ela era executava, porém a macro não continua rodando após a abertura do arquivo. Vocês podem me ajudar? Porque, o código não está mostrando erro, ele só para de rodar.
  25. amigos... boa noite. vim buscar ajuda de vcs. me ajuda a resolver uma situaçao conflitante to tendo no form ao gravar uma textbox_data vazia? esse campo data preciso que seja gravado como vazio num primeiro momento. entao, preciso de uma condiçao, acho que deve ser no botao salvar, que permita gravar o form com a textbox_data vazia. o CDate nao permite que a textbox esteja vazia e o format(textbox.... ,"dd/mm/yy") até aceita gravar com ela vazia, mas qd retorna ao form numa posterior edição regrava com data invertida, aí acaba dando erro na planilha. e tmb já tentei uma variavel mas tmb nao deu certo porque grava a data 30/12/99. parte cod sub botao salvar ... With dados ... .Range(1, 7) = VBA.CDbl(TextBoxCorrecaoCap.Value) .Range(1, 8) = VBA.CDbl(TextBoxTabFipe.Value) .Range(1, 9) = VBA.Format(TextBoxDtVenda.Value, "dd/mm/yy") .Range(1, 10) = VBA.CDbl(TextBoxVrVendido.Value) .Range(1, 11) = VBA.CDbl(TextBoxComissaoVenda.Value) End With ... parte cod sub carregar dados form ... .TextBoxTabFipe.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 7), "R$ #,##0.00") .TextBoxDtVenda.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 8), "dd/mm/yy") .TextBoxVrVendido.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 9), "R$ #,##0.00") .TextBoxComissaoVenda.Value = Format(.ListBoxTabGeral.List(ListBoxTabGeral.ListIndex, 10), "0.00") ... pode ajudar por favor? obrigado. abraços. Ler mais RESPONDER

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×