MS Excel

ahoj, lze aktivovat makro kliknutím na buňku.
Pokud tu toto tému už jednou je, tak se omlouvám.
díky

elninoslov(15.9.2018 23:38)#041518

Ach áno, chybka v rýchlosti. Som to len tak napísal a netestol - opravené.

Napíšte čo sa má diať ak bude výber väčší ako jedna bunka. Kam sa majú kopírovať? Ak bude čas poriešime. Ak by bol ten súbor bolo by to najpriekaznejšie.

Páni xlnc a marjankaj sú tunajší matadory, nechcú Vám zle. Slovník sa každému páčiť nemusí, ale znalosti sú neodškriepiteľné.citovat

Zbygi(16.9.2018 8:34)#041520

posílám soubor co jsem v rychlosti spíchnul.
Tak to nějak má fungovat (již funguje jen díky vám-všem)
při výběru více buňek hází chybu. ještě budu hledat na GOOglu :), ale asi bude stačit aby při výběru více buněk byla brána v potaz jen ta první, nebo jen neprovést nic a počkat na nové kliknutí

Příloha: rar

41520_pokus.rar (15kB, staženo 28x)

citovat

elninoslov(16.9.2018 11:01)#041522

Toto Vám bude prenášať aj hodnoty z prípadných viac buniek v riadku. Berie sa do úvahy 1. riadok 1. označenej oblasti. Preklopí ju na stĺpec a zapíše na správne miesto. Len nerozumiem, načo tam v 2 stĺpcoch mažete nasledujúcu hodnotu a v 2 nie. To tak má určite byť ? Ak áno tak to urobíme inak.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngVyber As Range
Set rngVyber = Intersect(Range("F2:I7"), Target.Rows(1))
If Not rngVyber Is Nothing Then Cells(2, 4).Resize(rngVyber.Columns.Count).Offset(rngVyber.Column - 6).Value = WorksheetFunction.Transpose(rngVyber)
End Sub

Tie ďalšie dve makrá zjednodušte napr. takto:
Sub Makro1()
With ActiveSheet.Range("K1:K6").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Sub Makro2()
ActiveSheet.Range("F1").Copy ActiveSheet.Range("D1")
'alebo ak nepotrebujete prenášať formátovanie bunky tak stačí:
'ActiveSheet.Range("D1") = ActiveSheet.Range("F1")
End Sub

Teda všetko iba v prípade ak Vás chápem správne.citovat

Zbygi(16.9.2018 12:21)#041523

Úžasný.... a jednoduchý -mockrát děkuji (a chápete to velice dobře... i přes moje nedokonalé informace)
Ty další makra jsem jen něco zkoušel...
ve druhém a 4 sloupci se mažou data protože jsou právě závislá na změně 1 a 3 sloupce- tak že je nutné tyto data znovu zvolit

Jen se ještě zeptám pokud by sloupce ze kterých se data tahají nebyly všechny stejně dlouhé jak to mám pořešit?
V zadání teď mám "F2:I7", ale kdyby bylo F2:F6, G2:G20, H2:H5, I2:I20
a ještě by mohla být délka proměnná....citovat

elninoslov(17.9.2018 0:44)#041537

No tak snáď je to ono. Je to dynamické pre F2:I50. Podľa pravidla, ak je označenie v F alebo H, bez označenia nasledujúceho, tak nasledujúci maže, inak ho zapíše. To už také elegantné, pekné a krátke nieje. Vysporiada sa to snáď aj s presahmi, viacoblastnými výbermi, s meniacim sa počtom riadkov a pod.

Příloha: zip

41537_pokus.zip (19kB, staženo 34x)

citovat

Zbygi(17.9.2018 14:36)#041541

Užasný...
Přiznám se že ten kód budu študovat asi hodně dlouho než ho trošku poberu. Funguje výborně a mockrát za to děkuju.
Sám bych něco takovýho spatlal stovkou maker a ještě by to nefachčilo takle dokonale. Ještě jednou mnoho mnoho díků :)citovat

Strana: « předchozí 1 2

Téma: Aktivace makra bunkou

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje