-
IT café
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
-
Sprite75
tag
Sziasztok
Valaki tapasztalt már olyat, hogy excelben a cellák jobb alsó sarkánál nem jelenik meg a kitöltőjel?
Erre gondolok:Biztos, hogy nem kapcsoltam ki szándékosan, és egy pár napig úgy használtam minden táblázatomat, hogy ez nem működött.
Bosszantó volt nagyonMitől tud ez az opció kikapcsolódni?
-
Fundiego
tag
Kis segítséget szeretnék kérni.
Adott 10 ember akinél van különböző mennyiségű termék amit el kell küldeni másik 10 embernek úgy hogy figyelembe veszi az ő készletét is. Egy ember több embernek is küldhet árut.
Hogyan lehetne ezt makróban leprogramozni? Mert itt konkrétan nem egy függvényt vagy ismétlődő dolgokat, funkciókat kéne bevetni, hanem valamilyen matematikai formulát kéne alkalmazni, hogy ideális mennyiségű legyen az elküldedndő áru
Hogyan kéne nekivágnom?
köszönöm -
ny.janos
tag
Sziasztok!
Igazából nem konkrét feladathoz kapcsolódik, csak a kíváncsiságom nem hagy nyugodni: ismer valaki egyszerű módot arra, hogy Power Query-vel egy adott dátumhoz tartozó hét számát az ISO 8601 szabvány szerint határozzuk meg?
Excelben a HÉT.SZÁMA függvény második paraméterének megfelelő megválasztásával (21) simán működik, ugyanakkor Power Query-ben a Date.WeekOfYear függvény csak a január 1-t tartalmazó hét első hétként történő értelmezését ismeri.
[ Szerkesztve ]
-
Pá
addikt
Nekem is van kérdésem, bár sejtem a választ...de hátha.
Lehetséges Excelben két cellát összekötni? Olyan módon gondolom, hogy bármelyikbe írok be egy értéket, a másik cella is azt vegye fel. Emiatt nyilván formulával esélytelen, hiszen azt az első érték beírásnál felülírnám. Ide egy beépített feature kéne, ha létezik ilyesmi.
Az már csak hab a tortán, hogy az egészet Transposeolni is kéne, tehát egyik sheeten egy sort szeretnék ilyen módon összekötni egy másik sheeten lévő oszloppal.
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Fferi50
őstag
Szia!
Eseménykezelő makróval megoldható.
Mindkét munkalapra kell eseménykezelő, amit az adott munkalap kódlapjára kell bemásolnod:
A Munka1 munkalapra:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.EnableEvents = False
Sheets("Munka2").Range("C1").Value = Target.Value
Application.EnableEvents = True
End If
End Sub
A Munka2 munkalapra:Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then
Application.EnableEvents = False
Sheets("Munka1").Range("A1").Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Ez a Munka1 A1 cellája és a Munka2 C1 cellája között teremt azonosságot.
A munkalap nevét és a cella címét írd át a sajátodra.
A munkafüzetet makróbarátként (vagy binárisként) kell mentened.
Természetesen tartományt is meg lehet határozni, amin belül a változás egy másik munkalap megfelelő tartományában eltérő helyre másolódik.
Üdv. -
Pá
addikt
válasz Fferi50 #50259 üzenetére
Köszi! Próbálom makró nélkül megcsinálni a workbookot, de ez tökéletes lesz B tervnek, ha nem sikerül valahogy kimozogni.
Ha esetleg mégis beleteszem, akkor a Transpose-t, hogy tudom belevarázsolni? Ha mondjuk A3:A62-t szeretnék "összekötni" C84 : BJ84-gyel.
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Fferi50
őstag
Szia!
Makró nélkül szerintem csak akkor megy, ha egy harmadik lapon csinálod az adatbevitelt és ahhoz kötöd a két másik lapot - egyiket függőlegesen, másikat vízszintesen.
Egy oszlop transzponálása sorrá és vissza, itt a két makró:Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka2").Range("C84:BJ84").Value = Application.Transpose(Range("A3:A62").Value)
Application.EnableEvents = True
End Sub
Illetve:Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka1").Range("A3:A62").Value = Application.Transpose(Range("C84:BJ84").Value)
Application.EnableEvents = True
End Sub
Ez minden alkalommal egy az egyben átteszi az egész területet.
Az éppen módosított cella értékét a következőképpen lehet áttenni:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3:A62")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka2").Range("C84:BJ84").Cells(Target.Row - 2).Value = Target.Value
Application.EnableEvents = True
End Sub
és
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C84:BJ84")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Sheets("Munka1").Range("A3:A62").Cells(Target.Column - 2).Value = Target.Value
Application.EnableEvents = True
End Sub
Üdv.
-
bsh
őstag
sziasztok.
lenne egy problémám, pont ilyet nem találtam a neten vagy nem jól kerestem. hátha valaki találkozott már vele.
adott egy táblázat, makrókkal, amit "közösen" használnak, egy fájlszerveren van, hálózati meghajtó, stb. a "közös használatot" úgy kell érteni, hogy X megnyitja szerkesztésre és dolgozik benne, közben Y megnyitja és kapja a figyelmeztetést, hogy X-nél van szerkesztésre és ő csak olvasásra tudja megnyitni. ez így oké is lenne. van lockfájl is meg minden ahogy kell.
csakhogy azt csinálja, hogy mikor Y megnyitja csak olvasásra, akkor X-nél, akinél szerkesztésre van megnyitva és dolgozott benne, hirtelen átvált csak olvasásra és nem tudja a módosításait sem elmenteni.
na ez mitől lehet vajon? -
Fundiego
tag
Excelben szeretnék egy SQL szerű lekérdezést csinálni, de excel módszerrel.
Megoldható az alábbi elképzelés, hogy csakis simán képlettel, segédoszlop nélkül megnézzük Andrással ki(k) dolgozik egy helyen, és mi a beosztása?
Tehát 2020-ban az 1. emelet A helyen Béla dolgozik vele aki egy orvos
2021-ben Géza, és Elemér dolgozik vele egy helyen
Tudom pivottal is meglehet oldani, de én szeretném ezt továbbfejleszteni egy legördülő listás kivlasztással.
-
Vangelis
nagyúr
Üdv srácok!
Nincs valakkinek egy leltár excel táblázata?
Gyirsan kellene de hülye vagyok hozzá.
THX
@@@@ https://armegoszto.hu/deals/new
-
Fferi50
őstag
válasz Fundiego #50269 üzenetére
Szia!
Miért lenne 5 kattintás?
Kész van a pivotod, kiválasztod a megfelelő szűrő megfelelő emberét.
Sőt, ne felejtsd el, hogy vannak már SZELETELŐK a pivot táblákhoz, amik kiválóak pl. ilyenre is és talán egyszerűbbek mint a szűrő. Egymás közötti függéseket is lehet velük állítani.
Üdv. -
eszgé100
őstag
válasz eszgé100 #50198 üzenetére
Sziasztok!
Korábbi kérdésemből csak az "adott pötty fölé viszem az egeret, akkor megjelenítse a szériaszámot" maradt aktuális
Megoldható, hogy a Point "18/01/2023" helyett egy másik cella értéke legyen megjelenítve, pl C1-ben -37 van, viszont kellene a hozzá tartozó B1?
Másik újabb kérdésem a scatter plot charttal kapcsolatban, hogy meg lehet oldani, hogy a x tengely Dátum az adott tárgyhó 1-től induljon és tárgyhó végével érjen véget? Automatikusan Excel kiterjeszti a tengelyt mindkét irányba, hiába nincs semmilyen adat y-tengelyen megjelenítve. Kézzel meg tudom oldani, de ezt minden hónapban el kellene játszni, jobb lenne automatikus megoldás.
"-Meddig tart a játék? -Amíg mindenkinek ki nem verik a fogát..."
-
RAiN91
őstag
Sziasztok,
Az alábbi kódot hogyan lehetne úgy megcsinálni, hogy hasonlóan egyszerű felépítésű legyen? A cél, hogy AH10 cellába írja be K9 tartalmát, ha F4 cella változott. F4 cellában egyébként egy másodpercenként változó óra van, külső adatforrásból. Szeretném, hogy állandóan fusson az egész, ezért választottam worksheet_calculate-t, illetve még más kódok is vannak benne, ezért ehhez ragaszkodnék.
A hiba ott van, hogy megadtam, hogy k=10, és mindig innen indul. De nekem csak az eleljén kéne tudni, hogy 10, utána már léptethetné.
Sub worksheet_calculate()
Application.EnableEvents = False
k = 10
If Range("F4") <> Range("AH9") Then
Range("AH9") = Range("F4")
Range("AH" & k) = Range("K9")
k = k + 1
End If
Application.EnableEvents = True
End Sub
-
Pá
addikt
Sziasztok!
Oszlopban vannak számaim, felváltva nullánál nagyobb számok és nullák. Arra szeretnék egy formulát, ami eldönti, hogy a számok között mindig egyforma mennyiségű nullák vannak-e.
Szóval, akkor lenne TRUE a függvény, ha a első és második szám között pont annyi nullás cella van, mint a második és harmadik, harmadik és negyedik között és így tovább a végéig. Ha bármelyik 2 szám között más mennyiségű nulla van, akkor FALSE.
Az első szám előtti és az utolsó szám utáni nullák nem érdekesek, azokat nem kell nézni.Erre bárkinek egy frappáns ötlete macro nélkül?
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Pá
addikt
Ilyen kerülő úton meg tudom csinálni, hogy ez oszlop mellett egy másik oszlopban felismerem a nem nulla értékéket és megszámolom a közöttük lévő cellákat és megnézem, hogy ezek a számok egyformák-e mind. Szóval ilyen módon megvan.
Most arra keresnék módot, hogy lehetséges-e ezt frappánsan belesüríteni csak 1 cellába.
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Pá
addikt
Nem túl elegáns, valószínűleg lehetne rajta optimalizálni, de alapvetően nem ebbe az irányba szeretnék menni, szóval nem öltem bele sok energiát, csak megnéztem, hogy működik-e.
szerk: a sárga mező adja a megoldást, ha 1, akkor jók vagyunk, ha nagyobb szám, akkor nem.
[ Szerkesztve ]
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Delila_1
Topikgazda
válasz RAiN91 #50275 üzenetére
A Worksheet_Change eseményt javaslom.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Long
Application.EnableEvents = False
If Target.Address = "$F$4" Then
If Target.Value <> Range("AH9").Value Then
k = Range("AH" & Rows.Count).End(xlUp).Row + 1
Range("AH" & k) = Range("K9").Value
End If
End If
Application.EnableEvents = True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Lasersailing
senior tag
Sziasztok,
Excel 365 VBA kérdésem lenne:
Van egy adatbázis, amibe makró segítségével szkennelek be adatokat. Teszt alatt 6 sora van, a sorból az első a megrendelés szám, ami tartalmilag egy 10 jegyű szám (csak szám). Az első 5 sorba beszkennelt adat valamiért text formátumban lett letárolva, most viszont ha beszkennelek adatokat, akkor azokat számként tárolja el. (gondolom azóta valamit átírhattam a makróban, de ez mindegy is, mert nem tudom, hogy mit...)Nem is lenne ezzel gondom. A makró egy másik részében kiolvasom ezeket a sorokat és az első oszlop adatát, mint kulcsot használva keresem vissza, hogy a felhasználó a lehetséges kulcsok közül melyikhez tartozó adatokat szeretné megnézni. A gondom itt kezdődik: Ha text-ként van letárolva a mező adata, akkor azt megtalálja, ha viszont számként, akkor nem találja meg. Pedid a beolvasott adatra keresek (felhasználó csak kiválaszthatja a beolvasott adatot, nem írhat be), azt gondolnám, hogy mindenképp meg kellene találja, de nem.
Eltárolt adatok:
A 2-6 sor között a zöld háromszög mutatja, hogy "text"-ként értelmezi az adatokat
A 7-es sor viszont szám. Bár minden adat text típusú (fent jelőlve). Ha összehúzom a cellákat csak A7-et adja hozzá, a többi az excel szemében nem szám.Az alábbi sor keresi a "Seged" táblában az "ordervalaszto.value" (itt választja ki a user a 6 lehetséges érték valamelyikét) értékét.
Ha pl a 2133990001-et választom ki megtalálja, ha a 2135480001-et akkor viszont nem találja meg, vidáman továbblép (F8-cal léptetve a futást látom):Do
sm = sm + 1
Loop Until Sheets("Seged").Cells(sm, 1).Value = ordervalaszto.Value Or IsEmpty(Sheets("Seged").Cells(sm, 1))Mi ennek az oka, és főleg hogyan tudnám ezt elkerülni?
Biztosan minden orderszám kizárólag számból fog állni, de amúgy az sem gond, ha text-ként tárolom de találja meg "saját magát" mindig.(remélem érthetően sikerült megírni a kérdést)
[ Szerkesztve ]
-
Lasersailing
senior tag
Bocsánat még egy kérdésem lenne:
Ha egy userform-on egy combobox értékét megváltoztatom ahhoz a _change() funkció segítségével tudok programlépéseket hozzárendelni. Hogyan lehet azt elérni, hogy amikor a makró változtatja meg az adott combobox értékét, akkor viszont ne fusson le? -
Delila_1
Topikgazda
válasz Lasersailing #50281 üzenetére
Szám szöveggé alakítása:
cells(x,y)=cells(x,y) & ""
(üres string)
Fordítva:cells(x,y)=cells(x,y)*1
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
hentes555
senior tag
Sziasztok!
Azt melyik függvénnyel tudom megcsinálni, hogy az excel listázza ki az összes adatot egy bizonyos feltétel szerint?
Tehát pl. vannak egy táblázat oszlopaiban tulajdonos nevek, autó alvázszámok, gyártási év, szín, rendszám. És mondjuk van 5 munkalap, 2018-2019-2020 stb. évek szerint.
Amit szeretnék elérni, hogy pl. egy adott mezőbe, ha beírok egy személy nevét, akkor listázza ki az adott személyhez tartozó összes alvázszámot és azok egyéb adatát egymás alá és ezt mind az 5 munkalapból kérje le.
[ Szerkesztve ]
"Tiefe Brunnen muss man graben wenn man klares Wasser will"
-
Fferi50
őstag
válasz Lasersailing #50282 üzenetére
Szia!
Az eseménykezelés letiltása (Application.EnableEvents) sajnos a formra nem terjed ki, így kicsit kerülő úton lehet elérni az esemény "letiltását".
Kell egy publikus logikai változó a userform modul lapjára, aminek a hamis v. igaz értéke szerint fut le az esemény kezelés.
Amikor makróval változtatod az értéket, a változás előtt a logikai változó értékét beállítod, majd utána vissza, hogy a user változásokat le tudja kezelni.
Pl.Userform1 modul lapon:
Public fusson As Boolean
_Change eseménykezelőben
If fusson Then
' amit az eseménykezelőben szeretnél
End If
End Sub
A makróban, bárhol van a makró:Sub Akarmi()
...
Userform1.fusson=False '(Userform1 helyett a formod neve kell!)
... változtatások
Userform1.fusson=True
...
End Sub
A Publikus változó helyes meghívása a Modulnév.Változónév, így egyértelmű a VBA számára, hogy melyik változóról van szó.
Üdv. -
gigabytman
tag
Sziasztok!
Ha nagyon "láma" bocsánat, nekem nem az. A képeken látható példa alapján:
Adott egy 9 adatrekordból álló oszlop/táblázat. Van település ami egyszer, kétszer, háromszor is előfordul az "A" oszlopban. Ha a szűrőt nézem, akkor látható, hogy a 9 rekord ténylegesen 4 fajta várost tartalmaz. A kérdés:
Hogyan tudom egy oszlopba kiíratni a 4 fajta város/bejegyzés nevét?
A szöveges adatok mellett lehetnek számok is az oszlopban. Pl. 9 cikkszám az oszlopban ami valójában 4 fajtából áll. Remélem érthető a példa.
Köszönöm szépen. -
Delila_1
Topikgazda
válasz gigabytman #50287 üzenetére
Azt hiszem, az Ismétlődések eltávolítása funkcióra gondolsz. Ezt az Adatok – Adateszközök menüben találod.
Átmásolod a kérdéses oszlopot egy új helyre, és indítod az ismétlődések eltávolítását.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 gigabytman #50289 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Sprite75
tag
Sziasztok.
Találtam egy ilyen dátum kitöltő megoldást de nem boldogulok a testreszabásával.
[link]Azt szeretném elérni, hogy saját munkafüzetben is működjön, akkor is ha ez a samradapps_datepicker_221114.xlam file nincs bemásolva a C:\Users\[your login]\AppData\Roaming\Microsoft\Excel\XLSTART mappába
Mert a táblázatban amiben szertném "integrálva" használni többen is dolgoznak és akinek a gépén esetleg nincs fent ez a file a C:\Users\[your login]\AppData\Roaming\Microsoft\Excel\XLSTART mappába
annál nem fog működni a dolog.Próbáltam mind a user form-ot mind az összes modult átrakni egy új munkafüzetbe a samradapps_datepicker_221114.xlam file-ból de különböző hibák miatt nem jó müködik.
Használok egy hasonló "naptárat" pár táblázatomban, ami szintén a kiválasztott dátumot irja be az aktuális cellába egy egyéb dolgot is tartalamzó makró futtatásakor.
De ez a naptár sokkal jobban néz ki és pl tetszik benne hogy egér görgővel lehet lapozni benne ha nyitva van.
-
Delila_1
Topikgazda
válasz Sprite75 #50291 üzenetére
Feltöltöttem egy tömörített fájlt.
Krizsák László írta a makrót. Nem kell hozzá a naptárvezérlő.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Lasersailing
senior tag
válasz Fferi50 #50286 üzenetére
Köszönöm szépen, Neked és Delilának is a segítséget!
olyan kérdés jutott eszembe, hogy két monitoros környezetben dolgozom és szeretném, ha az egyik monitoron a VBA object-jét tudnám nézni, míg a másikon a VBA code-ját. Értelemszerűen ugyanannak az excelnek (általában) ugyanazon userformját
Van erre lehetőség?
-
Fferi50
őstag
válasz Lasersailing #50293 üzenetére
-
TheSaint
aktív tag
Sziasztok!
Worksheet Change eseménnyel kapcsolatban kérnék segítséget, nem ismerem még sajnos.
A feladat egy oszlop (K) celláinak a változása esetén küldjön emailt az adott sor C oszlopában szereplő névhez tartozó email címre. Az emailcímet a munka1 lapon lévő L név oszlop mellett lévő M oszlopban található.
Az emilküldés része már le van kezelve, csak az eseményfigyeléssel nem bírok:Sub Visszajelzes()
On Error Resume Next
'Public Sub SendEMail(
Dim MailFr As String, MailCC As String, MailTo As String, MailSubject As String, MailText As String
Dim CDOMsg As Object
Dim CDOConf As Object
Dim CDOFields As Object
Then MailFr = Munka1.Cells(i, "M")
Next i
MailTo = Munka1.Cells(2, "H")
If IsEmpty(Munka1.Cells(3, "H")) = False Then MailCC = Munka1.Cells(3, "H")
If IsEmpty(Munka1.Cells(4, "H")) = False Then MailCC = MailCC & "; " & Munka1.Cells(4, "H")
MailCC = MailCC & "; " & MailFr
MailSubject = "Visszajelzés érkezett"
If
Then
MailText = MailText & Chr(10) & _
Munka2.Cells(i, "A") & " " & Munka2.Cells(i, "B") & " " & Munka2.Cells(i, "C") & " " & Munka2.Cells(i, "D") & " " & Munka2.Cells(i, "E") & " " & Munka2.Cells(i, "F") & " " & Munka2.Cells(i, "G") & " " & Munka2.Cells(i, "H") & " " & Munka2.Cells(i, "I") & Munka2.Cells(i, "J")
Next i
End If
'On Error GoTo ERRORHANDLER
Set CDOMsg = CreateObject("CDO.Message")
Set CDOConf = CreateObject("CDO.Configuration")
CDOConf.Load -1 ' CDO Source Defaults
Set CDOFields = CDOConf.Fields
With CDOFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1."
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'Anonim
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
'Jelszóval:
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'.Item("http://schemas.microsoft.com/cdo/configuration/Sendusername") = ""
'.Item("http://schemas.microsoft.com/cdo/configuration/SendPassword") = ""
.Update
End With
Set CDOMsg.Configuration = CDOConf
CDOMsg.Subject = MailSubject
CDOMsg.From = MailFr
CDOMsg.To = MailTo
CDOMsg.CC = MailCC
CDOMsg.TextBody = MailText
CDOMsg.Send
Set CDOMsg = Nothing
Set CDOConf = Nothing
Set CDOFields = Nothing
End Sub
-
sniphoe
aktív tag
Adott egy oszlop, benne 4 betűs szavakkal.
Hogyan tudok leszűrni azokra, amiknél az első és a második karakter is mássalhangzó?
ThxIf everything seems under control, you're just not going fast enough.
-
TheSaint
aktív tag
válasz sniphoe #50296 üzenetére
Az alábbi kód segítségével leszűrhetőek azok a 4 betűs szavak, amelyek első és második karaktere is mássalhangzó:
Sub FilterWords()
Dim r As Long
Dim c As Long
Dim vowels As String
vowels = "aeiou"
c = 1 ' az oszlop száma
For r = 1 To ActiveSheet.UsedRange.Rows.Count
If InStr(vowels, LCase(Left(Cells(r, c).Value, 1))) = 0 And InStr(vowels, LCase(Mid(Cells(r, c).Value, 2, 1))) = 0 Then
Cells(r, c).Interior.Color = vbGreen
Else
Cells(r, c).Interior.Color = vbRed
End If
Next r
End Sub
Be kell állítani az oszlop számát (c), amelyet ellenőrizni szeretnél. Ha a szó első és második karaktere is mássalhangzó, akkor zöldre festi a cellát, egyébként pirosra.
Utána mehet sima színszűrő akár.[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz TheSaint #50295 üzenetére
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 Then
Application.EnableEvents = False
Visszajelzes Target.Row 'Meghívjuk a másik makrót, átadva a beviteli sor számát
Application.EnableEvents = True
End If
End SubSub Visszajelzes(sor) ' Itt nevet adhatunk a sorszámnak, nem feltétlen Target.Row legyen a változó neve
'...
End Sub[ 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.
-
Mutt
aktív tag
válasz sniphoe #50296 üzenetére
Szia,
Segédoszlopban az alábbi képlettel, ahol az érték 2 ott van két mássalhangzó (mivel a képletben a magánhangzókat soroltam fel):
=SZORZATÖSSZEG(--HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2;{2;4};1);"aáeéiíoóöőuúüű")))
Microsoft365 verzió esetén pedig a SZŰRŐ (FILTER) függvény tud segíteni.
=SZŰRŐ(A2:A21;HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2:A21;2;1);"aáeéiíoóöőuúüű"))*HIBÁS(SZÖVEG.TALÁL(KÖZÉP(A2:A21;4;1);"aáeéiíoóöőuúüű")))
üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- iPhone topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- PlayStation 5
- Telekom mobilszolgáltatások
- Kerékpárosok, bringások ide!
- Épített vízhűtés (nem kompakt) topic
- Milyen TV-t vegyek?
- Politika
- Call of Duty: Black Ops 6 - Nyugalom, nem lesz 300GB-os a játék
- VoLTE/VoWiFi
- További aktív témák...
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!