Příspěvky uživatele
< návrat zpět
Samozřejmě, že to jde. A kdybyste to řekl hned na začátku a vložil přílohu, jak to má vypadat, tak už vám to dáno funguje.
Do makra vložte ještě jednou příkaz pro kopírování, jen změňte číslo 1 ( sloupec A) za číslo 2 ( sloupec B): Worksheets("List2").Cells(j, 1) = Worksheets("List1").Cells(i, 1).Value
Worksheets("List2").Cells(j, 2) = Worksheets("List1").Cells(i, 2).Value
Tak snad to zvládnete
Nic se mi nechce vymýšlet, tak jen takhle jednoduše:
Pokud se má kopírovat sloupec A na základě B, tak v příkazu if nahraďte číslo 1 číslem 2 If Worksheets("List1").Cells(i, 2).Value > 0 Then
Tak potom doplnit arrCil(16) = Range("D69")
Vyzkoušejte.
Dotaz:
1. Artikl je to samé co název výrobku?
2. Kde zjistím jméno "Cenovou nabídku zpracoval"?
Také bych za první if zapsal Not. Tím mi odpadne použití else: If Not Intersect(Target, Range("A1:M20")) Is Nothing Then '
If Target.Value = "m" Then
MsgBox "zapísané ""m"" "
End If
End If
Místo tohoto: If Range("A1:M20").Value = "m" Thenzapište toto: If Target.Value = "m" Then
Já myslel, abyste vložil ten soubor, kde vám vyskakuje chyba. Tady v tomto uvedené makro není.
Nicméně, doplnil jsem jej. U mě to funguje.
Vložte ten svůj originál (klidně bez dat) jako přílohu (zazipovanou).
http://wall.cz/index.php?m=topic&id=34094
https://pc-help.cnews.cz/viewtopic.php?t=202702
https://www.xlsm.cz/blog/automaticke-spousteni-makra-v-urcity-cas/
https://office.lasakovi.com/excel/vba-triky/automaticke-spusteni-makra-casem-Excel-VBA/
https://exceltown.com/navody/makra/vba-zajimave-ukazky-maker/spusteni-makra-v-urcity-cas/
Pokud budete ještě někdy měnit umístění, můžete si novou pozici nastavit přímo v makru.
Nějak takhle?
Podle popisu mi to příjde, že jsou oba listy stejné.
Jak píše @MePExG, chtělo by to příklad.
George007 napsal/a:
... IDEÁLNĚ NĚJAK RUČNĚ, NE MAKREM.
lubo napsal/a:
např. do R2:=KDYŽ(A(Y$1>=$B2;Y$1<=$C2);MIN($E2-8*(Y$1-$B2);8);"")
=KDYŽ(A(R$1>=$B2;R$1<=$C2);MIN($E2-8*(R$1-$B2);8);"")A samozřejmě pak rozkopírovat do celé tabulky R2:V11.
Jinak pěkná práce.
Uživatelské menu
\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