Hirdetés
- Sapphi: StremHU | Source – Self-hostolható Stremio addon magyar trackerekhez
- gban: Ingyen kellene, de tegnapra
- Brogyi: CTEK akkumulátor töltő és másolatai
- gerner1
- Klaus Duran: Minden drágul. Vajon a fizetések 2026-ban követi minimálisan?
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- vrob: Próbálkozás 386 alaplap újraélesztésre
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
-
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
-
-
andreas49
senior tag
válasz
Fferi50
#40490
üzenetére
Hali,
Az F5-E24 mezők vannak formázva (háttér, betű, betű szín), az eredmények a B5-C24-ben vannak. A B és C oszlopban is annak a formázásnak kellene megjeleni.
Az F5-24 oszlopban 10 darab '0' (azonos) eredmény van, de ezekhez tartozó megnevezés pont fordított ABC rendben jelenik meg.
Köszi -
-
Pakliman
tag
válasz
RedHarlow
#40494
üzenetére
Szia!
Egy kezdetleges lehetőség:
'Az "EREDETI" munkalapra vonatkozik...
Sub fut()
Dim sor_u As Long: sor_u = 13 'Ezt később dinamikusan kell meghatározni, most csak a példa miatt fix.
Dim sor As Long
For sor = 1 To sor_u
'Feltételezem, hogy az A oszlopban a keresendő érték MINDIG aláhúzásjelek között van!!
'Az "F" (6.) oszlopban a "sor" sorban lévő értéket keressük az "A" (1.) oszlopban
If Application.CountIf(Columns(1), "*_" & Cells(sor, 6) & "_*") Then
'Ha találtunk ilyet, akkor a "C" (3.) oszlop "sor" sorába teszünk egy "X"et
Cells(sor, 3) = "X"
End If
Next sor
End Sub -
RedHarlow
aktív tag
Mellékletként csatoltam a példa excel file-t, elég gyakran az a feladatom, hogy két táblát összehasonlítsak, erre lenne szükségem egy makróra. Az első lapon az eredeti adatok láthatók (mindkét tábla) a másodikon a kész feladat.
1. Először az A táblából ki kell szednem a számot ami közép 6 / 8 értékekkel történik ezt kell összehasonlítanom a B tábla adataival.
Vissza kell jeleznem, hogy mely adatok hiányoznak a B oszlopból.
A B oszlopban be kell jelölnöm (X-el) azokat amik megvannak A-ban. -
#40493
Fferi50
Topikgazda
dellfanboy
#40470
Fferi50
Topikgazda
válasz
dellfanboy
#40470
üzenetére
Szia!
Nyilván munkalapot védtél le (protect sheet).
A cella szerkeszthetősége attól függ, hogy zárolt-e vagy sem. Alapból minden cella zárolt de a zárolás csak akkor lép életbe, ha a munkalapot levéded.
Felételezhető, hogy az inkriminált, védelem után is szerkeszthető cellákról a zárolás valamilyen ok miatt már korábban lekerült. Ezért engedi szerkeszteni a lapvédelem után is.
Állj rá a cellára. Jobb egérgomb - cellaformázás - védelem fülön látható a Zárolt és a Rejtett állapotot jelző "kocka". Ha nincs kipipálva a Zárolt, akkor szabadon szerkeszthető védelem esetén is. Be kell jelölni a lapvédelem bekapcsolása előtt. Egész cellatartományokat is bejelölhetsz egyszerre - kijelölés után.Üdv.
-
Pakliman
tag
válasz
p5quser
#40486
üzenetére
A Workbook_Open metódus csakis a munkafüzet megnyitásakor fut le, vagyis az értékadás is akkor történik meg.
Próbáld meg először azt, hogy mentéssel bezárod a munkafüzetet majd újra megnyitod.Ha azt szeretnéd, hogy bármikor rendelkezésre álljanak az új hivatkozások, akkor egy általános modulban kellene létrehozni egy pl. Init nevű eljárást és abba beírni az értékadást.
Később, amikor szükség van az azonosítókra, a kódban egyszerűen csak meghívod az Init eljárást. -
p5quser
tag
válasz
Pakliman
#40482
üzenetére
Igen, az összes eddigi próbálkozásaimnál ez a hiba jött...
Az alábbi képen próbáltam egybeszedni amit javasoltál és a userform egy részletét, ahogy alkalmaznám.
Idáig egyébként mindenhol Sheets(1), Sheets(2), stb néven hivatkoztam a munkalapokra, pont a rövidítések végett.
Baffuf...
Pill...
-
Pakliman
tag
válasz
p5quser
#40480
üzenetére
Szia!
A legegyszerűbb megoldás (szerintem), ha a munkalapokat átnevezed:
Amint láthatod, egy munkalapnak 2 "Neve" van, VBA-ban mindkettő használható, de más módon:
1.: egy tulajdonképpeni "belső" azonosító, közvetlenül lehet hivatkozni rá:Munka3.Range("A1")
2.: ez látszik az Excelben a lapfülön, szövegként hivatkozhatunk rá:Worksheets("Munkaóra").Range("A1")
A 2. változatnál egy általános modulban deklarálni kell a szükséges "változókat"Public ws1 As Worksheet
Public ml3 As Worksheet
Public Össz As Worksheet, majd a Thisworkbook modulban értéket adni neki(k):
pl.:Private Sub Workbook_Open()
Set ws1 = Worksheets("Táblázat")
Set ml3 = Worksheets("Munkaóra")
Set Össz = Worksheets("Segéd")
End Sub -
babe98
csendes tag
-
p5quser
tag
Sziasztok!
Eskü, rágugliztam a problémámra, de még jobban összekeveredtem.
Azt szeretném megoldani excel vba-ban, hogy meghatározzak 4-5 munkalapot a munkafüzetben - egyenkénti pár betűs szóval - hogy ezzel a szóval hivatkozhassak rájuk a munkafüzet összes moduljában, userformjában, mindenhol.
Szóval valami "global variable" -szerűt szeretnék, amit egyszer meghatározok és utána már elég csak a meghatározott néven hivatkozni rájuk. Olvastam "public property"-kről, "option explicit"-ekről, de nem tiszta hogy hová rakjam. A thisworkbookhoz, vagy modulként kell behívni?
Négy userform van a munkafüzetben, várható még benne modul is, szóval van katyvasz bőven és ha véletlenül egyéb excel file is megvan nyitva (ami azért nem életidegen dolog
) , akkor jönnek a furcsaságok.
Ha megoldható, jó lenne nem userformonként, modulonként meghatározni, hanem egyszer az adott munkafüzetben.
Ha nem ebbe a topikba való, hanem a visual basic-be, akkor szkúzi, átpakolom oda kérdésem.
Előre is köszönöm! -
andreas49
senior tag
Hali,
Segítséget kérek formázás átadáshoz a számított eredményre, valamint az azonos eredmények ABC sorrendbe tételéhez.
Jelenleg az azonos eredményeket az alap adatok fordított sorrendjét adja.
Mellékelem a minta táblázatot.
Köszi a segítséget előre is.
[link] -
-
babe98
csendes tag
-
babe98
csendes tag
válasz
babe98
#40469
üzenetére
újradefiniálom a kérdést, segítsetek légyszi:
Azt szeretném valahogyan elérni, hogy az élőlábban (bal szélen) nyomtatáskor az A1 cellában szereplő érték legyen olvasható (ez mindig szöveg típusú). Ha valamilyen direkt cellahivatkozásként ez nem megoldható, akkor tökéletes lenne az is, ha egy makró lefuttatása után kerülne oda. (a nyomtatás előtt mindig lefuttatnám a makrót).
Ezt meg lehet oldani? -
Pakliman
tag
válasz
dajkapeter
#40466
üzenetére
Szia!
Egy lehetőség:
-
#40470
dellfanboy
őstag
dellfanboy
őstag
talalkozott mar valaki olyannal, hogy levedtem jelszoval 1 munkafuzet reszet pl. e4 cellatol p55ig viszont ettol fuggetlenul a d oszlop tartalmat siman lehet modositani, barkinek, ill
bizonyos sorok eseten akar az x,y,z oszlopot is?! fogalmam sincs miert, mert pl x44 modosithato x45,46,47 nem.ugy csinaltam, hogy allow edit ranges-ben kijeloltem a teruletet e4:"p55 majd protect sheet.
valamit kihagytam? -
#40468
Laciahegyrol
csendes újonc
Mutt
#40464
-
#40466
dajkapeter
senior tag
dajkapeter
senior tag
Sziasztok!
Egy kis segítségre lenne szükségem. Feltételes formázással szeretném megoldani, hogy a táblázatom első oszlopában szereplő nevek színesek legyenek, ha a nevekhez tartozó dátum egy értéktől kisebb. Ezt hogyan tudom kivitelezni? Bárhogy próbálom a neveket nem akarja a dátumokhoz tartozó feltétel alapján formázni.
Köszi!
-
tkesy
őstag
Sziasztok,
Szeretném ismét a segítségeteket kérni. Van egy diagramom, amivel kicsit küzdök, mivel azt kérték, hogy:
- vízszintes tengelyen a calendar week számai szerepeljenek, (1-52-ig), de legyen rajta negyed évek jelölése
Ezt segédtengellyel gondoltam megoldani, de ha hetek számát adom meg és az alapján rajzoltatom meg a diagramot, a tengely formázásnál nem jelenik meg a segédtengelyek beosztásának lehetősége.
Ha dátumot használok, akkor igen, de akkor is csak a fő segédvonalat rajzolja ki, a másodlagost nem. :S- piros szaggatott vonal, pedig onnan induljon, ahol a fekete véget ér (ezt jelenleg simán úgy hoztam létre, hogy havonta mikor ezt elkészítem, egyszerűen tovább húzom a kijelölt adathalmaz tartományát)
de ez a módszer nem működik a piros esetében, mert ha megváltoztatom a kijelölt tartományt, akkor mindig balra igazítja ezt vonalat. Ezt nem lehet valahogy lerögzíteni a "jobb oldalra"?Előre is köszi a segítséget.
-
#40464
Mutt
senior tag
Laciahegyrol
#40463
Mutt
senior tag
válasz
Laciahegyrol
#40463
üzenetére
Szia,
Én nem tudok ilyen beállításról. Nekem egy cella tartalmát rendesen másolja át a Ctrl+C és Ctrl+V páros,
pl. a 40.00 Ft-ot egy form-ba, vagy egy mezőbe simán másolja formázva.
Ahol gond lehet az amikor több cellát akarsz másolni, mert akkor már táblázatként viszi át ami el tudja rontani a dolgokat.
Ebben a példában a formon táblazatos formátum kezelhetetlen, de a több mezőt tartalmazó táblázatban (jobb oldlat) rendben van.
Esetleg próbáld meg ezt a makrót, ami a kijelölt tartomány celláinak a formázott értékét egy hosszú szövegbe helyezi át.
Sub SAP_Copy()
Dim szoveg As String
Dim cella As Range
Dim sor As Long
szoveg = ""
sor = 0
For Each cella In Selection
If sor <> cella.Row And sor > 0 Then
szoveg = szoveg & vbNewLine
End If
szoveg = szoveg & cella.Text & " "
sor = cella.Row
Next cella
Call CopyText(szoveg)
End Sub
Sub CopyText(Text As String)
'VBA Macro using late binding to copy text to clipboard.
'By Justin Kay, 8/15/2014
Dim MSForms_DataObject As Object
Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
MSForms_DataObject.SetText Text
MSForms_DataObject.PutInClipboard
Set MSForms_DataObject = Nothing
End Subüdv
-
#40463
Laciahegyrol
csendes újonc
Laciahegyrol
csendes újonc
Sziasztok,
Olyan problémában kérném segítségeteket, hogy mit kellene beállítani ahhoz, hogy egy cella tartalmát SAP-ba a formázás (szóközök, sortörések) megtartásával tudjam átmásolni?
Jelenleg csak úgy működik, hogy előtte Word-be másolom és onnan SAP-ba.
Az Excel egy rakás műveletet hajt végre egy hosszú szövegen, majd ezt a kész szöveget kellene átmásolnom SAP-ba. Ha a cellát másolom, majd beillesztem, teljesen szétesik a szöveg. Ha előtte Word-be átrakom, majd kijelölöm, másolom, tökéletesen működik.
Előre is köszönöm!Üdv: Laci
-
Pakliman
tag
válasz
tgumis
#40459
üzenetére
Szia!
Még egyszerűbben, villogtatás nélkül:
Sub keplet_helyett_ertek()
Dim ws As Worksheet
On Error Resume Next
For Each ws In Worksheets
ws.Cells.SpecialCells(xlCellTypeFormulas, 23).Formula = ws.Cells.SpecialCells(xlCellTypeFormulas, 23).Value
Next ws
On Error GoTo 0
End Sub
-
Delila_1
veterán
válasz
tgumis
#40459
üzenetére
Sub keplet_helyett_ertek()
Dim lap As Integer, akt_range As Range
For lap = 1 To Sheets.Count
Sheets(lap).Activate 'Lap aktívvá tétele
'Képleteket tartalmazó tartományok kijelölése
On Error Resume Next 'Hibakezelés, ha nincs képlet
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'A keletkezett területek bejárása és képlet-érték csere
For Each akt_range In Selection.Areas
akt_range.Formula = akt_range.Value
Next
On Error GoTo 0
Next
End Sub -
tgumis
tag
Sziasztok!
Adott egy makró:
Sub keplet_helyett_ertek()
Range("a1").Select
'Képleteket tartalmazó tartományok kijelölése
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
'A keletkezett területek bejárása és képlet-érték csere
For Each akt_range In Selection.Areas
akt_range.Formula = akt_range.Value
Next
End SubHogyan tudom átírni, hogy futtatáskor a munkafüzet összes lapján hajtsa végre ne csak azon amelyiken állok?
-
Pakliman
tag
válasz
Hobbbyt
#40456
üzenetére
Ha következetesen használod a "tankolás" szót, akkor tulajdonképpen elég Neked a SZUMHATÖBB függvény.
A táblázatodban a C5 cella lehet pl.:=SZUMHATÖBB(D10:D5000;B10:B5000;"tankolás")
(Az 5000 egy elég nagy tartomány, ami elég lesz egy ideig, de ezeket a címzéseket akár dinamikussá is lehet tenni.)
Elég lehet a SZUMHA is, de a másikkal akár havi/éves stb. szinten is tudsz számoltatni
pl.: 2018-ban ennyit tankoltál (feltételezve, hogy a "Dátum" oszlop dátumot és nem egy formázott számot tartalmaz):=SZUMHATÖBB(D10:D5000;B10:B5000;"tankolás";A10:A5000;">=" & DÁTUM(2018;1;1);A10:A5000;"<=" & DÁTUM(2018;12;31)) -
Hobbbyt
őstag
válasz
Pakliman
#40452
üzenetére
Jogos.
Inkább a kihívás az ami izgat, nem a szükség.. de szeretném megoldani és "időtállóvá" tenni.Ott oldalt már próbáltam összetenni valamit a HOL.VAN, Indirekt és címek megadásával de valahogy nem áll össze.
(#40453) lappy :
Azért nem, mert ebben az excelben, egy helyen kezelem az összes bevételem, kiadásom, lakhatási költségeket és mindent amit egy mérnök tudni szeretne az élet "áráról" -
Arpee78
senior tag
Hogy lehet két hasonló táblázat adatai egyesíteni? Például van két táblázatom AB és DE oszlopokban, olyat szeretnék eredményként ami a GHI oszlopokban van.
-
Hobbbyt
őstag
Sziasztok!
Fél napos próbálkozás és szenvedés után kérném a segítségeteket, adott egy "Autó kiadások" tábla amiben gyűjtöm az autóra költött összes forintot (tankolás, fenntartási költségek, vásárláskor felmerült költségek stb..)
Eleinte egymás alá írtam (dátum, tétel, mennyiség, ár, megjegyzés fejlécekkel) de most szeretném a tankolást külön venni, illetve külön is listázni de úgy, hogy továbbra is írhassam "folyóban" a dolgokat.
Egyszerűen nem találom a megoldást, hogy az egyik táblázatból, hogyan írathatnám ki a feltételnek megfelelő sorokat, sorban. (alakíthatnám táblázattá is, de én a kiírt adatokat szeretném képlettel tovább dolgozni (benzin ár grafikon, fogyasztási grafikon stb.)
Nem szükséglet, de szeretném tudni, hogy ennyivel is több legyek.
Remélem van erre valami megoldás. (biztos, hogy van, csak nekem nem állt össze)
-
#40450
l.skywalker
titán
l.skywalker
titán
Excel Masterclass Udemy Course
Ezzel a kóddal ingyenes:EXCEL_DISC_FEB19
-
-
Fferi50
Topikgazda
válasz
Paxker315
#40434
üzenetére
Szia!
Tételezzük fel, hogy az A1:A5 cellákban van a keresés, a C1 cellában a keresendő szöveg.
A D1 cellába írd be a következő tömbképletet:=SZUM(HA(HIBÁS(SZÖVEG.KERES($C$1;$A$1:$A$5)>0);0;1))
A tömbképletet Ctrl + Shift + Enter billentyűkombóval kell bevinni, az Excel kapcsos zárójelbe teszi.Üdv.
-
Declare
őstag
válasz
Declare
#40435
üzenetére
egy kis Update:
a összes tesztelt olyan 2018 as datumra lefut, ami 0 val kezdödik ( 02.11.18 ; 06.10.18 stb.). Ha viszont nem 0 val kezdödik akkor a 2018 as datumokkal nem fut a makro (vagy lefut de nem talal semmit). 2019 es evvel semmi problema, akarmilyen datummal lefut
-
Declare
őstag
válasz
Fferi50
#40423
üzenetére
juhuuuu
köszi szepen! Müködik.Viszont van egy anomalia, amire nem tudok rájönni
Ez a kód:
(lenyege röviden: a "Tab1" munkafüzet C oszlopaban a "Tab2" munkafüzet nevenek (mindig egy datum, pl 15.03.19) megfelelö datumokat kikeresi. Ha talalal egy egyezöt, akkor kimasolgatja a "Tab1" munkafüzetben a datum soraban talalhato adatokat a "Tab2" munkafüzet megfelelö cellaiba.A teszt közben, akarmilyen 2019 es datummal teszteltem, lefut szuperül. 2018 as datumok közül viszont a többseggel nem müködik. Van amivel lefut jol, viszont a legtöbb tesztelt datummal egyszerüen nem fut le, mintha nem lenne a keresett datum a cél munkafüzet C oszlopaban. Pedig ott van es ugyan ugy van formazva. Az egesz C oszlop datumkent van formazva.
Egy pl: munkafüzet neve 15.03.19 => lefut es szuper.
10.12.18=> nem fut le (mintha nem talalna, de van)
09.10.18=> lefut es szuperNa erre mondjatok nekem valami magyarazatot es megoldast legyszi, mert total passz a kerdes. Ha viszont a makro hol müködik hol nem, ugy nem sok ertelme volt az egesz eddigi munkamnak vele
Sub Aktualisieren_Tagebuch()
Dim c As Range
Dim OK As Variant
Dim iZähler As Integer
Dim Tab1 As String
Dim Tab2 As String
Tab1 = "Bautagebuch"
Tab2 = ActiveSheet.Name
OK = Tab2
Application.ScreenUpdating = False
iZähler = 15
With Worksheets(Tab1).Range("C1:C500")
Set c = .Find(DateValue(OK), LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets(Tab1).Select
Range("B" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("A" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("A" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("B" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("I" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("D" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Tab1).Select
Range("E" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("E" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iZähler = iZähler + 1
Sheets(Tab1).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Sheets(Tab2).Select
Application.ScreenUpdating = True
End Sub -
Elég zöldfülű kérdés, nem találtam google-el.
Adott egy tartomány, amin belül egy bizonyos szó előfordulását (hány cella tartalmazza azt a kifejezést) szeretném összeszámoltatni.
Probléma: Ha egy cellában több dolog van felsorolva (ie.: "mogyoró, mandula, kesu") s pl. DARABTELI függvénnyel keresek a "mogyoróra", akkor azokat a cellákat, ahol más is szerepel köztük, nem számolja, csak azokat, ahol az egész cella tartalma tökéletesen egyezik.
Hogy lehetne legegyszerűbben megoldani?
teszem fel, így vannak az egymás alatti cellákban
"mogyoró"
"mandula, pisztácia"
"mogyoró, kesu"
"mogyoró, pekán, mandula"
"dió, pekán"hogy tudnám rávenni az excelt, hogy számolja össze azokat a cellákat, amiben előfordul a mogyoró kifejezés?
Próbálkoztam többféle függvénnyel, eddig meddő. 
segítséget előre is köszönöm
-
Fferi50
Topikgazda
válasz
BullZeye
#40428
üzenetére
Szia!
Mind az Fkeres, mind a Hol.van függvénynél használható a keresésre a csillag (*) joker karakter.
Ezzel lehet keresni többszavas cellában is.
Mivel itt a keresési oszlop hátrább van, mint az eredmény oszlop, ezért az INDEX-HOL.VAN páros használható:A C13 cella képlete legyen ez:
=INDEX(E$2:E$6;HOL.VAN("*" & $A13 & "*";$G$2:$G$6;0))
Ezt elhúzhatod lefelé és oldalra is.Figyelj az átírásnál a $ jelekre.
Üdv.
-
BullZeye
veterán
Sziasztok,
Van 2 táblám, mindkettő cikkszám és megnevezés, valamint megvan, hogy a jobb oldali táblában mi minek a megfelelője. Fkeressel párosítanám őket 20%ban működik is, de a jobb oldali listában sok cellában egymás mellett vannak cikkszámok, mert bal oldali listában 1 cikkszám, jobb oldalon többnek is megfelel amit Fkeres nem kezel túl jól.
Nem tudom érthetően leírni, így inkább csatolok egy táblát példákkal.
megfelésbal és jobb lista + megfelelés megvan, és alul kellene összepárosítani őket valamivel.
-
-
EmberXY
veterán
válasz
Fferi50
#40422
üzenetére
Szia!
Köszönöm szépen, ez tökéletesen működik.Viszont olyan kérdésem lenne, hogy ezt a formázást lehet-e valahogy másolni? A cellák, amiket formázni kellene, egy oszlopban vannak, és mindegyiket szeretném az adott sor adatainak megfelelően formázni, ez megoldható valahogy, vagy csak egyenként?
-
Fferi50
Topikgazda
válasz
Declare
#40421
üzenetére
Szia!
"ha datumot beirom az inputboxba, nem törtenik semmi"
Történik, annyi, hogy nem találja meg amit keresel. Dátumot csak dátumként lehet keresni. Az inputboxba pedig nem tudsz dátumot beírni közvetlenül.
Szövegként tudod beírni és utána átalakítani dátummá.
Pl.OK = Application.InputBox("Wonach soll gesucht werden? ",type:=2) 'szöveget kell bevinni az érvényes rendszer dátumformátumban, pl. magyarban éééé.hh.nn
Set c = .Find(Datevalue(OK), LookIn:=xlValues)De probléma lehet az is, ha a keresendő oszlopban nem dátumok, hanem dátumnak látszó szöveges értékek vannak! Erről meggyőződhetsz, ha a cella formátumát megváltoztatod számra - ha dátum volt benne, akkor számot fogsz látni, ha nem, akkor az eredeti értéket. Természetesen vissza is lehet változtatni.
Ha dátumnak látszó szöveg van, akkor olyan formátumú szöveg kell legyen a keresés is.Üdv.
-
-
Declare
őstag
válasz
Fferi50
#40413
üzenetére
Meglett a hiba
(kettö gomb volt es az egyiknel atirtam az "After"-os valtozatra, a masiknal nem. AMikor probalgattam a gombokat a masodik gombnal nem müködött, csak ez nem tünt fel, hogy csak az egyikkel van a baj.)A kereses es kigyüjtesre majdnem megvan a megoldas:
Dim c As Range
Dim OK As Variant
Dim iZähler As Integer
Const Tab1 = "Bautagebuch"
Const Tab2 = "13.03.19"
Sub suchen()
iZähler = 5
With Worksheets(Tab1).Range("C1:C500")
OK = Application.InputBox("Wonach soll gesucht werden? ")
Set c = .Find(OK, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("A" + Trim(Str$(c.Row)) + ":G" + Trim(Str$(c.Row))).Select
Selection.Copy
Sheets(Tab2).Select
Range("A" + Trim(Str$(iZähler))).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
iZähler = iZähler + 1
Sheets(Tab1).Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End SubA baj, hogy en datumot szeretnek keresni, de ha datumot beirom az inputboxba, nem törtenik semmi
. Ha mas oszlopban keresek (nem a C ben, hanem mondjuk A ban) es ott beirok egy nevet, azzal tökeletesen müködik. Valami itt a datum formatum dologgal lesz szerintem, de nem tudom, hogy mi Ötlet valakinek?
-
EmberXY
veterán
Sziasztok!
Feltételes formázással kapcsolatos kérdésem lenne. Azt meg tudom-e oldani, hogy 2 feltételt figyeljen?
Olyasmit szeretnék megoldani, hogy egy adott cella színe váltson pirosra, ha benne a feltételben szereplő adat van, de csak akkor, ha a mellette lévő cellában található dátum már mai naphoz képest régebbi.
Meg lehet ezt oldani feltételes formázással, vagy valamilyen HA, ÉS függvény kombináció kell hozzá, neadjisten makró?
Köszönöm előre is. -
#40419
DrTechnoid
őstag
Meg lehet venni ezt egyben? Mert én havi előfizus vagyok office csomagra, és lehet hogy ha egybe kifizetném akkor olcsóbb lenne.
-
#40418
Delila_1
veterán
psycroptic
#40417
Delila_1
veterán
válasz
psycroptic
#40417
üzenetére
Nincs mit.
-
#40416
Delila_1
veterán
psycroptic
#40415
Delila_1
veterán
válasz
psycroptic
#40415
üzenetére
Az A3-ba
=HA(VAGY(A1>240;A2>240);"Túl nagy szám";"") -
#40415
psycroptic
őstag
psycroptic
őstag
Sziasztok!
Excel 2010-ben megoldható valahogy, hogy két cellát külön figyelve, ha valamelyik meghalad egy bizonyos értéket, akkor egy a számára kialakított oszloban és helyen egy szöveget megjelenítsen? Például:
A1 vagy A2(ezekbe manuálisan van az adat beírva) meghaladja pl. a 240-es értéket, akkor automatikusan megjelenítene A3-ban egy szöveget, hogy pl.hosszúáru.
Remélem érthetöen fogalmaztam!
-
Fferi50
Topikgazda
válasz
Declare
#40412
üzenetére
Szia!
1. Akkor valami nincs rendben nálad, mert ez a parancssorWorksheets.Add(After:=Sheets(Sheets.Count)).Name = newSheetName
mindig az utolsó után szúrja be az új munkalapot. Mindegy, hogy melyik munkalapról indítod.
Esetleg lehagytad az zárójeles paramétert, vagy a Before paramétert használod?2. Ha gond van vele kérdezz bátran.
Üdv.
-
-
atyca
senior tag
Tökéletes!
p.s:
Jó ide járni.
53 évesen már egy picit nehezen férnek a dolgok a fejembe, nagy segedelem ha hozzáértő emberek támogatásával megoldódnak az excellel kapcsolatos problémáim.(volt már néhány )
Az pedig külön öröm, ha a Ti tudásotokra támaszkodva sikerül valamit önerőből megoldanom.
Még egyszer mindenkinek! -
Mutt
senior tag
válasz
sz_abika
#40408
üzenetére
Szia,
Itt az én változatom a problémára:
Dim wsSource As Worksheet
Dim i As Long
Const wsName = " 1234"
i = 0
Do
i = i + 1
On Error Resume Next
Set wsSource = Sheets(Trim("xxx" & Mid(wsName, i, 1)))
On Error GoTo 0
Loop While wsSource Is Nothing And i < Len(wsName)
If wsSource Is Nothing Then
Call MsgBox("A keresett munkalap nem található", vbOKOnly, "Információ")
Else
ActiveCell.Offset(-2, 0).Value = wsSource.Range("A1")
End Ifüdv
-
Fferi50
Topikgazda
válasz
sz_abika
#40408
üzenetére
Szia!
Egy munkalapra vagy a pontos nevével vagy a munkafüzetben elfoglalt helyének a sorszámával hivatkozhatsz.
Ha feltételesen keresed a munkalapot, akkor ciklusban kell végignézned azokat.
Pl.Sub keresi()
Dim sh As Worksheet, shvan As Boolean
shvan = False
For Each sh In Worksheets
If Left(sh.Name, 3) = "xxx" Then
ActiveCell.Offset(-2, 0).Value = sh.Range("A1")
shvan = True
Exit For
End If
Next
If Not shvan Then MsgBox "Nincs ilyen munkalap"
End SubÜdv.
-
sz_abika
addikt
Sziasztok,
egy kis segítséget VBA oldalról hadd kérjek (inkább júzer vagyok mint nem). Adott az alábbi instrukció
ActiveCell.Offset(-2, 0).Value = Worksheets("xxx").Range("A1")
ahol az xxx-re ugyan rákeres a makró és vissza is dobja a kívánt értéket, de sokszor a tényleges név az XXX1, XXX2, stb.
Szóval egyrészt kellene egy olyan parancs bele, hogy ha a worksheet neve tartalmazza azt hogy xxx, akkor vegye az A1 celláját,
illetve ha ez nem megoldható, akkor keressen az xxx worksheetre, ami ha nincs akkor xxx1-re, ha nincs xxx2-re. A számsor nem végtelen, max 4ig megy el, így működhetne ez a feltételes megoldás is.Köszönöm előre is!
-
-
Mutt
senior tag
Szia,
A második sorban ahol a napok sorszámát lehet látni 1-től 31-ig, azok számként formázott dátumok vagy csak sima számok?
Ha dátumok, akkor a végén továbbra is elég a végén lévő rész erre kicserélned erre (az AH oszlopban lévő képletet módosítsd erre):
;HA(HÓNAP.UTOLSÓ.NAP(AH$2;0)=AH$2;"áv";"é");"")Ha nem dátumok vannak, akkor a füzetben vhol kell rögzíteni hogy melyik évről és hónapról van szó ténylegesen. Én a B2 és C2 cellákba beírtam az évet (2019) és a vizsgált hónapot (3). Ha máshol van ez neked, akkor a lenti képletben cseréld ki a hivatkozásokat.
;HA(NAP(DÁTUM($B$2;$C$2+1;0))=AH$2;"áv";"é");"")üdv
) , akkor jönnek a furcsaságok.
Pont volt... 
Új hozzászólás Aktív témák
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Ritkaság! 17" Dell XPS 9720 - i7 12th gen 27% Áfás
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone 13 mini 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3133, 95% Akkumulátor
- BESZÁMÍTÁS! MSI B450M R5 4650G 16GB DDR4 500GB SSD RTX 2060 Super 8GB Rampage SHIVA ADATA 600W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest