(excel)- jak zrobić synchronizację danych pomiędzy plikami

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» elliot_pl 01:06 » Pinokio.p 01:03 » Shark20 01:02 » ham_solo 00:53 » Paweł27 00:51 » Martens 00:45 » Wedrowiec 00:33 » slanter 00:17 » Mademan 00:17 » Holyboy 00:16 » piszczyk 00:13 » resmedia 23:54 » Tomasz 23:53 » yanix 23:48 » g5mark 23:42 » homzik 23:32 » DJopek 23:29 » Lukas12p 23:23 » stefan_nu 23:21 » rrafaell 23:21 Dzisiaj przeczytano 41106 postów, wczoraj 25974 Szybkie ładowanie jest: włączone.

ccc

A R C H I W A L N A W I A D O M O Ś Ć

(excel)- jak zrobić synchronizację danych pomiędzy plikami , Ramen 30/03/23 09:15
cześć,

szukam sposobu na synchronizację danych pomiędzy dwoma plikami excel na dwóch różnych kompach. I tak:
- pierwszy (nazwijmy go master) ma w sobie multum danych w różnych zakładkach
- drugi (slave) ma ograniczoną ilość zakładek, ale dublują się one z master

I teraz tak- jeśli wpiszę dane w master, to poprawnie kopiują się one do slave (zrobiłem wklej łącze dla interesujących mnie kolumn w danej zakładce), jednak gdy wpisuję dane w slave dane nie kopiują się do master- muszę je ręcznie wprowadzić jednocześnie (co jest bez sensu).

Jak to ugryźć?

Tu był podpis

Ja mam coś takiego zrobione kodem VBA. , Dexter 30/03/23 10:14
Tyle, że dane wymieniają się między zakładkami a nie plikami, ale to nie kłopot.

Wygląda to tak:

1. to pobiera wartość z arkusza Zrodlo1, komórki A1 i jeśli wpiszesz w A1 cokolwiek, to to pojawi się w arkuszu Zrodlo2

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge = 1 And Target.Address(0, 0) = "A1" Then
Application.EnableEvents = False
Sheets("Zrodlo1").Range("A1").Value = Target.Value
Application.EnableEvents = True
End If
End Sub

2. A tu w drugą stronę.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge = 1 And Target.Address(0, 0) = "A1" Then
Application.EnableEvents = False
Sheets("Zrodlo2").Range("A1").Value = Target.Value
Application.EnableEvents = True
End If
End Sub

Pokombinuj, powinno się udać.
Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
Odpowiedzi oleję.
THX!
1. ło Panie, czarna magia :) , Ramen 30/03/23 10:49
  synchronizacja u Ciebie działa na ręcznej synchronizacji czy też online?
  Tu był podpis
  1. Nie wiem, ten kod działa w obrębie jednego pliku. , Dexter 30/03/23 10:54
    Jak chcesz synchro między plikami online to już inna bajka.
    Komisarz, Blimek, Bart - nie odpowiadajcie w wątkach, które zakładam.
    Odpowiedzi oleję.
    THX!
    1. odpowiadam , Killer 30/03/23 12:16
      pasikonik
      Kiedyś normą był ogół a nie margines...
Tak na szybko , ligand17 30/03/23 21:56
i z umysłem zrytym całym dniem pracy: skoro działa u Ciebie synchronizacja master -> slave poprzez "wklej łącze", to dlaczego nie zrobić synchronizacji slave -> master na tej samej zasadzie do innych zakładek (mogą być ukryte), a potem synchronizację zakładek ukrytych do właściwych (docelowych) ogarnąć makrem podanym przez kol. Dextera?

Jak się wyśpię i wstanę rano, to pewnie wymyślę coś lepszego, ale taką mam koncepcję na szybko...
No a co w razie konfliktu? , DJopek 31/03/23 00:00
Nie bardzo wiem jak chcesz aby to działało?
Chyba że w obu plikach modyfikowane są inne zakresy komórek / arkuszy?