-
Fototrend
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
-
Mela Kehes
addikt
válasz Delila_1 #36048 üzenetére
Nem csináltam eddig makrót soha. Ez a beléptetős módszer jobb lenne szerintem, viszont lövésem sincs hol kellene beírnom a jelszót.
Várj! Működik.
Szuper lesz így. Kezdő képernyőnek majd beteszek valamit, utána pedig csak a saját jön be.
Köszönöm a segítséget és természetesen Fferi50-nek is!
Még valami!
Ha bezárom a jelszó kérő ablakot, akkor viszont mindegyik lapba bele tudok menni.
[ Szerkesztve ]
"Ha lehet menni akkor menjünk, ha meg tökölni kell akkor meg tököljünk."
-
Delila_1
Topikgazda
válasz Mela Kehes #36051 üzenetére
Megnyitod a füzetet, amit belinkeltem. Bekéri a jelszót. Add meg a Pál nevet (ez a legrövidebb ).
A Munka4 lap lesz látható.Most Alt + F11-gyel belépsz a VB szerkesztőbe. Bal oldalon kiválasztod a sárga hátterű UserForm1-et, majd jobb oldalon a Belépés gombon egy duplaklikk bevisz a gomb makrójába. Itt írd át a Case utasításokat. Bővítheted az utasítások számá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 Mela Kehes #36053 üzenetére
Userformon duplaklikk.
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 Mela Kehes #36055 üzenetére
Folytassuk privátban!
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
South Velen
addikt
Sziasztok!
Adott egy tábla, melynek egyik oszlopában hivatkozások vannak.
A hivatkozások úgy néznek ki, hogy pl. X123szerzodes.pdf, és mögötte a hosszú link, amely a fájl helyére vezet értelemszerűen.De csak a szöveget másolja át így, a hivatkozást nem hozza magával. Tehát csak ennyit hoz át, hogy az X123szerzodes.pdf, a linket nem hozza át mögüle. Így ez semmit sem ér, csak egy sima szövegmező lesz belőle..
Van rá mód, amivel a teljes hivatkozást át lehet hozni? Ha át akarnám másolni az oszlopot sima másolással, akkor áthozza a linket is, de nyilván nekem társítanom kell a megfelelő közös ponthoz, tehát fkeressel is szükségem lenne, hogy áthozza....
Vagy ha az fkeres valamiért nem képes erre, van rá mód, hogy a hivatkozás mögül a hosszú linket kiírassam mondjuk a mellette lévő cellába? Már azzal is előrébb lennék.
[ Szerkesztve ]
-
Sokimm
senior tag
Sziasztok!
Csináltam magamnak egy kis tankolás nyilvántartót, és szeretném jelölni, hogy ha valami speciális üzemanyagot tankoltam, akkor a rá következő átlag érték háttérszíne legyen zöld.
(ha meg mondjuk hagyományos üzemanyagot tankoltam, akkor legyen barna).Lehetséges ilyen külső cellára való hivatkozás a formázási feltételek megadásánál?
Mert feltételes formázásnál nézelődtem, de csak az adott mező értékét tudom vizsgálni.Jah a külső mezőmnek az "értéke" az, hogy OMV maxx motion (minden esetben ilyet tankolok speciálisként), tehát ismétlődő tartalmú mező, de nem "számszerűsíthető".
Szóval mit tehetnék, hogy színezzen?
Az alábbi kép segíthet a fura kérdésem értelmezésében:
Az első érték azért fehér, mert nem tudni mi volt a nulladik tankolás minősége.
A második már azért barna, mert az első tankolás Super volt.
A harmadik átlag meg már Maxx-al jött érték.
stb stb
A válaszokat előre is köszönöm! -
South Velen
addikt
válasz South Velen #36057 üzenetére
Erre most komolyan nincs lehetőség?
Arra sem, hogy más cellákba kinyerjük a hivatkozásokból a linket?
-
lappy
őstag
válasz South Velen #36061 üzenetére
Nem tudom milyen excel használsz?
Próbaként készítettem egy pdf nyit meg. Ezt simán tudtam másolni a munkafüzeten belül.
office 365 ben nálam megy
( a próba fájlban egy pdf nyitott meg ami a c meghajtó x könyvtárában van)Bámulatos hol tart már a tudomány!
-
oke
senior tag
Sziasztok!
Egy weboldalról kimásolt és excelbe beillesztet adatok között rengeteg kis kép, ikon van, melyeket a másolás hozott magával. Ezekre nincs szükség. Hogy lehetne ezt egy lépésben kitörölni? Vagy legegyszerűbben?
Excel 2007
-
lappy
őstag
-
Delila_1
Topikgazda
A belinkelt makrót nem eszi meg az Excel. Helyette
Sub CopyHyperlinks()
Dim Innen As Range, Ide As Range, sor As Integer, ujcim As String
On Error Resume Next
Set Innen = Application.InputBox("Jelöld ki a másolandó területet", "Másolandó terület", , , , , , 8)
If Innen Is Nothing Then Exit Sub
Set Ide = Application.InputBox("Jelöld ki a területet, ahova másolni kell", "Ide kell másolni", , , , , , 8)
If Ide Is Nothing Then Exit Sub
For sor = 1 To Innen.Count
If Innen(sor).Hyperlinks.Count = 1 Then
Ide(sor).Hyperlinks.Add Ide(sor), Innen(sor).Hyperlinks(1).Address
ujcim = Chr(64 + sor) & Chr(64 + sor) & Chr(64 + sor)
Ide(sor).Hyperlinks(1).TextToDisplay = ujcim
End If
Next
End SubAz eredeti makró (Excel VBA-hoz igazítva) azonos a Ctrl-c, Ctrl+V-vel. Az általam írt a másolatnak más megjelenő címet ad.
[ 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 Mela Kehes #36053 üzenetére
Törölve.
[ 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.
-
Bobrooney
senior tag
Sziasztok!
Skacok valaki arra tud megoldást, hogy ha bármilyen makrót akar futtatni, vagy akár 1 új modult csinálni kollégám, összeomlik az excel?
Néztünk már Safe Mode-t, meg ilyen google javaslatokat de egy sem hozta meg a sikert.Valakinek valami ötlet? Win7 és Office 2013
Köszi!
-
butch3r
senior tag
Sziasztok
Van egy iylen makrom ami kiválóan kicserélte sok sok chart alatt az adatok forrását.
Sub ChangeAllCharts()
Dim sht As Worksheet
Dim cht As ChartObject
Dim ser As SeriesFor Each sht In ActiveWorkbook.Worksheets
For Each cht In sht.ChartObjects
For Each ser In cht.Chart.SeriesCollection
ser.Formula = Replace(ser.Formula, "'[2016.xlsx]Shower'", "SHOWER")
Next ser
Next cht
Next sht
End SubMit kelene módosítanom benne, hogy a chartokhoz tartozo data labelek alatt is kciserélje aza datok forrását?
Most cellákból kapja az adatokat:elég sok chart van, egy charton meg 3 data label set, szóval tök jó lenne ha nem egyesével kéne kicserélni
köszi
-
andreas49
senior tag
Üdv Mindenkinek,
Valószínűleg Nektek ez kisujj gyakorlat, nekem nem sikerül összehozni.
Milyen képlettel tudom kiíratni a 'pont" mezőt, ha beírom a 'hely' értékét?
Adott hely értékhez adott pont érték tartozik állandóan.
Köszi a segítséget előre is.HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
-
föccer
nagyúr
Szép napot!
Az megoldható, hogy egy bizonyos makró akkor fusson le, ha egy bizonyos cella értéke módosul? Pl ha lenyíló választélksitából kiválasztok valamit, akkor végig fusson?
Köszi.
Építésztechnikus. Építőmérnök.
-
kezdosql
tag
Libreoffice es Excel kozti adatatvitel problemas, erre keresnek megoldast.
Jelenleg csak xls es excel2010 szerinti xlsx fajl hasznalhato, a Libreoffice szerinti xls fajl se jo, de ekezeteknel ezeknel is problemak vannak.
Az xml es openxml fajloknal a masik programnal nem nyithato meg.
csv eseteben excel csak ; -t fogad el es meg igy is problemas az oszlopokra tordeles, igy azt sajnos nem tudjuk hasznalni.Ha mar csv nem mukodik, xml-t vagy mas, szoveges fajlt szeretnek hasznalni, nem ertem, hogy xml miert nem jo.
-
aclandiae
senior tag
Office 2007
Munkaórákat szeretnék számoltatni. Milyen formátum kell, hogy ne 0:00-ra álljon 24:00 időtartamnál? Lépjen tovább pl. 27:00, 35:00 óra stb.
-
alfa20
senior tag
Sziasztok!
Szűrésben kérnék segítséget:
Adott egy táblázat, ahol az alábbi cellákban van a szűrési feltétel:
H1= "gyümőlcs"
H2= "alma" -> ez egy lista amiből kilehet választani adott gyümölcsötFej:
A14:F14
Adatok:A15:F4436
Amit szeretnék:
Ha a H2-ben megváltoztatom lista alapján a "gyümölcsöt", akkor csak azok az adatok jelenjenek meg, ahol a kiválasztott érték szerepel a "D" oszlopban, és ennek dinamikusnak kellene lennie, ha megváltozik a H2 értéke, akkor a szűrt tartomány is vele együtt változzon.És ez ne makró legyen.
Speciális szűrést próbáltam, de nem változik, ha megváltozik az értékKöszönöm előre is!
[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
lappy
őstag
-
tutuhawer
őstag
szevasztok!
Van gyorsbillentyű arra, hogy az éppen kijelelölt kockát szerkesszem, és a már bevitt szöveg végére ugorjon a kurzor? (Hogy ne kelljen kattintani)
Köszi!NETERROR_TERROR -- TutuHawer híres jelét mindenhol ismerik, ám neki még nevét leírni is nehezére esik -- Logitech G29, Sony Xperia 1, SONY WH-1000XM4, SONY MHC V81; SONY Dualshock 4; Dualsense
-
Fferi50
őstag
válasz butch3r #36071 üzenetére
Szia!
Nekem úgy sikerült, hogy az adott series pontjain végigmenve írtam át az értékeket. Azaz minden sorozat minden pontján végig kell menni ciklussal, egy lépésben nem sikerült, legalábbis nekem nem.
Dim sr As Series, pt As Point, labelrange As Range, xx As Integer
For Each sr In Charts(1).SeriesCollection
Set labelrange = Sheets("Sheet1").Range("A1:X1")
For xx = 1 To sr.Points.Count
sr.Points(xx).DatalLabel.Text = labelrange.Cells(xx).Value 'itt kapja meg a pont a cella értékét.
Next
Next
Üdv. -
butch3r
senior tag
válasz Fferi50 #36085 üzenetére
aha köszi. Hát ez 1 kicsit tul mutat rajtam, hogy ezt hogy kéne implementálnom
Illetve az sem világos hogy a 3 adatvonalhoz tartozó 2 label ranget ez a kód, hogy különbözteti meg, hogy msot ezt majd azt frissítse, persze más más rangek
Egyszer végig küzdöm magam rajta, többet úgyse kell (remélem) -
Salex1
senior tag
Tudom, nem Excel, de valamelyik VBA guru hátha tudna válaszolni
-
Krogoth
senior tag
Hali.
SUM=(D2*G2)
Ez milyen függvény? Esetleg marco, vagy mi a rosseb ez?
-
Fferi50
őstag
-
total90
veterán
Hogy tudom azt kivitelezni, hogy az A és B oszlopokat összehasonlítsa az Excel és a C-ben kiírja, hogy vannak-e azonos számok?
SVERWEISS-t próbáltam, de az úgy nem jó, mert nem egyenlő számú sorok vannak.Ha nincs jó, ló a szamár is.
-
Delila_1
Topikgazda
válasz total90 #36093 üzenetére
Készítesz az A oszlopról egy másolatot, ezen alkalmazod az "Ismétlődések eltávolítása" funkciót, majd nagyság szerint rendezed ezt az új oszlopot.
Megismétled a fentieket a B oszloppal is. Ezután egyszerű az összehasonlítás.Vagy feltételes formázást adsz az A oszlopra. A képlet =DARABTELI($B:$B;A1)>0,
a B oszlopra pedig =DARABTELI($A:$A;B1)>0Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
szente
addikt
Sziasztok!
Magyar Excel 2007-ben van 2db munkalapom. Az első munkalap végén(utolsó üres sortól) szeretném listázni azokat az értékeket, amit az első munkalapon nincs, de a másodikon van. Konkrétabban van egy nagyker és egy kisker árlista cikkszámokkal és szeretném, ha listázná azokat a termékeket ami a kiskernél nincsenek, de a nagykernél vannak. A cikkszámok egyeznek a két munkalapon, mindegyiken az első oszlop az.
Köszi!
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz szente #36099 üzenetére
Másold modulba (lásd Téma összefoglaló) a lenti makrót.
Sub Mi_Nincs()
Dim sor As Long, usor As Long, sor1 As Long
Dim WSKis As Worksheet, WSNagy As Worksheet
Set WSKis = Sheets("Kisker")
Set WSNagy = Sheets("Nagyker")
usor = WSNagy.Range("A" & Rows.Count).End(xlUp).Row
sor1 = WSKis.Range("A" & Rows.Count).End(xlUp).Row + 1
For sor = 2 To usor
If Application.WorksheetFunction.CountIf(WSKis.Columns(1), _
WSNagy.Cells(sor, 1)) = 0 Then
WSKis.Cells(sor1, "A") = WSNagy.Cells(sor, 1)
WSKis.Cells(sor1, "B") = WSNagy.Cells(sor, 2)
sor1 = sor1 + 1
End If
Next
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.