Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Excel VBA pomoc se vzorcem

Dobrý den, mám vzorec VBA a potřebuji, aby se to samo aktualizovala.
Vyhledává obrázek když do buňky F5 pomocí svyhledat se vyhledá číslo např.: 002 tak to vyhledá obrázek
ale neaktualizuje se to samo. Můžete mi, prosím pomoci, aby to aktualizovalo samo.

Děkuji

Vzorec je:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$F$5" Then
    Dim N As String
    Const Cesta = "F:\002. Fotky Osobností\"
    N = Cells(5, 6)
    If N <> "" Then
      N = Cesta & N
      Select Case True
        Case Len(Dir(N & ".png")) > 0: Call ZmenObrazok(N & ".png")
        Case Len(Dir(N & ".jpg")) > 0: Call ZmenObrazok(N & ".jpg")
        Case Len(Dir(N & ".gif")) > 0: Call ZmenObrazok(N & ".gif")
        Case Len(Dir(N & ".bmp")) > 0: Call ZmenObrazok(N & ".bmp")
      End Select
    Else
      Shapes("imgHDD").Fill.Solid
    End If
  End If
End Sub

Private Sub ZmenObrazok(S As String)
  Shapes("imgHDD").Fill.UserPicture (S)
Jsou zobrazeny jen nové odpovědi. Zobrazit všechny
Předmět Autor Datum
Děkuji, už jsem to vyřešil. =OBR_Z_VYHLEDANI a funguje to. Díky za radu. Jen tak pro pořádek: inde…
Siki83 21.09.2016 21:11
 Siki83
Aj sa mi to zdalo nejake pokrocile... ;-) nový
robert13 22.09.2016 06:26
 robert13
Siki, takže časopriestorový skokan Eilsa to už vyriešil... :-) nuž... proste hľadal, kde sa dá... Al… nový
robert13 22.09.2016 09:03
 robert13
nuž... proste hľadal, kde sa dá... Můj příspěvek možná vyzněl jinak než byl zamýšlen. Ale jó, já mu… nový
Siki83 22.09.2016 21:32
 Siki83
naviac žiadny OBR_Z_VYHLEDANI v tejto poradni nikde vo svojom vzore nemal, nenašiel som ho nikde...… poslední
robert13 22.09.2016 21:36
 robert13

Siki,
takže časopriestorový skokan Eilsa to už vyriešil... :-)
nuž... proste hľadal, kde sa dá... Ale tie vysvetlenia požiadaviek, či už tu alebo tam, sú neskutočne zmätočné... Terminológia a chápanie mimo...

Bolo zrejmé, že je to sotva jeho výtvor, s takými formuláciami požiadaviek ťažko čosi takého mohol vytvoriť, ale ok... Lenže takýmto prístupom bude večne odkázaný na zlepence čiastkových riešení z rôznych strán...

Etkin, to je pre Teba.
(ak si sa už vrátil pozrieť i sem z Wall...)
Ak sa tomu ozaj chceš venovať, začni štúdiom základov Office, aby si vedel vôbec pomenovať prvky a nástroje týchto programov. Potom by bolo fajn trocha viac sa oboznámiť s funkciami Excelu a potom, ako ďalší krok, sú základy VBA. Až potom môžeš chcieť ako-tak rozumieť makrám.

Alebo Ti nevadí sa zas a znova, bez pokroku, pýtať amatérske dotazy bez toho, aby si vlastne vedel vysvetliť, o čo Ti ide? (trebárs ako má Eilsa vysvetliť, že akú ikonu chce kam vlastne vložiť)? Ak sa tomu chceš venovať, tak musíš zmeniť prístup. Inak je to k ničomu...

nuž... proste hľadal, kde sa dá...

Můj příspěvek možná vyzněl jinak než byl zamýšlen.
Ale jó, já mu to neberu. Sám mám na různých fórech jiný nick. Kdyby napsal

už jsem to vyřešil.

tak si toho ani nevšimnu, ale tohle

=OBR_Z_VYHLEDANI a funguje to.

mě prostě praštilo do očí, tak sem kouknul "vedle". Kdyby alespoň vlepil celý kód nebo napsal, už sem to vyřešil jinde a dal odkaz.
Trefil by mě šlak, když něco hledám na fórech kde je ve vlákně spousta návrhů a nakonec se dozvím jen suché konstatování VYŘEŠENO :-/

Prostě sem vlepil odkaz i pro další, kteří se ve vlákně nějakým způsobem angažovali.

Zpět do poradny Odpovědět na původní otázku Nahoru