• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Dosaď dnes jako hodnotu

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

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. citovat

marjankaj(12.12.2016 23:28)#033796

@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

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

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

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

AL(12.12.2016 23:51)#033801

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

@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

Tak pro ty co nevěří v příloze makro.
Přiložil bych i tabulku ale má 2,1 MB po zabalení
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: 33804_denniplanykovo.rar (25kB, staženo 21x)

citovat

AL(13.12.2016 10:17)#033805

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

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse