Excel oprava maker

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).

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...