- bitpork: Augusztus 2- szombat jelen állás szerint.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- Parci: Milyen mosógépet vegyek?
- sziku69: Szólánc.
- Aggregátor gondjai, örömei, és elmélkedései
- Chosen: Canon 5D II - portrézás 2025-ben
- zebra_hun: Hűthető e kulturáltan a Raptor Lake léghűtővel a kánikulában?
-
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
-
Roxy27
tag
Sziasztok,
lenne egy (számomra) bonyolult kérésem...
A következő dolgot szeretném egy excel-ben.
Van több fül... az egyik sheet az tartalmazza a fő listát, a többi már szűrt és csoportosított.
A lényeg, hogy az A oszlopban 6 jegyű számok vannak, a mellette levőben pedig különböző adatok.
Arra lenne szükségem, hogy az első sheet A oszlopában levő számot megkeresné a többi fülön, és ahol megtalálta az egyezést, ott az 1-es sheet-en szereplő ugyanebben a sorban lévő adatokat (3 cella) másolja a megtalált sheeten levő adott cellákba
(egy sorban az egyező cellával, de adott helyre... a többi adat mögé)
Remélem érthetően írtam le... Előre is köszi a segítséget!
-
Delila_1
veterán
válasz
Jofi81
#33393
üzenetére
B20:
=INDEX($A$5:$C$16;HOL.VAN(MAX($B$5:$B$16);$B$5:$B$16;0);1)
B21:=INDEX($A$5:$C$16;HOL.VAN(MAX($C$5:$C$16);$C$5:$C$16;0);1)
C20:=INDEX($A$5:$C$16;HOL.VAN(MIN($B$5:$B$16);$B$5:$B$16;0);1)
C21:=INDEX($A$5:$C$16;HOL.VAN(MIN($C$5:$C$16);$C$5:$C$16;0);1)
D20:=MAX(B5:B16)
D21:=MAX(C5:C16)
E20:=MIN(B5:B16)
E21:=MIN(C5:C16)Jópofa feladat. Különösen az tetszik, hogy "jelölje piros háttérrel, és piros szöveggel a 2,0000-nál nagyobb értékeket". Ekkor nem látszanak az adatok.
AKG: szívesen.
-
AKG
tag
Üdv Mindenkinek!
Következő segítségkéréssel fordulnék hozzátok:
Adott egy excek táblázat,több munkalap füllel.
Az egyik munkalap adott értékéhez keresnék a másik munkalapban hozzátartozó értéket.
Az fkeres függvényem így néz ki:
=FKERES(A2;adatbázis!A2:J719;10;HAMIS)
Az oszlop,amihez a keresést hozzáadom,700 sorból áll.
Az oszlop első sorába beírom a függvényt,majd lehúzom a majd 700 sorba.
Igen ám,de a lehúzás miatt az adatbázisban keresendő első érték is változik,azaz:
=FKERES(A21;adatbázis!A240:J719;10;HAMIS)Hogyan tudnám a adatbázis A értékét állandónak megadni?
Ha dollárjelet teszek a betűjel mellé,jó lehet?
Segítségeteket előre is köszönöm!
-
sziasztok!
újabb kérdésem van, egy olyan egyszerű dolgot próbálok kivitelezni, hogy egy oszlopban megtaláljak egy bizonyos értéket, majd az ezen érték alatt lévőket szummázzam. egy darabig működött is, e aztán a Match függvény megadta magát egy 1004-es hibakóddal és azóta ne hajlandó üzemelni. a neten szörfölve több hasonló jelenségről írtak, de nem találtam egy igazán praktikus kódot erre az egyszerű dologra, egy for ciklussal meg nem akarok végigszaladni sokszáz oszlopon. ti hogyan oldanátok meg? köszi előre is
-
Polllen
nagyúr
Üdv!
Kellene egy kis segítség.
Adott két cikkszám:
56116E03
56116000A sumifs ezeket ugyanannak gondolja és a hozzájuk tartozó értékeket összeadja némi duplikációt okozva a számolásban. (A cikkszám az egyik feltétel.)
Mit lehet tenni, hogy normálisan működjön és ne keverje őket?
-
Delila_1
veterán
válasz
Jofi81
#33384
üzenetére
A =KEREKÍTÉS(A1;4) függvény az A1 cellában lévő szám 4 tizedesre kerekített értékét adja vissza.
A második kérdés addig tiszta, hogy pl. a MIN érték sorát kell meghatározni.
=HOL.VAN(MIN(A1:A20);A1:A20;0)A képlet az A1:A20 tartomány legkisebb értékének a sorát adja.
Azt viszont nem tudom, mit jelent "a minimumok közül a legnagyobb értékű fajta" neve.
-
Jofi81
őstag
Sziasztok! Segítséget kértek tőlem Excelből, de egy-két dolog nekem sem tiszta:
- Hogyan tudom megoldani, hogy "a számmezők függvény segítségével legyenek kerekítve 4 tizedes jegyre"? Én mindig csak a tizedesjegyek növelését, csökkentését használtam.
- MIN/MAX függvénynél nem azt értéket kellene kiíratni, hanem a sor- vagy oszlop nevét, tehát például "függvény(ek) segítségével adja meg a minimumok közül a legnagyobb értékű fajta nevét".
Előre is köszönöm a segítséget!
-
Fferi50
Topikgazda
Szia!
A Thisworkbook kódlapjára másold be:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Type = xlWorksheet Then Range("A1").Select
End Sub
Ez minden esetben, amikor az aktívvá válik egy munkalap, az A1 cellára viszi a kurzort.
Ne feledd, hogy makróbarát (xlsm) munkafüzetként kell menteni.Ha viszont csak egyszer szeretnéd áttenni a kurzort, akkor ezt a makrót futtasd le:
Sub allitja()
Dim sh As Worksheet, ii As Integer
Application.ScreenUpdating = False
ii = ActiveSheet.Index
For Each sh In Worksheets: sh.Activate: sh.Range("A1").Activate: Next
Sheets(ii).Activate
Application.ScreenUpdating = True
End SubVégigmegy a munkalapokon és mindenütt az A1 cellára állítja a kurzort.
Ezt beteheted egy munkalap kódlapjára, vagy egy általános modulra, majd a futtatás után törölheted a kódot tartalmazó munkalapot és mentheted makró nélkül.Üdv.
-
Fferi50
Topikgazda
válasz
Pulsar
#33373
üzenetére
Szia!
"Két random szám van osszebrakva vesszővel elválasztva." Akkor ez a cella sajnos szöveg eredetileg és az érték függvény ezért hagyja le a "tizedesvessző"-nek gondolt rész után levő értéket.
"Az jutott eszembe, hogy a ket kapott számot össze fűzöm és osztom 100-al is ezt az eremenyt kapom,"
Nem, nem ezt az eredményt fogod kapni - amennyiben ezt szeretnéd, akkor az első számhoz a második szám osztva százzal eredményét kell hozzáadni. Azaz =elsőszám+másodikszám/100
Ebben az esetben maga az Excel fogja kirakni a tizedesvesszőt és szám lesz a cella formátuma is.Üdv.
-
-
tankraid
aktív tag
válasz
Fferi50
#33375
üzenetére
Köszönöm! Azt már sikerült kiíratni, hogy melyik sorban van a keresett érték a HA viszont nem a legjobb erre a célra. (vagy én legalábbis nem tudtam megoldani vele) 3 érték jöhet ki és a hozzájuk tartozó eredmény. Tehát ha 1 akkor x1 ha kettő akkor x2 ha három x3. Az kellene, hogy monitorozza a cellát ahova kijön a sor száma és annak függvényében adja meg az eredményt. Vagyis, hogy x1,x2 vagy x3.
-
Fferi50
Topikgazda
válasz
tankraid
#33374
üzenetére
Szia!
A HOL.VAN függvényt nézd meg, az a keresett érték helyét adja vissza. Ezután használhatod a HA függvényeket egymásba ágyazva vagy a VÁLASZT függvényt, amelynél a HOL.VAN függvényben visszakapott érték alapján jön létre az eredmény.
Javaslom a függvényvarázsló(állapotsor fx ikon) és a súgó használatát hozzá.Üdv.
-
tankraid
aktív tag
Sziasztok,
Olyan kérdésem lenne, hogy egy bizonyos értéket, hogy lehet kiíratni, hogy adott tartomány mely cellájában található? pl. a 4-es szám az melyik sorban van 1,2 vagy 3
Illetve ha ez megvan, hogy lehet ehhez értéket rendelni/megfeleltetni? pl. ha az eredmény 1 (azaz első sor) akkor az érték : x1, ha az eredmény 2 (azaz második sor) akkor az érték : x2, és így tovább.....
Segítségeteket előre is nagyon köszönöm!
-
#33373
Pulsar
veterán
Juditta_56
#33372
válasz
Juditta_56
#33372
üzenetére
Nem tudom, kiprobálom azt is, köszönöm
Ami még eszembe jutott, hogy a másold szám egy keplet eredménye. Két random szám van osszebrakva vesszővel elválasztva. Az jutott eszembe, hogy a ket kapott számot össze fűzöm és osztom 100-al is ezt az eremenyt kapom, de mar lehet szamként. -
-
-
Sziasztok,
szenvedek egy pár napja egy problémával, de nem jövök rá a megoldásra.
Adott egy szám egy táblában. Ezt a számot átmásolom egy másikba makróval. Átmásolás után a képen látható "hiba" jelenik meg. A másolt cella, és a hely, ahová másolom cella is számra van formázva.
Ha itt rányomok arra, hogy átalakítás számmá, akkor minden kafa. De ezt a lépést szeretném valahogy makróval kiváltani, mert sok sok szám van.
Van erre ötlete valakinek?
Előre s köszönöm
-
Dr V
őstag
Sziasztok!
Ha egy táblázat alá új sorba elkezdek írni, az autómatikusan a táblázat részéé válik, és a táblázatban szereplő képleteket bemásolja. Viszont, ha lveédem a lapot, akkor ez a funkció nem működik, ami eléggé nagy problémát jelent számomra. Hogyan védjem le a lapot, hogy ez a funkció továbbra is működjön?
-
Dr V
őstag
Szaisztok!
2013as excelben a képletek nem müködnek. PL: =munkalap!F4 esetén nem másolja be a hivatkozott cella értékét.Múlt héten a lapokat védtem le, illetve szerkeszthető területeket jelöltem ki.
Hogy tudnám visszaállítani a képletek működését?Update: közben meglett a megoldás: az automatikus számítás ki lett kapcsolva.
-
FrezeR
senior tag
Sziasztok
Kis segítséget szeretnék kérni nagy mennyiségű adat kezelésével kapcsolatban.
Adott egy esetenként több állomány, amiben rengeteg e-mail cím található.
Ebből a listából kellene nekem különböző kulcsszavak alapján kiszűrni az azokat tartalmazó címeket, amiben pl szerepel ilyen szó, hogy alma, ajto, ablak stb.Hogy tudnám ezt a legegyszerűbben megoldani? Csak szűrés segítségével, vagy van ettől gyorsabb jobb megoldás is?
Köszi
-
alfa20
senior tag
Sziasztok!
2016-os Excel-ben MySQL-ből adatok lekérdezésével és a feldolgozásával nincs problémám, de nem van rá mód hogy Excelből vissza mentsem MySQL-be a feldolgozott adatokat?
oszlopok nem változnak a csak sorokkal bővülne.valakinek lenne ötlete a visszatöltésre?
Néztem az Excel szerkesztőjét, de ott nem találtam új sor hozzáadást.
-
#33356
Delila_1
veterán
Lasersailing
#33355
Delila_1
veterán
válasz
Lasersailing
#33355
üzenetére
Ha a sor kell, akkor
Sub NyolcNagySora()
Dim i As Byte, sor As Byte
sor = 43
For i = 1 To 8
Sheets(2).Cells(sor + i, "M") = _
Application.Match(Application.Large(Sheets(1).Columns(2), i), _
Sheets(1).Columns(2), 0)
Next
End Sub -
#33355
Lasersailing
senior tag
Fferi50
#33353
Lasersailing
senior tag
válasz
Fferi50
#33353
üzenetére
Szia,
Office 2010-et használok. Válasz:
"Run-time error '438'.
Object doesn't suppor this property or method"
Delila:
igazából a feltételes formázásra is szükségem van. A megoldássoddal egy gondom van. Igazából nem az adott cella értékére, hanem a sor számára lenne szükségem (a sor másik oszlopa tartalmazza a nevet, amire igazából szükségem van).Viszont ezen írás közben rájöttem segítségeddel a megoldásra:
large (<tömb>,8)megadja, hogy mely számnál nagyobbakat kell keressek!
Köszönöm mindkettőtöknek a segítséget!A mostanit és az összess többi, nem is nekem írt megoldásaitokat
Szerk: A 33354-es hozzászólást még nem láttam, amikor írtam, de így már valóban működik az is, köszönöm!
-
#33354
Fferi50
Topikgazda
Lasersailing
#33351
Fferi50
Topikgazda
válasz
Lasersailing
#33351
üzenetére
Szia!
Az előző hozzászólásom hibás volt, kimaradt belőle az interior egy helyen.
A feltételes formázás alapján színezett cellák tényleges formátumát a 2010-es Exceltől meg tudod nézni a DisplayFormat tulajdonsággal,
If ActiveSheet.Cells(sm, 44).DisplayFormat.Interior.Color=ActiveSheet.Cells(sm,44).FormatConditions(1).Interior.Color Thenmegvizsgálja, hogy a cella tényleges színe egyezik-e a feltételes formázásban megadott színnel.
A feltételeid azt vizsgálják, hogy milyen a cella feltételes formázása, ezért viselkedik úgy, ahogy írtad.
Üdv.
-
#33353
Fferi50
Topikgazda
Lasersailing
#33351
Fferi50
Topikgazda
válasz
Lasersailing
#33351
üzenetére
Szia!
A feltételes formázás alapján színezett cellák tényleges formátumát a 2010-es Exceltől meg tudod nézni a DisplayFormat tulajdonsággal,
If ActiveSheet.Cells(sm, 44).DisplayFormat.Color=ActiveSheet.Cells(sm,44).FormatConditions(1).Interior.Color Thenmegvizsgálja, hogy a cella tényleges színe egyezik-e a feltételes formázásban megadott színnel.
A feltételeid azt vizsgálják, hogy milyen a cella feltételes formázása, ezért viselkedik úgy, ahogy írtad.
Üdv.
-
#33352
Delila_1
veterán
Lasersailing
#33351
Delila_1
veterán
válasz
Lasersailing
#33351
üzenetére
Egyszerűbb lenne a NAGY (LARGE) függvénnyel. Most formázol a függvénnyel, majd a makróban visszaszámolod a formázás eredményét.
Sub NyolcNagy()
Dim i As Long, sor As Byte
sor = 43
For i = 1 To 8
Sheets(2).Cells(sor + i, "M") = Application.Large(Sheets(1).Columns(2), i)
Next
End Sub -
#33351
Lasersailing
senior tag
Lasersailing
senior tag
Sziasztok,
Makróban kérnék egy kis segítséget:
Makró segítségével kijelőltem a nyolc legnagyobb cellát egy tartományon belül (conditional formattinggal). Ezt követően szeretném azokat a cellákat átmásolni egy másik táblázatba, amelyek a 8 legnagyobb cella feltétel miatt zöldre vannak szinezve. Hogyan lehet ezt megtenni?Az alábbi sorok választják ki 8 legnagyobb cellát:
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 8
.Percent = False
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With"Step into - F8" alapján az alábbi sor emeli ki ténylegesen:
.ThemeColor = xlThemeColorAccent3De nem tudom ezt if feltétellel kiszedni (az alábbi nem segít):
If ActiveSheet.Cells(sm, 44).FormatConditions(1).Interior.ThemeColor = xlThemeColorAccent3 ThenMeg ez sem:
If ActiveSheet.Cells(sm, 44).FormatConditions(1).Interior.TintAndShade = 0.399945066682943 ThenEz utóbbi logikusabbank tűnt volna, ott soha sem lép be az if-be, az elsőnél meg mindig...
Van valakinek esetleg ötlete?
köszi előre is!
-
Iginotus
addikt
Sziasztok, ez lehet nektek egyszerű lesz nekem annyira nem. Eljutottam vele egy darabig de itt megakadtam.
Első feladat, hogy J oszlop soraiba kerülő számokhoz rendelje oda a készletet a M oszlopba, kb így:
=IF(A2:A117,C2: C117)
Tehát ha M oszlopba 44 van írva akkor a J oszlopba belekerül a C45 nek az értéke.
Nem tudom Excelben megírni, hogy
X éréke beadható 1 töl 115 ig szám
IF M2=(AX) then J2=(CX)
Így kerülne bele mindig az az üzlet aktuális készlete ahova szállítani akarunk.
M és K oszlopot kézzel töltöm fel.Az lenne a második feladat, hogy az O oszlopba az 2-3-4-5.. stb mezőbe kiírja, hogy melyik üzletből kell ide szállítani a tételeket. Az már megvan, hogy mennyi az összes készlet, és hogy egy üzletbe (forgalom arányosan) mennyi db terméket kell szállítani. De azt is meg kell határozzam, hogy ezt melyik üzletből a legegyszerűbb.
Kritériumok:
- Mindig egésszel számolunk fél termék nincs.
- Amelyik üzletbe szállítani kell értelem szerűen onnan ne szállítsunk el.
- Egy üzletből ne menjen két üzletbe az áru. Tehát csak abból b be menjen. Úgy kéne hogy C oszlop darabjait O-ba kiválogatva hogy melyik a legpraktikusabb szállítás. (pl. 2 es üzletbe 199 darab termék kell még. Tehát C40+C41+C42+C43+C44+C49 (198=35+47+37+43+21+15) ez a legközelebbi azt nem tudom, lehet valahogy ki kell hozni a 199-et is na de én ahohz nem értek)Itt van a doksi:
Nem tudom mit szoktak ilyenkor felajánlani, de mondj lesörözzük vagy csoki szaloncukor stb fel tudok ajánlani. Meg persze előre is köszönöm!
-
Nowitzki
csendes tag
Sziasztok!
Milyen paramétert kell megadnom a print # használatakor hogy a karakter kódolás stimmeljen? Megcsinálja az adatexportot, de a txt fájlban a szöveg tele van kérdőjelekkel az ékezetes karakterek helyén, pedig a txt fájl alapból utf-8-ban van mentve.
Tudnátok segíteni nekem ebben?Köszönöm!
-
#33346
Delila_1
veterán
botond2225
#33345
Delila_1
veterán
válasz
botond2225
#33345
üzenetére
A feltételes formázásnál nem lehet másik lap tartományára hivatkozni, ezért kell egy segédoszlop az első lapra. Ennek az értékét figyeltetjük a formázással.
A képen ez a képlet B oszlopban van, B1-ben =DARABTELI(Munka2!A:A;A1)
A két lap egymás mellett látható, a felt. formázás a Munka1 A1:A17 tartományára vonatkozik.
-
#33344
Delila_1
veterán
botond2225
#33343
Delila_1
veterán
válasz
botond2225
#33343
üzenetére
Nézd meg a DARABTELI függvényt, és alkalmazd a feltételes formázásban.
Ha a darabteli értéke egyenlő nullával, akkor adjon háttérszínt a cellának. -
#33343
botond2225
csendes tag
botond2225
#33273
botond2225
csendes tag
válasz
botond2225
#33273
üzenetére
Sziasztok,
Olyan problémára keresek megoldást, office 2013, magyar verziónál, hogy egy excelben lenne 2 munkalap, ahol úgy szeretnék keresni az egyik munkalapon egy oszlopban minden cellán menjen végig és keresse meg a másik munkalap egyik oszlopában, hogy szerepel a cella vagy sem. Ha szerepel, nem kell semmit csinálnia, ha viszont nem szerepel, színezze be a cellát.
A cél, hogy 2 oszlopot akarok összehasonlítani, amely oszlopokban (ideális esetben) ugyanazok az értékek szerepelnek, de az egyikben nem biztos, hogy szerepel ami a másikban megtalálható. Ezt a különbséget kellene megtalálnom és ezt szeretném jelölni valahogy (beszínezni).
Tudtok erre megoldást?
Köszi a segítséget előre is.
-
#33342
Fferi50
Topikgazda
huliganboy
#33341
Fferi50
Topikgazda
válasz
huliganboy
#33341
üzenetére
Szia!
Csak egy icipici megjegyzés:
Ahhoz, hogy meghatározd a tartományt, nem kell kijelölni (select), az is időt igényel. Anélkül is lehet használni (sőt az a kívánatos - a selecteket száműzni kell mindenhonnan, ahonnan csak lehet).
Tehát ez működik
x.select kihagyvaFor each x in x.cells
Üdv.
-
#33341
huliganboy
addikt
huliganboy
addikt
#33339) Pakliman
(#33340) Fferi50Köszönöm srácok végül az alábbi megoldást választottuk: (nem tudom mennyire elegáns, de működik)
Sub Nagy_Kezdőbetű_F()
Set x = Application.InputBox(prompt:="Add meg a nagybetűsíteni kívánt tartományt!" & vbCrLf & "VIGYÁZZ! Számot tartalmazó oszlop ne szerepeljen benne!", Title:="Tartomány megadása", Type:=8)
x.Select
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
For Each x In Selection
x.Value = Application.WorksheetFunction.Trim(x.Value)
x.Value = Application.Proper(x.Value)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
MsgBox "KÉSZ!", vbInformation
End Sub -
#33340
Fferi50
Topikgazda
huliganboy
#33338
Fferi50
Topikgazda
válasz
huliganboy
#33338
üzenetére
Szia!
Megpróbálhatod ezt:
Sub nagybetus()
Dim ertekek, xx As Long, yy As Long
ertekek = Range("D3:AD20000").Value
For xx = 1 To UBound(ertekek)
For yy = 1 To UBound(ertekek, 2)
ertekek(xx, yy) = Application.Proper(ertekek(xx, yy))
Next
Next
Range("D3:AD20000").Value = ertekek
End SubHa esetleg memória problémát jelezne, akkor vedd kétfelé a területet.
Üdv.
-
Pakliman
tag
válasz
huliganboy
#33338
üzenetére
Szia!
Így valamivel gyorsabb lesz:
Sub Nagy_Kezdőbetű()
'Letiltjuk a cellák újraszámolását és a képernyő frissítését
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
' A megadott tartomány összes celláján végrehajtja a ciklust.
For Each x In Range("D3:AD20000")
' A Microsoft Visual Basic for Applications (VBA) alkalmazásban nincs nagy kezdőbetűs függvény.
' Ezért a munkalapfüggvényt kell használnia a következő módon:
'Az átalakításból eleve kizárjuk az üres és a nem szöveget tartalmazó cellákat
If (Not IsEmpty(x)) And (Not IsNumeric(x)) Then
x.Value = Application.Proper(x.Value)
End If
Next
'Engedélyezzük a cellák újraszámolását és a képernyő frissítését
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub -
#33338
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Az alábbi makró hogyan módosítható, hogy a gép ne haljon bele a futtatásába?
Sub Nagy_Kezdőbetű()
' A megadott tartomány összes celláján végrehajtja a ciklust.
For Each x In Range("D3:AD20000")
' A Microsoft Visual Basic for Applications (VBA) alkalmazásban nincs nagy kezdőbetűs függvény.
' Ezért a munkalapfüggvényt kell használnia a következő módon:
x.Value = Application.Proper(x.Value)
Next
End SubKb lehetetlen kivárni mig befejezi...
Köszönöm!
-
-
tzimash
őstag
Üdv,
Van egy kacifántos problémám
Vannak számozott polcaim(A), egy polcra csak egyféle cikkszámmal(B) kerülhetnek termékek. Ismert a polcok kapacitása(C) is, és az hogy jelenleg mennyi termék(D) van rajta.
A cél az, hogy helyet szabadítsak fel, oly módon, hogy összepakolom egy polcra az egyforma termékeket. 6 ill. 4 férőhelyes polcaim vannak. Az nem cél, hogy minél több teli polc legyen, tehát ha az egyiken van 5 termék, egy másikon 3, akkor nem fogok egyikről átpakolni a másikra, csak azért, hogy valamelyi tele legyen, mert úgy is két polcot foglal. És az is kritérium, hogy pl. ne a 4db terméket pakoljam hozzá az 1db-hoz, hanem fordítva.
Továbbá még van egy olyan eset is, amikor adott termékből csak 1db van össz-vissz, ennek tárolása nem gazdaságos, így le lehetne venni a polcról.Az eredménynek valahogy úgy kellene kinéznie, hogy: cikkszám 5-ös polc(2) >> 1-es polc(3).
Kivitelezhető ez valahogy?
Addig jutottam, hogy kiszedtem a listából azokat a polcokat, amelyek tele vannak.Köszönöm előre is a segítséget.
-
puma0812
csendes tag
Sziasztok
Nekem olyan gondom van hogy adott exel tábla
c7-c206 feltételes formázást adtam meg neki ha azonos érték jelen esetben( C7:12345 C8: 12345)
akkor jelölje ki a cella szinét pirossal .
Meg is történt ki is jelölte szépen MS Office
De mi a cégbe Libre ofict használunk és mihelyst rámentek a libra officba
már elfelejti kijelölni a 2 egyforma cellát.
Tudnátok ebbe nekem segíteni macroval?
Hogy ha a C7-C206 ig 2 egyforma szám van jelölje pirossal mint a képen:
Előre is köszönöm
Üdvözlettel PUMA -
HREH
senior tag
Olyat hogyan lehet csinálni, hogy ha egy cellába beírok egy adott szót, akkor az alatta lévő cellákba automatikusan írjon be előre megadott szavakat/mondatokat?
Olyanra gondolok, hogy az A1 cellába beírom például, hogy virágok, erre az A2 cellába írja be, hogy "rózsa", A3-ba hogy "ibolya" és így tovább.
Hogyan kellene ezt megoldani? Több kulcsszavam lenne, minden kulcsszó alá menne 10-12 szó/mondat. -
Fferi50
Topikgazda
válasz
föccer
#33324
üzenetére
Szia!
Majdnem "hülyebiztos" csak akkor lesz, ha listát nyújtasz át tálcán, hogy ebből tessék választani. De ne legyenek kétségeid, hogy ilyenkor is lesz, aki "mellé trafál".
Nem lenne egyszerűbb egy kimutatást csinálni az adatokból, amit aztán mindenki kedve szerint szűrhet, szabhat-varrhat (mármint a megengedett keretek között)?
Én lehet, ebbe az irányba indulnék el.Másrészt szerintem képekkel sem megyünk túl sokra, igazán a mintatábla segít, mert abban lehet tesztelni is a javaslatokat.
Sajnos távolbalátási és gondolatolvasási képességekkel ezen a fórumon kevesen rendelkeznekAmint látod, így csak találgatunk - mint az egyszeri rabbi a libáknál
Üdv.
-
föccer
nagyúr
válasz
Delila_1
#33325
üzenetére
Mindegy, szerintem hétvégén átszervezem a táblát és megoldom máshogy. Már itthon vagyok, nem tudok több képet csinálni róla.
A részösszeggel akartam én is, de egy szöveget kellene kiszednem egy tömbből. A tömb sok, ismétlődő adat van, amik közül 1-et választok auto szűrővel. A kiválasztott adat (szöveg) kellene nekem, mert egy másik munkalapon ez a szöveg a kritériuma egy szumhatöbb függvénynek.
üdv, föccer
-
föccer
nagyúr
válasz
Fferi50
#33323
üzenetére
Hülyebiztosra kellene megcsinálni, mert vélhetően nem én fogom használni. Az eredeticélom az lett volna, hogy az összegyűjtött mintavételi táblában megcsinálják a szűrést és erre a szűrt tűáblára automatikusan számolja ki a szükséges értékeket. Mindenzt makro nálkül.
üdv, föccer
-
Fferi50
Topikgazda
válasz
föccer
#33319
üzenetére
Szia!
Eddig azt hittem, hogy értem a feladatot, de most nagyon elbizonytalanodtam
"További beavatkozás nálkül kellene kinyernem az adatot. Bianco készül, beírom a megfelelő adatokat"Ha bianco táblát kapsz, akkor miért is nem lehet beletenni amit szeretnél, hogy működjön?
"Összegzés függvénnyel gyönyörű szépen tudom a szűrt elemekre elvégezni a megfelelő műveleteket, csak ezt a fránya gyártási mennyiséget nem tudom összehozni"
A többi adatot milyen paraméterekkel szűröd? Lehet, hogy egy kis minta alapján többet tudnánk segíteni és nem beszélnénk el egymás mellett...
Üdv.
-
#33321
lappy
őstag
Juditta_56
#33320
lappy
őstag
válasz
Juditta_56
#33320
üzenetére
Nálam csak annyit kellett vele tenni hogy az "o"-t az A oszlban újra beírtam és működött
-
#33320
Juditta_56
aktív tag
Juditta_56
aktív tag
Sziasztok!
Ez miért ad értékhibát a SZÖVEG.KERES függvényre, akkor is, ha van benne "O"?
![;]](//cdn.rios.hu/dl/s/v1.gif)
[link]Előre is köszönöm a választ, mert már mindent kipróbáltam...
-
föccer
nagyúr
válasz
Fferi50
#33318
üzenetére
További beavatkozás nálkül kellene kinyernem az adatot. Bianco készül, beírom a megfelelő adatokat és a nagy táblázatból leszűröm a kiértékelendő adatokat. Összegzés függvénnyel gyönyörű szépen tudom a szűrt elemekre elvégezni a megfelelő műveleteket, csak ezt a fránya gyártási mennyiséget nem tudom összehozni.
Lehet ezt a részét külön le kell majd kezelnem, de szeretném ha nem kellene. Elvileg ha egy külön cellába megadom a keresési értéket, akkor minden adatot kigyűjt, csak nem szeretném bonyolítani a dolgot.
üdv, föccer
-
Fferi50
Topikgazda
válasz
föccer
#33317
üzenetére
Szia!
Az ismétlődéseket egyszerű módon eltávolíthatod. Egy segédoszlopba kiteszed mintás táblázatod megfelelő oszlopát, majd Adatok - ismétlődések eltávolítása.
Ez a "kigyomlált" segédoszlop legyen a legördülő forráslistája.
(Vagy az adott oszlopra speciális szűrőt használsz, azzal másoltatod ki a segédoszlopba - csak az egyedi értékek bejelölve a párbeszédpanelen - szűrendő az oszlop, szűrőfeltételnek kijelölöd az oszlop fejlécét, hova másolja a segédoszlop első cellája. Fontos, hogy a szűrőt arról a munkalapról kell indítani, ahova az értékeket kapni szeretnéd.)Üdv.
-
föccer
nagyúr
válasz
Delila_1
#33316
üzenetére
Igen, a darabszámot meg tudom számolni. A probléma az alábbi
Van 1 munkalap, amint mintavételi eredmények találhatóak, többek között egy sorban megadva a vonatkozó recept sorozatszámát és az egyik alapanyag tipust. Egy munkalapon néhányszáz minta van, a csoportosítás alapját képpező alapanyag 4-5 féle lehet, pl CEM II/B-S 42,5 N; CEM II/A-S 42,5 N, a recept azonosítója pedig 4 jegyű kód. Egy receptúrából évente több minta is van. Nem minden receptből van minta.
Van egy másik munkalap, amin termelési adatok vannak, 4 jegyű kódonként egy sorban.
Elemzért kell készítenem az azonos alapanyabül készült minták alapján, aminek a része az összes, ilyen alapanyaból gyártott termék termelési adata.
Tehát azt szeretném, hogy az 1 munkalapon szűrővel kiválasztom az adott alapanyagot és a 2-es munkalapról összeszámolja nekem az ehhez tartozó legyártott mennyiségeket. Magát az összesítést szumhatöbb- szépen elvégzni, csak a kritériumot nem tudom neki megani, ezt mivel tudnán neki, makró nélkül megadni. (makrók futtatására nincs lehetőség policy alapján), cask függvényekkel tudok dolgozni.
Így talán érthetőbb.
Másik, hogy Adatok->érvényesítés->lista alapján csinálok legördülőt, amiben a forrást a fenti mintás táblázatból adom meg, viszont nem tudom az ismétlődéseket kivenni. A párszáz mintáből kb 4-5 fajta alapanyag van és a listában megjelenik a teljes lista. Ezt le lehetne valahogy szűrni, hogy az ismétlődések ne jelenjenek meg?
Köszi képen
-
Delila_1
veterán
válasz
föccer
#33311
üzenetére
Makró nélkül a szűrt sorok darabszáma:
=RÉSZÖSSZEG(103;D:D)A D:D helyére olyan oszlop betűjelét írd, ahol minden sorban van adat. Ezt a függvényt arra a lapra vidd be, ahol a szűrt táblázatod van, a táblázatodon kívüli cellába. A másik füzetben erre a cellára hivatkozz!
A 103 a DARAB2 függvénynek felel meg, vagyis minden cellát (szöveges, szám, dátum, képlet) megszámol.
-
Declare
őstag
válasz
Fferi50
#33310
üzenetére
Valamit en rontottam el, sorry...nem szoltam
Ez ugye csak egy reszlete a teljes makronak es amikor probaltam ezt amit küldtel külön jo volt, aztan beillesztettem a teljes makroba (ahol ezek a Titel meg S. Titel ezek egy lekerdezesböl jönnek) es ott valamit elronthattam. A hibat nem talaltam meg, nem is tudom, de ujra bemasoltam, ujra atirtam amit kellett es most jo.
Szoval köszönöm szepen megegyszer, megiscsak jol müködik
Szep hetveget mindenkink!
-
Delila_1
veterán
válasz
föccer
#33311
üzenetére
Sub teszt_1()
Dim AF As AutoFilter, F As Filter, i As Long, WF As WorksheetFunction
Set WF = Application.WorksheetFunction
Set AF = ActiveSheet.AutoFilter
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Range("T" & WF.CountA(Columns(20)) + 1) = Chr(i + 64)
Range("U" & WF.CountA(Columns(21)) + 1) = Right(F.Criteria1, Len(F.Criteria1) - 1)
End If
Next
End SubEz a makró kiírja a T oszlopba a szűrt oszlop betűjelét, az U-ba a kritériumot. Ha 1-nél több kritérium lehetséges 1-1 oszlopban, módosítani kell a makrón.
-
Delila_1
veterán
válasz
föccer
#33311
üzenetére
Szia!
Sub teszt()
Dim AF As AutoFilter, F As Filter, i As Long
Set AF = ActiveSheet.AutoFilter
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then MsgBox "Az AutoFilter " & i & ". oszlopában bekapcsolt szűrő, feltétel: '" & F.Criteria1 & "'"
Next
End SubEz a makró végig lépked a táblázaton. Amelyik oszlopban be van kapcsolva a szűrő, ott kiírja a kritériumot.
Üzenet helyett cellákba is kiírhatod az eredményt, amit majd a szumhatöbb függvény paramétereként felhasználsz. -
Fferi50
Topikgazda
válasz
föccer
#33311
üzenetére
Szia!
Semmi akadálya annak, hogy a SZUMHATÖBB függvényben másik munkalapra(munkafüzetre) mutató hivatkozásokat használj.
Pl.SZUMHATÖBB(egyik munkalap A:A;egyik munkalap B:B; másik munkalap A2; egyik munkalap C:C;másik munkalap D2)
Ráadásul ezt a képletet akár az egyik, akár a másik, akár egy harmadik munkalapra is elhelyezheted.Üdv.
-
föccer
nagyúr
Sziasztok!
Van egy táblázatom, amiben szűrő feltételeket alkalmazok. Hogyan tudnám levadászni, hogy milyen szűrőt állítottam be? Egy egészen másik táblában kellene egy szumhatöbb-el összegeznem leszűrt adatokhoz tartozó darabszámot. Makró nálkül, függvénnyel, valami egyéb trükkel.
Ötlet? Összesíttel próbálkozom, csak nem megy, mert nem abban a táblában szűrök, ahol az összegzendő adatok vannak.
Köszi.
-
Fferi50
Topikgazda
válasz
Declare
#33301
üzenetére
Szia!
Egy picit kellett módosítani rajta:
Sub adogat()
Dim kezdrng As Range, vegrng As Range, ws1 As Worksheet, celrng As Range, elsocim As String, gewerkrng As Range, kezdocim As String ' a második ciklus kezdőcímének tárolására
Set ws1 = ActiveSheet
'megkeressük az elso S. Titel cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, After:=Range("G1"))
elsocim = vegrng.Address 'megjegyezzük a címét, mert itt kell leállítani
Do While Not vegrng Is Nothing
'megkeressük a kezdo sort / Titel /
Set kezdrng = ws1.Columns("G").Find(what:="Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlPrevious)
If kezdrng.Row < vegrng.Row Then 'ha kisebb mint az S. Titel helye, akkor összeadjuk
vegrng.Offset(0, -1).Formula = "=Sum(" & kezdrng.Offset(2, -1).Address & ":" & vegrng.Offset(-1, -1).Address & ")"
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
End If
'következo S. Titel
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlNext)
If vegrng.Address = elsocim Then Exit Do 'ha visszaértünk az elsohöz, kilépünk
Loop
'megkeressük az elso S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Bereich", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, After:=Range("G1"))
elsocim = vegrng.Address: Set gewerkrng = Range("G1") 'megjegyezzük a helyét és a lehetséges elso cellát
Do While Not vegrng Is Nothing
'megkeressük az elso S. Titelt a Gewerkben
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlPrevious)
kezdocim = kezdrng.Address
Set celrng = kezdrng
Do While Not kezdrng Is Nothing
If kezdrng.Row > gewerkrng.Row Then ' ha benne van a tartományban
If kezdrng.Row < vegrng.Row Then ' és oda tartozik, akkor bevesszük az összesítésbe
Set celrng = Union(kezdrng, celrng)
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" 'ha nincs benne, akkor beírjuk az összesíto képletet
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).Font.Bold = True
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
Exit Do
End If
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" ' ha már az elozo Gewerkhez visszaértünk, akkor beírjuk az összesíto képletet
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).Font.Bold = True
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
Exit Do
End If
'megkeressük a következo S. Titel cellát:
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=kezdrng, searchdirection:=xlPrevious)
If kezdrng.Address = kezdocim Then Exit Do 'ha nincs több S. Titel, akkor kilépünk EZ AZ EGYIK ÚJ SOR
Loop
Set gewerkrng = vegrng ' a Gewerk területet változtatjuk
'megkeressük a következo S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Bereich", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlNext)
'INNEN MÓDOSULT
If vegrng.Address = elsocim Then 'ha visszaértünk az elso találathoz
If Application.IsFormula(vegrng.Offset(0, -1)) Then 'és már van képletünk, akkor végeztünk
Exit Do
Else ' egyébként betesszük a képletet és utána végeztünk
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" ' ha már az elozo Gewerkhez visszaértünk, akkor beírjuk az összesíto képletet
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).Font.Bold = True
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
Exit Do
End If
End If
Loop
End Sub
Remélem így már rendben lesz.Üdv.
-
Fferi50
Topikgazda
válasz
Salex1
#33300
üzenetére
Szia!
Ha képként mented el, akkor bármivel meg lehet nézni és képként be is lehet importálni munkalapra is
Egyébként visszafelé nem kompatibilis egyetlen Excel verzió sem, a fejlesztéseket nem lehet a korábbi verziókban használni, azok hibát okoznak.
Azért nézd meg lsz. hogy a 2010-es Excelben nincs-e benne már a saját kombinációs lehetőség (2013-as verzióban van), mivel én azt már nem tudom megnézni.Üdv.
-
Dr V
őstag
Sziasztok!
Powerpivot felületen hogyan tudok számítást végezni egy, az alaptáblában megnevezett cellával?
Darabszámmal szeretnék értéket osztani, de a darabszám változása esetén kövesse le a powerpivot is a számítást. Mindenképpen powerpivotban gondolkozom, mert egy másik fájlból szedem ki az adatokat. -
G.A.
aktív tag
Üdv!
A segítségeteket kérném egy excel diagramhoz.
Egy ilyen diagramot kéne létrehoznom:
A másodlagos tengelyt létre tudom hozni, csak ekkor az egyik adathalom oszlopai a másik mögé bújnak el. Nekem viszont egymás mellé kéne őket raknom.
Ezt excelben (2010-2013) hogy lehetne kivitelezni?
-
Declare
őstag
Ma nem volt még kerdes, szoval bedobok egy nagyobb falatot, ha lesz ideje valamelyikötöknek, megköszönnem a segitseget
Csiszolgatom a macrokat, amiket összeallitottam a segitsegetekkel es azert mindig elöjön valami, de ezzel most nem birok.Még Fferi50 irta ezt nekem pont azt hiszem:
Dim kezdrng As Range, vegrng As Range, ws1 As Worksheet, celrng As Range, elsocim As String, gewerkrng As Range
Set ws1 = ActiveSheet
'megkeressük az elso S. Titel cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, After:=Range("G1"))
elsocim = vegrng.Address 'megjegyezzük a címét, mert itt kell leállítani
Do While Not vegrng Is Nothing
'megkeressük a kezdo sort / Titel /
Set kezdrng = ws1.Columns("G").Find(what:="Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlPrevious)
If kezdrng.Row < vegrng.Row Then 'ha kisebb mint az S. Titel helye, akkor összeadjuk
vegrng.Offset(0, -1).Formula = "=Sum(" & kezdrng.Offset(2, -1).Address & ":" & vegrng.Offset(-1, -1).Address & ")"
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
End If
'következo S. Titel
Set vegrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlNext)
If vegrng.Address = elsocim Then Exit Do 'ha visszaértünk az elsohöz, kilépünk
Loop
'megkeressük az elso S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Bereich", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext, After:=Range("G1"))
elsocim = vegrng.Address: Set gewerkrng = Range("G1") 'megjegyezzük a helyét és a lehetséges elso cellát
Do While Not vegrng Is Nothing
'megkeressük az elso S. Titelt a Gewerkben
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlPrevious)
Set celrng = kezdrng
Do While Not kezdrng Is Nothing
If kezdrng.Row > gewerkrng.Row Then ' ha benne van a tartományban
If kezdrng.Row < vegrng.Row Then ' és oda tartozik, akkor bevesszük az összesítésbe
Set celrng = Union(kezdrng, celrng)
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" 'ha nincs benne, akkor beírjuk az összesíto képletet
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).Font.Bold = True
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
Exit Do
End If
Else
vegrng.Offset(0, -1).Formula = "=Sum(" & celrng.Offset(0, -1).Address & ")" ' ha már az elozo Gewerkhez visszaértünk, akkor beírjuk az összesíto képletet
vegrng.Offset(0, -1).NumberFormat = "#,##0.00 $"
vegrng.Offset(0, -1).Font.Bold = True
vegrng.Offset(0, -1).HorizontalAlignment = xlRight
Exit Do
End If
'megkeressük a következo S. Titel cellát:
Set kezdrng = ws1.Columns("G").Find(what:="S. Titel", LookIn:=xlValues, lookat:=xlWhole, After:=kezdrng, searchdirection:=xlPrevious)
Loop
Set gewerkrng = vegrng ' a Gewerk területet változtatjuk
'megkeressük a következo S. Gewerk cellát:
Set vegrng = ws1.Columns("G").Find(what:="S. Bereich", LookIn:=xlValues, lookat:=xlWhole, After:=vegrng, searchdirection:=xlNext)
If vegrng.Address = elsocim Then Exit Do 'ha visszaértünk az elso találathoz, akkor végeztünk
LoopA lenyeg hogy egy tablazatban vannak fötetelek ("Bereich" es hozza kapcsoldo S(szumma). Bereich sorok. A "Bereich" es "S.Bereich" között vannak altetelek ("Titel" es "S.Titel"). A "Titel" es "S.Titel" között pedig feladatoknak az értékei/árai.
A makro azt csinalja, hogy megkeresi az "S.Titelt" es ezt a szöveg cellat felülirva beir egy SZUMM kepletet, felfele egeszen addig, amig nem jön a "Titel" cella (tehat tartomanyt szummaz). Igy szummazza a feladatok ertekeit. Ezt megcsinalja ujra es ujra, minden "Titel" es "S.Titel" között.
Ezutan megkeresi az elsö "S.Bereich" cellat, ode beir egy SZUMM kepletet, amibe a fölötte levö "S.Titel" cellakat adja össze egyesevel (nem tartomanyt, hanem ahol "S.Titel" van azt az egy cellat hozzaadja), egeszen addig, amig nem jön megint egy "S.Bereich". Ebbe a következö "S.Bereich" cellaba szummazza a következö "S.Titel"-eket es igy tovabb.Ez jol is müködik, egeszen addig, amig van több Titel/S.Titel es Bereich/S.Bereich. Most viszont volt egy olyan eset, hogy 1db Bereich/S.Bereich páros volt és itt a makro vegtelen ciklusba került.
Kb Latom hol lehet a hiba, de nem tudom, hogy lehetne kijavitani
Nem egyszerü a kerdes, föleg gondolom most elsöre atolvasva
, de ha lesz idötök valamikor, ez hasznos lenne, ha valahogy ki lehetne küszöbölni ezt a hibat.Csinaltam egy Excel tablat, hogy nez ki az adattabla a makro futtatasa elött, hogy nez ki utanna, illetve egy olyan lapot is ahol a futtatas elött van a a tabla es jelentkezik a hiba. [link]
Köszi elöre is ha lesz idötök, en is ezzel probalkozom most
![;]](http://cdn.rios.hu/dl/s/v1.gif)
, ez egy köremailből származó adatsor, amit bemásolok egy táblázatba, úgy lenne "hülyebiztos", ha nem kéne mókolni vele...
Új hozzászólás Aktív témák
Hirdetés
- Óra topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Nvidia GPU-k jövője - amit tudni vélünk
- Házimozi belépő szinten
- Le Mans Ultimate
- bitpork: Augusztus 2- szombat jelen állás szerint.
- Autós topik
- eMAG vélemények - tapasztalatok
- Milyen egeret válasszak?
- Információbiztonság, kiberbiztonság, adatvédelem
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Vírusirtó, Antivirus, VPN kulcsok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- MacBook felváráslás!! MacBook, MacBook Air, MacBook Pro
- Honor Pad X8a 64GB Wifi,1 év Garancia
- Beszámítás! Apple iPad Pro 13 2024 M4 512GB Cellular tablet garanciával hibátlan működéssel
- Apple iPhone SE 16GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Asus H110M-K i7 6700 16GB DDR4 480GB SSD GTX 1660Ti 6GB Rampage SHIVA FSP 550W
Állásajánlatok
Cég: Liszt Ferenc Zeneművészeti Egyetem
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged