Příspěvky uživatele

Velmi si vazim pomoc a nechcem po podanom prste schmatnut celu ruku.
Ale predsalen ak by sa v tom programe dala dorobit este jedna nazvyme to "malickost", velmi by pomohlo! (Co konkretne mam namysli som napisal do komentu programu hore do 6-10teho riadku medzi dve plne ciary. (vid v prilohe).

Chcem sa este ako laik spytat ktory prikaz v tom programe hovori ze ked vlozim cislo do bunky a dam enter tak sa spusti makro (ja som doteraz vzdy spustal makro iba cez button:)

Waw! keby som tomu ja raz takto rozumel.. :)
Perfektny kod, skvela praca, dikes !

Dik Elnino, pravdu mas.. upravil som to tak aby boli najprv skupiny, potom podskupiny. Teraz by to malo byť uz prehľadné a pochopiteľné. (viď nová príloha).

Vezmi si to potom tak že každý riadok je jeden projekt.
Logika makra bude taká že keď sa riadok/projekt v sheete Data ukončí (zapísaním číslovky do stĺpca F) - program vystrihne daný riadok z Data a prilepí ho do sheetu Ukoncene do rovnakej skupiny/podskupiny. Následne kopírovaný riadok v sheete Data zmaže (v prílohe som ho ešte nezmazal nech je vidno čo sme kopírovali kam - to je ten riadok označený žltou).

Čiže riadky v sheetoch Data a Ukoncene nemajú korešpondovať. Najprv bude v sheete Data všetko a v sheete Ukoncene nič. Až keď sa ukončí daný projekt/riadok v sheete Data - vtedy sa to presunie zo sheetu do sheetu. Čiže na konci keď sa každý projekt/riadok ukončí to bude vyzerať presne opačne tá tabuľka - do sheetu Ukoncene sa presunie všetko a v sheete Data nezostane nič. Dúfam že sa mi to podarilo vysvetliť, ak ešte niečo nejasné tak daj vedieť.. Dik!

este ta priloha:

Ahojte,
potreboval by som poradiť..
Mám 2 hárky s údajmi - Data a Ukončené.
Údaje v hárkoch sú rozdelené do podskupín (1A, 1B, 1C, 2, 3 atď)
Potreboval by som makro ktoré po napísaní číslovky do stĺpca F (Fáza), skopíruje daný riadok z hárku Data do hárku Ukončené s tým že to nekopíruje len-tak do prvého volného riadku ale sa zachová aj daná podskupina. To znamená že ak sa bude kopírovať riadok napríklad z podskupiny 1A tak program prejde na hárok Ukončené, vloží riadok do podskupiny 1A (nakoniec podskupiny) a tam celý riadok skopíruje. Následne skopírovaný riadok v prvom sheete vymaže.
+ Zapíše do stĺpca 1-10 písmeno X (podľa toho akú číslovku na začiatku vložím, ak 10 tak zapíše X do stĺpca 10)

Viď názorná ukážka v prílohe, kopírovaný riadok som označil žltou.

Ďakujem za každú pomoc.. Mae

dokonale!

@Mosquito,

dik ta uprava r_max naozaj velmi pomohla a odstranila problem s B stlpcom.

Ano v ostatnych listoch budu vsetky stlpce vratane povinnych stlpcov presne rovnake.

Ten cyklus pre viac sheetov by bodol! :)

@ Mosquito, dobre riesenie ale ma to jednu malu chybicku - stale sa to da obist a ulozit ak sa nevyplni alebo vymaze stlpec datum podla ktoreho tool pocita.

@ Opicak, toto riesenie by bolo lepsie ak by clovek vyplnal vzdy len jeden riadok (lebo v poslednom riadku ho nepusti ulozit subor ak nema vyplnene uplne vsetky povinne stlpce vratane stlpca datum). Ak vsak vyplni naraz 2 riadky a v tom prvom vynecha co chce tak to tool uz pusti ulozit!

Otazka:
Nedalo by sa to nejako skombinovat aby sa naozaj podarilo zabranit nevyplneniu uplne vsetkych povinnych poli pre kazdy riadok sheetu?

Otazka2:
Ak by som mal obdobnu tabulku na viacerych sheetoch, dal by sa dorobit cyklus pre viacero sheetov? (napr. vyplnil by som 3 sheety nekompletne a tool by ma upozornil na kazdu jednu zle vyplnenu bunku v kadzom jednom sheete)

Dakujem.

Dakujem za radu Opicak, viacmenej to funguje pre posledny riadok ale je pravda co pise marjankaj ze ak vymazes dake data z povinnych poli napr v predposlednom riadku tak uz ta to pusti ulozit

Ahojte

potreboval bz som poradit.
Mam xls file (priloha) kde je niekolko stlpcov a niektore z nich su povinne polia (pri ich nevyplneni excel nedovoli ulozit subor).

Tento jednoduchy kod:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cellcontents = ActiveSheet.Range("B5").Value
If Cellcontents = "" Then
Cancel = True
MsgBox "Company Name is empty . Unable to Save!", vbOKOnly, "Check Cells"
Exit Sub
End If
End Sub

..robi to co by som potreboval s tym rozdielom ze ja potrebujem nahradit odkaz na fixnu bunku B5 odkazom na pohyblivu bunku v stlpci B podla toho ktory riadok je posledny vyplneny (Posledny vyplneny riadok moze pocitat podla stlpca B) a potrebujem vyplnit vsetky povinne stlpce nielen stlpec B.

Dakujem pekne za kazdu radu.

Dobry den,
googlil som ako spojit viacero xls suborov do jedneho a najlepsie makro co som na webe nasiel bolo tu od Simocka (nazov temy: "Spojenie Excel suborov do jedneho").

Ja by som potreboval presne to iste akurat s tym rozdielom ze to potrebujem spravit aj pre viac sheetov, nielen pre jeden sheet ako v danom priklade (potrebujem dostat januarove data do sheetu januar, februar do februara, marec do marca atd..
Pripajam priklad v prilohe (pouzil som rovnaky priklad z uz pouzitej temy doplneny o sheety jednotlivych mesiacov)

Ak by niekto vedel doprogramovat dane makro (nazov: tu) aby pripajalo udaje aj pre vsetky sheety (nielen aktivne sheety ako v danom makre) bol by som velmi povdacny a predom velmi pekne dakujem.
Mae

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje