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

Příspěvky uživatele

Opičáka musím pochváliť za pekný vzorešek

Do Msgboxu obrázok nevložíš, budeš musieť použiť userform emulujúci jeho funkciu.

postup, ktory sa osvedcil mne:
pokial je v zdrojovom subore (napr. data z webu apod.) pouzity ako oddelovac desatinneho miesta bodka a ja ho mam v exceli nastaveny na ciarku, tak:
skopirovat data do clipboardu, vlozit do notepadu
nasledne v notepade ctrl+a, ctrl+c a do excelu ctrl+v
data tym padom dostanes v exceli do jedneho stlpca
v dalsom kroku data v exceli rozdelis pomocou textu do stlpcov (text to columns), kde si v priebehu prevodu do stlpcov urcis ako oddelovac desatinnu bodku, format datumu atd.

No dokument poslat nemohu jedná se o citlivá data
Nedá mi, musím reagovať. Po zhliadnutí uvedeného "vysvetlenia" nemám pochopenie pre nikoho, kto je ochotný radiť. Vytvor vzorový súbor, "citlivé" dáta z neho predsa odmazať dokážeš!

(na test numerickej hodnoty je vo VBA funkcia IsNumeric)

Da sa to riesit sposobom, ktory naznacil RomanNTA - zmenou narodneho prostredia v ovladacich paneloch; v zalozke formaty nastavit aktualny format na Anglictinu. Restart PC nie je nutny, staci zavriet a znovu otvorit predmetny subor v exceli.

u mňa to funguje korektne XL2010 anglický, na XL2010 v českom nemôže byť problém, stačí sa riadiť tým, čo píše eLCHa. K tomu druhému problému s tým zoznamom dodávateľov som ti v súkromnej správe odpovedal, tak si to oprav podľa návodu a malo by to fungovať

myslel som jazykovú verziu.

v 2010 IFERROR funguje, ale pokiaľ nemáš anglickú verziu, tak VLOOKUP si musíš preložiť (v českej je to SVYHLEDAT)

aku mas verziu excelu?

prispevok som zeditoval, pozri na posledny odstavec

pmn vymyslas zbytocne veci, staci obycajny VLOOKUP (SVYHLEDAT)
Ale pokial trvas na makre, tak do kodoveho okna harku 1 vloz:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$9" Then
[F10] = WorksheetFunction.VLookup(Target, Sheets("Dodavatelia").Range("A:D"), 2, 0)
[F11] = WorksheetFunction.VLookup(Target, Sheets("Dodavatelia").Range("A:D"), 3, 0)
[G14] = WorksheetFunction.VLookup(Target, Sheets("Dodavatelia").Range("A:D"), 4, 0)
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [F9].Value = "" Then
[F10,F11,G14] = ""
End If
End Subcast Worksheet_SelectionChange osetruje pripad, kedy vymazez z bunky F9 dodavatela (ale musis potvrdit enterom)

edit: vlastne, ty nepises, ze chces makro, cize vzorec pre F10: =IFERROR(VLOOKUP('Objednavka textova'!F9:H9; Dodavatelia!A:D; 2; 0); "")do tych dalsich buniek si uz doplnis..

no, mne bolo hneď podozrivé, že by som zrovinka Tebe mohol nejako poradiť, mám za to, že v tejto problematike si o dosť ďalej, než ja, tak neostáva, než držať palce, aby si ten problém nakoniec zlomil..

jde o to, že třeba v souboru "Měření 5.12.2013" je datum i ze 4.12.2013, takže je nutné je zařadit do přehledu v Sešit2.xls o den dřív.

však to si KT ošéfuje sama. Proste, data z jednotlivých dní, t.j. data z jednotlivých csv kopíruj úplne primitívne pod seba, štruktúra dát v jednotlivých csv je rovnaká, čiže žiadny problém. No a nad takto zoskupenými datami vytvor kontingenčnú tabuľku, kde dátumy použi ako column labels (záhlavia stĺpcov). Vstupné dáta z jednotlivých csv dokonca ani nemusíš striasť na jednu hromádku, KT sa môže dotazovať do rôznych zdrojových oblastí http://www.contextures.com/xlPivot08.html

No a? Z toho vyplýva nejaký problém? Stále nerozumiem.
ID bude vyplnené pre každý záznam, alebo nie? Daj sem vzor vstupu, tak, ako to bude reálne vyzerať, takto strieľam trochu naslepo..

daal, a uspokojíte moju zvedavosť tým, že mi odpoviete na otázku?

Pokiaľ bude v stĺpci A vždy zapísané ID, tak ja naopak nerozumiem tomu, prečo by tomu akože nemala rozumieť KT...

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje