Um extra seria interessante se eu conseguisse filtrar as linhas repetidas e ficar com o valor mais recente eliminando os outros. Podendo ate mesmo deletar o restante das linhas.

  Segue anexo para que entendam. Qualquer sugestão de formulas que devo usar ou como pesquisar para melhorar isso.

Já fiz algumas coisas em VBA e formulas complexas.

Muito Obrigado desde já.

Situação:

São diversos arquivos que conectam em uma planilha principal e puxam dados. Cada arquivo está em uma pasta diferente dentro do dropbox. Para facilitar o entendimento da dúvida utilizarei 2 arquivos como teste:

Possuo dois arquivos em excel onde um puxa informação do outro, por exemplo, tenho um arquivo excel "teste 1" que puxa informações de um arquivo excel "teste 2" e após isso o arquivo teste 2 utiliza informações dos resultados do teste 1, ou seja, uma conexão dupla. Portanto, no momento em que eu referenciar uma célula a outro arquivo, na barra de fórmulas aparece por exemplo:

"='C:\Users\rafae\dropbox\...\Plan1'!$G$5"

Porém, esse link é unicamente funcional para o usuário "rafae", a conexão só funciona se o usuário "rafae" estiver com as duas planilhas abertas. Caso um segundo usuário "joao" abra a planilha teste 2 e atualize os valores, a planilha teste 1 não atualizará, pois o link será apenas para o usuário "rafae". Caso o outro usuário do dropbox queira atualizar os valores, deverá atualizar os vinculos, os links, para o caminho próprio da pessoa:

"='C:\Users\joao\dropbox\...\Plan1'!$G$5"

Existe alguma forma de conectar esses diversos arquivos que linkam a um arquivo principal e retornam valores, de uma forma que funcione para todos os usuários? Não queremos ter que toda vez que for apresentar algo ter que atualizar os links novamente para outra pessoa conseguir ficar atualizando os valores ao vivo.

É possível fazer isso sem utilizar VBA? Não queremos chegar a esse nível para uma simples conexão entre planilhas. Caso não seja possível, quais seriam as formas de resolver essa questão? Macros, VBA??

Abraços,

rs.Open "select * from recebimento_obreiros where grau = " & grau.Value & " and nome like '%" & obreiro.Value & "%' and sala like '%" & sala.Value & "%' and data between #" &
datainicial.Value & "# and #" & datafinal.Value & "# ", db, 3, 3

Detalhe: 
se eu ajustar o comando deixando só a parte da data,funciona normalmente.
se eu ajustar o comando tirando só a parte da data,funciona normalmente.
só não funciona com todos juntos (sala, grau, nome e data).

 

Alguém poderia me ajudar??

Não foi possível encontrar um ISAM instalável.

O código é esse abaixo:

Dim conexao As ADODB.Connection
Dim provider As String, dataSource As String
Dim connectionString As String
Dim caminho As String

Set conexao = New ADODB.Connection
caminho = ThisWorkbook.Path & "\DatabaseSistemav1.accdb;"
provider = "Provider=Microsoft.ACE.OLEDB.12.0;"
dataSource = "DataSource=" & caminho
connectionString = provider & dataSource

conexao.Open connectionString

Estou com um probleminha, criei um formulário chamado Recebimento onde cadastro as ordens de serviço que foram geradas em um banco de dados access. No access tenho as tabelas Clientes e Servicos dentre outras nas quais cadastro todos os dados. Criei uma string sql para buscar os dados da tabela Servicos para o formulário através da combobox do form. O problema que tá me deixando com dor de cabeça é que quando executo o form, os dados carregado não mudam de acordo com a OS, permanecem sempre os mesmos. Será que vcs podem me dar uma ajudinha por favor. Segue abaixo os arquivos para testar, obrigado por hora.

Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1

Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1

Gravar.Update

Next j
Next i

MsgBox "REGISTRO SALVO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO"
'Call ATUALIZAR
Call Limpar
Call bloquear
cmd_editar.Locked = True
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Else

msg = "CAMPOS OBRIGATÓRIOS NÃO PREECHIDOS!" & vbNewLine
MsgBox msg, 0 + vbInformation, "CAMPOS OBRIGATÓRIOS"

Exit Sub
End If
Else

Gravar.Index = "PrimaryKey"
Gravar.Seek "=", ListView1.SelectedItem / 1
Gravar.Edit

'Campos não Obrigatórios
Gravar!cidade = TXT_CIDADE.Text
Gravar!UF = TXT_UF.Text

Gravar.Update

Set Gravar = Conexao.OpenRecordset("tb_saidas_itens")

'Loop as lignes
For i = 1 To ListView1.ListItems.Count

'Loop as colunas
For j = 1 To 1
Gravar.AddNew
Gravar!id_seq = txt_seq.Text / 1
Gravar!cod_produto = ListView1.ListItems(i).ListSubItems(1).Text
Gravar!qtd = ListView1.ListItems(i).ListSubItems(3).Text / 1

Gravar!vl_unitario = ListView1.ListItems(i).ListSubItems(4).Text / 1

Gravar!vl_total = ListView1.ListItems(i).ListSubItems(5).Text / 1

Gravar.Update

Next j
Next i

codigo = ListView1.SelectedItem / 1

MsgBox "REGISTRO ALTERADO COM SUCESSO!", 0 + vbInformation, "SALVO COM SUCESSO"
'Call ATUALIZAR
Call Limpar
Call bloquear
cmd_editar.Locked = True

End If

tratativas:

Select Case Err.Number
Case 3022
MsgBox "JÁ CADASTRADO!", 0 + vbCritical, "INCLUSÃO CANCELADA"
Case 53
Case 13
MsgBox "FORMATO INVÁLIDO, TENTE NOVAMENTE!", 0 + vbCritical, "SOMENTE VALOR NUMÉRICO"
End Select

End Sub

Coloquei os dados da planilha em uma tabela do acess. Não tem chave primaria ou numeração para cada linha. 

Como tenho que ficar alterando e incluindo dados criei um formulário para alterar/incluir dados. O alterar já consegui o @raygsson me ajudou no outro post.

Agora preciso o botao de INCLUIR um novo dado. Já tentei algumas opcões que até deu mas em vez de ir para uma linha abaixo do ultimo item já existente está criando uma nova linha.

Meio confunso, vou postar uma foto. Caso não conseguirem me ajudar subo o arquivo.

Exemplo: Quero incluir um novo banco, "BB", no "Campo BANCO". Em vez de ir para baixo do Caixa, cria uma nova linha por ultimo na tabela.

Esse script abaixo eu uso em outros formularios para incluir quando se tem chave primaria. Mas não da porque ele usa o codigo da chave primaria.

Call conecta_financas
Set rs = New ADODB.Recordset
rs.Open "select * from base_despesas", MiConexao, adopenkeyser, adLockOptimistic, adCmdText

While Not rs.EOF
id = rs(0)
rs.MoveNext
Wend

Me.c_despesasdb_num = id + 1
id = Me.c_despesasdb_num

With rs

.AddNew
.Fields("Cod_despesas") = id
.Fields("Mes") = Me.c_despesasdb_mes

End With
Call desconecta_financas

>>>>> Tentei esse, mas cria uma nova linha.

campo_bd = "Despesa_Fixa_Desp"

Call conecta_financas
Set rs = New ADODB.Recordset
rs.Open "select " & campo_bd & " from Dados_Source", MiConexao, 3, 3
Do Until rs.EOF

With rs
'AddNew
.Fields(campo_bd) = c_despesasdb_item_alterar

.Update
End With

rs.MoveNext
Loop

Call desconecta_financas

Tenho formulario no excel com os dados no acess.

Essa é a linha para abrir: rs.Open "select * from Dados_Source where & Despesa_Fixa_Desp", MiConexao, 3, 3

Tenho dois campos(colunas) que posso buscar os dados que quero.

Campos: Despesa_Fixa_Desp e Despesa_Variavel_Desp

rs.Open "select * from Dados_Source where  VARIAVEL ", MiConexao, 3, 3

Unico jeito que consegui fazer funcionar é fazendo duas buscas.

rs.Open "select * from Dados_Source where Despesa_Fixa_Desp", MiConexao, 3, 3

rs("Despesa_Fixa_Desp") = Me.c_despesasdb_item_alterar

rs.Update

rs.close


rs.Open "select * from Dados_Source where Despesa_Variavel_Desp", MiConexao, 3, 3

rs("Despesa_Variavel_Desp") = Me.c_despesasdb_item_alterar

rs.Update

rs.close

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

Estou com um problema, consigo cadastrar dados apartir de um userform em um banco access 2016 sem problemas

Mas no update, tenho problemas, diz q o banco está em modo leitura.
Vejam minha conexão e imagens para facilitar o entendimento.

Global banco As Database
Global consulta As DAO.Recordset

Sub ConectaBanco()

       Windows(ThisWorkbook.Name).Activate
       Set banco = OpenDatabase(ActiveWorkbook.Path & "\Data\Cliente.accdb", False, False) 

End Sub

NA HORA DE FAZER UPDATE

ComandoSQL = "Select * from tb_Clientes....."

Set consulta = banco.OpenRecordset(ComandoSQL)

With consulta

.Edit
.Fields("Cliente_DataCadastro") = txt_Data

.update

end with

Alguém pode me dar uma dica de onde está o problema?

Imagens em Anexo.

• Cliente;
• Janeiro;
• Fevereiro;

Gostaria de vincular o valor do cliente de janeiro e fevereiro na aba clientes (somando o valor de cada um - podendo o nome ser repetido n vezes) para que eu possa ter a totalização após o prazo de um ano.

Link com as imagens: Imagens