Môžete použiť Application.Transpose() namiesto cyklu. Má to iba obmedzenie na 32768 položiek. Veľkosť poľa zistíte pomocou Ubound() a Lbound(), prípadne veľkosť oblasti pomocou Rows.Count a Columns.Count. Skúste priložiť príklad v súbore.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: Přepis hodnot ze sloupce do řádku
MS Excel
Téma: Přepis hodnot ze sloupce do řádku 
Zaslal/a Jurasek 27.2.2020 15:22
Ahoj všem. Můžete mně prosím poradit?
V makru vytvářím v závislosti na novém měsíci nový list s tabulkou, do které vkládám hodnoty. Tyto hodnoty mám uložené ve sloupcích na stejném listě a pomocí cyklu chci hodnoty z těchto sloupců vkládat do řádků. Například ("AA1,AA10") do ("A1,J1"), ovšem všechny hodnoty(AA1,AA10;A1,J1) jsou zadány jako proměnné a v závislosti na cyklu se budou měnit. Toto makro proběhne vždy pouze jednou na začátku měsíce a výsledkem by mělo být to, že výsledné buňky budou spárované a pokud uložím kdykoli v měsíci novou hodnotu, tak se mně automaticky i ukáže v tabulce jako číslo. Děkuji moc za pomoc.
Dobrý den.
Přikládám můj kód. Myslím, že by to mělo jít i takto jednoduše, ale takto to nefunguje. když dám do kódu ActiveCell.FormulaR1C1 = "=R[-3]C[41]", tak to funguje. Ale ať se snažím, jak se snažím, jakmile to nahradím za proměnné, tak mně to přestane fungovat. Moc děkuji za radu.citovat
Přikládám můj kód. Myslím, že by to mělo jít i takto jednoduše, ale takto to nefunguje. když dám do kódu ActiveCell.FormulaR1C1 = "=R[-3]C[41]", tak to funguje. Ale ať se snažím, jak se snažím, jakmile to nahradím za proměnné, tak mně to přestane fungovat. Moc děkuji za radu.citovat
46087_excel.png
Pošlite súbor Excelu, nie obrázok. Nemám predstavu takto dobrú predstavu ako vyzerajú a kde sú dáta. Zmažte nepotrebné a citlivé dáta, len zachovajte danú časť makra a vymyslené údaje na miestach presne kde sú, a kde potom majú byť. Celé Know-how nepotrebujem :)
Nevidím problém, prečo by to nemalo ísť.citovat
Nevidím problém, prečo by to nemalo ísť.citovat
Posílám soubor.
Je to v nedokončeném stavu a zmiňovaný problém, který jsem posílal jako obrázek je na konci kódu. Jde mně o to, že sice v záložce únor mám tabulku vyplněnou s momentálně nulama, ale jakmile dodám data do buněk, které jsem provázal s tabulkou, tak se mně hodnota v tabulce nepřepíše.citovat
Je to v nedokončeném stavu a zmiňovaný problém, který jsem posílal jako obrázek je na konci kódu. Jde mně o to, že sice v záložce únor mám tabulku vyplněnou s momentálně nulama, ale jakmile dodám data do buněk, které jsem provázal s tabulkou, tak se mně hodnota v tabulce nepřepíše.citovat
Nevím proč, ale i když soubor přiložím, tak nevidím, že odešel.citovat
Zkouška, jenom .xls
Příloha: 
46094_sledovani_zmetku-kopie.xls (495kB, staženo 20x)
citovat46094_sledovani_zmetku-kopie.xls (495kB, staženo 20x)Tak pokus se zazipovaným souborem. Snad to bude fungovat
Příloha: 
46097_sledovani_zmetku.zip (420kB, staženo 18x)
citovat46097_sledovani_zmetku.zip (420kB, staženo 18x)Zjednodušeně řečeno, jde mně pouze o to, abych udělal spárování buněk stejně, jak posílám v příloze, ale v kódu pro VB a místo pevně daných buněk, abych měl napsané proměnné.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články