< návrat zpět

MS Excel


Téma: zapis hodnot v cyklu rss

Zaslal/a 6.11.2015 17:25

Dobry den. Chtěl bych poprosit jestli by jste mi někdo nevytvořil makro na zápis udaju. jde o to že na listu 1 je tabulka a ty hodnoty z ty tabulky potřebuju zapsat na list 2 po zapsaní se ty hodnoty v listu jedna vymažou. Pak se tam zadají třeba jiny data a ty se zase zapíšou nalist 2 ale na druhy řádek. Prosím o pomoc

Příloha: zip27897_test.zip (11kB, staženo 17x)
Zaslat odpověď >

#027898
elninoslov
Nieje problém, ale trošku to ešte upresnite.
-bude sa zapisovať len jeden (ak áno tak ktorý) riadok z tabuľky, alebo celá tabuľka. Ak celá tak predpokladám iba zaplnené riadky.
-na čo sú tie zaškrtávacie polia, keď niesú prepojené s nejakou bunkou ? Aj tie treba po zápise zmazať? Ak áno, ako si ich potom budete vytvárať? Radšej by mali byť stále-nemenné v celej tabuľke. Ak sa prepoja s bunkou (aby mali nejakú funkciu tak musia), má sa odložiť aj ich hodnota? Lebo na to nemáte v tej "Databáze" dátové pole....citovat
#027899
avatar
bude se zapisovat cela tabulka a v listu dve se to bude propisovat do řádku zaškrtavaci policka tam sou proto že na ně navažu jiné makro
edit: a budou se zapisovat jenom hodnoty ale muze se stat ze bude cela tabulkacitovat
#027900
elninoslov
Napr takto
Sub Zapis()
Dim R As Long, RZ As Long, Z As Worksheet
Set Z = Worksheets("List1")
RZ = Z.Cells(Rows.Count, 12).End(xlUp).Row - 9
With Worksheets("List2")
R = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(R, 1).Resize(RZ).Value = Z.Cells(10, 12).Resize(RZ).Value
.Cells(R, 2).Resize(RZ, 6).Value = Z.Cells(10, 14).Resize(RZ, 6).Value
End With
Z.Cells(10, 12).Resize(RZ, 9).ClearContents
End Sub

Pod prvým stĺpcom každej tabuľky nesmie byť nič iné, lebo sa používa na zistenie posledného zaplneného riadku.citovat
#027901
avatar
Skvělý děkuji moc. Ještě bych se zeptal když bych tam přidal nějaký useform s textboxem a do toho bych zadával nějaký název pod kterým by se to tam zapisovalo.
+ nějaká kontrola že pod tím názvem je již něco uložený ho tak by musel zadat jiný název šlo by i tohle ?citovat
#027902
avatar
Zasloužíte si bobříka odvahy. Netajíte se tím, že nechcete jen poradit, ale rovnou lidi úkolujete, aby vám napsali makro! Dál hned chcete, aby vám ho ten hodnej trouba ještě rozvinul. A jistě to potřebujete do práce, kde vám za to zaplatí. Tomu já říkám správná dělba práce...citovat
#027903
avatar
to vovka
Jste na pěkném omylu mám to pro svoje účely. Bohužel nejsem znalec vba a nestydím se to říct tak žádám.citovat
#027926
elninoslov
Skúste teda toto:
Příloha: rar27926_test.rar (25kB, staženo 17x)
citovat
#027979
avatar
děkuji strašně moc funguje to perfektně přesně tak jak jsem potřeboval. Jenom se chci zeptat ten resize jsem pochopil že je to pro oblast kde bude brat data asi :-) ale co jsem nepochopil ten code na hlídání stejného názvu šlo by to prosím nějak vysvětlit a ještě jednou děkuji.citovat
#027995
elninoslov
No cez tablet bez makier sa to nedá vysvetliť, snáď, keď bude čas... Fubguje to OK, a vysvetlenie spáchame inokeky.citovat

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