Ešte 1 obrázok. V pôvodnom originál súbore som si už upravila podmieniený formát, ktorý mi označí celý riadok. V súbore wall je to označené ručne. Keby tabuľka v pravo bola konvertovaná na TABLE, tým pádom by ju nerozházdalo, po pridaní riadku v tabuľke vľavo.
elninoslov napsal/a:
Prečo konkrétne od 22. riadku mažete presne 55 riadkov?
Čo sa má nachádzať na 55. riadku?
Prečo musí byť v A nezmazaných vždy presne 33 riadkov? o mi nesedí ani na dni v mesiaci...
elninoslov napsal/a:
No ale Vy predpokladám hovoríte o tom, že Vám nevymaže posledný riadok na liste "zoznam". To makro ale práve list "zoznam" má vo výnimkách (funkcia "CheckMesiac"). Makro sa tohto listu nedotkne, tak mi je záhadou, ako Vám môže nevymazať posledný riadok z listu, v ktorom nič nemaže.
A ďalej pozerám, že som dával (to je moje makro) konštantu PRVY_RIADOK, ktorú očividne nikde nepoužívate. Teraz by mala byť asi 22, nie 20. To je ale fuk. Hovorím to len preto, že to naznačuje "nefundované" úpravy :).
elninoslov napsal/a:
O ktoré makro ide?
Upravovala som si makro a doplňala.
Potrebovala by som ho trochu učesať.
V prílohe 2 súbory.
1 pred apliáciou a druhý po aplikácii makra.
Po spustení makra mi nevymaže údaje v poslednom riadku, kde je záznam v hárku Zoznam v novovytvorenom súbore (nový mesiac)
VYRIEŠENÉ.
Tak som to vyriešila:
Pridala som toto:
.Cells(22, 10).Resize(54, 10).ClearContents
A vymenila som 7 za 11
.Cells(55, 1).Resize(riadok - 55, 11).ClearContents
.Cells(22, 2).Resize(54, 7).ClearContents
.Cells(22, 10).Resize(54, 10).ClearContents
If riadok - 54 > 0 Then
.Cells(55, 1).Resize(riadok - 55, 11).ClearContents
.Cells(55, 1).Resize(9) = 1
.Cells(55, 9).Resize(9) = WorksheetFunction.Transpose(Array("OK", "NK", "NKJIS", "UK", "ORL", "JORL", "OMFCH", "Očné", "JOCK"))
Mám makro, ktoré mi vyvolá šablónu
pri kliknutí na Nová.
Sub mail()
Set msg = Application.CreateItemFromTemplate("C:\Users\meno\AppData\Roaming\Microsoft\Templates\template.oft")
msg.Display
End Sub
Ako docieliť, aby makro natiahlo šablónu alebo pripojilo ten istý text pri kliknutí na Odpovedať alebo Preposlať?
Windows má funkciu. Hľadať duplicitné súbory.
Možno by sa to dalo použiť.
Stalker napsal/a:
Myslíš to takto viz soubor?
Taky by nebylo špatné si ujasnit jaká kritéria se mají počítat AOVI vs AOV1Příloha: 46969_kopie-wall-subtotal-medzisucet.xlsx (19kB, staženo 0x)
Máma tabuľku, kde som použila funkciu subototal.
Potrebujem spočítať spotrebu zvlášť pre odd AOCM a AOV1.
Funkcia funguje len pri vyfiltrovaní.
Bez filtra mi zobrazuje všetky sumy rovnaké.
S filtorm je suma AOCM a a AOVI totožná.
Možno by bola vhodnejšia suma sumif alebo sumproduct,
ale neviem to zakomponovať, skúšala som rôzne spôsoby.
elninoslov napsal/a:
To je predsa pre to, že to makro, ako som napísal, je robené na data, ktoré UŽ MAJÚ PRIDANÝ STĹPEC "N" "Inštrumentárka".
elninoslov napsal/a:
No kým som to urobil, dala ste novšiu prílohu. Pozrite či to sedí aj na tú novšiu. Robil som to na tú o 9:11. Je to aj s tým pridaným stĺpcom, ktorý má byť podľa Vás za M->O, ale za M je N :)
Tiež sa dátum neťahá z A2 do J2, ale z A3 do J1.Příloha: 46862_aktualizacia.zip (38kB, staženo 1x)
Príloha makro.txt
Nevedela som zakomponovať úpravy do aktuálneho makra.
Tak som si urobila ešte jedno a dala som ho vyvolať.
Len ešte neviem oddeliť sály.
elninoslov napsal/a:
To je moje makro, pamätám si na to.
Neviem si poradiť s úpravou makra.
Opäť sa zmenila situácia.
konštanty ostávajú rovnaké
dodatok-zelený
služba,príslužba-modrá
preklad-sivý
neop.- červený
aplikovať na text v stĺpci Z PoznámkaCos,
(predtým bol celý riadok)
optické oddelenie sál (hrubým ohraničením)
1 riadok - hlavička Prehľad operácií (vrátane akätny)na OCOS za deň
OPRAVA
Do bunky J2 potiahnúť dátum z bunky A3.
DOPLNENIE
Nová príloha s novým makrom (od elninoslov)
marjankaj napsal/a:
kabaka napsal/a:
Lebo si vyhodila riadok resp. tam nemáš.
.MatchWholeWord = True
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.