Keresés

Részletes keresés

fajlkezelo Creative Commons License 2012.07.26 0 0 18390

Sziasztok!

 

fkeres - dátumtartomány probléma.

 

Szeretnék kérni némi segítséget:

 

1. van egy táblám, ahol értékesítési adatok vannak (termék, vevő, dátum, kg)

2. van egy másik táblám, ahol az akciók vannak meghatározva (termék, vevő, dátumtartomány)

 

Szeretném az értékesítési táblában megjelölni azokat a sorokat, amik akciósak (az akciós tábla alapján)

Persze össze tudom fűzni a terméket, vevőt és azt keresni az akciós táblában,

de nem tudok még a dátumtartományt is kezelni.

 

Az akciók táblában a kék fejlécek határozzák meg egyértelműen az akciót.

 

 

Van-e mód, hogy a termék-vevő-dátum alapján kikeressem, hogy a sor akciós-e.

 

 

Köszönöm

Sánta Kutya (SK) Creative Commons License 2012.07.26 0 0 18389

Hogyan lehet dolgozni a munkalapok nevével? Van valakinek olyam mintakódja, ami végigmegy a füleken, és a nevüket feldolgozva dönti el, milyen műveleteket végez?

 

Előzmény: Delila10 (18387)
Törölt nick Creative Commons License 2012.07.26 0 0 18388

és mi van, ha az A51 véletlenül cella üres? :)

Előzmény: Delila10 (18387)
Delila10 Creative Commons License 2012.07.26 0 0 18387

Megvan, hogyan lehet 1 lapot xls fájlba menteni. A makró:

 

Sub Otven()
    Dim fajl$, utvonal$
    
    fajl$ = "1"
    utvonal$ = "E:\Eadat\"  'Itt kell átírni az útvonalat
    Sheets(2).Select
    
    Do While Cells(1) > ""
        Sheets(1).Rows("1:50").Cut Sheets(2).Range("A1")
        ActiveWorkbook.SaveAs Filename:=utvonal & fajl$, FileFormat:=xlExcel3
        
        fajl$ = fajl$ * 1 + 1 & ""
        Sheets(1).Rows("1:50").Delete Shift:=xlUp
    Loop
    
End Sub

 

 

Előzmény: Delila10 (18384)
Sánta Kutya (SK) Creative Commons License 2012.07.26 0 0 18386

Boldog ember vagy! A kettest, mint látható lejjebb, kipróbáltam itthon az Excel 2000-esen, és működik. Az ismétlődő értékek viszont, gyanítom, csak 2007-től vannak.

Nem tudom, miért nem akarsz cellába képletet írni, mikor az olyan jó érzés, és ráadásul egy csomószor sokkal célravezetőbb a makrónál, de ilyen esetben szerintem igen hasznos is, ha makrórögzítővel követed, és máris van egy nyers Basic-kódod, amiből ki lehet indulni.

Előzmény: Törölt nick (18385)
Delila10 Creative Commons License 2012.07.25 0 0 18384

Ha valaki megmondja, hogyan lehet 1 munkalapot menteni xls-be, megoldható.

 

Sub Otven()
    Dim fajl$
    
    fajl$ = "1"
    Sheets(1).Select
    
    Do While Cells(1) > ""
        Rows("1:50").Cut Sheets(2).Range("A1")
        
        'Ide jön a 2. lap mentése fajl$ néven
        
        fajl$ = fajl$ * 1 + 1 & ""
        Sheets(1).Rows("1:50").Delete Shift:=xlUp
    Loop
    
End Sub

Előzmény: attsipos (18366)
attsipos Creative Commons License 2012.07.25 0 0 18383

ha egy reportot akarunk futtatni akkor harom kulonozo rendszerbol kell osszeszedni az adatokat hozza, persze mind kulon formatum tele hibas regiokodokkal, etc...

 

es ez mind egy europai kozpontban hollandiaban..

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

ja, szemét multik, ezen gazdagodnak, nincs infós beruházás majd megoldja a kollega (vagy valaki :)

Előzmény: attsipos (18380)
attsipos Creative Commons License 2012.07.25 0 0 18381

de mar az is jo, ha 1 munkalaprol ment at mindent

 

 

Előzmény: Törölt nick (18379)
attsipos Creative Commons License 2012.07.25 0 0 18380

van olyan munkafuzet amiben 4-5 lap is van, 50 sorok nem mehetnek 1-1 munkalapra a fuzeten belul. mind kulon-kulon filenak kell lennie :(

 

es mielott megkerdezed, h hol dolgozom... egy multinal akiknel 1000 eves rendszerek vannak:(

 

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

egy munkalap van a munkafüzetben?

mehetnek az 50 sorok 1-1 munkalapra a munkafüzeten belül?

Előzmény: attsipos (18376)
Törölt nick Creative Commons License 2012.07.25 0 0 18378

ja vágom

Előzmény: attsipos (18376)
Törölt nick Creative Commons License 2012.07.25 0 0 18377

1200/50= 24 file

Hányan vagytok? :)

mindenki bevállal kettőt, és már csak 12 ember kell.

(kiszámoltam excellel :D)

 

Előzmény: attsipos (18372)
attsipos Creative Commons License 2012.07.25 0 0 18376

otthon 2010 van ha a bentin nem megy akkor hazaviszem ott szetbontom fileokra es visszaviszem masnap pendriveon..

 

 

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

tehát valaki írja meg helyetted, dolgozzon vele. Aztán vagy jó vagy nem.

Előzmény: attsipos (18374)
attsipos Creative Commons License 2012.07.25 0 0 18374

igen ez jo kerdes :d majd a teszt valaszt ad ra...

 

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

Makróval ez szépen kivitelezhető. Ellenben ami lefut 2010-esen, menni fog e 97-en?

Mert a kedvedért asszem senki sem fog feltenni 97-es excelt :)

Előzmény: attsipos (18366)
attsipos Creative Commons License 2012.07.25 0 0 18372

nem tudom milyen tipusu az adatbazis, de ennek nincs is jelentosege, mivel az 50 sorokra felosztott fileokkal meg mas dolgozik, adatokat visz be es utana van feltoltve, tehat excel formatum kell. a lenyeg az, h ezzel havonta van szivas..

Előzmény: Sánta Kutya (SK) (18371)
Sánta Kutya (SK) Creative Commons License 2012.07.25 0 0 18371

Milyen típusú adatbázis ez? Jól sejtem, hogy jobban örülne, ha eleve txt-ben kapná az adatokat?

Előzmény: attsipos (18369)
attsipos Creative Commons License 2012.07.25 0 0 18370

ja es office 97

Előzmény: Sánta Kutya (SK) (18367)
attsipos Creative Commons License 2012.07.25 0 0 18369

Szia, 

 

egy osoreg adatbazisba kell feltolteni az adatokat, de az csak maximum 50 sort kepes kezelni :D 

 

A.

Előzmény: Sánta Kutya (SK) (18367)
tbando Creative Commons License 2012.07.25 0 0 18368

:))

 

És ezek?

 

B oszlop: =darabteli($a$1:$a$100;a1)  végigmásolva, mindegyikről megmondja hány van belőle

C oszlop: =darabteli($a$1:a1;a1) végigmásolva, épp hogy a hanyadik

Előzmény: Törölt nick (18362)
Sánta Kutya (SK) Creative Commons License 2012.07.25 0 0 18367

Csak kíváncsiságból: ez mire jó? Mert én inkább olyan esetekkel találkozom, hogy adatokat kéne összehozni.

Előzmény: attsipos (18366)
attsipos Creative Commons License 2012.07.25 0 0 18366

Sziasztok,

 

Nem ertek sajnos vbhez de van egy problemam ami megoldasra var...

 

van egy excel file amiben van mondjuk 1200 sor. ezt a filet kellene szetbontani kulon fileokra ugy hogy minden egyes bontott fileban 50 sor lehet maximum..

 

tehat

sor1-sor50 - file 1

sor51-sor100 - file2

sor101-150 - file3

 

kicsit gaz 1200 sort 50essevel masolgatni..

 

az lenne jo ha a vb-ben meg lehetne adni a fileok nevet is

 

koszonom

 

Attila

Törölt nick Creative Commons License 2012.07.25 0 0 18365

ja, tényleg azt elírtam

Előzmény: Sánta Kutya (SK) (18364)
Sánta Kutya (SK) Creative Commons License 2012.07.25 0 0 18364

Sh-ctrl enter, és kívül lesz a kapcsos zárójel. Megleptél, mert ez skalár értéket ad, és a tömbképletekkel én még csak tömbtípusú eredménynél találkoztam, de most tanultam valamit. Ez tetszik!

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

1.

melyik excel?

2010-ben feltételes formázás - cellakijelölési szabályok - ismétlődő értékek

 

2.

={ÉS(B1:B10=IGAZ)} TÖMBKÉPLET tehát alt+enteres. Angolosítani nem nehéz ha kell

 

ha az összes elem IGAZ akkor IGAZ, ha van benne üres akkor HAMIS

 

vba-ban ezt már nem nehéz implementálni

Előzmény: Törölt nick (18357)
tbando Creative Commons License 2012.07.24 0 0 18361

1. Sorbarendezed az oszlopot - majd összehasonlitod mindegyik cellát a következővel és megjelölöd hogy azonosak-e vagy sem, majd majd vissza rendezed az oszlopot.

2. F5/Special/Üres cellák 

Előzmény: Törölt nick (18357)
tbando Creative Commons License 2012.07.24 0 0 18360

Az indirekt függvény valóban jó, de ha bezárod a forrásfájlokat, a hivatkozásaid  #HIV re változnak, ami nem túl szerencsés. Ezért ajánlok egy némileg körülményesebb, de még mindig egyszerűbb módszert, mint a hivatkozások egyenkénti beírása. Megszerkeszted a hivatkozások stringrészleteit, majd összefűzöd őket, így kapsz valami ilyesmi formulákat, hogy  ‘=’C:Documents[file1.xlsx]Munka1’!D22. stb. Majd most jön a babrásabb rész: Az összefűzött  stringeket értékké alakítod (CTRL+C  majd special értékbeillesztéssel), majd  egyenként levágod róluk az idézőjel  prefixet az F2-Home-Del-Enter billentyüzéssel.  És kész.

A prefix levágások elvben egyszerűen makrósíthatók, de nekem nem sikerült, mert a hivatkozás képletté alakításakor az excel alapból nem a folyamatot, hanem a makrókészítéskor kapott  képletet tárolja  el, és azt írja be mindenhova.  De vannak itt magroguruk, akik valszeg tudják hogyan kell a képletté alakítást dinamikusan definiálni. Én is kiváncsi lennék rá.   

 

Előzmény: alpbal88 (18354)
Delila10 Creative Commons License 2012.07.24 0 0 18359

Ahogy SK írta, az INDIREKT függvénnyel és összefűzéssel megoldhatod.

 

=INDIREKT("["&A1&"]Munka1!D22")

Előzmény: alpbal88 (18354)

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