- AMD K6-III, és minden ami RETRO - Oldschool tuning
- 3D nyomtatás
- Amlogic S905, S912 processzoros készülékek
- Kompakt vízhűtés
- Azonnali informatikai kérdések órája
- OLED TV topic
- Plazma TV topic
- HTPC (házimozi PC) topik
- Hogy is néznek ki a gépeink?
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
Hirdetés
-
Elnéztük a mai dátumot
ma Nem holnap, ma mutatkozik, pontosabban mutatkozott be a HTC U24 Pro, csak elnéztük (mármint én) egy nappal a dátumot.
-
Újabb államok perelik az Apple-t, mert sok pénzt szed ki a vevőkből
it Négy újabb amerikai állam csatlakozott az USA Apple ellen indított, monopolellenes peréhez.
-
Nem lesz soulslike játék a Phantom Blade Zero
gp A készítők egy pár mondatos kérdezz-felelekkel tisztáztak néhány dolgot a játékkal kapcsolatban.
-
PROHARDVER!
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
-
huliganboy
addikt
Sziasztok!
Van több kb (9) munkalapom egy excelben. Mindegyiknek ugyan az a fejléce, az egyes cellákban képletek.
Hogy tudom ezt egy külön lapon összesíteni? A munkalapokat folyamatosan adattal töltik fel, tehát olyan kellene ami frissül is vagy makró ami futtatható...
Köszönöm a segítséget előre is!
-
Delila_1
Topikgazda
válasz huliganboy #38251 üzenetére
Az összesítő munkalap A2 cellája (feltéve, hogy mindegyik lapon az első a címsor, az oszlopok pedig az A-ban kezdődnek).
=SZUM(Munka1:Munka3!A2)
A saját lapjaid közül az első, és az utolsó neve szerepeljen a függvényben. Ha az egyes nevek számmal kezdődnek, vagy szóközt tartalmaznak,
=SZUM('Munka1:Munka3'!A2)
Jobbra, és le is másolhatod.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
dellfanboy
őstag
hogyha makrofelvevovel felveszek egy makrot amit utana lefuttatok. lehet latni a lepeseket
mit hogy csinaltam (gyorsitott felvetelbe).
van arra parancs hogy ezt ne lehessen latni? ha igen le tudna irni valaki a kodreszletet?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz dellfanboy #38253 üzenetére
A makró elején letiltod a képernyő frissítését, a végén engedélyezed.
Application.ScreenUpdating = False
'makró lépései
Application.ScreenUpdating = True[ 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
Sziasztok,
Érdekes dolog MrExcel csatornáján: https://www.youtube.com/watch?v=OIjwuuGnrNY
Röviden: ActiveSheet.Pictures.Insert makró parancs a nevével ellentéteben nem beágyazza a képet a fájlba, hanem csak egy hivatkozást hoz létre, így másik gépen a kívánt kép már nem lesz elérhető.
A videoban a megoldás.üdv
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
-
pero19910606
csendes tag
Sziasztok!
Szeretnék egy kis segítséget kérni Tőletek.
A táblázatom alapja egy óránként frissülő AutoGADD xls. (Belinkeltem egy új üres táblázatba) A táblázatban termékek és a hozzájuk tartozó információk (ár, készlet, stb...) szerepelnek.
Az utolsó oszlopban egy képlettel számolnám, ki hogy mely termékek (Amelyeket ki kell futtatnunk egy megadott időre) azok, amik leírhatóak. Ezeknek meg vannak a feltételei.
Az egyik ilyen feltétel, hogy az elérhető készlet ("Code 1" esetén) 15 alatt van, nem fog már hozzánk érkezni (RTR = 0) és a teljes még eladásra váró készlet 50.000 Ft alatt van.
Idáig nem is lenne semmi problém, azonban a GADD listában, ha már nincs RTR (Rest to receive), akkor sok esetben nem 0 vagy üres cella, hanem "-" szerepel, tovább az RTO (Rest to Order) oszlopban negítv szám is lehet. Ez utóbbi azért fontos, mert egy sima CTRL+H-val nem tudom a "-" jelet "0"-ra cserélni, mert akkor a minuszból értékből hirtelen plusz lesz a "-" eltönésével. Az RTR oszlopban szereplő kötőjel további problémát okoz, ha össze akarom adni az aktuális készlettel, mert "value" hibaüzenetet kapok.
A CTRL+H opció azért sem megoldás, mert teljesen automatizálni szeretném a táblázatot, ha már rendelkezésrem áll az óránként frissülő linkelt lista.
Próbáltam a SUBSTITUE függvénnyel cserélni a "-" jelet 0-ra, de azzal meg a "Kiírható" oszlopban szereplő függvény nem boldogul. (Emelett a negatív számoknál sem jó, mert a mínusz helyett 0 lesz a szám előtt.)
Összefoglalva a lényeg: Az RTO és az RTR oszlopban szereplő "-" jeleket szeretném "0"-ra (vagy akár semmire) cserélni úgy fügvénnyel, hogy az eredeti listában nem kell piszkálnom semmit, illetve itt sem kell semilyen műveletet manuális megtennem a megnyitás után. ( Ez utóbbi azért fontos, mert sok olyan ember használná a táblázatot, akinek még egy nyomtatás is sokszor problémát okoz.
Ez lenne a táblázatom (az eredeti file-ra való hivatkozást itt most eltüntettem, hogy ide fel tudjam tölteni) https://data.hu/get/11252766/pelda.xlsm
Lehetséges ez?
Nagyon köszönöm a segítséget!
Remélem érthetően tudtam leírni
További szép napot!
Sziasztok!
-
HoTaZo
addikt
Sziasztok!
Egy egyszerű dolgot szeretnék, de nem találom rá a megoldást.
A képen szereplő táblázat 1,2,3-as sorát és az A,B,C oszlopát akarom rögzíteni (ami szürke).
Bármit próbálok (amit ismerek az Excelben), sehogy se jön össze. Mindig megy az egész D oszlop, de annak csak a 4. sorától akarom.
Van rá megoldás?Si jeunesse savait, si vieillesse pouvait.
-
Fferi50
őstag
válasz pero19910606 #38256 üzenetére
Szia!
Ezzel a 2 sorral megoldhatod:
Sheets("Data").Range("G:H").Find What:="-",LookIn:=xlValues, Lookat:=xlWhole ' ez azért kell, hogy értékben cseréljünk. A Find és a Replace is megőrzi az előző beállítsokat.
Sheets("Data").Range("G:H").Replace What:="-", Replacement:="0", LookAt:=xlWholeÜdv.
[ Szerkesztve ]
-
HoTaZo
addikt
válasz Delila_1 #38261 üzenetére
Szóval, akkor nem hiába nem találtam a megoldást arra, amit akartam.
Persze, a színek áthelyezése is egy megoldás, de ha bővül a színek száma, akkor több hely kell nekik oda. Akinek meg készül, nem biztos, hogy fog átalakítással is bíbelődni.
De, akkor maradok annál a verziónál.
Köszönöm!Si jeunesse savait, si vieillesse pouvait.
-
Delila_1
Topikgazda
válasz HoTaZo #38262 üzenetére
Keress rá itt a fényképezőgép szóra, azt alkalmazhatod a füzetedben.
Valahol – akár egy másik lapon – összeállítod a színeket és a hozzájuk tartozó megjegyzéseket, majd ezt a tartományt jeleníted meg az ikon segítségével az A13 tartományban.
[ 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.
-
HoTaZo
addikt
válasz Delila_1 #38263 üzenetére
Nálam Kamera néven van, de mivel rögzül azon a helyen, ahová teszem, így ugyanúgy csak a bal felső üres tartományba tudom kivetíteni. Nem rossza a megoldás, de ha valamilyen módon úsztatni lehetne, akkor tudna úszkálni a dátumok felett, mert az hétről hétre halad balra.
Si jeunesse savait, si vieillesse pouvait.
-
Delila_1
Topikgazda
válasz HoTaZo #38264 üzenetére
Rendeld a laphoz a lenti makrót.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Kép 1").Top = 2
ActiveSheet.Shapes("Kép 1").Left = Selection.Columns.Left
End SubA "Kép 1" helyett azt a nevet add meg, ahogy a "fotót" elnevezted.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
dellfanboy
őstag
válasz Delila_1 #38254 üzenetére
Koszi szepen ez mukodik de makrom nem pedig a makrofelvevovel felvettem. Tudnal esetleg segiteni
Van 3 sheet-em es az itt levo adatokat kellene egy uj excelbe masolni igy csinaltam:
Makrofelvevo elindit irany sheet1 a1 cella. Itt ctrl shift jobbra, le (tartomany kijelolese) majd file uj excel megnyitasa itt a1cella es bemasoltam a sheet1rol a dolgokat. Irany regi file sheet 2, itt b1cella ctrl shift le jobbra majd masolas, uj file a1 cella majd ctrl le( legutolso sor) es meg egyet le a kurzorral hogy ures sorba masoljam a sheet2 tartalmat. Majd u.a 3 -al. es amikor kesz akkor fel kene dobnia hogy mentes maskent en meg kivalasztom a helyet+nevet…Masik kerdesem:
Szeretnek siman cella szin alapjan szummazni (osszeadni cella ertekeket) google-ztam 1 makrot, de itt a tizedesjegyekkel gondba vagyok mert van amikor a makro(fv,module) vegeredmenye mast ad mintha egyesevel osszeadnam, ill van amikor total mas vegeredmeny pl 8 helyett 808
Function SumByColor(Cellcolor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = Cellcolor.Interior.ColorIndex
For Each cl In rRange
If cl.Interior.ColorIndex = ColIndex Then
cSum = WorksheetFunction.sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function
ezt makrot talaltam a neten
Esetleg nincs olyan makrod ami cella szin alapjan szummaz? Ill mi lehet a fentivel a baj?
elore is koszonom[ Szerkesztve ]
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz dellfanboy #38267 üzenetére
A második kérdésre gyorsan tudok válaszolni. A
Dim cSum As Long
sor végéről hagyd le az As Long-ot.Az első kérdést át kell rágni.
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 HoTaZo #38268 üzenetére
Mikor egy cellára (bármelyiken a lapon) klikkelsz, az eseményvezérelt makró beállítja a "Kép 1" nevű "fotó" pozícióját. A teteje a szerkesztőléc alatt egészen fent lesz, a bal oldala pedig megegyezik annak az oszlopnak a bal oldalával, amelyiken az egyik cellára kattintottál. Mivel beállítottad a panelrögzítést a D4 cellába, így mindig szem előtt lesz a kép.
A füzetet makróbarátként kell elmentened, xlsm kiterjesztéssel.
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 dellfanboy #38267 üzenetére
Pontosítanod kell. Azt írod, az eredeti füzet 3 lapjáról akarsz másolatot készíteni .
Az A1-gyel kezdődő teljes tartományt másolod egy új füzet első lapjára, A1 cellától kezdődően.A másolat alá bemásolnád az eredeti füzet 2. lapján lévő táblázatot, de csak a B oszloptól kezdődően?
Mit másolsz és hova a 3. lapró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.
-
dellfanboy
őstag
válasz Delila_1 #38271 üzenetére
igen, mert a fejlec/elso sor mind a harom lapon u.a egyedul a sorok szama valtozik. (ma pl sheet1 150sor, sheet2 123, sheet3 55, holnap meg tripla ennyi fele annyi) sheet3 rol is b2 cellatol masolom az ertekeket annyit amennyi van (ezert hasznaltam a ctrl shtr le jobbra-t mint kijeloles)
idaig manualis munka volt copy paste-el de meguntam.viszont ha gyorsabb/szebb/jobb masolhatom mind a 3 sheetrol b2tol az adatokat es a vegen az egyikrol a fejlecet/elso sort. vagy amikor letrehozom az uj dokumentumot ahova a 3sheet adata kerul akkor lehet elso lepes csak a fejlec/elso sor masolasa utana meg a 3 sheetrol az adatok.
nemtudom melyik a szebb/jobb/gyosabb/elegansabbviszont a cella szinek alapjan szummazas, hogy toroltem azt a paramatert #name error-ra fut. fogalmam sincs miert
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz dellfanboy #38272 üzenetére
Még mindig nem egészen tiszta a dolog. Az 1. lapról A1-től másolsz, ami a fejlécet is másolja az A oszloptól. A másik két lapról már csak a B oszloptól másolsz, érthetően fejléc nélkül. Ebben az esetben az első másolat A oszlopa alá a másik kettő B oszlopa kerül. Nem elírás ez? Szerintem mindegyik lapról a teljes táblázat kell, csak a második kettőről fejléc nélkü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.
-
Delila_1
Topikgazda
válasz dellfanboy #38274 üzenetére
A másolandó fájlban modulba másold a makrót, majd adj rá mentést másként, makróbarátként.
Sub Masolasok()
Dim WBE As Workbook, WSM As Worksheet, ide As Long
Dim FD, utvonal As String, FN As String
Set WBE = ActiveWorkbook
Workbooks.Add
Set WSM = ActiveWorkbook.Sheets(1)
WBE.Sheets(1).Range("A1").CurrentRegion.Copy Range("A1") '1. lap másolása
ide = WSM.Range("A" & Rows.Count).End(xlUp).Row + 1
WBE.Sheets(2).Range("A1").CurrentRegion.Offset(1).Copy Range("A" & ide) '2. lap másolása
ide = WSM.Range("A" & Rows.Count).End(xlUp).Row + 1
WBE.Sheets(3).Range("A1").CurrentRegion.Offset(1).Copy Range("A" & ide) '3. lap másolása
FN = Application.InputBox("Add meg a mentendő fájl nevét!", , , , , , 2)
MsgBox "Válassz útvonalat", vbExclamation
Set FD = Application.FileDialog(4) 'mappa választás
With FD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Nem választottál útvonalat, befejezzük.", vbInformation, "Értesítés"
Exit Sub
Else
utvonal = .SelectedItems(1)
End If
End With
ActiveWorkbook.SaveAs utvonal & "\" & FN & ".xlsx"
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 dellfanboy #38272 üzenetére
Szín szerinti összegzés
Function SzinOsszeg(Mintacella As Range, Tartomany As Range)
'Összegzi a Tartomany-ban lévő, mintaként jelölt háttérszínű cellák értékét
Dim osszeg, CV As Range
Application.Volatile
osszeg = 0
For Each CV In Tartomany
If CV.Interior.ColorIndex = Mintacella.Interior.ColorIndex Then
osszeg = osszeg + CV.Value
End If
Next CV
SzinOsszeg = osszeg
End FunctionProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Fferi50
őstag
válasz Delila_1 #38276 üzenetére
Szia!
Csak egy nagyon apró megjegyzés. Amennyiben az adott cella színe feltételes formázás következtében áll elő, akkor sajnos ez a módszer nem ad helyes eredményt.
A CV.DisplayFormat.Interior tulajdonság mutatja a cella tényleges színét. Ez igaz mind a mintára, mind az összegzendő cellákra.Üdv.
-
dellfanboy
őstag
válasz Delila_1 #38275 üzenetére
ez vmi kibebasz*t jo lett, koszi szepen
2 finomhangolasi kerdesem lenne: a vegen mikor feldobja hogy adjam meg a nevet: hogy irjam at hogy ne blank legyen a cella hanem pl. riport v1?
ill. amikor a vegen a helyet kell kivalasztanom lehet vmi halozati beallitas miatt de csak a local C:re tudom menteni halozatra nem. itt be lehet vmit allitani hogy alapbol. mondjuk a X:\riportok mappa ugorjon fel?meg egyszer halas koszonet
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
dellfanboy
őstag
válasz dellfanboy #38278 üzenetére
bocs, most nezem 30k sor helyett a makro csak 20k-t hozott at
atirtam a makrot mert nekem az adatsheet-ek pontos nevei: #1,#2,#3 erre irtam at WBE.Sheets("#1") de akkor ezek szerint rosszul?eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
dellfanboy
őstag
válasz dellfanboy #38280 üzenetére
nah megneztem #1-rol minden sor atjott
#3- duplikaltan jott at az osszes sor
#2 hianyzikmi okozhatja ezt a hibat? foleg ugy hogy az elso sheet adatai pontosan atjonnek
[ Szerkesztve ]
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
dellfanboy
őstag
válasz Delila_1 #38276 üzenetére
ha megnyitok egy uj excelt ott tokeletesen mukodik, viszont ha mar egy meglevo file-ba rakom bele(makrobaratkent van elmentve ill. probaltam xlsb-kent is menteni) akkor allandoan a #name? error-ra fut ki. itt mit toroljek a meglevo file-bol hogy fusson?
eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
HoTaZo
addikt
válasz Delila_1 #38270 üzenetére
Azt értem, hogy mit kéne csinálnia.
Azt viszont nem, hogy miért nem csinálja. Biztos nálam a hiba, de mivel nem látom át, így nem tudom, hogy hol rontom el.
1.: Betettem a színeket bal fentre (kapott a táblázat fentre még egy sort, hogy ki is nézzen valahogy, tehát a panelrögzítés D5-nél van)
2.: Kijelöltem A1-C4, Kamera ikon klikk.
Kijelöltem egy területet a szerkesztő léc alatt kb akkora, mint a kijelölt terület, megjelenik a "kép". Baloldalt, Név mezőben megadtam "Doboz" nevet.
3.: Elmentettem xlsm kiterjesztéssel.
De most már annyit birkózok itt, hogy azt se tudom, hogyan rendeltem egyszer a makrót a laphoz (már, ha azt csináltam). Most hiába klikkelek a Makrók ikonra->Makrók megjelenítése vagy bármire ott vagy a képen jobb klikk Makró hozzárendelésre. Adnék egy nevet a makrónak (mondjuk: doboz-makró), hiába OK, de semmi, azt se tudom hova kerül, mit szerkesszek, hova másoljam be az általad írt makrót?
Itt valami nem ok számomra.
Help...Si jeunesse savait, si vieillesse pouvait.
-
pentium4
senior tag
Sziasztok,
Adott egy lista, mondjuk A-F oszlopig, ezeken van szűrőfeltétel a legfelső sorban.
Következő a probléma, G-H-I oszlopba be akarok írni infókat a felső sorokba, pl 3-15 közé, viszont ha a szűrést használom és eltűnnek a nem szűrt sorok ugye akkor ahova írtam G-I oszlopokba eltűnnek.
Ez jelenleg úgy oldottam meg hogy egy kép van betéve, viszont ezzel az a baj hogy nagyon macerás a változtatása.
Ki milyen ötletet tud erre nekem mondani?
KösziP4
-
Delila_1
Topikgazda
válasz HoTaZo #38284 üzenetére
A "szamárvezetőt" olyan helyen add meg, ami nem látszik a képernyőn a felhasználás közben. Lehet akár egy másik lapon is.
Kijelölöd a területet, rákattintasz a fényképezőgép ikonra. A kapott szálkereszttel rajzold meg a lapod bal felső sarkába a téglalapot. Megjelenik benne a szamárvezetőd képe. A szerkesztőléc bal oldalán látod a "Kép 1" , vagy hasonló nevet, ezt írhatod át, leenterezed.
A laphoz rendelt modulban írd át a "Kép 1" nevet az általad megadott névre.
A laphoz rendelés módját megtalálod a Téma összefoglalóban.
[ 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.
-
Delila_1
Topikgazda
válasz dellfanboy #38283 üzenetére
Lehet, hogy az egyes lapokon a táblázatokban üres sorok vannak. A Range("A1").CurrentRegion utasítás azt a műveletet adja, amit az A1 cellán a Ctrl+jobb nyíl, majd Ctrl+le nyíl eredményez.
Vegyük, hogy az adataid az A1:F20, majd az A22:F50 területeken vannak. A kurrens régió segítségével csakis a felső táblázat lesz kijelölve, mivel a 21. sor üres az A:F oszlopokban.
Ha új fájlban jól működik, de a meglévőben nem, akkor a meglévőben kell keresned a hibát.
[ 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.
-
HoTaZo
addikt
-
dellfanboy
őstag
válasz Delila_1 #38288 üzenetére
neztem a forras tablat, de ures sor sehol sincs.
abban esetleg tudnal segiteni hogy a makroban melyik sorokat modositsam ha a terulet kijelolest akarom modositani, beraknam a ctrl shift le jobbra blokkot hatha azzal lefut.eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz dellfanboy #38291 üzenetére
WBE.Sheets(1).Range("A1").CurrentRegion.Copy Range("A1")
Szintén Sheets(2)-re és sheets(3)-ra.
Azt írtad, új füzetben működik. Mi lenne, ha az újba átmásolnád a régi fájl 3 lapjának az adatait?
[ 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.
-
amex02
csendes újonc
Sziasztok,
segitseget, tanacsot kernek profi szakertoktol.Miert lehetseges az, hogy az excel Neha enged szamokat beirni a mezokbe, Neha meg nem.
Termek listat szeretnek kesziteni arakkal, jo ideig normalissan mukodik, aztan egyszer csak elkezd rosszalkodni, es onnantol nem enged szamot a mezokbe irni.
Pontosabban beirni engedi, de amint barmilyen gombbal atlepek akarmelyik masik mezobe, azonnal mentes nelkul kilep a programbol vagy vegleg, vagy csak egy pillanatra es utana ujbol magatol megnyilik.
Kerek mindenkit, aki erti mi lehet a gond, irja meg.
Koszonom. -
dellfanboy
őstag
válasz Delila_1 #38292 üzenetére
koszi, lesz erom mindjart megnezem.
ha a 38283-hsz-re gondolsz (ott irtam hogy uj excelben mukodik) akkor az a cella szinenkenti szummazasra vonatkozott. bocs, ha nem voltam1ertelmu .ott all fen az a problemam, hogy ha letrehozok egy uj excelt abba belerakom azt a modult akkor tok jol tudom szummazni szin szerint. viszont ha a jelenlegi file-be rakom bele akkor vannak gondjaim.
ma pl. tok jol mukodott, egeszen addig mig az excel-t nem mentettem el, nah akkor a vegeredmenyek eltuntek es ?name error-ra futott ki..
( a file makrobaratkent van elmentve, nincs mas makro ami bezavarni viszon valo igaz, eleg nagy sok keplettel lappal) viszont nem ertem hogy mikor eloszor beleraktam a modul-t, akkor a fv mukodott, majd mentesre kidoba a ?name-t...eladó dolgok:mondd az árát és vidd http://hardverapro.hu/tag/dellfanboy#aprohirdetesei
-
Delila_1
Topikgazda
válasz dellfanboy #38294 üzenetére
1. Tedd a personalba a színösszegzőt (Téma összefoglaló), akkor minden fájlodban működni fog. A függvények között a Felhasználói kategóriában találod meg.
2. A színezéseket "gyalog" viszed be, vagy feltételes formázással? Fferi már írt erről, itt.
[ 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.
-
Kristof_94
nagyúr
Sziasztok!
Excelben létezik olyan beállítás ami automatikusan kijavítja egy név esetében az első 1-1 betűt nagyra? Tehát pl. beírom, hogy kiss istván és amikor a tabot nyomva továbblépek a K és I nagyra vált. Előre is köszi!
-
Peddy789
őstag
Tiszteletem!
legujabb excelben:
importalok egy 160ezer soros txt-t.
Minden sor elso cellaja egy MB1 MB3 vagy MB4 uzenettel kezdodik
Ezt a kesobbi feldolgozas miatt szetakarom osztani mondjuk 3 kulon munkalapra, hogy az egyik munkalapon csak az MB1es sorok a masikon csak MB2-vel kezdodo stb sorok maradjnak.Szurovel megtudtam oldani hogy kijelolom a szurt sorokat es nyomok egy deletet, azomban igy rengeteg ures sor marad, ami utana elrontja a fugvenyeket amik az adot adat alatti cellat keresik, de igy csak ures cellakat talalnak.
Hogyan lehet ezt gyorsan elintezni? Hogy szetosszam az adatot 3 munkalapra, es ne maradjanak ures sorok az adatok kozott?
Probaltam a find&select goto special, select all blank-el hogy aztan ha kivannak jelolve az osszes sort torlom, de ez sajnos nem mukodik, az excel egyszeruen befagy a tulsok sor miatt, fura.
Nagyon koszonom a valaszokat elore is!
-
lappy
őstag
válasz Kristof_94 #38296 üzenetére
Szia!
Vagy ezt a fgv tudod használni PROPER- Tnév (csak ilyenkor kell még egy kis művelet mellé- azaz segédoszlop és áthelyezés)
vagy macroval tudod ezt megoldaniSub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub
itt viszont nem kell tab[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
-
Pakliman
tag
válasz Peddy789 #38297 üzenetére
Üdv!
Valami ilyesmi módon IS lehet:
Public Sub Kitölt()
Dim sor1 As Long
Dim sor2 As Long
Dim sor3 As Long
Dim sFile As String
Dim FF As Long
Dim temp
Set ws1 = ThisWorkbook.Worksheets(1)
Set ws2 = ThisWorkbook.Worksheets(2)
Set ws3 = ThisWorkbook.Worksheets(3)
sFile = "c:\A szövegfálj.txt"
FF = FreeFile
Open sFile For Input Access Read Shared As #FF
Do While Not EOF(FF)
Line Input #FF, temp
Select Case Left(temp, 3)
Case "MB1": sor1 = sor1 + 1: ws1.Cells(sor1, 1) = temp
Case "MB2": sor2 = sor2 + 1: ws2.Cells(sor2, 1) = temp
Case "MB3": sor3 = sor3 + 1: ws3.Cells(sor3, 1) = temp
End Select
Loop
Close #FF
End SubTermészetesen ez egy elnagyolt kód, lehet még rajta finomítani bőven
[ Szerkesztve ]
-
Kasya
nagyúr
Hogy tudnék fuggoleges oszlopot tukrozni? Tehat, hogy a sorrend megmaradjon, csak pont forditva?
Új hozzászólás Aktív témák
- Óra topik
- Skoda, VW, Audi, Seat topik
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- Politika
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Alternatív kriptopénzek, altcoinok bányászata
- Samsung Galaxy S23 Ultra - non plus ultra
- Újabb államok perelik az Apple-t, mert sok pénzt szed ki a vevőkből
- Gyere el a 9. BRSZK-ra!
- SUSE Linux
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Canva Pro előfizetés - 1 éves
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24