0
0

Dobrý den prosím o pomoc s Makrem,

Vytvořil jsem Makro viz níže

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B4").Sort Key1:=Range("B5"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If

End Sub

Makro je použité na automatické řazení dat ve sloupci B:B v listu 1. Ve sloupci B- jsou vzorce které odkazují na buňky v druhých listech, pokud v druhých listech změním data, tak automatické řazení v listu 1 neproběhne. Proběhne až prokliknu vzorec v ketrékoliv buňce. Makro nereaguje na změny v ostatních listech.

Dokázal by někdo pomoci?

Marked as spam
Odeslal camron
Otázka položena 21.1.2021 5:56
20 views
0
Private answer

Nejedná se o událost Selection_Change (změna výběru buňky), anóbrž Change (skutečná změna buňky).

Marked as spam
Odeslal xlnc
Odpověděl 21.1.2021 9:48

Odešlete svou odpověď

Attach YouTube/Vimeo clip putting the URL in brackets: [https://youtu.be/Zkdf3kaso]