(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
	» Shark20 03:06 » Visar 03:00 » Chavez 02:46 » yanix 02:26 » PaKu 02:20 » metacom 02:18 » xpx 02:17 » abes99 01:30 » luckyluc 01:30 » Chrisu 01:26 » PiotrexP 01:18 » Martens 00:57 » Wolf 00:44 » CiAsTeK 00:39 » bmiluch 00:38 » Zic 00:36 » rulezDC 00:36 » Demo 00:15 » rarek 00:09 » buddookan 00:03 Dzisiaj przeczytano 41130 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?