< návrat zpět

MS Excel


Téma: nactení hesla do bunky z externího souboru rss

Zaslal/a 4.4.2020 21:51

Dobrý den,
v označených buňkách, pokud se napíše heslo, zobrazí se konkrétní jméno. Jména i hesla jsou na listu 2. Potřeboval bych upravit kod tak, aby hesla byla uložena v samostatném excelovém souboru.
Děkuji.
Martin.

Příloha: zip46362_heslo-do-bunky.zip (18kB, staženo 22x)
Zaslat odpověď >

#046367
elninoslov
Príklad. Ale už to nemôže byť ako Tabuľka, ale len tabuľka. Nefunguje totiž potom externý def. názov.
Příloha: zip46367_vlookup-zatvoreny-subor.zip (23kB, staženo 28x)
citovat
#046371
avatar
Dobrý den, děkuji za pomoc. Funguje tak jak jsem si představoval. Jen bych měl ještě jednu prosbu, bylo by možné progrma upravit tak, aby pokud se zadá heslo které není v tabulce, aby se v patřičné buňce objevil nápis "neplatné heslo". Děkuji.
Martin.citovat
#046372
elninoslov
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zmena As Range, Bunka As Range, Area As Range, Hodnota

Set Zmena = Intersect(Cells(4, 2).Resize(, 14), Target)

If Not Zmena Is Nothing Then
Application.EnableEvents = False

For Each Area In Zmena.Areas
With Area
For Each Bunka In .Cells
Hodnota = Bunka.Value
If Len(Hodnota) > 0 Then Bunka.Formula = "=IFERROR(VLOOKUP(" & Hodnota & ",'" & ThisWorkbook.Path & "\hesla.xlsx'!HESLA,2,FALSE),""neplatné heslo"")"
Next Bunka

.Value = .Value
End With
Next Area

Application.EnableEvents = True
End If
End Sub
citovat
#046375
avatar
Díky, funguje tak jak má.
M.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje