< návrat zpět

MS Excel

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

Zaslal/a Ladaakk 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ší »
Pavlus(19.2.2013 22:40)#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
Opičák(19.2.2013 22:42)#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
Opičák(19.2.2013 22:44)#011745
Opičák
Pavlus byls rychlejší - platím pivo.citovat
Ladaakk(20.2.2013 9:20)#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
marjankaj(20.2.2013 10:17)#011751
avatar
Selection.Value = Sheets("List1").Range("A1").Valuecitovat
Ladaakk(20.2.2013 10:34)#011752
avatar
Jak se sem dá přiložit soubor?citovat
marjankaj(20.2.2013 11:14)#011754
avatar
Zaslat odpověď
Vybrat súbor- Musí byť spakovaný.
Odeslatcitovat
Ladaakk(20.2.2013 11:58)#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
marjankaj(20.2.2013 12:24)#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
Opičák(20.2.2013 12:43)#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

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.

On-line nástroje