• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

kucí super, ale já jsem pisal že potřebuji pracovat s "obsahem bňky" ne s nazvem buňky.

to marjankaj: =ADDRESS(MAX(IF(data="";0;ROW(data)));1;1) - tohle mi nějak nefungovalo

to Opičák: =ODKAZ(MAX(ŘÁDEK(data)*(data<>""));SLOUPEC(data)) - thole mi vrací název Buňky ne obsah buňky

ano samozřejmě je to pojmenovaná oblast. Super díky všem

Hoj excel gurové mám takovou hloupou otázečku jak můžu pomocí vzorečku vyhledat poslední buňku ve sloupci, která obsahuje data (potřebuji s tím obsahem dále pracovat). Protože se mi buňky dynamicky vyplňují a nikdy nevím, která buňka bude poslední. Zkoušel jsem maticový vzorec: {=INDEX(data;MAX(KDYŽ(data<>"";ŘÁDEK(data))))} tento, ale nějak mi nefachčí.
Děkuji za rady

tady je funkční soubor, ale musíš si jej doopravit

jukni sem

http://wall.cz/index.php?m=topic&id=13061&r=1&autolast#post-13065

já jsem tu řešil něco takového, potom jen přepiš tutuo metodu takhle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim oblast As Range
Dim Cancel As Boolean
Dim formular As UserForm1
Dim datum
Dim dat As String



Set oblast = Range("A1:A41")

'paby to fungovalo jen pro vymezenou oblast
If Intersect(Target, oblast) Is Nothing Then Exit Sub

'zrušení výběru buněk, které by za normálních okolností byly vybrany
Cancel = True

'If Target.Column = 1 And (Target.Row >= 4 And Target.Row <= 41) Then

If Target = "" Then
UserForm1.Show
datum = Range("O1").Value
Dim den, mesic
den = Day(datum)
mesic = Month(datum)

If den < 10 Then
den = "0" & den
End If

If mesic < 10 Then
mesic = "0" & mesic
End If

dat = mesic & "/" & den 'tady je změna a pak to funguje ok sice netuším proč, ale mě to šlape
Target.Value = dat
End If

End Sub

hm tak jsem to vyřešil, přehodil jsem měsíc s dnem a ono to fachčí

tak to můžeme lock

AL - tak jsem to zkusil, ale bohužel mi to nefunguje.
Problém je že netuším jak si deklarovat globální proměnnou, která bude dostupná odevšad. Proto to ukládám v této metodě do buňky "O1", ta je jen pomocná
Private Sub Calendar1_Click()
datum = UserForm1.Calendar1.Value
MsgBox (datum)
Range("O1").Value = CDate(datum)
Unload Me
End Sub
a jen tak mezi řečí v té buňce "O1", tak tam se mi datum zobrazuje správně, ale ne už tam kde chci v buňkách "A4:A41" tam mi to přehazuje datum a vůbec netuším proč.

tu proměnnou bych potřeboval přenést sem do této metody,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
....
...
End Sub

prostě po kliku ve formu na datum potřebuji aby se mi v buňce "A4:A41" zobrazil datum v mnou požadovaném formátu tzn.: "dd/mm" a toto mi nějak nejde.

Už tuším proč se mi v hlavě ozývá hlas, který křičí že má hlad. To bude můj mozkožrout, který umírá hlady

čest kucí prosím o pomoc jukněte na přílohu. Když kliknu do buňky tak chci aby se mi zobrazil kalendář kde si vyberu datum a to aby se mi zaneslo do buňky ve formátu "dd/mm" to znamená že datum 1.1.2013 se zapíše jako "01/01", mi se zdá že vše fachčí ok, ale výsledek se mi přehazuje měsíc s dnem, ale dle krokování bych měl mít vše ok tak už netuším kde se tesař utnul díky za každou radu

Toto zadání je příliš složité

a co tohle je to jen pomocí vzorečků a podmíněného formátování

a co takhle dát každý ceník na jiný list a po zadání hesla A se uloží list_01 a při zadání hesla B se uloží list_02 a původní ceník se vymaže, teda tady si nejsem jistý jestli se dokáže sešit sám vymazat

Samotné office jsou dost děrvé dostat se do kodu není žádný problém. Kdyby jsi toto dělal přez c# nebo visual basic dalo by se to lépe ochránit.
Jak pise dream2003.

co tak cikly? for next

můžem to zamknout už sem to vyřešil

a hlavně se to nedá v tomto stavu bezpečně ochránkt dá se to otevřít

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje