Asi nemám den. Na co se ptáte?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: SVYHLEDAT a rozevírací seznam
MS Excel
Téma: SVYHLEDAT a rozevírací seznam 
Zaslal/a TLOU 17.10.2017 10:48
Používám klasiku - svyhledat na číslo zboží a cenu. U některého zboží jsou ale ceny dvě nebo tři ve zdrojových datech pomocí rozevíracího seznamu. Lze nějak přesunout ten rozevírací seznam i do cílových dat?
Díky za pomoc.
Příloha: 
37997_test.xlsx (11kB, staženo 34x)
37997_test.xlsx (11kB, staženo 34x)(17.10.2017 13:59)#038016
Bez makra tazko a v pripade makra to uz nebude svyhledat. Nastrel makra:Sub AssignPrice()
Dim srcRng As Range, tgtRng As Range, cell As Range, copyWhat As Range
Set srcRng = [I1].CurrentRegion
Set tgtRng = [A1].CurrentRegion
Set tgtRng = tgtRng.Offset(1, 0).Resize(tgtRng.Rows.Count - 1, 1)
For Each cell In tgtRng.Cells
On Error Resume Next
Set copyWhat = srcRng.Cells(WorksheetFunction.Match(cell, srcRng.Columns(1), 0), 2)
On Error GoTo 0
If Not copyWhat Is Nothing Then copyWhat.Copy cell.Offset(0, 1)
Set copyWhat = Nothing
Next cell
End Subcitovat
Dim srcRng As Range, tgtRng As Range, cell As Range, copyWhat As Range
Set srcRng = [I1].CurrentRegion
Set tgtRng = [A1].CurrentRegion
Set tgtRng = tgtRng.Offset(1, 0).Resize(tgtRng.Rows.Count - 1, 1)
For Each cell In tgtRng.Cells
On Error Resume Next
Set copyWhat = srcRng.Cells(WorksheetFunction.Match(cell, srcRng.Columns(1), 0), 2)
On Error GoTo 0
If Not copyWhat Is Nothing Then copyWhat.Copy cell.Offset(0, 1)
Set copyWhat = Nothing
Next cell
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Aktivní diskuse
Týden v roce
Petr92 • 16.7. 15:34
Řazení podle času v kategoriích
veny • 16.7. 11:34
špatný výpočet ze zisku - příčina?
Anonym • 12.7. 22:56
špatný výpočet ze zisku - příčina?
Jakoby • 12.7. 12:35
Řazení podle času v kategoriích
Marekh • 12.7. 9:55
Porovnávací Tabulka
Jess • 8.7. 20:49
Vzorec pro zkopírování obsahu buňky.
veny • 6.7. 8:28
RSS nejnovější články