MS Excel

Dobrý den,

Porovnávám dva obrazce kreslené ze dvou sloupců.
Jeden sloupec je referenční a do druhého zasahuji.
V momentě kdy jsem spokojený bych rád přepsal data z upravovaného sloupce do referenčního a znovu ladil.

Jestli byste mi tedy prosím poradili, vytvoření makra pro přepsání buněk z jednoho sloupce na druhý.

Děkuji Ondra

Zaslat odpověď >

Strana: 1 2 další »

Pavlus(20.1.2017 15:49)#034597

Principiálně třeba takto:
Sub Prepis_mezi_sloupci()
Dim i As Integer

For i = 1 To 100
Cells(i, 2).Value = Cells(i, 1).Value
Next i

End SubP.citovat

Stalker(20.1.2017 19:12)#034598

Nebo takto:
Sub kopiruj()
Dim Posledni As Long

Posledni = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & Posledni).Copy Range("B1")
End Sub
citovat

Ondry(20.1.2017 22:06)#034599

Děkuji, funguje :)citovat

xlnc(21.1.2017 17:38)#034601

Taky porovnávám dva obrazce. Skutečnost a toto, a nevím, jestli se mi to nezdá. Vymýšlet tlačítko na CTRL+C a CTRL+V je dobrá excelová perverze.

Mimochodem pánové, od vás dvou bych čekal lepší makro než cyklus a Copy, když už.citovat

Stalker(21.1.2017 18:45)#034603

xlnc napsal/a:

Mimochodem pánové, od vás dvou bych čekal lepší makro než cyklus a Copy, když už.

Dobrá co takto:
Sub kopiruj_2()
Dim Posledni As Long
Dim Oblast As Range

Posledni = Cells(Rows.Count, 1).End(xlUp).Row
Set Oblast = Range("A1:A" & Posledni)
Oblast.Offset(, 1).Value = Oblast.Value
Set Oblast = Nothing
End Sub

Pokud se i tohle nelíbí, prosím o ten jediný správný kód. Rád se přiučím.citovat

marjankaj(21.1.2017 19:02)#034604

Mohol by mi niekto povedať, o čo ide v zadaní? Aké obrazce?citovat

xlnc(21.1.2017 21:41)#034606

@Stalker

Ano, přímé přiřazení.

With Range(Cells(1), Cells(Rows.Count, 1).End(xlUp))

.Offset(, 1).Value = .Value

End Withcitovat

eLCHa(22.1.2017 12:01)#034611

@xlnc
Ano, přímé přiřazení.

Tady se trošku zastanu Stalkera

.Value = .Valuenení úplně bezpečné, protože tento způsob převádí hodnoty.
Např.:
Text 1.2 => Číslo 1,2
Text 123 => Číslo 123
Text 1/2 => Datum 2.1

Tohoto faktu využívám (nejčastěji VBA převod text -> číslo)
Ale při kopírování hodnot se raději vracím keRange1.Copy
Range2.PasteSpecial(xlValues)citovat

xlnc(22.1.2017 14:53)#034615

@eLCha: To jako že nejsem mistr světa? :-D

Ono, kdo ví, co je v buňkách za strašidelný obrazce, co je vůbec v nich, jaký formát. Každopádně ne cyklus, u toho Copy si zatím stojím za svým.citovat

Ondry(23.1.2017 7:16)#034630

xlnc napsal/a:

Taky porovnávám dva obrazce. Skutečnost a toto, a nevím, jestli se mi to nezdá. Vymýšlet tlačítko na CTRL+C a CTRL+V je dobrá excelová perverze.

Mimochodem pánové, od vás dvou bych čekal lepší makro než cyklus a Copy, když už.

Ano je to navíc, ale přeci jen je elegantnější jeden klik než
1. zatáhnutí buněk
2. ctrl+c
3. kliknout na místo vložení
4. ctrl+v

A je mi příjemnější když nemusím používat klávesnici a hodnoty měnit myšítkem a sledovat jak se překresluje obraz, ve které sleduju rovnoběžnost dvou úseček :)

Takže bych všem zúčastněným rád poděkoval, že měj podporují v mé excelovské perverzi, děkuji.citovat

Strana: 1 2 další »

Téma: Přepsání buněk tlačítkem

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje