Doplnění hodnot

[p.bublik]

Ahoj,
poradí prosím někdo jak doplnit hodnoty do prazdných buněk aniž bych do nich dopisoval funkci svyhledat?

Viz příloha.
Mám zde tabulku Boxů a potřebuji aby uvedené rozměry boxu v tabulce byly doplněny přímo do žlutě a zeleně označench políček. Problém je v tom že ve žluté a zelené bunce nechci vzorec protože hodnoty bude možní zadat i manuálně a tím je i přepsat.

[cmuch]

Jedině pomocí makra (VBA).

[p.bublik]

s tím jsem počítal a bylo by takové k mání?

[cmuch]

Třeba takto, makro vlož do modulu listu (Alt+F11) a přiřaď výběru.
Nejsou ošetřeny chyby (nenalezení hodnoty...)

Kód: Vybrat vše

Sub SetCellsValue()
  Dim KeyCells As Range, SearchCells As Range
  
  With ActiveSheet
    Set KeyCells = .Range("K4")
    Set SearchCells = .Range("L4:O7")
  
    .Range("D8").Value = Application.WorksheetFunction.VLookup(KeyCells, SearchCells, 3, False)
    .Range("E8").Value = Application.WorksheetFunction.VLookup(KeyCells, SearchCells, 4, False)
  End With
End Sub

[guest]

Potřebuju najít majitele trička, ale nechci použít psa. Tak převlékneme psa do kožichu medvěda a pošleme ho do lesa. Možná by stačilo naučit se nahradit vzorce jejich výsledky případně jinou hodnotou. Jenže makro je in, že jo. Asi by byl ze mě Igor Hnízdo.

[cmuch]

Možná by stačilo naučit se nahradit vzorce jejich výsledky případně jinou hodnotou.

To mě zajímá. Dík

[guest]

Doporučuju nastudovat CTRL+C, pravé tlačítko myši a Vložit jinak / Hodnoty.

[p.bublik]

děkuji za makro funguje, problém ale je v tom že musím pro každou změnu spustit makro ručně?

[cmuch]

Doporučuju nastudovat CTRL+C, pravé tlačítko myši a Vložit jinak / Hodnoty.

To sice jo, ale přijde zase o vzorec, nebo to špatně chápu?


To makro přiřaď tomu comboboxu přes pravé tlačítko.

[guest]

A já se ptám, na co potřebujete dlouhodobě udržovat vzorce?

[p.bublik]

Já jsem uváděl že nechci vzorec, že se bude jednat asi o makro, jen chci aby se do vybraných dvou buněk po výběru z nabídky vedle doplnila přednastavená hodnota (bud přímo v makru nebo z nějaké náhradní tabulky). Jedná se cca o 20 položek různých rozměrů s tím že bude možné do vybraných dvou buněk doplnit hodnoty ručně a ne pomocí výběru. Viz jak uváděl cmuch to makro to funguje dobře, ale pro každou změnu hodnot musím znovu pustit to makro :(

[cmuch]

Jak jsem psal výše, přiřaď toto makro výběrovému seznamu.
Potom po výběru hodnot se automaticky spustí makro, nebo potom nechápu.