Zaslal/a amater 22.4.2012 16:28
Perfektne bolo funkcne , zmenou dat v zosite Makro nereaguje po aktivovaní "spustiť makro"!
Sub compare()
With ActiveSheet
rw = 1
Do While Not IsEmpty(Cells(rw, 1).Value)
rw2 = 1
Do While Not IsEmpty(Cells(rw2, 2).Value)
If Cells(rw, 1).Value = Cells(rw2, 2).Value Then
Cells(rw, 1).Interior.ColorIndex = 3
End If
rw2 = rw2 + 1
Loop
rw = rw + 1
Loop
End With
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.