• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: makrem vyhledat a označit určitou buňku

Zaslal/a putuanek 25.8.2016 10:59

Prosím pomoc = makro. Potřebuji makrem vyhledat a označit určitou buňku(v buňce je číslo) v List2, ve sloupci D, v určité označené oblasti(tuto oblast potom různě měním a to jen ve sloupci D). A tato vyhledaná buňka má stejnou hodnotu,jako je aktivní buňka (jedna) v List1 ve sloupci D (označení této jedné buňky také měním jen ve sloupci D). C@uki a dík.

Zaslat odpověď >

---

elninoslov(25.8.2016 11:48)#032433

Netuším, či chápem správne. Tento kód do listu "Hárok1"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
If Err = 0 Then Cells(2, 6) = R Else Cells(2, 6) = CVErr(xlErrNA)
End If
End Sub
V liste "Hárok2" sú v D1:D10 hodnoty, ktoré prehľadáva. Táto adresa sa dá zmeniť v makre alebo zameniť za definovaný názov. podľa toho ako ju chcete meniť.

EDIT: Alebo označiť bunku, a nie len nájsť bunku ? Označiť bunku v neaktívnom liste snáď ani nejde. Neviem, potom asi takto.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
Application.ScreenUpdating = False
If Err = 0 Then Application.Goto Worksheets("Hárok2").Range("D1:D10").Cells(R) Else Application.Goto Worksheets("Hárok2").Range("A1")
Application.Goto Target
Application.ScreenUpdating = True
End If
End Subcitovat

putuanek1(25.8.2016 15:45)#032436

takto: na Listu1 mám označenou buňku (ve sl.D) a v ní je číslo.Pozice této buňky se mění jen na různých řádcích (v tomto sl.D). Potřebuji najít hodnotu této buňky z Listu1 v Listu2 ve sloupci D jen v předem označené oblasti.Označení této oblasti není pevné a mění se také.Makro by mělo tuto označenou oblast(část sl.D) najít a prohledat samo a označit buňku se stejnou hodnotou(jako je číslo v List1).citovat

elninoslov(25.8.2016 21:04)#032437

Slovom "označiť" myslíte ľavý klik myši ? Alebo slovom "označiť" myslíte vyfarbiť a pod. To je zásadný rozdiel v skladbe makra. To sa sa prehľadávaná oblasť mení, je najmenší problém, to sa dá vyriešiť jednoducho Definovaným názvom. Ale od významu slova "označiť" záleží či sa použije funkcia, alebo makro naviazané na udalosť listu (klik).citovat

Anonym(26.8.2016 8:00)#032440

Dídy moc za Vaši rychlou reakci a doplním to, že slovem "označit" myslím levý klik myší.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse