V bunke K2 mám rozbaľovací zoznam Oddelení a potrebovala by som podľa vybratého oddelenia skočiť na posledný záznam v prvom stĺpci A, kde je poradové číslo.
Na posledný záznam podľa A? Alebo na posledný záznam zvoleného oddelenia? Pretože ak iba na posledný záznam v A, tak výberový zoznam v K2 nemá pre operáciu význam. A čo má spustiť tento krok? Zmena v bunke K2?
EDIT:
Na to ako som to pochopil, by sa dal zneužiť vzorec v EVALUATE
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, LST As String
Set Zmena = Intersect(Range("K2"), Target)
If Not Zmena Is Nothing Then
With Range(Range("A24"), Cells(Rows.Count, "A").End(xlUp))
LST = .Parent.Name
On Error Resume Next
Cells(Evaluate("=LOOKUP(2,1/('" & LST & "'!" & .Offset(0, 8).Address & "='" & LST & "'!" & Zmena.Address & "),ROW('" & LST & "'!" & .Address & "))"), "A").Select
End With
End If
End Sub
EDIT:
Na to ako som to pochopil, by sa dal zneužiť vzorec v EVALUATE
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, LST As String
Set Zmena = Intersect(Range("K2"), Target)
If Not Zmena Is Nothing Then
With Range(Range("A24"), Cells(Rows.Count, "A").End(xlUp))
LST = .Parent.Name
On Error Resume Next
Cells(Evaluate("=LOOKUP(2,1/('" & LST & "'!" & .Offset(0, 8).Address & "='" & LST & "'!" & Zmena.Address & "),ROW('" & LST & "'!" & .Address & "))"), "A").Select
End With
End If
End Sub
Příloha: 
53229_wall2.zip (111kB, staženo 6x)
citovat53229_wall2.zip (111kB, staženo 6x)
\n
RSS nejnovější články