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

MS Excel

Téma: automaticke doplnenie buniek

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: 17138_objednavky.zip (50kB, staženo 29x)

Zaslat odpověď >

---

Strana:  1 2   další »

AL(10.1.2014 8:38)#017139

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

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

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

AL(10.1.2014 8:52)#017142

prispevok som zeditoval, pozri na posledny odstaveccitovat

mirec314(10.1.2014 11:07)#017150

AL ta funkcia IFERROR mi hadze chybu #NAZOV? citovat

AL(10.1.2014 12:26)#017154

aku mas verziu excelu?citovat

mirec314(10.1.2014 12:27)#017155

skusal som to v 2003 aj 2010. v oboch verziach ta ista chybova hlaskacitovat

AL(10.1.2014 12:33)#017157

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

eLCHa(10.1.2014 12:51)#017160

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse