locked
Passar dados de uma planilha para outra

    Question

  •  

    Como faço para passar os dados de um UserForm para um outro arquivo do excel,

    eu quero que se houver alguma informação ja nas celulas ele compare por exemplo o  "ID" das duas celulas

    se for igual acrescentar novas linhas para a inserção dos novos dados  por exemplo um enter para pular para linha de baixo... tem como fazer isso?? tava pensando em fazer com o evento Private Sub OK_click()

     

     

    Friday, April 18, 2008 1:39 PM

All replies

  • Vamos por partes, Ítalo.

    Para transferir informações entre dois arquivos, será necessário.

    1. Abrir o arquivo de destino.

    2. Transferir as informações.

    3. Salvar e fechar o arquivo de destino.

    Exemplo básico para transferir as informações da TextBox1 do UserForm1 para a célula A1 da planilha "Dados" localizada no arquivo C:\Destino.xls

    Code Snippet

    Sub TransferirInfo()

    Workbooks.Open ("c:\Destino.xls")
    Workbooks("Destino").Sheets("Dados").Cells(1, 1) = ThisWorkbook.UserForm1.TextBox1.Value
    Workbooks("Destino").Close SaveChanges:=True
    End Sub

     

    Vc menciona que gostaria de testar se já há um ID na planilha de destino, igual à informação que vc quer transferir inserir linhas para entrar novos dados. Modificando o código acima:

    Code Snippet

    Sub TransferirInfo()

    Workbooks.Open ("c:\Destino.xls")
    On Error Resume Next
    ID = Application.WorksheetFunction.Match(ThisWorkbook.UserForm1.TextBox1.Value, Workbooks("Destino").Sheets("Dados").Columns(1), 0)
    If Err.Number <> 0 Then
    N = Workbooks("Destino").Sheets("Dados").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Workbooks("Destino").Sheets("Dados").Cells(N, 1) = ThisWorkbook.UserForm1.TextBox1.Value
    Else
    Rows(ID).Insert
    Workbooks("Destino").Sheets("Dados").Cells(ID + 1, 1) = ThisWorkbook.UserForm1.TextBox1.Value
    End If
    Workbooks("Destino").Close SaveChanges:=True

    End Sub

     

     

    Esse código só traz a idéia básica da coisa e precisará ser adaptado com base na tua necessidade.

    [ ]s

     

     

     

    Saturday, April 19, 2008 1:21 PM
  •  Adilson Soledade wrote:

     

    Code Snippet
    Code Snippet

    Sub TransferirInfo()

    Workbooks.Open ("c:\Destino.xls")
    On Error Resume Next
    ID = Application.WorksheetFunction.Match(ThisWorkbook.UserForm1.TextBox1.Value, Workbooks("Destino").Sheets("Dados").Columns(1), 0)
    If Err.Number <> 0 Then
    N = Workbooks("Destino").Sheets("Dados").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Workbooks("Destino").Sheets("Dados").Cells(N, 1) = ThisWorkbook.UserForm1.TextBox1.Value
    Else
    Rows(ID).Insert
    Workbooks("Destino").Sheets("Dados").Cells(ID + 1, 1) = ThisWorkbook.UserForm1.TextBox1.Value
    End If
    Workbooks("Destino").Close SaveChanges:=True

    End Sub

     

     

     

     
     
     

    Troquei as parte em vemelho e apareceu que a variavel projeto não foi localizada

    Tuesday, April 22, 2008 12:57 PM
  • Em que momento ocorre a mensagem de erro?

    Poderia descrever como está estruturado o teu sistema de arquivos e os respectivos objetos? Assim fica mais fácil para tentar reproduzir o erro.

    Vc rodou o código em modo de depuração? (controlando o avança, linha a linha utilizando F8)

    [ ]s

    Tuesday, April 22, 2008 1:07 PM
  •  

    o problema o ocorre logo no terceiro campo que eu troquei ..

     

    eu criei compilei direto o programa

     

    como assim os objetos?

    Tuesday, April 22, 2008 4:02 PM
  • Esclarecendo melhor:

    Qual o nome do seu arquivo?

    Quantas e quais são as planilhas?

    Como está(ão) organizado(s) o(s) UserForm(s)? (Há listbox, combobox, checkbox? Quais os seus nomes?)

    [ ]s

     

    Tuesday, April 22, 2008 4:24 PM
  •  

    arquivo : teste

    Planiha: Sheet1

     

    Textbox:

    id

    nome do gestor

    Business Unit

    project name

    site

    project it manager

    project manager

    project sponsor

    description

    deliverables

    FY

    Start Date

    Finish Date

    Recursos planejado

    recursos orçados

    beneficios

    beneficios do software

    priority

    status

     

    combobox

    Phase

    Scope

     

    botoes

     

    gravar , limpar formulario, novo projeto, pesquisar

     

    Tuesday, April 22, 2008 4:42 PM
  • Olá Ítalo como vai, tem como vc enviar as suas planilhas para o meu email para poder te ajudar melhor?

     fabio.baldini@hotmail.com

    Abraços,

    Baldini


    Baldini Fabio
    • Edited by Baldini Friday, July 16, 2010 1:04 PM esquecimento do email
    • Proposed as answer by Baldini Friday, July 16, 2010 1:04 PM
    Friday, July 16, 2010 1:03 PM