» Poradna » Programy

Excel automaticke kopirovanie udajov do ineho suboru

 |   | 

predpokladam ze je to nie prave najtazsie avsak...
mam subor kde mam data v stlpcoch...
potrebujem nejake makro, co by chytilo tieto data vseetky a nakopirovalo by tieto data do ineho suboru xls.
avsak....
ak by uz uplne identicky riadok existoval v cielovom subore tak ho neprepisal, ak by nasiel nezhodu, tak by prepisal novymi datami....
ako na to?

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

Co by se stalo kdyby původní řádek přepsal stejnými daty?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

nooo to by bol problem to bych tak nechcel riesit..... nesmie jednoducho prepisat nic... iba vyhladat zmenene a tie prepisat a nove zapisat za to

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

maji oba soubory identicky pocet radku a sloupcu?
jaka data se maji porovnavat (text, velka/mala pismena, cisla,...)
prepsat jen bunku s rozdilem?

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

nooo hej oba subory maju rovnake vsetko, iba rozdielny nazov... teda rovnake su na tom konkretnom liste, porovnavat sa nemuia velke male pismena to nech berie akoze je to jedno..
hej prepisat len riadok v ktorom najde rozdiel a prepisat ho tym, co tam "poslem"

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

reseni muze byt takoveto:
do noveho sesitu umisti do modulu:

Sub Nahradit()
Dim SourceFile As Workbook, SSheet As Worksheet, Source As Range, SRow As Range, SCell As Range
Dim TargetFile As Workbook, TSheet As Worksheet, TRow As Range, TCell As Range
Dim j As Integer
'
Set SourceFile = Workbooks.Open("D:\Data\Excel\Prepis1") ' CestaSoubor
Set SSheet = SourceFile.Worksheets("List1")
Set Source = SSheet.UsedRange ' oblast zdrojovych dat
Set TargetFile = Workbooks.Open("D:\Data\Excel\Prepis2") ' CestaSoubor
Set TSheet = TargetFile.Worksheets("List2")
'
For Each SRow In Source.Rows
Set TRow = Worksheets("list2").Range(SRow.Address)
Set TCell = TRow.Resize(1, 1)
j = 0
For Each SCell In SRow.Cells
If SCell.Value TCell.Offset(0, j).Value Then ' rozdil v bunkach
TRow.Value = SRow.Value ' nahradit radek
Exit For
End If
j = j + 1
Next SCell
Next SRow
TargetFile.Close
SourceFile.Close
End Sub

procedura otevre oba soubory, a nahradi radek v pripade zmeny, zavre soubory
pro volani subrutiny si vytvor klavesovou zkratku, tlacitko,..., dale si osetri chyby pri otevirani souboru

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Tieto


Určitě si přečtěte

Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

Nejlepší příslušenství k počítači. Tipy na osvědčené klávesnice, tiskárny, routery…

** Tipy na užitečné příslušenství k počítačům ** Poradíme, s jakými produkty neuděláte chybu ** Od drobností do USB až po routery a tiskárny

David Polesný, Stanislav Janů | 20

David PolesnýStanislav Janů
Příslušenství
Týden Živě: On fakt dnes ještě někdo stahuje filmy z Ulož.to?

Týden Živě: On fakt dnes ještě někdo stahuje filmy z Ulož.to?

** Kauza Ulož.to a proč my dva už (moc) newarezíme ** Windows 10X existují, ale nabízí se otázka proč ** Nissan ukázal vizi kanceláře v podobě karavanu

Jakub Čížek, Vladislav Kluska | 152

Jakub ČížekVladislav Kluska
Týden ŽivěVideo
Jak se šíří Covid v Česku: Čerstvá data, semafor PES, mapy okresů a obcí. Každý den aktualizované grafy

Jak se šíří Covid v Česku: Čerstvá data, semafor PES, mapy okresů a obcí. Každý den aktualizované grafy

** Vývoj COVID-19 v Česku: nakažení, úmrtí, testovaní, hospitalizovaní ** Mapa podle okresů, přehled podle věku, situace v Evropě i ve světě ** Každý den aktualizované grafy a mapy

Marek Lutonský | 172

Marek Lutonský
COVID-19Koronavirus
Volitelná aktualizace Windows 10 opravila několik chyb, způsobila ale další problémy
Karel Kilián
Windows UpdateAktualizaceWindows 10
Apple Macbook Air M1: testujeme výkon, výdrž, a hlavně kompatibilitu aplikací [průběžně aktualizováno]

Apple Macbook Air M1: testujeme výkon, výdrž, a hlavně kompatibilitu aplikací [průběžně aktualizováno]

** Testujeme Apple Macbook Air s procesorem M1 ** Zajímá nás nejen výkon, ale zejména kompatibilita aplikací ** Článek je průběžně doplňován na základě vašich dotazů

Jiří Kuruc | 209

Jiří Kuruc
Apple
Windows 10 vylepšují správu aktualizací ovladačů hardwarových komponent počítače
Karel Kilián
OvladačeWindows UpdateWindows 10
Pozor na tyto doplňky pro Chrome a Edge. Mohou obsahovat malware, varuje Avast
Jakub Čížek
MalwareProhlížeče