-
GAMEPOD.hu
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
-
Delila_1
Topikgazda
válasz valyogvisko #28500 üzenetére
Feltételeztem, hogy mindkét lapon van címsorod, a tényleges adatok a 2. sorban kezdődnek.
Másik feltételezésem, hogy a B lapon az AA oszlopban már nincsenek adataid.A lenti makró a B lap AA oszlopába beírja a DARABTELI függvényt, ami megnézi, megtalálható-e az A oszlopában szereplő név az A lapon.
Ezután egy ciklusban törli az itt is, ott is szereplő nevek sorát, de csak a B lapon.A makróban megjegyzést tettem azokhoz a sorokhoz, ahol át kell írnod a lapok nevét, összesen 3 helyen.
Sub Duplat_Szuntet()
Dim sor As Long, usor As Long
Dim WSA As Worksheet, WSB As Worksheet
Set WSA = Sheets("A") '**********
Set WSB = Sheets("B") '**********
usor = Application.CountA(WSB.Columns(1))
WSB.Range("AA2:AA" & usor) = "=COUNTIF(A!A:A,A2)" 'Itt az A! módosítandó *********
With WSB
For sor = usor To 2 Step -1
If .Cells(sor, "AA") > 0 Then .Rows(sor).Delete Shift:=xlUp
Next
.Columns("AA") = ""
End With
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.
-
Delila_1
Topikgazda
válasz valyogvisko #28502 üzenetére
Akkor nosza!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
cekkk
veterán
Sziasztok!
Ha beírom ezt a képletet a cellába: =C2&" "&E2
Ez miért nem hajtódik végre?
Más táblázatokban is így csináltam és működik, valamint ha csak annyit írok, hogy =C2 akkor kiírja a C2 tartalmát -
Sziasztok!
Ebben a topikban már nem egyszer kaptam szuper segítséget, de sajnos azóta megint nem foglalkoztam a dologgal, és a nem használt minimális kis "tudásom" is a feledés homályába került.
Így elsőnek megkérdezném, hogy egyáltalán kivitelezhető a következő dolog?
Egy tetszőleges cellában létrehozunk egy legördülő listát, és amikor megjelenítjük a listát azt szeretnénk elérni, hogy a kiválasztott elemre kattintáskor ne annak értéket írja be a cellába, hanem egy új listát nyisson meg, és az kerüljön a cellába, amit abból választunk.
Erre azért lenne szükség, mert nem egy nagyon-nagyon hosszú listából kéne kiválasztani valamit, hanem több rövidet lehetne elsőnek kiválasztani, így jóval gyorsítható és kényelmesebbé tehető a folyamat.
Hogy egy PH-s példát írjak a dologhoz, mondjuk A1 cellába létrehozunk egy legördülő listát, melybe megjelenítjük B1-B2-B3-B4 cella értékét, B1-VGA, B2-Alaplap, B3-Táp, B4-RAM.
Lenyitom A1 legördülő listát, és kiválasztom az Alaplap értéket, de azt szeretném, hogy ekkor ne kerüljön be A1 cellába az, hogy "Alaplap", hanem ehhez tartozzon mondjuk C1-C33 cella értéke, és az innét választott cella tartalma kerüljön A1-be.
És ha meg lehet oldani, akkor lehet e fokozni még tovább, Úgy mint Lista nyit - Alaplap - Z87 - Innét választ?
Előre is köszönöm!
-
spe88
senior tag
Létezik olyan funkció, hogy nem csak az ismétlődéseket, hanem az üres cellákat is eltávolítja egy adott oszlopból?
köszi
Spóroljunk! Kerül, amibe kerül!
-
BenJoe80
senior tag
válasz Delila_1 #28480 üzenetére
Nagyon szépen köszönöm - egy dolog azonban nem világos, de ez az én béna magyarázatom miatt van.
Azt hogy tudom megoldani, hogy B4-M4-ig terjedő sorba kerülő összegek közül, mindig a legutolsó (tehát éppen aktuális) értéket mutassa az N4-ben?
Megisznak egy deci pálinkát. Miért? "Olyan savam vót, meg köllet innom egy deci pálinkát, aszittem megbolondulok." Aztán megisznak négy liter bort. Miért? "Há' semmi savam nem volt má'!"
-
Zola007
veterán
a 2010-ben mi a hotkey az alsó és felső indexre?
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
Dolphine
addikt
Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
Delila_1
Topikgazda
-
BenJoe80
senior tag
-
szatocs1981
aktív tag
-
Delila_1
Topikgazda
válasz BenJoe80 #28517 üzenetére
feltöltöttem. A Munka2 lapot nézd!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Dolphine
addikt
válasz szatocs1981 #28518 üzenetére
Valószínűleg valamit rosszul csinálok, mert a makrónál Error üzenet jön ki!
Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
Dolphine
addikt
válasz szatocs1981 #28521 üzenetére
Ezer bocsánat én voltam a hülye!
Egy újabb kérdés. Gondolom ez a makró csak makróképes EXCEL-ként menthető, igaz? Különben nem tudom futtatni!Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
szatocs1981
aktív tag
válasz Dolphine #28522 üzenetére
Makrókat engedélyezed az EXCEL-ben, bemásolod, lefuttatod, majd ugyanúgy mented a munkalapot a makró nélkül.
Viszont ha ebbe a munkalapba nap, mint nap másolsz táblázatot, akkor "mentés makróval..." opciót válaszd és megmarad a makró.
A futtatás szerintem független ezetöl. Annak mennie kell, ha engedélyezve vannak.
-
Dolphine
addikt
válasz szatocs1981 #28523 üzenetére
Csak egyszer kell elkészíteni a táblázatot!
Nagyon köszönöm a segítséget!Nem egyenlőre, hanem egyelőre! Nem ez miatt, hanem emiatt, vagy ez által!
-
Sweetraver
csendes tag
Sziasztok!
Tudnátok abban segíteni, hogy milyen képlettel tudom azt megoldani, hogy összeszámolja, hogy egy területen belül hány db 1-es szintű van.
Terület Szint
Termelés 1
IT 2
Pénzügy 1
Termelés 1
Termelés 2
IT 1És az új táblázatban A oszlopában szerepel a terület, a felső sorában pedi hogy "1" a következő oszlopban "2" stb. Szóval csak egy számot kell írnom, hogy termelésen kettő darab 1-es szintű van.
Köszönöm
-
szatocs1981
aktív tag
válasz Sweetraver #28525 üzenetére
-
Zola007
veterán
a 2010-ben mi a hotkey az alsó és felső indexre?
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
ZohanKAA
csendes tag
Üdv!
Van egy oszlopom amiben bizonyos feltételeknek megfelelően vannak IGAZ és HAMIS sztringek.
Arra szeretnék megoldást találni, hogy az oszlop legfelső cellájába, ha az oszlopban egy HAMIS sztring is szerepel akkor ennek az értéke legyen HAMIS., ha viszont mindegyik igaz akkor legyen IGAZ. Az oszlopban üres cellák is vannak, ezeket ki kellene hagyni a vizsgálatból.
Előre is köszönöm a segítséget!
-
szatocs1981
aktív tag
-
air
nagyúr
Sziasztok!
Lehet, hogy bagatel a kérdés, és remélem pikk-pakk tudjátok a választ.
Van egy táblám, ami úgy lett exportálva egy alkalmazásból, hogy egy névsor (1-20-30 ember, változó számú) egy cellában szerepel, vesszővel elválasztva. A név után zárójelben egy azonosítóval.
Abban kérném a segítségeteket, hogy miként lehetne a neveket és az azonosítókat - utóbbit persze zárójelek nélkül - két oszlopba, soronként szétdobni.
Persze a táblában nem egy ilyen cella van hanem sok, úgyhogy többször is el kellene végezni a műveletet.Előre is köszönöm.
Tintatartó, aligátor, búzavirág, csók, gyalupad, fogpiszkáló
-
Zola007
veterán
válasz szatocs1981 #28528 üzenetére
fene egye meg őket, így leszakad a kezem a végére
neked azért köszönöm az infót[ Szerkesztve ]
Mʏ ᴘʜɪʟᴏsᴏᴘʜʏ ɪs: Iᴛ’s ɴᴏɴᴇ ᴏғ ᴍʏ ʙᴜsɪɴᴇss ᴡʜᴀᴛ ᴘᴇᴏᴘʟᴇ sᴀʏ ᴏғ ᴍᴇ ᴀɴᴅ ᴛʜɪɴᴋ ᴏғ ᴍᴇ. I ᴀᴍ ᴡʜᴀᴛ I ᴀᴍ ᴀɴᴅ I ᴅᴏ ᴡʜᴀᴛ I ᴅᴏ. I ᴇxᴘᴇᴄᴛ ɴᴏᴛʜɪɴɢ ᴀɴᴅ ᴀᴄᴄᴇᴘᴛ ᴇᴠᴇʀʏᴛʜɪɴɢ. Aɴᴅ ɪᴛ ᴍᴀᴋᴇs ʟɪғᴇ sᴏ ᴍᴜᴄʜ ᴇᴀsɪᴇʀ. - Sɪʀ Aɴᴛʜᴏɴʏ Hᴏᴘᴋɪɴs
-
air
nagyúr
-
air
nagyúr
válasz szatocs1981 #28535 üzenetére
Köszi.
Tintatartó, aligátor, búzavirág, csók, gyalupad, fogpiszkáló
-
szatocs1981
aktív tag
Ez szétszedi az A1-ben lévöt és A2-B2 töl kezdve feltölti.
Pr´báld ki:Sub Split()
Dim txt As String
Dim x As Variant
Dim i As Long
txt = Cells(1, 1).Value
x = Split(txt, ", ")
ReDim y(UBound(x))
For i = 0 To UBound(x)
y(i) = Split(x(i), "(")
Next i
For i = 0 To UBound(x)
y(i)(1) = Replace(y(i)(1), ")", "")
Next i
For i = 0 To UBound(x)
Cells(i + 2, 1).Value = y(i)(0)
Cells(i + 2, 2).Value = y(i)(1)
Next i
End Sub -
air
nagyúr
válasz szatocs1981 #28537 üzenetére
Köszi.
Már csak annyi segítséget kérnék, hogy miként tudom ezt használatba venni?[ Szerkesztve ]
Tintatartó, aligátor, búzavirág, csók, gyalupad, fogpiszkáló
-
poffsoft
addikt
-
the radish
senior tag
válasz Delila_1 #28196 üzenetére
Szia!
Újra elakadtam.
Ha így hagyom, akkor tökéletesen működik, minden felbukkanó msgbox "okézása" után indul elölről és másolja sorban a dolgokat, ahogy kell is, 1, 2, stb és a végén a kész fogad..
Azonban nem tudok makrót beilleszteni a művelet folyamatába. Ha a legegyszerűbb műveletet is beiktatom, pl. hogy másolja a Masolat_lap A oszlopát bárhova, akkor végigfut ugyan, fel is ugrik az msgbox, de sajnos véget is ér a folyamat, azaz az első adatsort követően nem másolja át a többit, leáll.Hogy tudnám rávenni, hogy elfogadja a makrót és lefusson sorban az összes adatsorral?
Előre is köszi.
-
Delila_1
Topikgazda
válasz the radish #28540 üzenetére
Nézd meg, nincsenek-e véletlenül azonos nevű változók a két makróban. Nem lehetnek, mert akkor a meghívott makró változói felülírják az indító makró változóinak az értéké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.
-
air
nagyúr
Mindenkinek köszönöm a segítséget!
Tintatartó, aligátor, búzavirág, csók, gyalupad, fogpiszkáló
-
the radish
senior tag
-
Gem Geza
csendes tag
Hali, megint lenne egy segitseg keresem.
Felteteles formazassal szeretnek beszinezni cellakat.
A cellakban datum adatok lesznek es a MA() fuggveny erteketol fuggoen szeretnem beszinezni az alabbiaknak megfeleloen:
1. Matol visszafele 14-IG zoldre
2. Matol visszafele 15-29 napig sargara
3. 30 napnal regebbi adatok eseten pirosraA feltetelek kozott a datum tipusunal talatam egy olyat, hogy az "elmult 7 nap", de nekem ez nem elegendo (Sajat intervallumot meg ITT nem egedelyez megadni), a cellaertek kozott meg "a kovetkezok kozott" meg nem mukodik datumnal, vagy csak en adtam fel tul koran a probalkozast.
Tudnatok segiteni, hogy mivel probalkozzak?
Elore is koszi az agyalast es a probalkozasotokat.
Szep tablazatot Mindenkinek!
Udv GG
[ Szerkesztve ]
-
DeFranco
nagyúr
sziasztok!
egy oszlopban más mukafüzetekből szeretnék adatokat behivatkozni, de paraméterezve, a következők szerint:
A1:A10-ben legyenek évszámok 2006-tól 2015-ig
B1 cellába egy C:\Dokumentumok\Termelés\2006\[Éves zárások 2006-ig.xlsx]Munkalap1'!$F$10
B2 cellába egy C:\Dokumentumok\Termelés\2007\[Éves zárások 2007-ig.xlsx]Munkalap1'!$F$10
stb. hivatkozások kerülnekezt szeretném automatizálni, tehát hogy az elérési útban és filenévben szereplő évszám stringet az A1:A10 megfelelő cellájából vegye.
tippem szerint INDIREKT-et kellene használnom, de nem jön össze. munkafüzeten belül más munkalapra tudok hivatkozni, de így nem megy, hiába mutatja "jól" a képletkiértékelőben.
valami ilyesmivel próbálkoztam volna:
=INDIREKT("C:\Dokumentumok\Termelés\"&A1&"\[Éves zárások "&A1&"-ig.xlsx]Munkalap1'!$F$10"
de nem jött be
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz the radish #28543 üzenetére
A saját makród végén állj vissza oda, ahol a makró előtt voltál.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
spe88
senior tag
olyat hogy tudok, hogy van egy tartomány A oszlopban tele számokkal/szöveggel és ami az A oszlopban megtalálható elemet megtalálja az E oszlopban, akkor azt a cellát (vagy sort) az E oszlopban emelje ki valahogy?
Feltételes formázásnál próbáltam valami szabályt alkotni, de nem jött össze sehogy!
pl:
A oszlop:
1
2
3
4
5
asd
qwe
10
6E oszlop
1
5
asd
nb
rte
88
66És akkor csak ezek lennének kiemelve az E oszlopban: 1, 5, asd
Köszi
[ Szerkesztve ]
Spóroljunk! Kerül, amibe kerül!
-
the radish
senior tag
válasz Delila_1 #28546 üzenetére
Ránéznél, hol a hiba?
Sub masolas()
Dim tol, ig
Dim WSI As Worksheet, WSM As Worksheet
Dim sorszam 'az A oszlop értékei
Dim sorM As Long 'ahova másolsz
Set WSI = Workbooks("A.xls").Sheets("Innen")
Set WSM = Workbooks("B.xls").Sheets("Ide")
WSI.Activate
Rows(1).copy WSM.Range("A1") 'fejléc másolása
sorszam = 1: tol = 2
Do While Cells(tol, 1) <> ""
WSM.Cells = "" 'másolat lapjának kiürítése
sorM = Range("A2")
tol = Application.Match(sorszam, Columns(1), 0)
If VarType(tol) = vbError Then 'ha nem talált tol értéket
MsgBox "Kesz"
Exit Sub
Else
ig = Application.Match(sorszam, Columns(1), 1)
Rows(tol & ":" & ig).copy WSM.Range("A2")
copy 'Itt indul a saját makród
sorszam = sorszam + 1 'növeljük a keresendő értéket
End If
Loop
End Sub
Sub copy()
Range("A:E").Select
Selection.copy
Windows("B.xls").Activate
Sheets("Munka2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Sheets("ide").Select
MsgBox "Jönne a következő"
End Sub -
Delila_1
Topikgazda
válasz the radish #28548 üzenetére
Most hirtelen azt látom nagy hibának, hogy a makród neve egy VBA-s kulcsszó, copy.
Nézd meg, hogy pl. az első makró Else ágában, aRows(tol & ":" & ig).copy WSM.Range("A2")
sorban a Copy utasítást nem is váltotta át nagy kezdőbetűre, mert a copy című makródként értelmezi.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Politika
- Hobby elektronika
- Épített vízhűtés (nem kompakt) topic
- MotoGP 24 - Íme a launch trailer
- Luck Dragon: Asszociációs játék. :)
- Az iPadOS-re írt appokra is díjat vet ki az Apple
- Kerékpárosok, bringások ide!
- Gitáros topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- További aktív témák...
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest