Jump to content
Fórum Script Brasil

DANYY

Membros
  • Content Count

    67
  • Joined

  • Last visited

Community Reputation

0 Neutro

About DANYY

  • Birthday 11/27/1984

Contatos

Perfil

  • Gender
    Female
  • Location
    SÃO PAULO
  1. DANYY

    erro 91

    Boa tarde Benhur e obrigada pela resposta. Mas ao colocar o tratamento de erro quando não localizado a variavel a macro não deveria ser direcionada a ler novamente a planilha de desconto e fazer o loop no proximo registro??
  2. DANYY

    erro 91

    Boa tarde a todos!! Criei uma macro que le a célula ativa de uma planilha armazena o valor em uma variavel e procura esse valor em outra planilha. Esta funcionando corretamente até o momento que um dos valores localizados não é encontrado na planilha de pesquisa gerando o erro 91. Segue a macro, sendo a planilha Relatorio Desconto.xlsx a planilha onde contem o valor que deve ser pesquisado na planilha Retorno pmsp.xlsm. Ao depurar o código o erro aparece na linha selection.find Segue: Sub desconto() Dim ra As String Windows("RELATORIO DESCONTO.XLSX").Activate 'abre o arquivo de descon
  3. DANYY

    Planilha Visivel

    Ok, muito obrigada!! o problema foi resolvido!!
  4. DANYY

    Planilha Visivel

    Criei uma planilha e em workbook.open inseri o código - application.visible = false e userform1.show; para que ao abrir essa pasta de trabalho a mesma fique oculta e dessa forma rode apenas o formulário. Esta funcionando legal. Porém se tem outros arquivos do excel aberto na maquina enquanto rodo essa planilha com esse codigo a outra planilha fica oculta também. gostaria que ficasse oculta apenas a planilha que tem o formulário.
  5. DANYY

    Planilha Visivel

    Criei uma planilha e em workbook.open inseri o código - application.visible = false e userform1.show; para que ao abrir essa planilha o excel fique oculto e rode apenas o formulário. Esta funcionando legal. Porém se tem outros arquivo do excel na maquina aberto enquanto rodo essa planilha com esse codigo a outra planilha fica oculta também. gostaria que ficasse oculta apenas a planilha que tem o formulário.
  6. DANYY

    FORMATA CAMPOS

    Pessoal eu consegui alterar para ponto utilizando o seguinte codigo: valor = Replace(valor, ",", ".") Porém ainda tem um problema.. os valores que não tem centavos por exemplo o valor de 120,00, no arquivo texto deveria gravar 0000000000120.00 e no caso esta gravando 0000000000000120 Como devo proceder para que grave os valores considerando os centavos? Obrigada!
  7. DANYY

    FORMATA CAMPOS

    Boa tarde, criei uma macro onde gravo os valores das celulas do excel em um arquivo texto. Nas celulas referente aos valores que preciso gravar no arquivo texto, o formato esta de numero negativo e com virgula, preciso que seja ponto e não virgula.. utilizei o seguinte codigo para que ao gravar o valor no arquivo texto ele preencha com 16 caracteres e zeros a esquerda: valor = Right(complemento & (ActiveCell.Offset(0, 2).Value * -1), 16) esse codigo esta funcionando corretamente, porem preciso formatar esse valor para que o mesmo grave no arquivo texto com ponto e não com virgula.. Como
  8. DANYY

    FORMATAR DATA SEM BARRA

    Olá pessoal, criei uma macro onde o sistema pega a data que esta em uma celula do excel e grava em um arquivo texto. Esta funcionando corretamente, porem preciso gravar a data no arquivo texto sem o separador /. Como devo proceder? Agradeço desde já!
  9. DANYY

    LOOPING INFINITO

    Ola pessoal, estou com o seguinte problema, montei a macro a seguir onde preciso que ela pegue o valor somente do que esta definido como TARIFA e TAR, na coluna B e salve no arquivo texto o valor correspondente a essa tarifa: Sub tarifa() Dim valor As String Dim tarifa As String Dim arquivo As String arquivo = "c:\teste.txt" Open arquivo For Append As #1 Columns("A:E").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$E$54").AutoFilter Field:=2, Criteria1:="=*TAR*", _ Operator:=xlAnd, Criteria2:="=*TARIFA*" Do While ActiveCell.Offset(1, 0).Value <> "" Cells.
  10. Boa tarde, criei uma rotina no vba excel 2010, na minha maquina roda normal porem tentei utilizar essa planilha em outra maquina e a mesma não abre,aparece a mensagem informando que o windows esta procurando o arquivo e esse nem é aberto. alguém já viu isso? Pode me ajudar? Obrigada!!
  11. DANYY

    CONSULTA E ALTERAÇÃO

    Consegui fazer a consulta das informacoes de acordo com que eu queria com o seguinte codigo: Private Sub LerDados_Click() sim = vbYes Set xlw = xl.Workbooks.Open("C:\ARTESP\1146 BASE DE DADOS.XLSX") xlw.Application.Visible = False Text2.Enabled = False Text3.Enabled = False Sheets("1146").Select Application.Goto REFERENCE:="CadastroContas" Do While ActiveCell.Value <> "" If Text1.Text = ActiveCell.Value Then Me.Text1.Text = ActiveCell.Value Me.Text2.Text = ActiveCell.Offset(0, 1).Value Me.Text3.Text = ActiveCell.Offset(0, 2).Value End If ActiveCell.Offset(1, 0).Select Loop Text1.
  12. DANYY

    CONSULTA E ALTERAÇÃO

    Bom dia, como proceder para criar uma rotina de consulta? No formulario do VB6 coloquei dois textbox onde o primeiro deve representar o codigo e o outro a descrição. Tenho uma planilha no excel onde tenho um cadastro de contas que na coluna A esta informado os codigos e na coluna B suas respectivas descrições. Preciso criar uma rotina em que ao digitar o codigo no textbox1 no textbox2 apareça a descrição do codigo informado e na planilha seja selecionado a linha com contem essas informações. Fiz umas pesquisas na net e localizei o seguinte codigo para exibir o conteudo da celula no textbox:
  13. Boa tarde, para abrir um arquivo em excel e edita-lo pelo vb utilizei o seguinte codigo: Set xlw = xl.Workbooks.Open("U:\Setembro.xlsx") beleza esta funcionando corretamente porque abre esse arquivo. Porém gostaria que no formulario fosse possivel selecionar qual arquivo que quero abrir, porque nesse caminho tenho um arquivo em excel para cada mes, e então como proceder para que no formulario eu possa escolher qual arquivo (de acordo com o mes selecionado) eu desejo abrir? Agradeço desde já.
  14. DANYY

    VERIFICAR DATA ATUAL

    Bom dia, obrigada pela ajuda mais utilizando esse codigo acima tambem ocorreu erro então fiz da seguinte forma: dim data as string data = date Cells.Find(What:=data,After=ActiveCell, Lookin:=xlFormulas,_ LookAt:=xlPart,SearchOrder:=xlByRowa, SearchDirection:=xlNext,_ MatchCase:=False, SearchFormat:=False).Activate Dessa forma deu certo, obrigada!
  15. DANYY

    VERIFICAR DATA ATUAL

    Bom dia, criei um formulario onde aparece a data e hora atual conforme configurado relogio do PC. Criei tambem uma planilha onde tem todos os dias dos meses em cada linha da coluna B: por exemplo: Coluna B 01/09/2011 02/09/2011 03/09/2011 04/09/2011 e assim sucessivamente até o ultimo dia do mes.. como fazer para que ao clicar no botao confirma (criado no formulario), o sistema localize nessa planilha a linha com o dia atual?
×
×
  • Create New...