< návrat zpět

MS Excel


Téma: Přesun hodnoty buňky rss

Zaslal/a 19.2.2013 22:21

Ahojky. Mám takový dotaz. Potřeboval bych přesunout vypočítanou hodnotu na druhý list. Hodnota na prvním listu se mění, proto ji chci zapsat na druhý list. Stačí náznak, já už opravdu nevím. Díky za radu.

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

Strana:  1 2   další »
#011743
avatar
Kopírovat/"Vložit jinak" a tam vyber "Hodnoty".
Ve VBA stačí klasické přiřazení.
P.

Př.:Sheets("List2").Range("A1").Value = Sheets("List1").Range("A1").Valuecitovat
#011744
Opičák
Přesunout jak?
jednu a jednou?
- dej kurzor do cílové buňky
- napiš =
- pak klikni do zdrojové buňky .... hotovo

makrem ?
Sub presun ()
Sheets("druhý list").Cells(A,B)= Sheets("první list".Cells(AA,BB)
End Sub

kde A nebo AA = číslo řádku
B nebo BB = číslo sloupce

nebo Copy a PasteSpecial atd. atd

nebo též "ručně" Ctrl C a vložit jinak / hodnotycitovat
#011745
Opičák
Pavlus byls rychlejší - platím pivo.citovat
#011750
avatar
Tohle mě funguje. 1 Za to dík. To se bude někdy hodit.
Ještě jeden problémek.
Sheets("List2").Range("A1").Value = Sheets("List1").Range("A1").Value
Jak udělat aby byl v listu2 řádek pokaždé jiný? Proměnnou jsem nazval "pocet_radku" a nějak se mě nedaří.citovat
#011751
avatar
Selection.Value = Sheets("List1").Range("A1").Valuecitovat
#011752
avatar
Jak se sem dá přiložit soubor?citovat
#011754
avatar
Zaslat odpověď
Vybrat súbor- Musí byť spakovaný.
Odeslatcitovat
#011758
avatar
Mě to nenabídne Přílohu. Asi musím být registrovaný.
Stačilo by mě nakopnout jak udelat proměnnou. Místo A1 napsat ptvní sloupec a 83 řádek. 83 je proměnná kterou si zadám (vypočítám).
Díky Laďacitovat
#011759
avatar
@ladaakk
Tak sa zaregistruj.
A ako chceš zadávať tú premennú? Niekde na liste v bunke?

Namiesto Range("A1") napíš Cells(1,1) alebo Cells(83,1)citovat
#011760
Opičák
teď jde o to, jak chceš zadávat řádek, jestli automaticky, stále na nový níž a níž nebo jak?

Sub prvni_volny_radek()
Dim poslRadek As Long
On Error Resume Next
Rem pokud je sl. prázdný hodí err, proto tolerance chyby
poslRadek = Columns(1).Find("*", , , , xlByRows, xlPrevious).Row
Sheets("List2").Range("A" & poslRadek + 1).Value = Sheets("List1").Range("A1").Value
End Sub

tohle je příklad jak to jde - (jeden z mnohých)

vyzkoušej si na list1 napiš do A1 něco a spusť makro, bude psát pořád níž a níž.citovat

Strana:  1 2   další »

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

Vynásobit hodnoty kurzem - Power Query

elninoslov • 25.4. 8:40

Relativní cesta - zdroje Power Query

Alfan • 25.4. 8:04

Relativní cesta - zdroje Power Query

elninoslov • 25.4. 0:34

Vynásobit hodnoty kurzem - Power Query

Alfan • 24.4. 16:32

Relativní cesta - zdroje Power Query

Alfan • 24.4. 15:44

Relativní cesta - zdroje Power Query

elninoslov • 24.4. 14:26

Jak odstraním duplicitní údaje

Mirek8 • 24.4. 12:13