- laskr99: Processzor és videokártya szilícium mag fotók újratöltve!
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- sh4d0w: Én és a számítógép
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- MaxxDamage: Vizes Laptop Hűtés? Lehetséges? Igen!
- Argos: Az vagy, amit megeszel
-
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
-
Attas
aktív tag
-
lappy
őstag
Szia!
=HA(ÉS(ÜRES($A$1);NEM.SZÖVEG($A$2));0;1) bár nem tudom mit is szeretnél megvalósítani
Ez megnézi hogy A1-ben van e vmi, ill. az A2 is vizsgálja attól függően milyen képlet van is benne.
Ezt a képletet kell beilleszteni a feltételes formázás "feltételes formázás képlettel sorba és kijelölöd a tartományt! -
Attas
aktív tag
Üdv. Van egy problémás gondom. Egy munkalap védelemmel van ellátva. Egy nagy része a celláknak az adatbevitelt szolgálja, így a cella tulajdonságnál nincs kipiálva a védelem. De sajna valamiért megjegyzéseket nem tudok ezen cellákhoz fűzni, és nem jövök rá sehogysem az okra.
-
vamzi
senior tag
Sziasztok!
Lehet úgy színezni az excelben, hogy:
A1-ben "valami"
A2-ben pedig vagy van adat vagy nincs(függvény dönti el, hogy üres, vagy kiír-e valamit)Ugyan ez a helyzet B,C,D stb. oszlopokban is és a 3-5-7. stb. sorban ismétlődik.
Azt a párost szeretném megszínezni, ahol a függvény adatod dob.
Tehát ha A2-ben van adat, akkor A1 és A2 legyen beszínezve. Valami függvényt lehet használni, vagy csak conditional formatting van erre?
Előre is köszönöm.
-
Geryson
addikt
Mesterek, van egy ilyen képletem:
=HA(SZÁM(J4);H4+M4+(N4/1,27);HA(SZÁM(K4);H4+(N4/1,27);H4))
az a gondom ezzel, hogy ha a "J4" teljesül nem feltétlenül biztos, hogy van "N4" (lásd N4/1,27) értékem is, így kiakad az Excel. Hogyan adok meg több feltételt? HA(SZÁM(J4 ÉS N4)?!?
-
#15084
Sickboy25
addikt
Fire/SOUL/CD
#15067
Sickboy25
addikt
válasz
Fire/SOUL/CD
#15067
üzenetére
Igen ez lesz az amire szükségem van, de hogy tudom azt megcsinálni, hogy az egész táblázatra használja, ne csak arra az egy sorra... Mert mikor jobb kereszttel lehúztam, akkor már csak nullákat írt ki... Rengeteg adat van és így lenne a gyors...
Köszönöm
-
#15083
Attas
aktív tag
Fire/SOUL/CD
#15082
Attas
aktív tag
válasz
Fire/SOUL/CD
#15082
üzenetére
Bocsi a helyesírási hibákért. Csak ez az okostelefon azt hiszi okossabb mint Én és átírja a szavakat, ha nem figyelek :-) Köszönet a linkért. Ha hazaérek rávetem magam.
-
#15082
Fire/SOUL/CD
félisten
Attas
#15081
-
Attas
aktív tag
Sziasztok. Az utóbbi napok segítségeit utólag is nagyon köszönöm. Még egy kérdés felmerült bennem. Excel makróban is biztos van goto parancs. Hogy kell ezt alkalmazkodik? Van egy if-else macróm amiben azt szeretném, ha teljesül az if feltétel, akkor ne folytassa az END IFA utánküldés utasítások egy részeg, hanem ugorjon a közepére ahova Én utasítom.Megoldható ez? Köszönöm előre is!
-
#15080
Fire/SOUL/CD
félisten
#05304832
#15079
-
#15078
Fire/SOUL/CD
félisten
#05304832
#15075
válasz
#05304832
#15075
üzenetére
Pont az van, amit írtam, azaz vannak olyan cellák, amiből hiányzik a tizedeselválasztó, mert valamelyik fatökű lepkevadász egyszer 0-val, másszor meg 0.0-val jelöli a semmit...
Ha lesz még hiba, azt már Te javítod a makróban, ez megint működik
Dim MyDestRange As Range
Dim MyCell As Range
Dim MyArray() As String, MyDig As String
'Itt van beállítva, hogy G2-ben van az első cella
'és egybefüggően az M oszlopig tart
'Hogy az M oszlopban melyik az utolsó használt cella, azt a kód meghatározza
Set MyDestRange = Range("G2:" & "M" & Cells(Cells.Rows.Count, "M").End(xlUp).Row)
Application.ScreenUpdating = False
For Each MyCell In MyDestRange
With MyCell
If Not IsEmpty(MyCell) Then
xstr = .Text
If InStr(xstr, ".") > 0 Then
xstr = Replace(xstr, ".", ",", vbTextCompare)
MyArray = Split(xstr, ",")
MyDig = "#0."
For i = 1 To Len(MyArray(1))
MyDig = MyDig + "0"
Next i
Else
MyDig = "#0.0"
End If
.Value = xstr * 1#
.NumberFormat = MyDig
End If
End With
Next MyCell
Application.ScreenUpdating = True -
#15074
Fire/SOUL/CD
félisten
#05304832
#15073
válasz
#05304832
#15073
üzenetére
Attól még, hogy mindig más, attól gondolom ugyanúgy a G-M oszlopokban vannak az adatok nem?
Ha leakad a makró, az azért van, mert megint olyan cellával találkozik, amiben valamiért nem szabályos adat van. Amikor leakad a makró, akkor nézd meg az adott táblázatban, hogy melyik cellán akadt le és nézd meg annak a tartalmát.
(Az is lehet, hogy nincs is benne tizedeselválasztó vagy hasonló) -
#15070
Fire/SOUL/CD
félisten
#05304832
#15069
válasz
#05304832
#15069
üzenetére
Ennek jónak kell lennie
Dim MyDestRange As Range
Dim MyCell As Range
Dim MyArray() As String, MyDig As String
'Itt van beállítva, hogy G2-ben van az első cella
'és egybefüggően az M oszlopig tart
'Hogy az M oszlopban melyik az utolsó használt cella, azt a kód meghatározza
Set MyDestRange = Range("G2:" & "M" & Cells(Cells.Rows.Count, "M").End(xlUp).Row)
Application.ScreenUpdating = False
For Each MyCell In MyDestRange
With MyCell
If Not IsEmpty(MyCell) Then
xstr = .Text
xstr = Replace(xstr, ".", ",", vbTextCompare)
MyArray = Split(xstr, ",")
MyDig = "#0."
For i = 1 To Len(MyArray(1))
MyDig = MyDig + "0"
Next i
.Value = xstr * 1#
.NumberFormat = MyDig
End If
End With
Next MyCell
Application.ScreenUpdating = True -
#15068
Sickboy25
addikt
Fire/SOUL/CD
#15067
Sickboy25
addikt
válasz
Fire/SOUL/CD
#15067
üzenetére
Igen köszönöm ezt kipróbálom...
-
#15067
Fire/SOUL/CD
félisten
Sickboy25
#15066
-
#15066
Sickboy25
addikt
Fire/SOUL/CD
#15065
Sickboy25
addikt
válasz
Fire/SOUL/CD
#15065
üzenetére
ezt az én példámon is be tudnád mutatni? De ez lesz az... szerintem
Köszi előre is...
-
#15065
Fire/SOUL/CD
félisten
Sickboy25
#15064
-
#15064
Sickboy25
addikt
Fire/SOUL/CD
#15063
Sickboy25
addikt
válasz
Fire/SOUL/CD
#15063
üzenetére
Nah, lehet akkor rosszul fogalmaztam
Egyik oszlopban vannak a darabszámok, a másik oszlopban vannak a monogrammok.
Egy olyan kellene nekem, ahol szerepel pl.: NP egyenlő a hozzá beírt összes szám szummázva...És úgy, hogyha módosítom az NP-hez tartozó számot, akkor változzon a szumma is(bár ez mindig fog, ha így van megadva) illetve ha a táblázatba ismét bekerül egy NP és hozzá a darabszám, akkor írja automatikusan a szummához...Húha, lehet inkább lépésekre kellene bontanom, mert lassan már én sem értem
-
#15063
Fire/SOUL/CD
félisten
Sickboy25
#15062
válasz
Sickboy25
#15062
üzenetére
Pontosabban/egyértelműbben fogalmazz, mert egyik kérdés üti a másikat...
Az első kérdésedben még valami össz darabszámról kérdezel, majd a következő kérdésedben meg már tényként írod, hogy beírod a darabszámot és egy összeget kellene meghatározni.
Szóval akkor hogy is van ez? (szívesen segítek, de tényleg nem értem) -
Sickboy25
addikt
Sziasztok!
Adott egy táblázat... pl.: ez
10800 NP
340 FÁ
12800 FÁ
13200 NP
14660 FÁEgyik oszlopban számok, másikban mondjuk monogrammok... Hogy tudom egy adott pontra automatikusan kiszűrni az össz darabszámot?
Tehát, beírom a darabszámot és a monogrammot, majd egy másik cellába összeadja nekem az azonos monogrammhoz tartozó számokat!
Irányított szűréssel? Nagyon nagy táblázatról van szó!
Köszönöm
-
#15061
Fire/SOUL/CD
félisten
#05304832
#15060
válasz
#05304832
#15060
üzenetére
Ja, hát ez kicsit más, kezdve a kilométeres tizedesjegyektől, amelyek száma oszloponként is változik. Egy jó makróban ezt le kell kezelni, azaz ellenőrizni a tizedesek számát és az szerint formázni a cellát. Az már csak hab a tortán, hogy egy oszlopon belül is változik a tizedesjegyek száma...
-
#15059
Fire/SOUL/CD
félisten
#05304832
#15057
válasz
#05304832
#15057
üzenetére
Dim MyDestRange As Range
Dim MyCell As Range
'Itt van beállítva, hogy G2-ben van az első cella
'és egybefüggően az M oszlopig tart
'Hogy az M oszlopban melyik az utolsó használt cella, azt a kód meghatározza
Set MyDestRange = Range("G2:" & "M" & Cells(Cells.Rows.Count, "M").End(xlUp).Row)
Application.ScreenUpdating = False
For Each MyCell In MyDestRange
With MyCell
If Not IsEmpty(MyCell) And IsNumeric(MyCell) Then
.Value = Replace(.Value, ".", ",", vbTextCompare)
.Value = .Value * 1#
MyCell.NumberFormat = "General"
End If
End With
Next MyCell
Application.ScreenUpdating = True -
#15058
Fire/SOUL/CD
félisten
#05304832
#15056
válasz
#05304832
#15056
üzenetére
Akkor a tartományt kell átírnod. A korábban adott kódban ebben a sorban
Set MyDestRange = ActiveSheet.UsedRange
kell megadni a tartományt, pl én most az A2:B20 tartományt(Range) adom meg
Set MyDestRange = Range("A2:B20")
Te meg nyilván a G2:M1000 (vagy ameddig az M oszlopban van az utolsó adatcella)
Nyilván ez körülményesebb megoldás, hisz változhat, hogy a G-től M oszlopban hány adat szerepel. Mindjárt módosítom a kódot.
-
#15055
Fire/SOUL/CD
félisten
#05304832
#15054
-
#15053
Fire/SOUL/CD
félisten
bandus
#15052
-
#15052
bandus
veterán
Fire/SOUL/CD
#15051
válasz
Fire/SOUL/CD
#15051
üzenetére
köszi a gyors választ! azt esetleg be tudom állítani még valahogy, hogy ez a formázási szabály csak akkor legyen érvényes, ha 3 számjegyet írok be? tehá ha már 1000-t, 1100-t, akkor ne?
-
#15051
Fire/SOUL/CD
félisten
#05304832
#15049
-
#15048
Fire/SOUL/CD
félisten
#05304832
#15047
válasz
#05304832
#15047
üzenetére
Így próbáld. Ez az aktív munkalapon lecseréli a pont karakter az összes használt cellában. Nyilván ha nem az összes cellán kell a művelet, akkor majd átírod, de az elv benne van.
Dim MyDestRange As Range
Dim MyCell As Range
Set MyDestRange = ActiveSheet.UsedRange
For Each MyCell In MyDestRange
With MyCell
If Not IsEmpty(MyCell) Then
.Value = Replace(.Value, ".", ",", vbTextCompare)
.Value = .Value * 1#
End If
MyCell.NumberFormat = "General"
End With
Next MyCell -
#15046
Fire/SOUL/CD
félisten
#05304832
#15044
-
#15043
Attas
aktív tag
Fire/SOUL/CD
#15041
Attas
aktív tag
válasz
Fire/SOUL/CD
#15041
üzenetére
Ööö.. Egy uccsó kérdés? Melyik az az Excel függvény amely képes arra, hogy egy tömbből kikeresse a leggyakrabban előforduló számot? Van kb 1000 számadat, amiből ki kellene keresni a leggyakrabban előfordulót és azt beírni egy cellába. Az nem fontos hogy hányszor.
Van ilyen függvény, Köszönöm leőre is.. -
#15042
Attas
aktív tag
Fire/SOUL/CD
#15041
Attas
aktív tag
válasz
Fire/SOUL/CD
#15041
üzenetére
Nagyon köszönöm a helpet. Így sikerült. Köszönöm még egyszer.
-
#15041
Fire/SOUL/CD
félisten
Attas
#15040
-
Attas
aktív tag
válasz
bugizozi
#15031
üzenetére
Nos még egy ha nem vagytok túl nagyravágyó.
Olyat szeretnék hogy egy makró futtatáskor lekérdez egy cella tartalmat és ha abban mondjuk az szerepel hogy "GEN2" van akkor egy x nevű makró fut le, ha "GEN3" akkor y nevű makró. Minden köszönetem a tied. Megszereztem az "Az excel függvényei A-tól Z-ig, és az "Excel programozása" című könyveket, és bár sok mindenben találtam segítséget, tanár nélkül ezek csak könyvek...:
Köszönöm a segítségetui. ööö még olyankellene, hogy szintén makróban meg lehet azt adni, hogy egy adathalmazt megvizsgál és a leggyakrabban előforduló értéket beleír egy cellába? KB 350 adatról van szó.
Ezt képlettel simán megoldom, de makróba jobb lenne -
bugizozi
őstag
Simán beírod a nevüket egy sorba...Pl:
Első kód:
Sub vmi()
Range("A1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End SubMásodik kód:
Sub vmi2()
vmi
End SubHa lefuttatod a második kódot (vmi2), az "megíhvja" az első kódot (vmi) és az fog lefutni
-
-
-
Attas
aktív tag
Sziasztok. Kis segítséget szeretnék kérni excel makró programozáshoz. Van egy cella, nevezzük "A1"-nek. Ebben a cellában egy "Ha" függvénnyel sok adatból kiszámolt érték van. Ezt az értéket szeretném egy makróval kiolvasni és átírni egy másik cellába "B1", de úgy, hogy ha ez a makró lefut és beírta az eredményt a B1-be, utánna, az A1 esetleges adat változása ne legyen kihatással a B1-be beírt értékre, csak ha újra futtatom a makrót.
Remélem érthető voltam. Nagyon hálás lennék a segítségért. -
-
#15016
zz76zz
csendes tag
WildBoarTeam
#15015
zz76zz
csendes tag
válasz
WildBoarTeam
#15015
üzenetére
Van olyan, hogy szövegből oszlopok és határolónak a szóközt választod, de nem tudom javul e a helyzet . . . gondolom nem ugyan azon oszlopba kerülnek.
Mondjuk utána lehetne "/" jelre is bontani a cellákat és akkor már rendezhető lesz. Nem tudom segített e -
#15015
WildBoarTeam
senior tag
WildBoarTeam
senior tag
Üdvözletem!
Kellene egy kis segítség. Itt gondolkodok már rajta egy ideje, de képlettel sajna nem igazán kivitelezhető, amit szeretnék (legalább is szerintem bonyolult).
Szóval adott egy excel tábla, egyetlen oszlop van, amiben utcanevek vannak házszámokkal. Mivel így nem tudom sorba rendezni, hogy az 1 után ne a 11, 12, 13, stb. jöjjön, hanem a 2, 3, 4, stb., ezért arra gondoltam, hogy a házszámokat át kellene másolni a mellette lévő oszlopba. Pontosabban "Kivág-beilleszt", hogy az eredeti oszlopban ne maradjon meg a házszám.
Ugye képlettel azért nehéz, mert lehet akár 3-5 számjegyű is a házszám (sőt betűt is tartalmazhat pl.: 108/a).
Ami könnyítés, hogy előtte szóköz van, tehát valami olyasmi kellene, hogy jobbról indulva az első szóközig átrakja az értéket a mellette lévő oszlopba.Ha esetleg tudtok erre képletet (képlethalmazt), az is jó.
-
A_ScHuLcZ
addikt
Excel guruk segítsetek nekem pls!
Van egy fájl tele munkalapokkal (100+), és egy bizonyos oszlop értékeit kellene x értékkel megszorozni és egy új oszlopba kiiratni, de ezt minden munkalapon. Hogy lehetne ezt gyorsan megoldani?
Én nem sokat konyítok excelhez, csak egyszerű függvényeket szoktam használni.Pls Help!
-
;HA(SZÁM(K4);H4+(N4/1,27);H4))
Új hozzászólás Aktív témák
Fferi50- Bomba ár! HP EliteBook Folio 1040 G3 - i5-G6 I 8GB I 256GB SSD I 14" FHD I Cam I W11 I Garancia!
- HIBÁTLAN iPhone SE 2020 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS2025, 100% akkumulátor
- BLUESUMMERS NVMe SSD adapter
- Xiaomi Redmi Note 10 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 13 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3209, 94% Akkumulátor
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest