-
Fototrend
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
-
m.zmrzlina
senior tag
válasz Bunken #24313 üzenetére
Ott ahol nem működik ott már a DARABTELI() sem működik vagy csak a szűrés?
Ha a már DARABTELI() sem működik lehet, hogy a szám oszlopod formátuma valójában szöveg. Próbáld meg megszorozni a számokat 1-gyel.
1. Beírsz egy 1-t valamelyik cellába ahol nem zavar.
2. Másolás
3. Kijelölöd az oszlopot amiben a számaid vannak.
4. Jobbklikk>Irányított beillesztés>Szorzás>OK
5. Az 1-et törölheted -
m.zmrzlina
senior tag
válasz Bunken #24316 üzenetére
Nincs mit örülök, hogy sikerült.
Azt azért ellenőrizd le hogy a =DARABTELI() fv-id jó cellára hivatkoznak-e ugyanis a #24310. hsz-ban elírtam a képletet.
Az "A oszlopban vannak a számok A1-től kezdődően. B1 képlete =DARABTELI(A:A;A2)"
helyesen:
A oszlopban vannak a számok A1-től kezdődően. B1 képlete =DARABTELI(A:A;A1)
[ Szerkesztve ]
-
m.zmrzlina
senior tag
Ez a pár sor át fogja másolni a Munka1 lap A1 cellában megadott nevű munkalap A1:B10 tartományát a Munka1 lap A2 cellában megadott nevű munkalap A1:B10 tartományába
Sub masol()
Dim strHonnan As String
Dim strHova As String
strHonnan = ThisWorkbook.Worksheets("Munka1").Range("A1").Value '"Munka2"
strHova = ThisWorkbook.Worksheets("Munka1").Range("A2").Value '"Munka3"
Worksheets(strHova).Range("A1:B10").Value = Worksheets(strHonnan).Range("A1:B10").Value
End Sub[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz looser #24370 üzenetére
Én validált listával (adatérvényesítés>lista) próbálkoznék, mivel ott forrásnak feltételeket is meg lehet adni (Excel2010-ben biztosan)
A1, B1, C1,-ben vannak a listák.
A1 forrása:=$F$1:$F$2
B1 forrása:=HA(A1=$F$1;$G$1:$G$3;$I$1:$I$3)
C1 forrása:=HA($B$1=$G$1;$H$1:$H$3;$J$1:$J$3)Ezzel a módszerrel én max 3 lépcsős feltételrendszert kezelnék, mert afelett egy kezelhetetlen piramisjátékká alakulna ez a megoldás.
-
m.zmrzlina
senior tag
válasz Kojaszan #24450 üzenetére
Nem állítom, hogy pontosan értem a kérdésedet de ezen a linken van pár dolog a témáról.
-
m.zmrzlina
senior tag
"A" munkafüzetben szeretnék használni pl egy =FKERES() fv-ben egy "B" munkafüzetben névkezelőben definiált tartományt.
Hogyan lehetséges ez?
-
m.zmrzlina
senior tag
Én a
Set valami = ThisWorkbook.Worksheets("valami")
megoldást szoktam használni és eddig még jól működött.
Egy időben a makrós munkafüzet nevét adtam meg itt de arról hamar leszoktam mert kb abban a pillanatban halt meg a makró ahogy átnevezték a fájlt. És mindig átnevezték.
-
m.zmrzlina
senior tag
válasz slashing #24469 üzenetére
Nekem van ilyen makróm. Ha csak az a munkafüzet van megnyitva amiben a makró van akkor 1-2 mp egyébként halál hosszú (végig sem szoktam várni)
Biztos vagyok benne, hogy elcsesztem valamit a makróban de még kérdezni sem tudok vele kapcsolatban semmi konkrétat úgyhogy nem is túráztattam vele senkit sem itt a fórumon sem máshol.
Szerencsére csak én használom ezért tudom hogy mielőtt azt indítom bezárok minden mást és így simán lefut.
-
m.zmrzlina
senior tag
válasz Fferi50 #24474 üzenetére
Az én esetemben valóban vannak munkalapfüggvények a makróban de nem azoknál lassul a futás, hanem egy ilyen kódrészletnél:
For Each rngCella In Selection.Cells
rngCella.Value = Left(rngCella.Value, Len(rngCella.Value) - 1)
NextEz egy "%" karaktert vág le kb 35000 cella értékének a végéről.
-
m.zmrzlina
senior tag
válasz Fferi50 #24481 üzenetére
selection.replace what:="#",replacement:=""
Ez lett a megoldás, legalább két nagyságrenddel rövidebb idő alatt fut le még akkor is ha meg van egy másik munkafüzet nyitva.
Azzal együtt továbbra sem értem, hogy miért viselkedik másképp ugyanaz a makró, ha meg van nyitva egy másik munkafüzet is.
Köszi a segítséget
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz Fferi50 #24484 üzenetére
Este lesz rá egy kicsit több időm akkor majd végzek pár mérést különböző peremfeltételek mellett és tudatom az eredményét.
Maga a munkafüzet csak számok és dátumok szóval akár egy az egyben kitehető. Bár jelzem működik és tudom használni (főleg a mostani változtatás után) tehát csak akkor feccölj bele időt ha maga a probléma érdekes számodra.
Eseménykezelés nincs tiltva de a képernyőfrissítés elhanyagolható javulást hozott (ezt tegnap kipróbáltam).
-
m.zmrzlina
senior tag
válasz tombar #24488 üzenetére
Sub masol()
Range("A1:G1").Copy
elsoures = Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Munka2").Range("A" & elsoures).PasteSpecial Paste:=xlPasteAll
End SubAz első sor kijelöli a másolni kívánt tartományt (ez nyilván nálad teljesen más)
A második megadja, hogy a Munka2 munkalap A oszlopának melyik az első üres cellája
A harmadik odamásolja a kijelölt tartományt.Meg lehet csinálni egy utasításban is:
Worksheets("Munka2").Range("A" & Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll
Ugyanaz az eredmény csak az első valamennyivel átláthatóbb.
-
m.zmrzlina
senior tag
Adott kb 50 fájl egyetlen mappában aminek az elérési útja változó. (nem adható meg előre makróban).
Változóba szeretném írni a fájlok elérési útvonalát.A tudomány(om) jelenlegi állása szerint ez az információ az Application.GetOpenFilename metódussal nyerhető ki. Mivel ez a módszer a fájlnévvel együtt adja vissza az elérési útvonalat előbb le kell nyisszantani a változó végéről a fájlnevet.
Az a kérdésem, hogy van-e olyan módszer ami közvetlenül az elérési utat adja vissza és nem kell utána még trükközni?
-
m.zmrzlina
senior tag
válasz slashing #24619 üzenetére
Nem volt még soha ilyen problémám csak gugliztam egy kicsit. Hátha errefelé kell keresni a megoldást.
http://support2.microsoft.com/kb/840926
Esetleg itt:
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz TIMARAND77 #24623 üzenetére
=KÖZÉP(A1;20;5)
-
m.zmrzlina
senior tag
válasz #75376384 #24627 üzenetére
"Vannak olyanok, akik egy adot filmet háromszor kis kikölcsönöztek. Közülük névsor szerint ki az első?"
Amennyiben ugyanaz (vagy ugyanolyan nevű) ember nem vett ki ugyanazon a napon akkor az van előbb aki régebben vette ki.
Ha jól értem a kissé rejtjelezett kérdést
[ Szerkesztve ]
-
m.zmrzlina
senior tag
-
m.zmrzlina
senior tag
Van itt ez a kód. Egy részét Delila_1 egy korábbi hsz-ból loptam, az elejét pedig a neten találtam. Működik de van pár sor benne amit nem értek. Hálás lennék ha valaki tudna válaszolni a kérdéseimre.
Előre is köszi.
Sub osszesito()
Dim strMunkamappa As String
Dim munkamappa
Dim FN As String
???Milyen tipusú objektumváltozó a munkamappa???
Set munkamappa = Application.FileDialog(msoFileDialogFolderPicker)With munkamappa
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
strMunkamappa = .SelectedItems(1)
End WithChDir strMunkamappa
FN = Dir(strMunkamappa & "\" & "*.xls", vbNormal)
Do
???Egészen pontosan mi ez a feltétel (magyarul mikor lesz FN "." vagy ".."???
If FN <> "." And FN <> ".." Then
Workbooks.Open Filename:=strMunkamappa & "\" & FNActiveWorkbook.Worksheets("nemrogzit").Range("A1").CurrentRegion.Copy Destination:=ThisWorkbook.Worksheets("nemrogzit").Range("A" & ThisWorkbook.Worksheets("nemrogzit").Range("A" & Rows.Count).End(xlUp).Row + 1)
ActiveWorkbook.Worksheets("rogzit").Range("A1").CurrentRegion.Copy Destination:=ThisWorkbook.Worksheets("rogzit").Range("A" & ThisWorkbook.Worksheets("rogzit").Range("A" & Rows.Count).End(xlUp).Row + 1)??? Itt mi az ami False???
ActiveWorkbook.Close False
End If
FN = Dir()
Loop Until FN = ""
End Sub[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz Delila_1 #24649 üzenetére
A munkamappát szövegként szoktam megadni. Utvonal="C:\mm\nn\"
Ez stimmel. Nálam ezt a
strMunkamappa = .SelectedItems(1) csinálja.Mikor a TC-ben látsz egy mappát, a dupla pontra kattintva a fölötte lévő mappába jutsz, az egy pont 8az nem látszik, de van), a főkönyvtárba visz.
Ez is oké, de az általam használt Application.FileDialog(msoFileDialogFolderPicker)-ben ez elő tud állni vagy valami más feltételt kell megadnom?
Illetve még egy kérdés, hogy ez a FolderPicker milyen tipusú változó? -
m.zmrzlina
senior tag
válasz lumpy92 #25060 üzenetére
Valóban jó lenne, ha írnál konkrétumokat mert annak hiányában csak általánosságokat lehet írni amivel nem sokra mész.
Esetleg ilyen "Google a barátod" kezdetű hülyeséget amit én sosem tennék.
-
m.zmrzlina
senior tag
válasz komyka #25068 üzenetére
Munka1 munkalapon van a teljes lista a német elnevezésekkel, A oszlop: azonosító, B oszlop: német elnevezés.
Munka2, Munka3, Munka4 munkalapokon a három magyar lista A oszlop azonosítók, B oszlop magyar elnevezés.Ezeket a listákat (két oszlopból álló tartományokat) a névkezelővel elneveztem magyar_lista_1 magyar_lista_2 magyar_lista_3-nak.
Én a Munka1 munkalap C oszlopába tettem az eredményt a következő képlettel:
=HAHIBA(FKERES(A1;magyar_lista_1;2;0);HAHIBA(FKERES(A1;magyar_lista_2;2;0);HAHIBA(FKERES(A1;magyar_lista_3;2;0);B1)))
Természetesen ezt a képletet le kell másolnod addig amíg a német listád tart.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
Sub masol()
Dim eleje As Long
Dim vege As Long
eleje = 2
vege = 4
Worksheets("Munka1").Rows(eleje & ":" & vege).Copy Destination:=Worksheets("Munka2").Rows(eleje & ":" & vege)
Worksheets("Munka1").Rows(eleje & ":" & vege).Delete Shift:=xlUp
End SubA fenti pár sor áthelyezi a Munka1 2.-4. sorát a Munka2 2.-4. sorába. Pontosabb megfejtéshez tudni kellene, hogy hogyan szeretnél értéket adni az eleje és vége változóknak.
-
m.zmrzlina
senior tag
válasz Certee #25228 üzenetére
Munka1 munkalap A oszlopában vannak a cikkszámok, B oszlopban az árak (vagy a cikkszámhoz tartozó másféle adat). Munka2-n ugyanilyen szerkeztetben a másik beszállító dolgai.
Munka3 B2 cellájának képlete:
=HAHIBA(FKERES(A2;Munka1!A:B;2;0);HAHIBA(FKERES(A2;Munka2!A:B;2;0);"A megadott cikkszám nincs a listában!"))
Munka3 A2 cellájába viszed be a keresett cikkszámot és a B2-ben kapod meg a hozzá tartozó adatot függetlenül attól, hogy melyik munkalapon találta meg a cikkszámot.
Ha nem létező cikkszámot adsz meg, vagy elgépeled - ami ugyanaz - akkor hibaüzenetet ad.
[ Szerkesztve ]
-
m.zmrzlina
senior tag
-
m.zmrzlina
senior tag
Ha jól értem, vannak értékpárjaid (min,max) amit átlagolni szeretnél, majd az átlagok átlagjait számolni.
Ez esetben egy értékpár csak akkor hagyható figyelmen kívül, ha min=0 ÉS max=0 mert min=0, max=100 esetében a vizsgált időszak átlaga 50
Ha így van én egy segédoszlopot használnék ahová kiszámítanám a részátlagokat (ami min=0 ÉS max=0 esetén simán lehet 0) majd azokat átlagolnám az =ÁTLAGHA()-val
Új hozzászólás Aktív témák
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- World of Warcraft Shadowlands Collectors edition EU EN
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Ozeki Kft.
Város: Debrecen