- Gurulunk, WAZE?!
- bambano: Bambanő háza tája
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: B550 szűk keresztmetszet, de mi és miért?
- Szoszo94: Xiaomi Mi Router 3G - Padavanra fel!
- Chosen: Canon 5D II - portrézás 2025-ben
- Kempingezés és sátrazás
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
#40528
Mutt
senior tag
szatocs1981
#40525
Mutt
senior tag
válasz
szatocs1981
#40525
üzenetére
Szia,
Excel 2016-tól ez a kért mintára műkődik.
=KÖZÉP(SZÖVEGÖSSZEFŰZÉS("";IGAZ;HA(($A$1:$A$1000="x")*(($B$1:$B$1000>0)+($C$1:$C$1000>0));HA($B$1:$B$1000>0;$B$1:$B$1000;$C$1:$C$1000);""));SOR();1)
Azonban félek, hogy a feladatot leegyszerűsítetted és az A,B,C,D értékek a valóságban nem 1 karakter hosszúak, esetleg nem is csak betűk. Ez esetben a fenti képlet nem fog műkődni.
A megoldás, hogy a névkezelőben létrehozol egy változót (én az eredmeny nevet használtam), aminek ez a képlete (ha van | jel a B-C oszlopokban, akkor itt és a következő képletben is egy olyan jelet használj ami nem fordul elő az oszlopokban):=SZÖVEGÖSSZEFŰZÉS("|";IGAZ;HA(($A$1:$A$1000="x")*(($B$1:$B$1000>0)+($C$1:$C$1000>0));HA($B$1:$B$1000>0;$B$1:$B$1000;$C$1:$C$1000);""))Ezek után az E1-nek a képlete ez lesz:
=KIMETSZ(KÖZÉP(HELYETTE(eredmeny;"|";SOKSZOR(" ";HOSSZ(eredmeny)));(SOR()-1)*HOSSZ(eredmeny)+1;HOSSZ(eredmeny)))üdv
-
#40526
lappy
őstag
szatocs1981
#40525
lappy
őstag
válasz
szatocs1981
#40525
üzenetére
=INDEX(HA($A$1:$A$5="x";HA(ÜRES($B$1:$B$5);$C$1:$C$5;$B$1:$B$5);" ");2)eddig jutottam, már csak a tömbből ki kell szedni amik igazak
-
#38027
0P1
aktív tag
szatocs1981
#38022
0P1
aktív tag
válasz
szatocs1981
#38022
üzenetére
Jelöld ki a forrás táblázatot : Adatok - Adatok beolvasása és átalakitása - Táblázatból vagy tartományból
Állitsd be az adott oszlopra a kivánt szűrést, és Bezárás és betöltés. Ezután, ha a forrás táblázat módosul, csak rá kell frissiteni a cél táblázatra.
Az eredeti tartalomra való "linkelés" nem megoldható makró nélkül. -
#36562
Fferi50
Topikgazda
szatocs1981
#36559
Fferi50
Topikgazda
válasz
szatocs1981
#36559
üzenetére
Szia!
A többszáz keresés paramétereit hol tárolod, hogyan jutsz hozzá?
Felveszed makrórögzítővel a Speciális keresést, aztán hozzáigazítod a követelményeidhez. Csak a keresési paramétert és a célterületet kell változtatni.
Szerintem ez elég jól automatizálható.Üdv.
-
#36558
Fferi50
Topikgazda
szatocs1981
#36557
Fferi50
Topikgazda
válasz
szatocs1981
#36557
üzenetére
Szia!
Esetleg megnézheted az Adatok - Speciális menüpontot. Így több szempont alapján is szűrhetsz, lehet helyben is és másoltatni is az eredményt. Ha már van egy ilyen Excel eszköz, szerintem használni kellene.
Üdv.
-
#36556
Fferi50
Topikgazda
szatocs1981
#36553
Fferi50
Topikgazda
válasz
szatocs1981
#36553
üzenetére
Szia!
Hány oszlopban vannak az adataid? Csak ez a három oszlop van?
Mert ettől is függ a megoldási lehetőség.
Üdv.
-
Pakliman
tag
válasz
szatocs1981
#36553
üzenetére
Egy lehetőség még, hogy segédoszlopban képlettel összefűzöd a cellákat (Pl.: =A2 & ":" & B2 & ":" & C2).
Ez után az FKERES-el tudsz keresgélni (Pl.: =FKERES("V2:4:P01";D:D;1;HAMIS)).
Makróval is működik.
Vagy:
Makróval "egyszerre" tudsz keresni az összes oszlopban a range.Find() és range.FindNext() metódusokkal.
Az első oszlopban keresed pl. a "V2"-t, találat esetén megnézed, hogy a 2. oszlopban 4 van-e, ha igen, akkor a 3. oszlopban "P01" van-e. Ha bármelyik kérdésre hamis a válasz, akkor FindNext...
Érdemes tanulmányozni ezeket (nem csak a Find miatt):
[www.ozgrid.com]
[Ron de Bruin oldala] -
#30607
Melack
veterán
szatocs1981
#30604
Melack
veterán
válasz
szatocs1981
#30604
üzenetére
Active Directory céges környezetben. Nekem egyszerűbb azzal dolgoznom, ha már van rá lehetőség.
-
tgumis
tag
válasz
szatocs1981
#30604
üzenetére
Köszönöm a segítséget. Remélem meg tudom csinálni.
-
tgumis
tag
válasz
szatocs1981
#30592
üzenetére
Köszi de az a rész lényegtelen. Akinek kell az tudni fogja, hogy hogyan oldja fel a szűrêst. Az első részében segitsetek légyszíves mert azt nem tudom. Szóval megnyitaskor szűr záráskor kikapcsolja a szűrést.
-
#30602
Melack
veterán
szatocs1981
#30601
Melack
veterán
válasz
szatocs1981
#30601
üzenetére
Tehát AD szinten állítsam be a usert, hogy csak read-only jogai legyenek a file-ra?
-
#30593
Grodd
tag
szatocs1981
#30592
Grodd
tag
válasz
szatocs1981
#30592
üzenetére
Environ("Username") lesz az
Az Application.Username az excelbe beállított felhasználónév (/ tools/options-ben) Ami ugye bármi lehet -
#30520
RAZERXX
aktív tag
szatocs1981
#30500
RAZERXX
aktív tag
válasz
szatocs1981
#30500
üzenetére
-
#29486
szatocs1981
aktív tag
szatocs1981
#29482
szatocs1981
aktív tag
válasz
szatocs1981
#29482
üzenetére
Fejléccel:
Sub Makro1()
Worksheets(1).Select
Sheets.Add
Worksheets(1).Name = "Végeredmény"
WS_Count = ActiveWorkbook.Worksheets.Count
Call TiliToli("A", "E", 2, 0)
Call TiliToli("C", "F", WS_Count, 40)
End Sub
Sub TiliToli(Spalte1, Spalte2, ettol, eddig)
For i = 2 To ettol
utolso = Worksheets(1).Cells(Rows.Count, "A").End(xlUp).Row
For szorzo = 0 To eddig Step 8
For sor = 1 To 8
ujsor = sor + szorzo
Worksheets(1).Cells(utolso + 1, sor) = Worksheets(i).Cells(ujsor, Spalte1).Value
If sor <> 1 Then
Worksheets(1).Cells(utolso + 1, sor + 7) = Worksheets(i).Cells(ujsor, Spalte2).Value
End If
Next sor
utolso = utolso + 1
Next szorzo
Next i
End Sub -
Roxy27
tag
válasz
szatocs1981
#29480
üzenetére
-
Roxy27
tag
válasz
szatocs1981
#29477
üzenetére
Na arra közben rájöttem, hogy mit kell megváltoztatni, hogy végignézze a teljes lapot:
For szorzo = 0 To 40 Step 8
Már csak a fejléc hiányzik, meg hogy gombnyomásra az összes sheet kigyüjtődjön automatikusan. -
Roxy27
tag
válasz
szatocs1981
#29477
üzenetére
Ja már értem miért...
ugye írtam, hogy összesen 48 sor van egy lapon (de én úgy csináltam printscreen-t, hogy 24 látszódik, hogy még olvasható legyen... nem fér egy oldalra és nem akartam kicsinyíteni)
Így igazad van, a 45db-ot kigyűjti... csak 90 kellene
Pont mégegyszer ennyi azaz összesen 6 component és az adatai vannak 1 lapon.
Nem sürgős azért... ha este vagy holnap van időd/kedved, úgy is bőven jó. Csak tényleg úgy lenne értelme, hogy egy makró az összeset egybe összegyűjti automatikusan.
Köszi -
Roxy27
tag
válasz
szatocs1981
#29474
üzenetére
Na most már dolgozik, de még nem okés...
minden sheet-ről csak az első 3 componest gyűjti...
nagy kérés lenne, ha egyszerre összeszedné az összes lapról automatikusan?
(ja és az első lapról mondjuk betenné a felső sorba a megnevezéseket...)Ez a későbbiekben napi feladat lenne, és jó lenne, ha gombnyomásra működne... remélem nem vagyok pofátlan
Előre is nagyon köszi a segítséged!!!! -
Roxy27
tag
válasz
szatocs1981
#29472
üzenetére
Köszi,
beállítottam a Makrót... elindítom, látszik, hogy dolgozik, de nem kerül semmi a "Végeredmény" sheet-re.
Ja, és mit is jelent, hogy egyesével aktiváljam?
Sajnos nem igazán értek hozzá...
Köszi -
#29382
Belnir
csendes tag
szatocs1981
#29381
Belnir
csendes tag
válasz
szatocs1981
#29381
üzenetére
Lehet, hogy már túlbonyolódtam, és mindent akarok. Sajnos ez megesik néha velem. Összeszedem a gondolataim.
Adott egy munkafüzet, melyet a nagyfőnök utasítására készítettem. Bassza a csőröm, hogy a nagyfőnök baszik a munkafüzetre, ezért a közvetlen főnököm kérte, tegyek bele "figyelőt", hogy az arcába toljuk, hogy ő ugyan nem is nézi, ne legyek felesleges feladattal terhelve (mondjuk kb 2 mp napi tevékenység, de ezt nekik nem kell tudni). Kaptam egy szuper kódsort, működik, de feltűnt, hogy kilépés előtt írja be a tevékenységet, és akkor is ment egyet. Tehát ha valaki mégis megnézi, és használja a szűrőket pl, és dolga végeztével kilép, nyom egy nincs mentés gombot, akkor is elmenti a változtatásokat. Ezért áttettem ezt a részt a megnyitás pillanatához, hogy még mielőtt egy egérmozdulatot is tenne, mentődik a megnyitás tevékenysége. Utána matathat, de ha akarja menthet is. Na ez legutóbbit szeretném leszabályozni, hogy ha akar, menthet is legyen kizárva.
Ha valamit rosszul értelmeztem korábban, akkor bocsi.Windows alatt levéded (read_only) és magadat beteszed kivételbe.
A céges hálózatunk egy kicsit bonyolultabb ennél, ilyet nem tudok megtenni, mert amint megtagadom másoktól a jogokat, automatikusan megtagadom magamtól is. -
#29175
Traxx
őstag
szatocs1981
#29169
Traxx
őstag
válasz
szatocs1981
#29169
üzenetére
Köszönöm
Valamiért nekem nem akarja az igazat, sajnos a makrókhoz teljesen kuka vagyok 
Annyit még elmondanék, hogy 2 munkafüzetlapon lenne erre szükség, és ott is csak bizonyos cellákban (a 2 lap felépítése nagyjából azonos, így az a tartomány is, ahol ennek működnie kellene). -
#29159
boboy79
csendes újonc
szatocs1981
#29158
boboy79
csendes újonc
válasz
szatocs1981
#29158
üzenetére
Sziasztok.
Segítséget szeretnék kérni a következőhöz ezt szeretném megcsinálnihttp://data.hu/get/9199087/Screenshot_2015-10-24-17-13-36.png és idáig jutottamhttp://data.hu/get/9199070/Munkaido_naptar.xlsx bocsi azaz előbb elrontottam és nem engedte szerkeszteni. -
lenkei83
tag
válasz
szatocs1981
#29151
üzenetére
Igen, ez a megoldás, köszi.
-
#29129
alfa20
senior tag
szatocs1981
#29118
alfa20
senior tag
válasz
szatocs1981
#29118
üzenetére
köszi, de nem akarom előre kitölteni az "A" oszlopot, mivel nem is tudom mennyi sorra van szükség előre lehet 10-100 vagy 1000 is. Ezért kérdeztem, hogy van -e arra lehetőség, hogy új sor kitöltésekor automatikusan beírja a dátumot a kitöltött sokhoz.
most egyenlőre úgy oldottam meg, hogy mikor bezárják vagy mentik a táblát, akkor egy 'usor' segítségével ki tölti a még üres cellákat az "A" oszlopban, amit rögzít is értékkel aztán ment és kilép.
de nekem jobban tetszene, ha mikor kitöltik a "Bx" cellát akkor az "Ax" cellában megjelenik a dátum
-
#29124
Delila_1
veterán
szatocs1981
#29123
Delila_1
veterán
válasz
szatocs1981
#29123
üzenetére
Jogos a felvetés.
-
#29122
Delila_1
veterán
szatocs1981
#29121
Delila_1
veterán
válasz
szatocs1981
#29121
üzenetére
Szerintem
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Cells(Target.Row, 1) = Date
End Subis elég.
-
#29119
Delila_1
veterán
szatocs1981
#29118
Delila_1
veterán
válasz
szatocs1981
#29118
üzenetére
A adatbevitel végén az A oszlop képleteit értékként önmagukra kell másolni, másképp holnap a holnapi dátumok szerepelnek ott.
-
#29080
PETEE78
senior tag
szatocs1981
#29076
PETEE78
senior tag
válasz
szatocs1981
#29076
üzenetére
Köszönöm! Szerintem menni fog, mindenképpen visszajelzek!
-
#29017
kispéé
senior tag
szatocs1981
#29016
kispéé
senior tag
válasz
szatocs1981
#29016
üzenetére
Érthető mostmár.
Kikísérleteztem a hibát, az volt a baj, hogy a munkafüzetek nem default néven voltak elmentve, hanem egyedi fájlnevük volt, úgy nem működött, rájöttem, hogy a fájlkiterjesztést is kéri ilyenkor ,így azt is beírtam.Tehát:
Windows("fájlnév.xlsm").ActivateEzer köszi a segítséget, innen már tudok tovább boldogulni!
-
#29015
kispéé
senior tag
szatocs1981
#29014
kispéé
senior tag
válasz
szatocs1981
#29014
üzenetére
Így alakul. Odáig jutottam el, hogy egyazon táblázatban megtalálja a keresett értéket, pl. másik fülön már nem. De ha átírom a kódot, hogy másik munkafüzetbe keresse akkor: "out of range"-t kapok.
szerk: tovább alakul, mindjárt írok. Előtte ebédidő
-
#29014
szatocs1981
aktív tag
szatocs1981
#29013
szatocs1981
aktív tag
válasz
szatocs1981
#29013
üzenetére
...mondjuk itt kimaradt valami:
Range("A" & Zelle.Row).Select
-
#29012
kispéé
senior tag
szatocs1981
#29011
kispéé
senior tag
válasz
szatocs1981
#29011
üzenetére
Köszi.
Nálad működik? -
#29010
kispéé
senior tag
szatocs1981
#29008
kispéé
senior tag
válasz
szatocs1981
#29008
üzenetére
Első képen egyik táblázat: G1 cellában lévő számsort szeretném "összelinkelni" a második táblázatban lévő
A1 cellával.
Első kép: (egyik táblázat)
Második kép: (másik táblázat)
-
#28832
Kobe
veterán
szatocs1981
#28830
Kobe
veterán
válasz
szatocs1981
#28830
üzenetére
Elfelejtettem bekopizni, benne van az a sor is....de ettol a type mismatch fennall.
Delila: mukodik, koszi....kicsit kezdek mar belegajdulni, kiszurhattam volna a hulyeseget
-
#28825
Geri89
aktív tag
szatocs1981
#28824
Geri89
aktív tag
válasz
szatocs1981
#28824
üzenetére
Köszönöm!
Valóban.. nem igazán értek a makrokhoz -
#28772
the radish
senior tag
szatocs1981
#28770
the radish
senior tag
válasz
szatocs1981
#28770
üzenetére
Köszönöm!
-
#28749
the radish
senior tag
szatocs1981
#28748
the radish
senior tag
válasz
szatocs1981
#28748
üzenetére
Köszi, ez működik!
-
#28747
the radish
senior tag
szatocs1981
#28746
the radish
senior tag
válasz
szatocs1981
#28746
üzenetére
De igen, számokban kéne. Azonban csak ennél a munkafüzetnél, ezért a globális beállítás módosítása nem járható út.
Ha nem lehet megoldani, akkor marad a csere függvény, csak nem akartam, hogy tovább hízzon a méret. -
#28745
the radish
senior tag
szatocs1981
#28744
the radish
senior tag
válasz
szatocs1981
#28744
üzenetére
Hiába futtatom makróként, nem cseréli le a ","-t "."'-ra.
A kijelölés aktív, de nem cserél. -
#28646
elttiL
senior tag
szatocs1981
#28645
elttiL
senior tag
válasz
szatocs1981
#28645
üzenetére
Már igen.
Annyit tesz, hogy bemásolja a vágólapon levő dolgot A oszloptól kezdődően, de abba a sorba, ahol a kijelölésem van, nem keresi meg az A oszlopban a xxx tartalmú cellát. -
#28538
air
nagyúr
szatocs1981
#28537
air
nagyúr
válasz
szatocs1981
#28537
üzenetére
Köszi.
Már csak annyi segítséget kérnék, hogy miként tudom ezt használatba venni? 
-
#28536
air
nagyúr
szatocs1981
#28535
air
nagyúr
válasz
szatocs1981
#28535
üzenetére
Köszi.
-
#28534
air
nagyúr
szatocs1981
#28533
air
nagyúr
válasz
szatocs1981
#28533
üzenetére
-
#28532
Zola007
veterán
szatocs1981
#28528
Zola007
veterán
válasz
szatocs1981
#28528
üzenetére
fene egye meg őket, így leszakad a kezem a végére
neked azért köszönöm az infót -
#28524
Dolphine
addikt
szatocs1981
#28523
Dolphine
addikt
válasz
szatocs1981
#28523
üzenetére
Csak egyszer kell elkészíteni a táblázatot!
Nagyon köszönöm a segítséget! -
#28522
Dolphine
addikt
szatocs1981
#28521
Dolphine
addikt
válasz
szatocs1981
#28521
üzenetére
Ezer bocsánat én voltam a hülye!
Egy újabb kérdés. Gondolom ez a makró csak makróképes EXCEL-ként menthető, igaz? Különben nem tudom futtatni! -
#28520
Dolphine
addikt
szatocs1981
#28518
Dolphine
addikt
válasz
szatocs1981
#28518
üzenetére
Valószínűleg valamit rosszul csinálok, mert a makrónál Error üzenet jön ki!
-
#28459
spe88
senior tag
szatocs1981
#28452
spe88
senior tag
válasz
szatocs1981
#28452
üzenetére
elég sokat kérdezek mostanában, néha magam sem tudom már hogy hogy állok a fajllal :-D
-
#28426
spe88
senior tag
szatocs1981
#28389
spe88
senior tag
válasz
szatocs1981
#28389
üzenetére
Köszi most már működik, az is volt baj, hogy a sorokkal volt egy kis csúszás, ezért fals adatokat dobott, de most működik úgy néz ki!
Kellene megint egy kis segítség:
Van egy sorom, amiben hol angol, hol német, hol spanyol stb. a szöveg, attól függ melyik fájlt húzza be a makró!
Van-e olyan képlet, hogy ha az adott sorban megtalálja az angol szöveget, akkor azt írja le, ha nem találja, akkor keressen a német után és ha az megvan, akkor írja be azt, ha az sincs, akkor keressen a spanyol után és így tovább...
HA függvénnyel próbálkoztam, de az tartományt nem tud figyelni tudtommal, és az oszlopok meg nem mindig ugyanolyan sorrendben vannak ezért kéne sor tartományban keresni, mert a fejléc mindig ugyanabban a sorban van!
Köszi
-
#28415
tzimash
őstag
szatocs1981
#28413
tzimash
őstag
válasz
szatocs1981
#28413
üzenetére
Köszi! Most már tényleg jól működik
Delila_1
Neked is köszönöm. -
#28399
tzimash
őstag
szatocs1981
#28360
tzimash
őstag
válasz
szatocs1981
#28360
üzenetére
Mégsem jó...
For sor = usor To 2 Step -1
If InStr(Cells(sor, "C"), "VBS/BS ") > 0 And Cells(sor, "F").Value = 8960 And Cells(sor, "D").Value = "J" And Cells(sor, "B").Value <> (2381273 Or 2381389 Or 2587841 Or 2437821 Or 2531518 Or 2417707 Or 2832690) Then
Rows(sor).Delete Shift:=xlUp
End If
NextAmit szeretnék, hogy csináljon:
Törölje az összes olyan sort, ahol a C oszlop tartalmazza azt hogy VBS/BS és F oszlop értéke 8960, D oszlopé "J", kivéve az olyan sorokat, ahol B oszlop értéke megegyezik az utolsó feltételben megadott 7db számmal. Azoknak tehát meg kellene maradnia.Amit most csinál: Ez utóbbi feltételt nem veszi figyelembe és törli azokat a sorokat is, ahol B oszlop értéke a megadott 7db szám.
Ötlet?
-
#28395
zoli1962
csendes tag
szatocs1981
#28393
zoli1962
csendes tag
válasz
szatocs1981
#28393
üzenetére
Nagyon köszönöm
-
#28388
Delila_1
veterán
szatocs1981
#28387
Delila_1
veterán
válasz
szatocs1981
#28387
üzenetére
Passz.
-
#28382
Delila_1
veterán
szatocs1981
#28377
Delila_1
veterán
válasz
szatocs1981
#28377
üzenetére
Működik!
Botorul a 3 cellába (D1:D3) egyszerre vittem be a képletedet.
-
#28379
spe88
senior tag
szatocs1981
#28377
spe88
senior tag
válasz
szatocs1981
#28377
üzenetére
Ahogy elnéztem az office súgóban az ISTZAHL az ugyanaz mint a SZÁM! Szóval működnie kéne :/
-
#28378
Delila_1
veterán
szatocs1981
#28377
Delila_1
veterán
válasz
szatocs1981
#28377
üzenetére
IGAZ, vagy HAMIS értéked ad, értelemszerűen.
-
#28375
Delila_1
veterán
szatocs1981
#28371
Delila_1
veterán
válasz
szatocs1981
#28371
üzenetére
Nálam sem akarja az igazságot. Egyébként huba csíszott a képletedbe, a sor($1:$100)) elé bekerült egy } karakter.
-
#28374
cekkk
veterán
szatocs1981
#28356
cekkk
veterán
válasz
szatocs1981
#28356
üzenetére
Köszönöm!
Makrót még nem futtattam, remélem sikerül majd.
-
#28373
spe88
senior tag
szatocs1981
#28369
spe88
senior tag
válasz
szatocs1981
#28369
üzenetére
Így néz ki, de nem adja be
Mit csinálok rosszul? -
#28370
Delila_1
veterán
szatocs1981
#28369
Delila_1
veterán
válasz
szatocs1981
#28369
üzenetére
Igaz.
-
#28368
Delila_1
veterán
szatocs1981
#28367
Delila_1
veterán
válasz
szatocs1981
#28367
üzenetére
Hol írtam?
-
#28365
spe88
senior tag
szatocs1981
#28364
spe88
senior tag
válasz
szatocs1981
#28364
üzenetére
Neked működött?
Mert ha igen vmit rosszul csinálok, mert nekem semmi!Másik kérdésem:
Van olyan függvény, ami egy adott tartományban keres egy adott szöveget és ha nem találja, akkor keres egy másikat és egy másikat, míg meg nem találja azt, ami létezik és annak kiírja vagy a cellaszámát, de még jobb lenne, ha a tartalmát írná ki!
amikkel próbáltam: fekeres, index, hol.van, ab.mező, de sztem vmi brutál egymásba ágyazással megy csak ez is vagy csak túlbonyolítom!
Köszi
-
#28362
tzimash
őstag
szatocs1981
#28360
tzimash
őstag
válasz
szatocs1981
#28360
üzenetére
For sor = usor To 2 Step -1
If InStr(Cells(sor, "C"), "VBS/BS ") > 0 And Cells(sor, "F").Value = 8960 And Cells(sor, "D").Value = "J" And Cells(sor, "B").Value <> (szam1 Or szam2 Or szam3) Then
Rows(sor).Delete Shift:=xlUp
End If
NextKöszi.
Így jó lett -
#28359
tzimash
őstag
szatocs1981
#28357
tzimash
őstag
válasz
szatocs1981
#28357
üzenetére
Thx.
Van ez a sor, amiben segítettél az előbb, közben módosítottam rajta:
If InStr(Cells(sor, "C"), "VBS/BS ") > 0 And Cells(sor, "F").Value = 8960 And Cells(sor, "D").Value = "J" And Cells(sor, "B").Value <> 2381273 ThenHogyan érem el azt, hogy a "2381273" mellett több számot is figyelembe vegyen?
-
#28354
tzimash
őstag
szatocs1981
#28344
tzimash
őstag
válasz
szatocs1981
#28344
üzenetére
Ha a példában látható "7200"-at kicserélem egy szöveges karakterre, akkor is működnie kellene? PL ...value = J
-
#28353
cekkk
veterán
szatocs1981
#28352
cekkk
veterán
válasz
szatocs1981
#28352
üzenetére
4 jegyűek és van előttük egy A betű.
Nagyon szépen köszönöm!
-
#28351
cekkk
veterán
szatocs1981
#28350
cekkk
veterán
válasz
szatocs1981
#28350
üzenetére
Köszönöm!
És kiegészíteni, hogyan tudom?
-
#28349
cekkk
veterán
szatocs1981
#28348
cekkk
veterán
válasz
szatocs1981
#28348
üzenetére
Akkor érdemes lenne mondjuk az "A" kicserélni egy 9-esre esetleg?
Valamivel meg kellene különböztetnem őket egymástól.Van valami módszer amivel lelehet vágni az első karaktert és úgy kivenni az A betűt?
Köszönöm a segítséged.
-
#28345
tzimash
őstag
szatocs1981
#28344
tzimash
őstag
válasz
szatocs1981
#28344
üzenetére
Köszi!
-
#28108
spe88
senior tag
szatocs1981
#28107
spe88
senior tag
válasz
szatocs1981
#28107
üzenetére
Köszi. Megpróbálom a makrot! Amúgy az a baj, hogy a 2 fájl sem mindig ugyanoda fog letoltodni mert többen hasznaljuk egy hálózaton... Ezért nehez szerintem...
-
#28042
ThaBoss
senior tag
szatocs1981
#28040
ThaBoss
senior tag
válasz
szatocs1981
#28040
üzenetére
Képletezve szeretném, de az ötlet jó, köszönöm!
Fferi50:
Köszönöm, jónak tűnik! Örök hála! -
#28034
RedHarlow
aktív tag
szatocs1981
#28033
RedHarlow
aktív tag
válasz
szatocs1981
#28033
üzenetére
Ez a rész pontosan mi?
=SOR(1:99))*1)}
-
#27985
rebb
tag
szatocs1981
#27979
rebb
tag
válasz
szatocs1981
#27979
üzenetére
Szuper, ez lesz az!
Nagyon nagy vagy!
Köszönöm szépen.
Hogyan tudom meghálálni?Üdv:
-
#27981
gyu84
tag
szatocs1981
#27977
gyu84
tag
válasz
szatocs1981
#27977
üzenetére
Köszönöm szépen! Ezt a függvényt nem ismertem!
-
#27978
rebb
tag
szatocs1981
#27975
rebb
tag
válasz
szatocs1981
#27975
üzenetére
Köszönöm szépen.
Szuper!Viszont ez hozott magával még egy problémát.
Lefuttattam, de a sor végi időpont összesítő "érték"-re változott.Mire rájöttem, hogy az üresen lévő cellákkal is csinál valamit a makro, mert már nem tudja rendesen összeadni az excel, csak ha az üres cellákat újra kitörlöm.
Esetleg erre is valami?
Mert az üres cellákból is van egy pár ezer.Köszönöm előre is.
ugye írtam, hogy összesen 48 sor van egy lapon (de én úgy csináltam printscreen-t, hogy 24 látszódik, hogy még olvasható legyen... nem fér egy oldalra és nem akartam kicsinyíteni)
Pont mégegyszer ennyi azaz összesen 6 component és az adatai vannak 1 lapon.
Annyit még elmondanék, hogy 2 munkafüzetlapon lenne erre szükség, és ott is csak bizonyos cellákban (a 2 lap felépítése nagyjából azonos, így az a tartomány is, ahol ennek működnie kellene).
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Házi hangfal építés
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Asustor NAS
- Sweet.tv - internetes TV
- Gurulunk, WAZE?!
- Teljes verziós játékok letöltése ingyen
- Nyaralás topik
- Macska topik
- bambano: Bambanő háza tája
- Macron betiltatná az EU-ban a közösségi médiát a 15 év alattiaknak
- További aktív témák...
- Keresünk dokkolókat
- BESZÁMÍTÁS! Microsoft XBOX Series S 512GB játékkonzol garanciával hibátlan működéssel
- BESZÁMÍTÁS! Asus Rog Zephyrus G14 notebook - R9 4900HS 16GB RAM 512GB SSD RTX 2060 6GB Max-Q WIN10
- Telefon felvásárlás!! Xiaomi Redmi Note 13, Xiaomi Redmi Note 13 Pro, Xiaomi Redmi Note 13 Pro+
- Honor Pad X8 64GB, Wi-Fi, 1 Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged