Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  16 17 18 19 20 21 22 23 24   další » ... 69

marjankaj napsal/a:

Keď tak na to pozerám stačilo vyhodiť ten RANGE.
Workbooks(zdrojSesit).Worksheets(zdrojList).Range(Cells(1, 1), Cells(122, 34)).Copy _

Workbooks(cilSesit).Worksheets(cilList).Cells(1, 1)


Jak se to vezme.
Ano kód bude funkční, ale pouze za předpokladu, že zdrojový list bude aktivní.

V případě cells(1,1).resize .....
na tom nezáleží
viz soubory

marjankaj napsal/a:

Stalker napsal/a:Pokud chci vybrat oblast dá se použít tento zápis Range(Cells(1, 1), Cells(122, 34)), i když bych spíše volil
Range("A1").Resize(122, 34)
nebo
Cells(1,1).Resize(122, 34)

Nebo si stojím na vedení?
A skúšal si to? Tiež by to malo hodiť chybu.


Zkoušel a projde bez problému, ani nemusí být aktivní zdrojový list.

Sub qq()
Workbooks("zdrojSesit.xlsm").Worksheets("zdrojList").Cells(1, 1).Resize(122, 34).Copy _
Workbooks("cilSesit.xlsx").Worksheets("cilList").Range("A1")
End Sub

Začátečník napsal/a:


náhradou Range("A1:AH122") za Range(Cells(1,1),Cells(122,34))) zhavaruje?
Range(Cells(1,1)) není až taková zhovadilost, ale souhlasím, postačuje Cells(1,1)


Protože Range(Cells(1,1),Cells(122,34)) projde a zhavaruje to právě na Range(Cells(1,1))

marjankaj napsal/a:

No ja tento zápis používam a funguje. Má to využitie v cykloch. Iba v tomto prípade s COPY to nefunguje.


Jakože používáš např Range(Cells(i,1)) ?

No není mi jasný proč bych měl jednu buňku tedy např. cells(1,1) ještě balit do range? Vždiť stačí uvest jen cells(1,1).

Pokud chci vybrat oblast dá se použít tento zápis Range(Cells(1, 1), Cells(122, 34)), i když bych spíše volil
Range("A1").Resize(122, 34)
nebo
Cells(1,1).Resize(122, 34)

Nebo si stojím na vedení?

Začátečník napsal/a:

Už jsem se smířil s chybou v MSO2007 a s prostým Copy -> Paste


O Žádnou chybu se nejedná. Jde o to, že sešit a list ze kterého se provádí copy MUSÍ být vždy aktivní na cíli (Destination) nezáleží. Sešit do kterého se má kopírovat musí být samozřejmě otevřen.

Zápis musí být ve tvaru jaký uvádí marjankaj, protože Range(Cells(1,1)) je zhovadilost.

Začátečník napsal/a:

Bláhově jsem se domníval, že Range(Cells(1, 1), Cells(122, 34)) === Range("A1:AH122").


Range(Cells(1, 1), Cells(122, 34)).Select

Vybere jakou oblast?

A co takhle použít resize, místo toho fujtajblu.

???
https://www.youtube.com/watch?v=tGY70sdpaLc
https://www.youtube.com/watch?v=faPSXNkU1Y0

Jaj, sorry. Tu interpunkci v názvu makra sem vůbec nezaznamenal, moje chyba. Jak už tu zaznělo do kódu něco takového nepatří, což sis sám ověřil v praxi.

https://exceljet.net/formula/count-unique-text-values-with-criteria

Upraveno, otestuj.

Frida napsal/a:

.. myslíte si, že bych Vás mohl poprosit i o naprogramování makra na "vymazání"?....


Jo klidně, ale musím vědět, které buňky se mají vymazat.
Ve kterých se má nastavit defaultní hodnota a jaká.

Z toho kódu co je v přiloženém souboru mi to bohužel není jasné.

Buď detailně popsat, které buňky (rozsahy buněk), nebo přiložit vyplněný formulář a potřebné vyznačit (např barvou písma...)

Vyzkoušej tento soubor. Řešil sem jen makro na archivaci.

Makrem

wsNew.PasteSpecial (xlPasteValues)


Strana:  1 ... « předchozí  16 17 18 19 20 21 22 23 24   další » ... 69

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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

microsoft 365 hlaska sharepoint

jano1 • 20.7. 16:59

Názvy z řádků do sloupců Power Query

Alfan • 19.7. 13:49

Názvy z řádků do sloupců Power Query

lubo • 19.7. 12:24

vyhledání obsahu buňky

vfort • 18.7. 11:22

Názvy z řádků do sloupců Power Query

Alfan • 18.7. 10:01

Tlac 2 roznych tabuliek

loksik.lubos • 17.7. 20:43

Týden v roce

Petr92 • 16.7. 15:34