< návrat zpět

MS Excel

Téma: automaticke doplnenie buniek rss

Zaslal/a mirec314 10.1.2014 7:43

Dobry den vsetkym.
V subore objednavky.xls mam v harku DODAVATELIA zoznam firiem s Adresou, Mestom a ICO.
Potrebujem docielit to, ze ked v zosite OBJEDNAVKA TEXTOVA vyberiem z rozbalovacieho zoznamu nazov firmy /bunka F9/, tak sa do tej objednavky automaticky doplni prislusna Adresa, Mesto a ICO z harku DODAVATELIA.
Dakujem velmo pekne.

Příloha: zip17138_objednavky.zip (50kB, staženo 31x)
Zaslat odpověď >
Strana:  1 2   další »
icon AL(10.1.2014 8:38)#017139
avatar
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..citovat
Palooo(10.1.2014 8:47)#017140
avatar
alebo to urobit cez funkciu
Function cucajData(ByVal aFind As String, ByVal aPosition As Integer) As String
cucajData = WorksheetFunction.VLookup(aFind, Sheets("Dodavatelia").Range("A:D"), aPosition, 0)
End Functioncitovat
mirec314(10.1.2014 8:49)#017141
avatar
Ja netrvam na makre ani to nechcem komplikovat. Praveze by som bol rad keby to bolo co najjednoduchsie. Rad si necham poradit. Len si potrebujem ulahcit pracu aby som nemusel prepisovat rucne adresy,mesto,ico....citovat
icon AL(10.1.2014 8:52)#017142
avatar
prispevok som zeditoval, pozri na posledny odstaveccitovat
mirec314(10.1.2014 11:07)#017150
avatar
AL ta funkcia IFERROR mi hadze chybu #NAZOV? 7citovat
icon AL(10.1.2014 12:26)#017154
avatar
aku mas verziu excelu?citovat
mirec314(10.1.2014 12:27)#017155
avatar
skusal som to v 2003 aj 2010. v oboch verziach ta ista chybova hlaskacitovat
icon AL(10.1.2014 12:33)#017157
avatar
myslel som jazykovú verziu.

v 2010 IFERROR funguje, ale pokiaľ nemáš anglickú verziu, tak VLOOKUP si musíš preložiť (v českej je to SVYHLEDAT)citovat
icon eLCHa(10.1.2014 12:51)#017160
eLCHa

AL napsal/a:

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


Poznámka:
psal jsm kdysi na excel plus
ve verzi 2010 je IFERROR v české lokalizaci přeložen - nějak CHYBHODN nebo tak něco (přesně to nevím).
Na to tenkrát reagoval p. Pecháček, že to bylo zase v nějakém patchi změněno. Takže možná má uživatel verzi před patchem ;)))
Bohužel odkaz nemohu poskytnout.citovat
mirec314(10.1.2014 12:52)#017161
avatar
mam ceske verzie ale aj po zmene na SVYHLEDAT mam stale tu istu chybu. ale aj tak som narazil na problem ktory ma nuti to cele riesit inak kedze zoznam dodavatelov potrebujem priebezne doplnat a ten je uzamknuty z dovodu zoznamu pre rozbalovaciu ponuku.citovat

Strana:  1 2   další »

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