Minule som potreboval poradiť s makrom. Teraz potrebujem znova. Myslel som, že si vystačím s vedomosťami z predchádzajúceho makra, ale nie je to tak. O čo mi ide:
- zmením hodnotu bunky D1
- automaticky sa musí podľa hodnoty prepočítať celý stĺpec F a G od 5. do povedzme 200. riadku

Niečo takéto:

ak D1change tak
  pre každú bunku F5:F200 opakuj
    bunka = bunka * D1
    bunka.ofset(0, 1) = bunka * 2
  koniec pre

Private Sub D1_Change(ByVal Target As Range)
    On Error GoTo ErrorHandler
    Application.EnableEvents = False
    
    Set intersection = Intersect(Target.Cells, Range("F5:F200"))
    For Each cell In intersection
        cell = cell * D1
        cell.offset(0, 1) = cell * 2
    Next
    
ErrorHandler:
    Application.EnableEvents = True
End Sub