Keresés

Részletes keresés

Delila10 Creative Commons License 2012.07.27 0 0 18404

Sikerült összehozni a képletet? Ha nem, itt van egy megoldás az A2 cellára.

 

=HA(ÉS(D2>=FKERES(B2&"@"&C2;$G$3:$K$20;4;0);D2<=FKERES(B2&"@"&C2;$G$3:$K$20;5;0));"igen";"nem")

Előzmény: fajlkezelo (18390)
Delila10 Creative Commons License 2012.07.26 0 0 18403

Szivi.

 

D.

Előzmény: attsipos (18402)
attsipos Creative Commons License 2012.07.26 0 0 18402

koszi.

 

A.

 

 

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

:)

 

Szívesen.

Előzmény: Sánta Kutya (SK) (18398)
Sánta Kutya (SK) Creative Commons License 2012.07.26 0 0 18399

Köszönöm!

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

Ősi BASIC-es szintaxis a hőskorból. :-)

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

Például így lehet:

 

Sub Muveletek()
    Dim lap%, lapnev$, WS As Worksheet
    
    For lap% = 1 To Worksheets.Count
        Set WS = Sheets(lap%)
        lapnev$ = Sheets(lap%).Name
        Select Case lapnev$
            Case "első", "ötödik"
                WS.Range("B1") = WS.Range("A1") * 2
            Case "második", "negyedik"
                WS.Range("B1") = WS.Range("A1") / 2
            Case Else
                WS.Range("B1") = WS.Range("A1") * 1500
        End Select
    Next
End Sub

 

A lapok neve "első", "második", ... "ötödik".

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

Lusta vagyok kiírni az As String-et, ahelyett jó a $ jel. :)

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

amúgy meg tök jó...

mi is az a $ jel? lehet már kérdeztem, de már elfelejtettem.

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

Akkor másképp kell megírni a makrót. :D

 

Arról volt szó, hogy 1200 rekordban van adat. Persze lehet az 1200 különböző, nem összefüggő tartományokban, de ezt valószínűleg közölte volna a kérdező. 

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

Szia!

 

Igen! Vevőnként, termékenként más az akciós tétel.

Körülnézek AB függvényeknél is.

 

 

Köszi

 

Józsi

Előzmény: Sánta Kutya (SK) (18391)
Sánta Kutya (SK) Creative Commons License 2012.07.26 0 0 18392

Egyébként szerintem nézz körül az AB. függvények háza táján, azokkal sokkal kézenfekvőbb megoldani az ilyesmit, mint összefűzögetéssel és fkeressel.

Előzmény: fajlkezelo (18390)
Sánta Kutya (SK) Creative Commons License 2012.07.26 0 0 18391

Jól értem, hogy az akciós intervallum vevőnként eltérően van meghatározva?

Előzmény: fajlkezelo (18390)
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)

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