< návrat zpět

MS Excel

Téma: Dosaď dnes jako hodnotu rss

Zaslal/a Raders486 12.12.2016 20:56

Ahoj.
Potřeboval bych poradit.
Pokud je ve sloupci A číslo 1 až 3 tak vlož do sloupce B dnešní datum jako hodnotu a skoč na další řádek ve sloupci A, který obsahuje číslo 1 až 3.
Toto vše opakuj až do posledního ohraničeného řádku ve sloupci A

Pokud již ve sloupci B datum je skoč na další řádek ve sloupci A, který obsahuje číslo 1 až 3.
Toto vše opakuj až do posledního ohraničeného řádku ve sloupci A

Snad je to srozumitelné.

Pokud by bylo potřeba vzorovou tabulku doplním.

Děkuji

Zaslat odpověď >
Strana:  « předchozí  1 2 3   další »
Raders486(12.12.2016 23:20)#033794
avatar
Již jsem psal osobně marjankaj, ale napíši to tedy ještě sem.

Mám makro cca o 35 000 řádcích, které cca 9x za den kontroluje plán.

Nyní ještě do něj potřebuji tuto úpravu kvůli vyhodnocení jak moc se daný vedoucí věnuje urgentním zakázkám.

Proto na to potřebuji makro a ne aby to člověka zatěžovalo. 5citovat
marjankaj(12.12.2016 23:28)#033796
avatar
@ALL
Ten problém poznám. Tiež to nepoužívam. V práci mám excel 2010, doma excel 2007.
Teraz mi doma nejde ani CTRL+; ani CTRL+SHIFT+H. Našiel som F2 a potom už CTRL+; funguje.

Tiež si myslím, že toto jednoúčelové makro je na draka. Pár klikov a mám to manuálne tak ako potrebujem. Ale keď sa niekto potrebuje pocvičiť v programovaní, tak to môže účel splniť. Iný význam tam nevidím.citovat
syd(12.12.2016 23:37)#033798
avatar
Uprava pro uverejnenou ukazku.
Sub RK()
Dim ws As Worksheet
Dim lr As Long
Set ws = ActiveSheet
lr = ws.Range("D" & ws.Rows.Count).End(xlUp).Row
ws.AutoFilterMode = False
With ws.Range("A1:R" & lr)
.AutoFilter field:=1, Criteria1:=Array("1", "2", "3"), Operator:=xlFilterValues
.AutoFilter field:=2, Criteria1:="="
ws.Range("B2:B" & lr).SpecialCells(12).Value = Date
End With
ws.AutoFilterMode = False
End Sub
citovat
Raders486(12.12.2016 23:40)#033799
avatar
Kluci už se ti netrapte, trochu jsem upravil makro Syda a heurek, už to jede.

Děkuji všem.citovat
marjankaj(12.12.2016 23:44)#033800
avatar

Radek-Klepacek napsal/a:


Mám makro cca o 35 000 řádcích, které cca 9x za den kontroluje plán.


No na toto by som ja zo zadania ani nepomyslel. A myslím, že aj odhad xlnc bol dosť pod touto hodnotou.

No niektoré dosť podstatné veci je vhodné uviesť aj do zadania. Človek by bol aspoň trochu v obraze.citovat
icon AL(12.12.2016 23:51)#033801
avatar
Ja by som si tipol, že sa bude jednať o tabuľku s 35k riadkami, nie o makro s 35k riadkami.
Makro s 35k je:
a) mimo mojich predstáv
b) pravdepodobne špatne napísané
c) pokiaľ pripustím, že OP napísal makro s 35k riadkami, optimalizované a funkčné, neviem si predstaviť, že nie je schopný si doňho dohodiť túto dodatočnú zmenu
Preto ten môj tip :). Whatever :)citovat
marjankaj(13.12.2016 0:11)#033802
avatar
@AL
No neviem. Ja by som taký kód (35000 riadkov) ani nečítal nieto ešte skúšal pochopiť.
A netuším ani tabuľku s 35000 riadkami, ktorá sa 9 krát denne aktualizuje. Veď jeden ani nezaregistruje zmeny, ktoré sa medzitým udejú.
Samozrejme ak nejde o sledovanie menových kurzov alebo akcií. To je zase iný svet. A na to asi nebude excel najvhodnejší.
VBA v exceli má byť krátky(väčšinou, samozrejme sa nájdu aj výnimky). Excel je v prvom rade tabuľkový procesor a nie programovací jazyk.citovat
Raders486(13.12.2016 8:48)#033804
avatar
Tak pro ty co nevěří v příloze makro.
Přiložil bych i tabulku ale má 2,1 MB po zabalení 5
Podotýkám, že jsem začátečník a samouk a tak je to trochu komplikovanější.

Navíc angličtina je pro mě španělskou vesnicí, jsem otec čtyř dětí a nehovím tomu jako dnešní mládež, tak bych vás rád požádal, aby jste se zdrželi narážek, jak to mám dementně udělané a podobně.

Každý nějak začínal a podotýkám, že toto z 90% píši v práci, kde se musím starat ještě o dalších 40 lidí.

Každopádně děkuji za toto skvělé fórum a spoustu ochotných a ohleduplných lidí, kteří pokud mohou, tak pomohou.

Díky všem
Radek
Příloha: rar33804_denniplanykovo.rar (25kB, staženo 21x)
citovat
icon AL(13.12.2016 10:17)#033805
avatar
V poriadku, uznávam, že niekto je schopný vytvoriť kód o 35K riadkoch. Platí môj bod b - makro nie je ani zďaleka optimalizované. Letmo som sa na to pozrel, uvidel spústu zbytočných select a to mi stačilo, aby som si urobil úsudok. Nechcem sa nikoho dotknúť, jedná sa čisto o môj názor, že v tomto prípade sa dá makro zredukovať na zlomok počtu pôvodných prevažne zbytočných riadkov. V podstate celé to makro je zaznamenané prostredníctvom záznamníka makier, po tom, čo je makro takto nahrané, je vhodné kód editovať a upraviť. Ďalších nejapných komentárov sa zdržím.citovat
Raders486(13.12.2016 11:17)#033810
avatar
Makro pracuje dle požadavku. Našel jsem jednu chybu na které se však makro sekne.

Pokud jsou vyplněny všechny buňky ve sloupci B, pak makro spadne. Jinými slovy, pokud pod prvním řádkem nejsou žádná data, neví makro co má dělat.

děkujicitovat

Strana:  « předchozí  1 2 3   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