Zdravím, mám za úkol vymyslet makro na porovnání 2 listů. Jde o vyexportované tabulky ze SAPu ze dvou po sobě jdoucích dnů na odvolávky zákazníka. Makro by mělo porovnat týden a v novější tabulce (Sheet2) zvýraznit červeně buňky, které jsou rozdílné od první tabulky (Sheet1).

Zatím mám jen naprogramované načtení oblasti buněk pro porovnání, ale nevím, jak napsat kód pro porovnání těchto oblastí (For each bunka in oblast1...). Zde je odkaz na testovací tabulku a pod ní kód, který zatím mám. Díky moc!

http://previt.wz.cz/ostatni/test.xls

Sub Porovnej() 'porovná 2 listy a pokud najde rozdíl označí ho

Application.ScreenUpdating = False
Dim text As String
Dim oblast1 As Range, oblast2 As Range, bunka As Range
Dim radky As Integer


'spočítá počet buněk, které se budou testovat
Sheets("Sheet1").Activate
ActiveSheet.Range("B2").Select
radky = 2
text = ActiveCell.Formula
Do Until text = ""
ActiveCell.Offset(1, 0).Select
text = ActiveCell.Formula
radky = radky + 1
Loop
oblast1 = "D2" & radky - 1 & ",F2:K" & radky - 1
oblast2 = "D2" & radky - 1 & ",E2:J" & radky - 1