Keresés

Részletes keresés

Törölt nick Creative Commons License 2010.11.26 0 0 13445

használtok vmilyen ERP-t? (SAP R/3, MS Navision, SAP SBO, stb...

Törölt nick Creative Commons License 2010.11.26 0 0 13444

Ja! Nem csak Ő nevezte "P"-nek az egyszerűség kedvéért?

Előzmény: SQLkerdes (13442)
Delila10 Creative Commons License 2010.11.26 0 0 13443

Megint javítanom kell magamat. Az elejére beírandó sor Cells().Interior.ColorIndex = xlNone, lemaradt a másolás elejéről a Cells()  :(

 

SQL: üres cellák esetén is színez a makró.

Előzmény: Delila10 (13440)
SQLkerdes Creative Commons License 2010.11.26 0 0 13442

Nem lesz egy komplex file :-)

P betük egy sorban köztük néhány üres cella.

Előzmény: Törölt nick (13441)
Törölt nick Creative Commons License 2010.11.26 0 0 13441

küldd el a file-t. Tetszik a feladat, de így látatlanba...

Előzmény: MixM (13426)
Delila10 Creative Commons License 2010.11.26 0 0 13440

Az elejére érdemes betenni az  Interior.ColorIndex = xlNone sort.

 

Valószínűnek tartom, ha MixM kipirosított területet talál, átírja a P-t közelebbi cellába, és akkor töröltetni kell a kiabáló háttérszínt. 

Előzmény: Delila10 (13438)
Törölt nick Creative Commons License 2010.11.26 0 0 13439

hé, az tök barátságos, mosolyagtam amikor írtam csak az nem látszott :)

Előzmény: Or Kán (13434)
Delila10 Creative Commons License 2010.11.26 0 0 13438

Biztos én csinálok valamit rosszul, de ezek a képletek nem jöttek össze nekem. Írtam helyette egy makrót, ami a lapon lévő összes sort, és oszlopot vizsgálja, a "P"-k közötti cellák hátterét pirosra váltja, amennyiben a a darabszámuk eléri, vagy meghaladja a 6-ot.

 

Sub mm()
    Dim oszlop As Integer, uoszlop As Integer, sor As Integer, usor As Integer
    Dim kezd As Integer, veg As Integer, t As Boolean
    
    uoszlop = ActiveSheet.UsedRange.Columns.Count
    usor = ActiveSheet.UsedRange.Rows.Count
    
    For sor = 1 To usor
        For oszlop = 1 To uoszlop
            If Cells(sor, oszlop) = "P" And t = False Then
                kezd = oszlop
                t = 1
                GoTo Kov
            End If
            
            If Cells(sor, oszlop) = "P" And t = True Then
                veg = oszlop
                If veg - 1 - kezd > 5 Then
                    Range(Cells(sor, kezd + 1), Cells(sor, veg - 1)).Interior.ColorIndex = 3
                End If
                kezd = veg
            End If
Kov:
        Next oszlop
    Next sor
End Sub

Előzmény: SQLkerdes (13436)
wawabagus Creative Commons License 2010.11.26 0 0 13437

Na ne mááá :-)...

 

Én mindig is szerettem ide járni, pont mert mindenki tök normális és segítőkész. /ellentétben pl az access forummal, ahol már annyi idióta okostojással találkoztam/.

 

Hát pont azért van ez a fórum, hogy segítséget lehessen kérni, nem?

 

Mindenki jól jár :-), aki kérdez és aki válaszol.

 

Nem tudom, hogy az itt feltett kérdéseim alapján ez mennyire hihető, de a cégünkön belül /200ember :-), engem képzelnek az

"excel" szakértőnek. Ha kérdésük van mindig hozzám jönnek, főleg hogy tanfolyamot is csináltam az embereknek.

 

És én ezt konkrétan tök szeretem, mert pl:

1. nagyon okosnak érzem olyankor magam :-))), hogy mindent meg tudok oldani /majdnem :-d/

2. mindig tanulok valami újat

3. tök jó érzés, hogy meg tudom valakinek könnyíteni az életét

4. a hülye monoton feladataim mellett kifejezettem éhezek apró/ vagy nem apró kihívásokra

 

Szóval mardjon szerintem minden a régiben, ahogy eddig...mindig mindenki segítőkész volt és jófej :-)))

 

 

 

SQLkerdes Creative Commons License 2010.11.26 0 0 13436

Ugyanez másként:

 

=(MIN(IF(A1:$Q1="p",COLUMN(A1:$Q1),1000))-MAX(--($A1:A1="p")*COLUMN($A1:A1))-1>6)

Előzmény: SQLkerdes (13435)
SQLkerdes Creative Commons License 2010.11.26 0 0 13435

Ugyan már, most ez komoly?

 

Nem kell itt villongásokba átcsapni.

 

 

Inkább írjatok jobb megoldást, mint amit én itt javasolok:

 

=(MATCH("p",A1:$Q$1,0)+COLUMN(A1)-1-LOOKUP("p",$A$1:A1,COLUMN($A$1:A1))-1>6)

 

ezt a képletet kell használni a Conditional Formattingban, egyéb tudnivalók:

 

- a képlet feltételezi, hogy a kiértékelendő elemek az 1. sorban vannak

- a Conditional Formatting indításánál az A oszlopból (A1) kiindulva formázunk

- a kiértékelés a Q1 celláig működik, ha ennél nagyobb a kiértékelendő terület, akkor a képlet $Q$1 részét megfelelően ki kell cserélni, pld $AA$1-re

Or Kán Creative Commons License 2010.11.26 0 0 13434

Ha már elkezdted...

 

Ennél a hozzászólásnál miért nem volt problémád a nem barátságos hangnemmel?

 

http://forum.index.hu/Article/jumpTree?a=105148072&t=9009340

Előzmény: Delila10 (13433)
Delila10 Creative Commons License 2010.11.26 0 0 13433

De, azt hiszem, igen. Más fórumoktól csak a jót vegyük át, itt maradjon meg az eddigi barátságos, segítőkész szellem.

 

Nem érdemes ezt tovább ragozni.

Előzmény: Or Kán (13432)
Or Kán Creative Commons License 2010.11.26 0 0 13432

A sok kaptafa között a megoldást nem találtad véletlenül meg?

Előzmény: Delila10 (13431)
Delila10 Creative Commons License 2010.11.26 0 0 13431

Ott is jó helyen van – mondta a suszter a kaptafával kapcsolatban. :)

Lusta voltam az eredetit kikeresni.

Előzmény: Or Kán (13430)
Or Kán Creative Commons License 2010.11.26 0 0 13430

Ezt nem nekem kellett volna elsőként címezni.

Előzmény: Delila10 (13429)
Delila10 Creative Commons License 2010.11.26 0 0 13429

Ne valósítsuk meg itt a prog.hu lekezelő hangnemét!

Lehet segíteni iskolai feladatoknál is, rávezetéssel, nem kész megoldással. Miért baj az, ha valaki itt kér segítséget?

Előzmény: Or Kán (13424)
Törölt nick Creative Commons License 2010.11.26 0 0 13428

;-)

Előzmény: Törölt nick (13427)
Törölt nick Creative Commons License 2010.11.26 0 0 13427

Ez jó! :-)

Előzmény: Törölt nick (13425)
MixM Creative Commons License 2010.11.26 0 0 13426

Szia!

 

 Ez nem iskolai feladat. Kezdő vagyok az excel-ben. Ez egy munkahelyi beosztás elkészítését segítő táblázathoz kell. A célja, hogy lelellenőrizze, hogy az adott dolgozónál két pihenő közt nem telik el 6 napnál több.

 

Előzmény: Or Kán (13424)
Törölt nick Creative Commons License 2010.11.26 0 0 13425

Hol akadtál el?

Előzmény: MixM (13423)
Or Kán Creative Commons License 2010.11.26 0 0 13424

Ez egy iskolai házi? Mert abban nem segítünk...:)

Előzmény: MixM (13423)
MixM Creative Commons License 2010.11.26 0 0 13423

Sziasztok!

 

 Segítségre lenne szükségem!

 Excel-ben adott egy sorban néhány cella, melynek tartalam "P". Azt kellene leellenőrizni, hogy "P" és "P"-t tartalamzó cellák közti cellák száma nem több 6-nál. Amennyiben több jelölje ki a két "P" közti cellákat pirosal.

 

Köszi!

Delila10 Creative Commons License 2010.11.25 0 0 13422

Igen, másik változóval. Pl. az egyik lapon lévő adatokból valamilyen feltételnek megfelelőeket akarsz átmásolni egy másik lapra, mindig a következő sorba.

Az első lapon egy for-next ciklusban figyelteted, megfelel-e az érték a feltételnek, majd minden másolás után növeled a változót, ami a beírás helyét határozza meg.

Előzmény: Törölt nick (13418)
Törölt nick Creative Commons License 2010.11.25 0 0 13421

:-))

Előzmény: wawabagus (13416)
SQLkerdes Creative Commons License 2010.11.25 0 0 13420

Ja, boszorkányság ;-)

Előzmény: wawabagus (13419)
wawabagus Creative Commons License 2010.11.25 0 0 13419

Hát az excel szeszélyes...:-) és szokott furcsán gondolkodni :-)...ezt már többször is tapasztaltam.

 

A másik fajta copy működött tökéletesen az immediate ablakban...

 

Szóval én sem értem néha mit akar...

 

de már csak ilyen, a kedvére kell tenni :-)

 

 

Előzmény: SQLkerdes (13417)
Törölt nick Creative Commons License 2010.11.25 0 0 13418

szerintem for each ciklusban szokták használni, esetleg sima for-ban esetleg  másik változóval

Előzmény: wawabagus (13416)
SQLkerdes Creative Commons License 2010.11.25 0 0 13417

Nem hiszem, hogy én voltam a megoldás, mert nem működött a dolog.

 

Ami egy kicsit meglep, hogy az excel által nem szeretett változatnak is ugyanúgy működnie kellene, mint a szívének kedves usedrange-es megoldásnak...

Előzmény: wawabagus (13416)
wawabagus Creative Commons License 2010.11.25 0 0 13416

Köszi :-)

Hát képzeld én hogy örülök :-DDD...

 

Már a hajamat téptem.

Fogom alkalmazni ezt a kiírásos dolgot, tök prakikus.

 

Köszi szépen!!

Nem már átírtam azt a i+1-et...

 

Biztos rosszul emlékszem, de sokan mintha használtátok volna ezt.../rosszul emlékszem...szerintem nem :-))

 

na mindegy, ma is tanultam valami újat :-)!!!

 

Danke!!!

 

 

 

Előzmény: Törölt nick (13413)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!