Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Excel VBA-msgbox

Zdravím,
Je otázka zda se pouštět do VBA bez základních znalostí. Přesto:

Prvně je třeba zvolit událost při které se spustí makro, řekněme při změně hodnoty buňky na listu 2. Omezít akci pouze na výběr 3. sloupce, jinak by se hláška zobrazoala při každé změně na listu a to je dost protivné. Součet sloupce udělat sumou do některé buňky a je to. tady je kod:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

Dim x_a As Integer
Dim x_b As Integer

If Target.Column <> 3 Then Exit Sub

x_a = List1.Cells(1, 1) 
x_b = List2.Range("D1") 'buňka se součtem sloupce C
 
If x_a < x_b Then MsgBox "Nějaký text ...", vbExclamation, "Nadpis"
End Sub

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny