Excel oprava maker

Tak jsem si to stáhl - a nic nechápu.
To nejdůležitější - jak a čím spouštíš vyhledávání? Jakým makrem to děláš?
K čemu máš v makrech ten formulář?
Proč tam uvádíš "heslo pro makra", když jdou prohlédnout a spustit i bez něj?
Co mají znamenat ty datové soubory? Proč a jak vznikly ty soubory DOCX s nulovou velikostí?
??? ??? atd.

Vyhledávání spustíš pravím tlačítkem myši.
Datové soubory jsou jen na ukázku vč. obrázků.

V listu Vyhledat stiskneš pravím tlačítkem myši a objeví se vyhledávací formulář stiskneš třeba 00001 a zobrazí se daný výsledek.
Obrázek ID apod.... jenom že ten zbytek jak je Ulice, číslo popisné a pod.... se nechce zobrazit v tom.

V makrech Modules dále ModFunctions nahoře zadáš cestu k dané složce.

Pišťáčková

Proč nepožádáš o úpravu autora těch maker? Evidentně to není Tvoje práce.
Možná to bude rychlejší, než když se tu bude někdo těmi kódy prokousávat.

Protože nevím kdo to udělal Stahla jsem to s internetu.
A jen to potřebuji upravit tak aby to zobrazilo i ten zbytek.
Ani mě nevadí, že to je pomalé, ale splňuje to to co potřebuju.

Pištáčková

Řeknu to zcela upřímně. Je vidět, že se v tom souboru angažovalo několik lidí (CZ-SK) a opravdu se mi nechce celý kód studovat.
Nechápu ani přítomnost (význam) skrytých listů.
Upravil sem akorát velikost pole v jedné proceduře a vypadá to, že nyní se do listu vkládají požadované informace. Rychlost ani vkládání obrázků sem neřešil (netestoval).

Moc ti děkuji
Šlo by stou rychlostí něco udělat?
Popřípadě vše upravit

Aby to bylo rychlejší.

Pišťáčková

Můžeš mi, prosím napsat kdes to upravil?
Hledala jsem to a nemůžu to najít.
Jelikož jsem ti poslala jen Vzor sešitu ten hlavní s daty mám a nijak mě to nejde.
Stále to neukazuje.

Jen potřebuji vědět kde a co mám upravit, abych to mohla v mém originálu upravit.

Moc Děkuji
Pišťáčková

Procedura je přímo v UserFormu, konkrétně je to tato:

Private Sub ListBox1_Click()
   Dim r As Long, RL As Long, WSV As Worksheet, Priznak As Boolean, Link As String, DP()
   Set WSV = Worksheets("Vyhledávání")
   With ListBox1
     r = WorksheetFunction.Match(.Column(0, .ListIndex), Worksheets("Data").ListObjects(1).DataBodyRange.Columns(1), 0)
     On Error Resume Next
     RL = WorksheetFunction.Match(.Column(3, .ListIndex), WSV.Cells(1, 6).Resize(WSV.Cells(Rows.Count, 6).End(xlUp).Row).Value, 0)
     Priznak = True
     If Err <> 0 Then RL = ActiveCell.Row Else Priznak = Not (MsgBox("Jeden záznam se shodným RČ je již vložen." & vbNewLine & vbNewLine & "ANO - Ponechat vložený záznam" & vbNewLine & "NE - Nahradit vložený záznam novým", vbYesNo) = vbYes)
     If Priznak Then
       ReDim DP(1 To 1, 1 To 27)
       DP = Worksheets("Data").ListObjects(1).DataBodyRange.Rows(r).Value
       With WSV
         DP(1, 12) = "=IFERROR(HYPERLINK(DIREXISTS(B" & RL & "),DIREXISTS(B" & RL & ",FALSE)),"""")"
         .Cells(RL, 2).Resize(, 27).Value = DP
       End With
     End If
   End With
   Unload Me
End Sub

Změna byla provedena na těchto řádcích:
ReDim DP(1 To 1, 1 To 27)
.Cells(RL, 2).Resize(, 27).Value = DP

Původní hodnota byla 14

Děkuji

V editore visual basicu.
Veď si predsa pozerala a tvorila formulár podľa stránok Lasákovic...
V prehliadači projektu máš modul makier a modul formulára, do ktorého sa píšu procedúry spojené s udalosťami formulára...
V rámci modulu formulára máš dve možnosti zobrazenia:
- vzhľad a tvorbu samotného užívateľskēho interface
- zápis kódov procedúr udalostí formulára a toto je to miesto, kam patrí tá oprava od Sikiho...
Formulár totiž nestačí "nakresliť", treba ho aj oživiť kódmi, čo ktorý prvok má robiť.

Na zobrazenie kódu formulára máš ikonu v ľavom hornom rohu prehliadača projektu...