Private Sub Worksheet_Change(ByVal Target As Range)
Set bunka = Intersect(Target, Range("A:A"))
If bunka = "r" Then
MsgBox "Vyplň ještě buňku ve sloupci 'C' na řádku: " & Target.Row, vbMsgBoxSetForegroun
End If
End Subcitovat
Zaslal/a
14.1.2010 7:56Zdravím, mám k vám jednu prosbu zda by jste mi nepomohly z následujícím problémem. Chci ověřovat data v jednom sloupci v závislosti na jiných sloupcích například pokud ve sloupci A bude hodnota "r" tak chci aby mě to upozornilo že ještě musím vyplnit hodnotu ve slouci C ve stejném řádku, když hodnota ve slouci A bude jiná než "r" potom se nic neděje.
Je to možné nějak udělat. Děkuji
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.