Příspěvky uživatele

Díky, funguje tak jak má. Ale zjistil jsem, že aktivní buňky můžou být buňky jen v tabulce. Je možné to upravit tak, aby aktivní bunky mohly být po celém listu?
Děkuji.

Martin.

Dobrý den,
obracím se na Vás s jednou prosbou. Mám tabulku (soubor data.xlsm), kde se zapisují data (žluté pole, dvě pole pro jedno jméno). Po zapsání dat, se zapíše do řádku heslo a na základě hesla se automaticky přiřadí jméno z tabulky hesla.xlsx. Potřeboval bych,
aby se po zobrazení jména automaticky zamkly dvě bunky s daty. Po smazání jména, aby se bunky zase odemkly (tzn. když v bunce pro heslo bude jméno s tabulky pro hesla, tak budou bunky zamklé, když v bunce pro heslo nebude nic, tak bunky budou odemklé). V příloze je soubor data.xlsm a hesla.xlsx
Děkuji.
Martin.

Díky za pomoc. Funguje tak jak má.
Mějte se.
M.

Omlouvám se, už by to tam mělo být i s přílohou...

Dobrý den,
obracím se na vás s jednou prosbou. Mám excelový soubor, kde mám tři listy:
data (1)..............karta pro zápis 10 hodnot
přidání nové karty....tlačítko, které přidá novou kartu data (n)
Souhr.................list, kde se počítá průměr z hodnot ze všech karet.

Potřeboval bych, aby se po přidání nové karty a zapsání hodnot do nové karty,
tyto hodnoty automaticky započítaly do průměrné hodnoty v listě Souhr.
V příloze posílám soubor.
Děkuji
Martin.

Díky, funguje tak jak má.
M.

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.

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.

Dobry den mepexg a marjankaj, děkuji za pomoc, funguje tak jak potřebuju. Omlouvám se za přílohu typu obrázek, neuvědomil jsem si, že je jednoduší poslat přímo xls soubor z důvodu přepisování. Příště bych Vás prosil o upozornění,rád přílohu upravím tak, aby byla co nejvýhodnější. Ještě jednou díky. M.

mepexg, díky za pomoc, přesně to jsem potřeboval. bohužel, ještě bych potřeboval poradit v případě pokud tabulka pokračuje dál a znovu se opakuje vyhodnocení. tzn. potřebuji celkem určit 4 čísla:
C24: Poslední číslo před "x" vyhodnocené jako "-" (žlutě označené číslo)
C25:První číslo po "x" vyhodnocené jako "+". (zeleně onačené číslo)
C26:Poslední číslo před "x" vyhodnocené jako "+" (modře označené číslo)
C27: První číslo po "x" vyhodnocené jako "-" (oranžově označené).
Děkuji.
Martin.

Dobrý den,
rád bych Vás požádal o pomoc. Mám tabulku se dvěma sloupci. V prvním sloupci jsou čísla seřazené od nejmenšího po největší, a v druhém sloupci je vyhodnocení ve formě "-"; "x" ; "+". Potřeboval bych např. do buněk C15, C16 dostat:
bunka C15: Poslední číslo před "x" vyhodnocené jako "-" (žlutě označené číslo)
bunka C16: První číslo po "x" vyhodnocené jako "+". (zeleně onačené číslo)
Děkuji za pomoc
Martin.

Dobrý den,
ještě se vracím k tématu "heslo do bunky". Nyní mám program, kde po napsání hesla se přiřadí jméno. Tabulka s hesly a jmény je definovaná v listu, který je součástí excelového souboru. Potřeboval bych ale mít hesla jako zvlášt soubor a s tohoto souboru jména a hesla načítat.
Děkuji za Vaši pomoc.
Marv.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Jmena() As String, Jmeno As String, i As Byte, Zmena As Range, Bunka As Range, Area As Range, Hladaj As Range

Set Zmena = Intersect(Cells(20, 2).Resize(, 22), Target)
If Not Zmena Is Nothing Then
Application.EnableEvents = False
Set Hladaj = ws_Hesla.ListObjects("tblHesla").DataBodyRange
On Error Resume Next
For Each Area In Zmena.Areas
With Area
ReDim Jmena(1 To 1, 1 To .Cells.Count)
i = 0
For Each Bunka In .Cells
i = i + 1
Jmeno = WorksheetFunction.VLookup(Bunka, Hladaj, 2, False)
Jmena(1, i) = IIf(Err.Number = 0, Jmeno, Empty)
Err.Clear
Next Bunka

.Value = Jmena
End With
Next Area

Application.EnableEvents = True
End If
End Sub

díky, to je přesně to co jsem potřeboval.
M.

díky moc, to je přesně to co potřebuji. ještě jedna věc, potřeboval bych to rozšířit na určitou oblast, např. B4:O4. Zkoušel jsem to upravit oblasti, ale nějak se nedařilo. Můžu ještě poprosit o radu?
Díky.
M.

vypadá to dobře, ale potřebuji to v aby to bylo v té jedné bunce. I tak moc díky za pomoc.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje