MS Excel

Téma: Kopírování buněk

Zaslal/a KENTAUR 7.11.2012 17:10

Mám dotaz, když vyberu na listu současně několik buněk s textem pomocí CTRL + levé tlačítko myši ( např. B5,C2,H10,G4,M15), lze vytvořit makro, které mi obsah buněk (TOHO VÝBĚRU) překopíruje pod sebe do bunek A1,A2,A3,A4,A5....Jestli to nejde najednou, tak jak to udělat postupně, aby po výběru bunky B5 se zapsala automaticky hodnota do A1, po výběru C2 se zapsala automaticky hodnota do A2 atd.Něco jako makro listu selection change. Díky

Uzamčeno - nelze přidávat nové příspěvky.

eLCHa(7.11.2012 17:31)#010230

Např.

Sub subCopy()
Dim rCell As Range, rArea As Range
Dim I As Integer
I = 0
For Each rArea In Selection.Areas
For Each rCell In rArea.Cells
I = I + 1
ActiveSheet.Cells(I, 1).Value = rCell.Value
rCell.Clear
Next rCell
Next rArea
Set rCell = Nothing
Set rArea = Nothing
End Sub

KENTAUR(7.11.2012 18:43)#010235

super, díky eLCHa. TO je přesně co jsem chtěl

Uživatelské menu

Nejste přihlášen(a)

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.