- Redmi Note 12 Pro - nem tolták túl
- Yettel topik
- DIGI Mobil
- MIUI / HyperOS topik
- OnePlus 7 - magabiztos folytatás
- iOS alkalmazások
- Realme GT 2 Pro - papírforma
- Új Beats fej- és fülhallgatók jelentek meg
- Futott egy Geekbench kört egy új HTC készülék
- Készülőben a Xiaomi 2021-es csúcsmodelljeinek HyperOS frissítése
Hirdetés
-
Agyi chipes gyártóba fektetett a kriptocég
it A Tether 200 millió dollárt fektet a Blackrock Neurotech agyi chipes vállalatba.
-
AMD Radeon undervolt/overclock
lo Minden egy hideg, téli estén kezdődött, mikor rájöttem, hogy már kicsit kevés az RTX2060...
-
Saját Redmi Note 13 Pro+ a világbajnok focicsapatnak (és indiai rajongóiknak)
ma Argentína nemzeti válogatottjának mezével díszítik az új Redmi különkiadást.
-
Mobilarena
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
-
cekkk
veterán
válasz szatocs1981 #28350 üzenetére
Köszönöm!
És kiegészíteni, hogyan tudom?
-
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!
-
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
-
spe88
senior tag
hali,
adott két oszlop
ok 156
ok 121
ok 321
nok 126
ok 585
nok 696
ok 758
ok 654
nok 132Milyen képlettel lehet megoldani, hogy kidobja a 126, 696, 132 értéket 3 különböző cellákba?
Szűrés most nem játszik, ezekből megy tovább a képlet!Létezik ilyen?
köszi
Spóroljunk! Kerül, amibe kerül!
-
szatocs1981
aktív tag
Jelöld ki a cellákat, amiket, módosítani szeretnél, majd futtasd le a következö makrót:
Sub Makro1()
Dim Zelle As Range
For Each Zelle In Selection.Cells
Zelle.Value = Left(Zelle.Value, 1) & Right("000" & Right(Zelle.Value, Len(Zelle.Value) - 1), 4)
Next Zelle
End SubA kijelölt cellákat az alábbiak szerint módositja:
Az elsö karakter változatlan marad, majd hozzátol 3db 0-t, végül levágja 4 jegyüre!Elötte készíts mindenképpen biztonsági másolatot!
[ Szerkesztve ]
-
Mittu88
senior tag
Sziasztok!
Outlook VBA-t még sose programoztam, de az megoldható valahogy, hogy ha levelet kapok és van csatolmánya, akkor azt automatikusan a levél érkeztetésekor adott helyre lementse? (nem zipben, hanem eredeti fájlformátumban)
-
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?
-
sedyke
tag
Sziasztok!
Akár Pivotban, akár képlettel lehetséges az, hogy mondjuk összegezzük a napi bevételt egy cellában, egy másikban pedig felsorolná az összesített értékhez tartozó értékeket?
Pl.
01/09 termék1 500,00Ft
01/09 termék2 350,00Ft
01/09 termék3 500,00Ftés az összesítő táblazatomban úgy szerepelne, hogy
01/09 1350,50 Ft termék1, termék2, termék3?
A termékek egy cellában felsorolva... -
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 -
szatocs1981
aktív tag
{=ha(sor()>szum(szám(szöveg.talál(C$1;A$1:A$100))*1);"";index(B:B;kicsi(ha(szám(szöveg.talál(C$1;A$1:A$100));}sor($1:$100));sor(A1))))
Evvel mennie kell! Ez nem sima, hanem egy tömbképlet (ctrl+alt+enter a végén, {} nélkül!)
Nekem német nyelvü excelem van, így lehet a függvények neve nem egészen stimmel. Ha nem müködik, akkor azokat ellenörizd le! -
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
Spóroljunk! Kerül, amibe kerül!
-
Delila_1
Topikgazda
Ilyen megoldásra gondoltál?
A B1 cella képlete
=HA(BAL(A1;3)="nok";KÖZÉP(A1;SZÖVEG.KERES(" ";A1)+1;5)*1;"")
A KÖZÉP függvénynél biztonság kedvéért adtam 5-öt az utolsó paraméterhez, hátha hosszabb számok is lesznek a szöveg mögött.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szatocs1981
aktív tag
@Delila: azt irja, hogy két oszlopban vannak a kiindulási adatok!
Igen, nálam müködik.
azt elfelejtettem, hogy a C1-be ird be, hogy "nok".
idézöjel nélkül!és az elsö cellát amibe ezt bemásoltad, húz le, ameddig a vizsgálatot akarod megcsináltatni!
Amúgy "nekem semmi" az mit jelent? Hibaüzenet? vagy üres marad a cella?
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz szatocs1981 #28367 üzenetére
Hol írtam?
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz szatocs1981 #28369 üzenetére
Igaz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
spe88
senior tag
válasz szatocs1981 #28369 üzenetére
Így néz ki, de nem adja be
Mit csinálok rosszul?Spóroljunk! Kerül, amibe kerül!
-
cekkk
veterán
válasz szatocs1981 #28356 üzenetére
Köszönöm!
Makrót még nem futtattam, remélem sikerül majd.
-
Delila_1
Topikgazda
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.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szatocs1981
aktív tag
válasz Delila_1 #28375 üzenetére
Ez az eredeti, ami nálam müködik:
=WENN(ZEILE()>SUMME(ISTZAHL(FINDEN(C$1;A$1:A$7))*1);"";INDEX(B:B;KKLEINSTE(WENN(ISTZAHL(FINDEN(C$1;A$1:A$7));ZEILE($1:$7));ZEILE(A2))))A neten az "ISTZAHL" német függvényt nem találta az office fordító. Mit csinál a magyar "SZÀM" függvény?
Itt lehet a kutya elásva[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz szatocs1981 #28377 üzenetére
IGAZ, vagy HAMIS értéked ad, értelemszerűen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
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 :/
Spóroljunk! Kerül, amibe kerül!
-
Delila_1
Topikgazda
Itt egy saját függvény.
Function Megkeres(tartomany As Range, ertek As String)
Dim CV As Range
For Each CV In tartomany
If InStr(CV, ertek) Then
Megkeres = CV
Exit Function
End If
Next
Megkeres = "Nincs " & ertek & " a tartományban"
End FunctionA cellába beírod =megkeres(A1:A9;"nok")
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz szatocs1981 #28377 üzenetére
Működik!
Botorul a 3 cellába (D1:D3) egyszerre vittem be a képletedet.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
spe88
senior tag
válasz Delila_1 #28380 üzenetére
Sikerül mindig valami tuti dolgot betalálnom, amit nehéz megoldani!
A gond ezzel, hogy ez makró és mindig le kell futtatni! Nekem ez nem lenne para de kollégáknak igen! A másik meg, hogy ha van benne NOK!
Neked jó?
Annyi, hogy a makrót bedobtam a VBE-ba és utána a tartományt átírtam..
Működni kéne!Spóroljunk! Kerül, amibe kerül!
-
senior tag
A segítségeteket szeretném kérni.
Egy olyan problémába ütköztem, hogy két időpont egymásból való kivonása hibás eredményt ad random.Akkor tudom javítani, ha nagyon precízen, pl. 12:00:00,00 formátumban adom be. Ez nagyon macerás.
Vajon mit állíthattam el, vagy mi lehet az oka? -
Delila_1
Topikgazda
A képletben a "nok" helyett egy cellahivatkozást írhatsz, ami a keresett szöveget tartalmazza, vagy az éppen keresendő karaktereket.
Nem kell "futtatni", hiszen ez egy függvény, olyan, mint bármelyik másik Exceles.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz szatocs1981 #28387 üzenetére
Passz.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szatocs1981
aktív tag
OK, (talán) közben rájöttem.
D1-hez kellene bemásolni a függvényt, majd "lehúzni" a vizsgálandó cellák soráig. A csatolt képen én ugy veszem ki, hogy D12-nél indul. Így üresen marad minden....Talán...De az tuti, hogy D12-nél, a sor legvégén, az "A1" az nem stimmel, ott "A12"-nek kellene állnia.
[ Szerkesztve ]
-
zoli1962
csendes tag
Biztos nagyon egyszerű,de én nem tudom. Legyen A1-től A10-ig cellákba beírt számokat szorozza össze, de ha például csak A5-ig van írva akkor azt az öt számot szorozza össze.valamilyen egyszerűbb képlettel. és nem végéig írva az összes cellát szorzásként. köszönöm
-
Babcyka88
újonc
Sziasztok!
Szeretnék segítséget kérni. Megnyomhattam valamit, de nem tudom, hogy mit, mivel nincs scroll lock billentyűm. Egy hagyományos billentyűzetet használtam. Nem tudom használni az Excelben a nyilakat használni a cellák közötti mozgatásra, csak a görgőket mozgatja.Köszi a segítséget! :)
-
zoli1962
csendes tag
válasz szatocs1981 #28393 üzenetére
Nagyon köszönöm
-
Fferi50
őstag
válasz Delila_1 #28340 üzenetére
Szia!
Akkor fordítva adom meg a szűrőfeltételt, ugyanannak a lapnak a "következő" oszlopaiba irányítom a szűrést, majd az eredeti oszlopokat - a szűrőfeltétellel együtt - kitörlöm. Megy ez makróval is persze, esetleg formázni kell az új oszlopokat.
(Viszont nem tudom, ha az autoszűrő nem ment, akkor vajon a spec/irányított szűrő megy-e.)Üdv.
-
bsh
őstag
üdv,
lenne egy VBA-s problémám, van benne excel is de nem hiszem, hogy szorosan excelhez kapcsolódik, inkább csak simán láma vagyok VBA-ban
szóval ez egy vba script lenne autodesk inventorhoz, amit úgy működne, hogy az épp megnyitott rajzon többféle dolgot megcsinál ha lefuttatják, ezek egyike a problémás. (a "többféle dolog" szubrutinok meghívását jelenti, ez az egyik.)
ez annyit csinálna, hogy ha van a rajzon darabjegyzék, akkor azt átmásolná excel-be, némi formázást is raktam rá, hogy csini legyen, aztán menti.
itt egy kódrészlet.
az 51-es sorral van a gond. de szerintem nem magával azzal a sorral van a baj (mert az működik - lásd később), hanem inkább a létrehozott objektumok scope-jával.
ugyanis a következőt csinálja: több rajzon egymás után lefuttatva tökéletesen működik, egészen addig, amíg egy olyan rajzon fut le, ahol már létezik az xls fájl. ekkor mentéskor felajánlja, hogy felülírja-e (ez így jó is) és minden rendben. viszont, a következő rajzon lefuttatva már hibákat dob az 51-es sornál. ha kihagyom a sort (vagy on error resume next), akkor pedig látszólag bezárja a végén az excel-t ahogy kell, viszont ott marad az excel process. innentől már mindig hibázni fog és nem működik rendesen, akkor sem, ha kilövöm a létrehozott excel processeket.
a hibák amiket dobál, pölö: runtime error 438: object doesn't support this property or method.
aztán volt 462 is (valami remote server or application...)
meg 1004 is.én valami context változásra gyanakszom onnantól, hogy felül kell írnia egy létező fájlt, és innentől egy nem létező objektumon akarja a range-tes sort futtatni, meg egy nem létező excel appot akar bezárni? de nekem ezek már magasak sajnos.
valaki segítene? thx. -
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?
[ Szerkesztve ]