Sub Kopy_Aktual_Sumar() Dim c As Range, xRng As Range Set xRng = Sheets("2").Range("A1:A31") For Each c In xRng If c = Sheets("1").Range("A1") Then c.Offset(0, 1) = Sheets("1").Range("B19") MsgBox "Deň '" & c.Text & "' je aktualizovaný" & vbCrLf & _ "hodnotou '" & c.Offset(0, 1).Text & "'." Exit Sub End If Next c MsgBox "Deň '" & Sheets("1").Range("A1").Text & "' som v liste '2' nenašiel." End Sub
Excel pomoc zo vzorcom, mozno makro?