excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: presouvani hodnot bunek
MS Excel
Téma: presouvani hodnot bunek 
Zaslal/a 14.12.2012 15:02
Zdravim,
mam dotaz potreboval bych presouvat hodnotu z jedne bunky do bruhe (idealni tlacitkem) a nejak nevim jak 
,
poradi nekdo znaly?
excel 2007
(15.12.2012 9:59)#010659
No do bunky A1 dosadim cislo a pomoci "tlacitka" bych potreboval po zmacnuti aby se hodnota presunula do bunky C1 a to cele bych potreboval na slupecky A a C aby se hodnota presouvala po zmacknuti tlacitka nebo tak necocitovat
Borče, my sme tu trošku jednoduchší ľudia a žiadni borci, nemáme vizionárske schopnosti, takže pokiaľ budeš vo vysvetľovaní svojej požiadavky skúpy na slovo, nezostáva nám, než hádať, čo vlastne potrebuješ dosiahnuť.
Môžeš vyskúsať nasledovné: označ si bunky v stĺpci A (kliknutím do bunky, oblasti buniek, či celého stĺpca), ktoré chceš dostať do stĺpca C a spusti kód:
Sub PresunDoC()
Dim cell As Range
If Selection.Address = Range("A:A").Address Then
Columns("A:A").Copy
Range("C1").PasteSpecial Paste:=xlPasteValues
Range("A:A").Select
Application.CutCopyMode = False
Else:
For Each cell In Selection.Cells
If cell.Column = 1 Then cell.Offset(0, 2).Value = cell.Value
Next
End If
End Sub
pokiaľ riešenie vyhovuje, tak si vytvor tlačítko a tento kód si naň naviaž :)
Nie je to síce optimálny kód, čo sa týka rýchlosti behu, ale pokiaľ nebudeš označovať nejaké iné stĺpce a skúšať rôzne blbosti, tak by to mohlo fungovať, zhruba ako má. Otázkou je, čo chceš s hodnotou v stĺpci A po tom, čo ju presunieš do stĺpca C. Pokiaľ sa má zo stĺpca A zmazať, tak mačkaj delete. Dalo by sa to zakomponovať i do toho kódu rovno, ale ako som zmienil, musel by si sa viac rozrozprávať, aby bola Tvoja potreba zrejmejšia i nám blbým
.citovat
Môžeš vyskúsať nasledovné: označ si bunky v stĺpci A (kliknutím do bunky, oblasti buniek, či celého stĺpca), ktoré chceš dostať do stĺpca C a spusti kód:
Sub PresunDoC()
Dim cell As Range
If Selection.Address = Range("A:A").Address Then
Columns("A:A").Copy
Range("C1").PasteSpecial Paste:=xlPasteValues
Range("A:A").Select
Application.CutCopyMode = False
Else:
For Each cell In Selection.Cells
If cell.Column = 1 Then cell.Offset(0, 2).Value = cell.Value
Next
End If
End Sub
pokiaľ riešenie vyhovuje, tak si vytvor tlačítko a tento kód si naň naviaž :)
Nie je to síce optimálny kód, čo sa týka rýchlosti behu, ale pokiaľ nebudeš označovať nejaké iné stĺpce a skúšať rôzne blbosti, tak by to mohlo fungovať, zhruba ako má. Otázkou je, čo chceš s hodnotou v stĺpci A po tom, čo ju presunieš do stĺpca C. Pokiaľ sa má zo stĺpca A zmazať, tak mačkaj delete. Dalo by sa to zakomponovať i do toho kódu rovno, ale ako som zmienil, musel by si sa viac rozrozprávať, aby bola Tvoja potreba zrejmejšia i nám blbým
.citovatNo aj bez tlačítka a makra je to jednoduché.
1. Klikneš na "A" nad prvým riadkom
2. Stlač CTRL+X
3. Klikni na C nad prvým riadkom
4. A daj ENTER.
Na takéto "operácie" vymýšľať makro a ešte aj tlačítko sa mi zdá veľmi prešpekulované.citovat
1. Klikneš na "A" nad prvým riadkom
2. Stlač CTRL+X
3. Klikni na C nad prvým riadkom
4. A daj ENTER.
Na takéto "operácie" vymýšľať makro a ešte aj tlačítko sa mi zdá veľmi prešpekulované.citovat
Marjan, záleží asi i na tom, či sa majú preniesť referencie smerované pôvodne na A na bunky v stĺpci C.
Ďalej na tom, či náš borec chce preniesť hodnoty z celého stĺpca A, alebo len z vybraných buniek do korešpondujúcich riadkov v stĺpci C. Ale pravdou je, že nie jeden užívateľ tu predvádza snahu chodiť s kanónom na komára :). Mne to nevadí, sú tu potom z toho také päťminútové rozcvičky z písania nepotrebných kódov, na precvičovanie dobré :)citovat
Ďalej na tom, či náš borec chce preniesť hodnoty z celého stĺpca A, alebo len z vybraných buniek do korešpondujúcich riadkov v stĺpci C. Ale pravdou je, že nie jeden užívateľ tu predvádza snahu chodiť s kanónom na komára :). Mne to nevadí, sú tu potom z toho také päťminútové rozcvičky z písania nepotrebných kódov, na precvičovanie dobré :)citovat
(15.12.2012 20:15)#010663
ja potrebuju ty hodnoty z bunek prenaset jen nektere a to ruzne ve sloupci A budou hodnoty a preneset potrebuji jen nektere spnene a ty potrebuji do sloupecku Ccitovat
Fajn, tak vyskúšaj to makro a vyjadri sa, či funguje podľa predstáv. Mne to totiž z Tvojich doterajších vyjadrení jasné nie je 
citovat
citovatAlfi, funguje to perfektne.
Ešte by som dodal, že tie kopírované bunky si treba odklikať so stlačeným CTRL.
No ak to bude chcieť kopírovať z iného stlpca alebo do iného stlpca, tak si bude musieť makierko upraviť, alebo tam vsunúť INPUTBOXy.citovat
Ešte by som dodal, že tie kopírované bunky si treba odklikať so stlačeným CTRL.
No ak to bude chcieť kopírovať z iného stlpca alebo do iného stlpca, tak si bude musieť makierko upraviť, alebo tam vsunúť INPUTBOXy.citovat
Pridám aj ja niečo.
Ak treba kopírovať aj vzorce, tak toto treba vyhodiť
Paste:=xlPasteValues
Sub PresunDoC()
Dim oblast As Range
kam = InputBox("Do ktorého stlpca sa majú hodnoty skopírovať? A,B,C,...")
posun = Range(kam & ":" & kam).Column - Selection.Column
For Each oblast In Selection.Areas
oblast.Copy
oblast.Offset(0, posun).PasteSpecial Paste:=xlPasteValues
Next
Application.CutCopyMode = False
End Subcitovat
Ak treba kopírovať aj vzorce, tak toto treba vyhodiť
Paste:=xlPasteValues
Sub PresunDoC()
Dim oblast As Range
kam = InputBox("Do ktorého stlpca sa majú hodnoty skopírovať? A,B,C,...")
posun = Range(kam & ":" & kam).Column - Selection.Column
For Each oblast In Selection.Areas
oblast.Copy
oblast.Offset(0, posun).PasteSpecial Paste:=xlPasteValues
Next
Application.CutCopyMode = False
End Subcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\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