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:

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)

Mě to vychází 28


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