-
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
-
#47700
Brain75
senior tag
Fire/SOUL/CD
#47690
Brain75
senior tag
válasz
Fire/SOUL/CD
#47690
üzenetére
1. Az importálás közben is már rosszul jelenik a 0,3 vagy csak akkor, amikor beírodnak az adatok a cellákba?
Már az importálás közben rosszul jelenik meg.
2. A 0,3 esetén csak 1 db oszlop lesz 3-as értékkel, vagy a 0-ból is csinál elé egy külön adatoszlopot?
Nem csinál külön oszlopot csak a 0,3-ból lesz 3
3. Minden tizedestört esetén ez a szitu? (pl. 1,23 esetén lesz egy 1-est meg még egy külön, 23-at tartalmazó adatoszlop)
Pl 1,23 esetén 123 lesz. -
milu
aktív tag
Több száz sorból (amiben 19 karakterű sorszámok vannak) és több 10-100 oszlopból álló (dátumok vannak felsorolva) táblázatot kezel az ismeősöm.
Hogy lehet kiíratni (a táblázaton belül, egy semleges helyre), megkeresni, hogy az adott 19 karakterű sorszámhoz) melyik a legutolsó dátum, ahova bejegyzés történt?
Van egyszerű megoldás erre a feladatra?
(Felhőben, Google táblázatban kezeli a bejegyzéseit annyit már elértem, hogy időközönként a javaslatomra menti a táblázatot a gépére) -
#47697
karlkani
aktív tag
Fire/SOUL/CD
#47696
karlkani
aktív tag
válasz
Fire/SOUL/CD
#47696
üzenetére
Tényleg ott van, pedig nem kell...
Köszi!
-
#47696
Fire/SOUL/CD
félisten
karlkani
#47695
válasz
karlkani
#47695
üzenetére
"Amúgy a végére odatesz egy /-jelet (nem kell, nem nyitja meg a videót)."
Hát de Te adtál meg olyan példát az eredeti hozzászólásodban, hogy ott figyel a végén a perjel...
(javítottam, nem lesz a végén a perjel, ki is próbáltam, megnyílik a film)="https://www.filmorias.com/ugras-a-videohoz/"&KÖZÉP(BAL($A$3;SZÖVEG.TALÁL("*";HELYETTE($A$3;"/";"*";HOSSZ($A$3)-HOSSZ(HELYETTE($A$3;"/";""))))-1);SZÖVEG.KERES("redirect";BAL($A$3;SZÖVEG.TALÁL("*";HELYETTE($A$3;"/";"*";HOSSZ($A$3)-HOSSZ(HELYETTE($A$3;"/";""))))-1))+9;HOSSZ(BAL($A$3;SZÖVEG.TALÁL("*";HELYETTE($A$3;"/";"*";HOSSZ($A$3)-HOSSZ(HELYETTE($A$3;"/";""))))-1))) -
#47695
karlkani
aktív tag
Fire/SOUL/CD
#47694
karlkani
aktív tag
válasz
Fire/SOUL/CD
#47694
üzenetére
Nem ilyen "egyszerű" képletre gondoltam...
Amúgy a végére odatesz egy /-jelet (nem kell, nem nyitja meg a videót). -
#47694
Fire/SOUL/CD
félisten
karlkani
#47693
válasz
karlkani
#47693
üzenetére
Oké, Te akartad...
="https://www.filmorias.com/ugras-a-videohoz/"&KÖZÉP(BAL($A$3;SZÖVEG.TALÁL("*";HELYETTE($A$3;"/";"*";HOSSZ($A$3)-HOSSZ(HELYETTE($A$3;"/";"")))));SZÖVEG.KERES("redirect";BAL($A$3;SZÖVEG.TALÁL("*";HELYETTE($A$3;"/";"*";HOSSZ($A$3)-HOSSZ(HELYETTE($A$3;"/";""))))))+9;HOSSZ(BAL($A$3;SZÖVEG.TALÁL("*";HELYETTE($A$3;"/";"*";HOSSZ($A$3)-HOSSZ(HELYETTE($A$3;"/";""))))))) -
#47693
karlkani
aktív tag
Fire/SOUL/CD
#47692
karlkani
aktív tag
válasz
Fire/SOUL/CD
#47692
üzenetére
Köszönöm!
Lehet, hogy változni fog a formátum, épp ezért lenne jó képlettel megoldani. Odáig eljutok, hogy a link elejét kicseréli, meg hozzáteszi a többit a beillesztett tartalomból, de a végéről a fölösleget nem tudom levágni "szépen".
="https://www.filmorias.com/ugras-a-videohoz/"&KÖZÉP($A$3;SZÖVEG.KERES("redirect";$A$3)+9;HOSSZ($A$3)-124)Függvénnyel meg tudom írni a sallangot, amire nincs szükség, csak nem tudom hozzáilleszteni, ezért vonok le 124-et, így az marad, ami kell (jobb lenne összehozni a "sallang" levágását képlettel)
=KÖZÉP($A$3;SZÖVEG.KERES("resz/";$A$3)+4;HOSSZ($A$3)) -
#47692
Fire/SOUL/CD
félisten
karlkani
#47691
válasz
karlkani
#47691
üzenetére
Module1-be kerülő kód
'Fire/SOUL/CD - 2021
Option Explicit
Public Function URLConverter(SourceURL As String) As String
Const SLASH = "/"
Dim MyStrArray() As String
MyStrArray = Split(SourceURL, SLASH)
URLConverter = ("https://www.filmorias.com/ugras-a-videohoz/" & _
MyStrArray(11) & SLASH & _
MyStrArray(12) & SLASH _
)
End FunctionHa esetleg hiperlinkként szeretnéd visszakapni, akkor az A1 cellába így használd:
=HIPERHIVATKOZÁS( URLConverter(A3))Természetesen, ha a forrás URL formátuma megváltozik, akkor már nem fog működni a függvény rendesen...
-
karlkani
aktív tag
Sziasztok!
Egy ideje Firefox-on nem tudom nézni a sorozatokat SorozatBarát-on, bármit csinálok (kiegészítők, meg követés elleni védelem, meg a jó... is kikapcsolom, akkor sem jó), adf.ly visszaszámolás után, újra visszaszámol, nem adja be a videót. Más böngészővel (Edge) jó, de nem akarok két böngészőt futtatni párhuzamosan. A linkeket kézzel módosítom, hogy kihagyjam az adf.ly-t, de kicsit unalmas, így automatizálnám.
Pl.:
http://usfinf.net/rweasy/-1MWFD/2508744/https://www.sorozatbarat.club/video/redirect/Uh5WPexMRzG2Wh561y0cRZIiZn46DDMSOZTIeEyqxkMgww-hodT-ar3ekZPYp0mNgpaW6Uc9Oi1TBuZrduIruEqiVC1QI7idNYldchFHnn9OMQ,,/The_Mandalorian_online_sorozat_02_evad_08_resz/1636265982?rndad=1502020484-1636265982
Ebből a linkből kellene a következőt létrehozni.https://www.filmorias.com/ugras-a-videohoz/Uh5WPexMRzG2Wh561y0cRZIiZn46DDMSOZTIeEyqxkMgww-hodT-ar3ekZPYp0mNgpaW6Uc9Oi1TBuZrduIruEqiVC1QI7idNYldchFHnn9OMQ,,/The_Mandalorian_online_sorozat_02_evad_08_resz/A1 cellába kellene a "nézhető" linknek megjelenni, miután A3 cellába illesztem a vágólap tartalmát.
Előre is köszönöm!
-
#47690
Fire/SOUL/CD
félisten
Brain75
#47688
válasz
Brain75
#47688
üzenetére
1. Az importálás közben is már rosszul jelenik a 0,3 vagy csak akkor, amikor beírodnak az adatok a cellákba?
2. A 0,3 esetén csak 1 db oszlop lesz 3-as értékkel, vagy a 0-ból is csinál elé egy külön adatoszlopot?
3. Minden tizedestört esetén ez a szitu? (pl. 1,23 esetén lesz egy 1-est meg még egy külön, 23-at tartalmazó adatoszlop) -
#47688
Brain75
senior tag
Fire/SOUL/CD
#47687
Brain75
senior tag
válasz
Fire/SOUL/CD
#47687
üzenetére
Szia
A leírt csak példa volt.
Ez az amivel nem tudok megküzdeni.
14446809,"2021-09-01 07:45:00",fulfilled,108237/2,GLS-HU,"0,3",1,0,,1390,0,1941,0,35Ebből a sorból a "0,3"-t az irodai gép 3-nak importálja be.
De mondom az otthoni gépem jól csinálja és 0,3 lesz belóle a cellában.
Köszi
-
#47687
Fire/SOUL/CD
félisten
Brain75
#47685
válasz
Brain75
#47685
üzenetére
Én nem tudtam előállítani azt az eredményt, amit Te megadtál, pedig visszakapcsoltam az Excel 2021-ben a régi szöveg importálást is, de max. ennyire tudtam csak elcseszni, de az 1 2 23 4 5 kimenetet nem tudtam produkálni.
-
#47686
Fire/SOUL/CD
félisten
Anulu79
#47684
-
Brain75
senior tag
Sziasztok
Van ergy nagy problémám.
Amikor a céges gépemen amin office 2019 van importálok egy CSV fájlt, akkor a CSV-ben levő adatokat nem jól importálja be.
Példa a CSV-ben:
1,2,"2,3",4,5
Ezt úgy importálja be hogy
1 2 23 4 5
Vessző a cellaválasztó karakter ami be van állítva és UTF-8.
Az itthoni gépemen amin szintúgy office 2019 van csak Professional, a beolvasás úgy történik ahogyan kell tehát az eredmény.1 2 2,3 4 5
Mi miatt lehet ez ? Milyen beállítás nem jó az irodai gépemen ?
Üdv
-
#47684
Anulu79
addikt
Fire/SOUL/CD
#47683
Anulu79
addikt
válasz
Fire/SOUL/CD
#47683
üzenetére
Igen erre gondoltam. Az is megvan, hogy ez nem hiba meg nem fog látszani nyomtatásban de ebben a formában szeretnék elkeszíteni egy táblázatot és a zavaró az oldalszám.
Vagy ha le lehet valahogy védeni a lapot jelszóval úgy, hogy a panelek rögzítését ne lehessen kikapcsolni nekem az is jó lenne. -
#47683
Fire/SOUL/CD
félisten
Anulu79
#47682
válasz
Anulu79
#47682
üzenetére
Ha ERRE gondolsz, az mindenkinél ott van, teljesen természetes., ez nem hiba...
Nyomtatásban ez nem fog megjelenni, ez csak számodra segítség, hogy lásd, ha esetleg egy nagyobb táblázat (sok cella vízszintesen és függőlegesen) kívül esne a nyomtatási területen (mert nem fér rá egy pl. A4-es lapra)
Az oldaltöréseket (szaggatott avagy folytonos kék vonalak a képen) átmozgathatod a neked megfelelő pozícióba, természetesen az adott papírméret (A4 alapban) figyelembevételével. -
Anulu79
addikt
Sziasztok!
Nem tzdom, hogy itt melóban van lekorlátozva a szoftver vagy nincs rá megoldás de a következőt szeretném:
Egy táblázatban a Nézet menüben ha bekapcsolom az Oldaltöréses nézetet akkor az oldal közepén a háttérben vízjelként ott vannak az oldalszámok. Ezeket valahogy el lehet tűntetni úgy, hogy az oldaltörés bekaocsolva maradjon?Köszönöm!
-
Fferi50
Topikgazda
Szia!
A táblázatot ilyen formában képzelem el:
Ebből könnyen lehet szűrni, kimutatást készíteni többféle szempont alapján is.
Az már egy másik kérdés, hogy az adatbevitel milyen módon történik. Talán a legkevesebb hibaforrást tartalmazza egy adatérvényesítéseket tartalmazó munkalap, ahol csak kiválasztani kell a megfelelő értékeket. Ezeket pedig makróval lehet beíratni a megfelelő helyre. Természetesen ehhez a megfelelő listákat össze kell állítani. Így csak a kiválasztásokat kellene ezen a lapon megcsinálni, az eredmény magától töltődne az előző képen látott formában.
Egy példa:
Ez természetesen csak egy ötlet. Ha tetszik és tovább szeretnéd gondolni, akkor szerintem privátban lenne érdemes folytatni megfelelő mintával.
Üdv. -
#47680
Dark Archon
addikt
Fferi50
#47676
-
ace05
senior tag
Helló!
Egy érdekes problémám akadt. Egy magatartás szorgalom táblázatot kellene csinálnom, de eléggé kacifántosat, amit majd minden tanár tud egyszerre szerkeszteni Google Táblázatokban.Adatok
Egyenlőre osztályonként lenneVan 21 gyerek, van 20 tanár és van 40 kritérium. Kritérium pl ilyen : "Társaiddal szemben segítőkész, türelmes vagy." Ezt egy tanárnak osztályoznia kell, erre van 6 osztályozó kritérium pl Jellemző rá. Azt már kitaláltam, hogy ezeket az osztályozó kritériumokat számmá teszem és majd átlagolom a tanárok osztályzatait, de hogy hozzam össze az egészet egy táblázatba, mert itt megakadt a tudományom. Előre is köszönöm a segítséget.
-
Fferi50
Topikgazda
válasz
Dr. Mózes
#47674
üzenetére
Szia!
Ha van a táblázatodban fejléc, akkor használható az Adatok - Speciális menüpont (leánykori nevén Irányított szűrés).
Ezzel lehet vagy feltétel alkalmazásával is szűrni - minden feltételt külön sorba kell írni.
A szűrés eredménye maradhat helyben és kerülhet máshova is. Ez utóbbi esetben a menüpontot arról a munkalapról kell indítani, ahová az eredményt szeretnéd kapni.
Ilyen párbeszéd ablakot kapsz:
Érdemes egy kicsit a súgóját tanulmányozni.
Üdv. -
#47676
Fferi50
Topikgazda
Dark Archon
#47675
Fferi50
Topikgazda
válasz
Dark Archon
#47675
üzenetére
Szia!
A rövid válasz: igen.
A hosszabb: lehet Excel sablon alapján nyitni új munkafüzetet.
[Help itt]
Üdv. -
#47675
Dark Archon
addikt
Üdv!
Az megoldható, hogy egy adott gomb vagy link megnyomására egy meglévő Excel sablon nyíljon meg új file-ként, majd kitöltse azt a megfelelő adatokkal? Vagy ehhez inkább Access kéne? Majd ezt le is kéne tudni menteni külön file-onként, írásvédett cellákkal.
Nem akarnám túlbonyolítani, de egy afféle rendelés nyilvántartást kellene megoldanom. Tehát, van egy projektszám, ahhoz tartoznak adatok, illetve egy projekthez több tétel társulhat, amikhez egyéb adatok tartoznak. Ebből szeretnék darabvizsgálati jegyzőkönyvet, megfelelőségi nyilatkozatot, stb.-t generálni. Ezekhez meg vannak a sablonok, csak ki kéne tölteni automatikusan, ahelyett, hogy egyesével, manuálisan szerencsétlenkedünk vele, és 86 helyről kell összeszedni az információkat.
Előre is köszi!
-
Dr. Mózes
aktív tag
Sziasztok!
Van egy táblázatom, amiben különböző termékek összetevői találhatóak, pl:
Stühmer táblás csokoládé: Cukor, kakaó stb.
Milka csokoládé: Tej, cukor, kakaó stb.A megnevezések, összetevők külön-külön cellákban szerepelnek, és az összetevők sorrendje teljesen random.
Hogyan tudom azt kilistázni pivotban, hogy mely termékek tartalmaznak pl. kakaót? Tehát egyszerre több oszlopban is ugyanazon szűrési feltételt alkalmazza, és ha az egyik oszlopban megtalálja, akkor listázza?Köszi!
-
Fferi50
Topikgazda
Szia!
Csak azért, hogy legyen még egy megoldás:=INDEX($A$1:$A$6;HOL.VAN(C1;$A$1:$A$6;-1))
Amint látod, a HOL.VAN függvény a csökkenő sorrendbe rendezés alapján állapítja meg a kérdéses érték helyét, ezért a "szabvány" adataid csökkenő sorrendbe kell rendezni. A HOL.VAN függvény 3. paramétere itt -1!
Üdv. -
#47671
Fire/SOUL/CD
félisten
Imy
#47669
MIN+HA+tömbképlet
C1-be:=MIN(HA(B1:B5>A1;B1:B5))
(CTRL+SHIFT+ENTER-el bevive, mert úgy lesz tömbképlet) -
Imy
veterán
Van egy érték kiszámoló excelem. Kiszámol egy értéket, de a kiszámolt értéknél nagyobb (első érték a kiszámolttól), de szabványos értéket kell kiválasztania.
Pl: kiszámolt érték 22
Értékek: 10,20,24,30,50.
És vissza kell adni a 24-et.
Ezt mivel tudom, és hogyan kell megoldanom? -
Fferi50
Topikgazda
válasz
bozsozso
#47663
üzenetére
Szia!
Ha szöveg van a cellában, akkor ebben a formában is meg kell találnia az értéket.
Ha számok vannak a táblázatban, amiben keresel, akkor az ÉRTÉK függvénnyel számmá kell alakítanod keresendő értéket, mivel a BAL függvény eredménye szöveg.
Mutasd meg légy szíves, hogyan keletkezik nálad a probléma.
Üdv. -
bozsozso
őstag
Sziasztok,
Van arra esetleg valami megoldás, hogy ha fkeres függvényt használok és a keresendő cellában függvény van akkor is megtalálja az értékét?
Pl.:
A1 cella tartalma =bal(b1;10), aminek megjelenített értéke abcd123456
Ezt az értéket keresem másik munkalapon vagy másik táblázatban amiben benne is van, de nem találja meg. #HIÁNYZIK értéket kapok. Ha az A1 cellát másolom majd ugyanide értékként beillesztem akkor rendben működik és megkapom az fkeresben megadott feltételnek megfelelő adatot.Van erre valami megoldás, hogy ne kelljen értékként beilleszteni az adatot hanem maradjon a függvény a cellában?
-
#47662
eszgé100
őstag
Fire/SOUL/CD
#47661
eszgé100
őstag
válasz
Fire/SOUL/CD
#47661
üzenetére
Koszonom, holnap reggel kiprobalom
-
#47661
Fire/SOUL/CD
félisten
eszgé100
#47660
válasz
eszgé100
#47660
üzenetére
A megoldást már más megírta, úgy hogy csak INNEN bemásolom a kódot.
Annyi módosítást hajtottam csak végre a kódban, hogy a 3 db privát funkció deklarációban beleírtam a PtrSafe tulajdonságot, mivel enélkül 64 bites rendszer alatt nem futna le a kód.Module1-be kerülő kód:
Option Explicit
Private Const HKEY_CURRENT_USER As Long = &H80000001
Private Const HKCU = HKEY_CURRENT_USER
Private Const KEY_QUERY_VALUE = &H1&
Private Const ERROR_NO_MORE_ITEMS = 259&
Private Const ERROR_MORE_DATA = 234
Private Declare PtrSafe Function RegOpenKeyEx Lib "advapi32" _
Alias "RegOpenKeyExA" ( _
ByVal HKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long
Private Declare PtrSafe Function RegEnumValue Lib "advapi32.dll" _
Alias "RegEnumValueA" ( _
ByVal HKey As Long, _
ByVal dwIndex As Long, _
ByVal lpValueName As String, _
lpcbValueName As Long, _
ByVal lpReserved As Long, _
lpType As Long, _
lpData As Byte, _
lpcbData As Long) As Long
Private Declare PtrSafe Function RegCloseKey Lib "advapi32.dll" ( _
ByVal HKey As Long) As Long
Public Function GetPrinterFullNames() As String()
Dim Printers() As String ' array of names to be returned
Dim PNdx As Long ' index into Printers()
Dim HKey As Long ' registry key handle
Dim Res As Long ' result of API calls
Dim Ndx As Long ' index for RegEnumValue
Dim ValueName As String ' name of each value in the printer key
Dim ValueNameLen As Long ' length of ValueName
Dim DataType As Long ' registry value data type
Dim ValueValue() As Byte ' byte array of registry value value
Dim ValueValueS As String ' ValueValue converted to String
Dim CommaPos As Long ' position of comma character in ValueValue
Dim ColonPos As Long ' position of colon character in ValueValue
Dim M As Long ' string index
' registry key in HCKU listing printers
Const PRINTER_KEY = "Software\Microsoft\Windows NT\CurrentVersion\Devices"
PNdx = 0
Ndx = 0
' assume printer name is less than 256 characters
ValueName = String$(256, Chr(0))
ValueNameLen = 255
' assume the port name is less than 1000 characters
ReDim ValueValue(0 To 999)
' assume there are less than 1000 printers installed
ReDim Printers(1 To 1000)
' open the key whose values enumerate installed printers
Res = RegOpenKeyEx(HKCU, PRINTER_KEY, 0&, _
KEY_QUERY_VALUE, HKey)
' start enumeration loop of printers
Res = RegEnumValue(HKey, Ndx, ValueName, _
ValueNameLen, 0&, DataType, ValueValue(0), 1000)
' loop until all values have been enumerated
Do Until Res = ERROR_NO_MORE_ITEMS
M = InStr(1, ValueName, Chr(0))
If M > 1 Then
' clean up the ValueName
ValueName = Left(ValueName, M - 1)
End If
' find position of a comma and colon in the port name
CommaPos = InStr(1, ValueValue, ",")
ColonPos = InStr(1, ValueValue, ":")
' ValueValue byte array to ValueValueS string
On Error Resume Next
ValueValueS = Mid(ValueValue, CommaPos + 1, ColonPos - CommaPos)
On Error GoTo 0
' next slot in Printers
PNdx = PNdx + 1
Printers(PNdx) = ValueName & " on " & ValueValueS
' reset some variables
ValueName = String(255, Chr(0))
ValueNameLen = 255
ReDim ValueValue(0 To 999)
ValueValueS = vbNullString
' tell RegEnumValue to get the next registry value
Ndx = Ndx + 1
' get the next printer
Res = RegEnumValue(HKey, Ndx, ValueName, ValueNameLen, _
0&, DataType, ValueValue(0), 1000)
' test for error
If (Res <> 0) And (Res <> ERROR_MORE_DATA) Then
Exit Do
End If
Loop
' shrink Printers down to used size
ReDim Preserve Printers(1 To PNdx)
Res = RegCloseKey(HKey)
' Return the result array
GetPrinterFullNames = Printers
End Function
Sub Test()
Dim Printers() As String
Dim N As Long
Dim S As String
Printers = GetPrinterFullNames()
For N = LBound(Printers) To UBound(Printers)
S = S & Printers(N) & vbNewLine
Next N
MsgBox S, vbOKOnly, "Printers"
End SubEredménye (most az Én gépemen futtatva)
Nyilván esetedben annyiban kell módosítani pluszban a kódot, hogy ne a képernyőre irogassa ki az összes nyomtatót, hanem a cikluson belül, megvizsgálod, hogy az aktuális printer neve tratalmazza-e az általad használt 2 printer nevének egyikét, ha igen, akkor "elévarázsololod" a \\ jelet és a megfelelő változódnak meg is van az értéke és kb. meg is vagy.
-
eszgé100
őstag
Sziasztok!
Van két változóm, amiben a színes és a fekete-fehér nyomtató hálózati címét tárolom.
Jelenleg így néz ki:bwprinter = "\\HPFDDA3F (HP Photosmart C4500 series) on Ne02:"
colprinter = "\\HP Photosmart Wireless B109n-z on Ne03:"majd, ahogy fut a kód úgy változtatom Application.ActivePrinter = colprinter vagy Application.ActivePrinter = bwprinter -re, attól függően, hogy az adott munkalapot színesben vagy fekete-fehérben szeretném nyomtatni.
A kód remekül működik, amennyiben egy adott gépen használom, viszont ha máshol ülök le a változó a portszámok miatt mindig a a kódban kell túrkálnom, hogy változtassam. Nekem nem nagy ügy, de így nem merem kollégáimra rábízni.
Szeretnék egy-egy gombot a színes és fekete-fehér nyomtatónak, amikkel megjelenne a nyomtatóválasztó és kiválasztva az adott nyomtatót eltárolnám a fenti két változómba, portszámmal együtt, még mielőtt maga a nyomtatási makró elkezdene lefutni.
Előre is köszönöm, ha tudtok ebben segíteni.
-
Dilikutya
félisten
Hello!
Van egy táblázatom, az első oszlopban dátumok, a többiben a dátumokhoz tartozó adatok, több napra előre. Egy másik táblázatban szeretném megjeleníteni őket két másik oszlopban úgy, hogy mindig a mai dátumot követő +1 és +2 napok adatai jelenjenek meg. Ezt hogy lehet megoldani?
-
woodworm
veterán
Sziasztok!
Több táblázatot megnyitva cellaértékeket másolok egyik táblázatból a másikba, a másolt helyre csak az értéket beillesztve. Néha másolás után a célhelyen eltűnik a kitöltőjel (vagy bárminek is hívják a cella körüli zöld keretet). A forrás táblázatban vannak körkörös hivatkozások, amire kapok figyelmeztetést megnyitáskor és a másoláskor újra, nem tudom, hogy van-e köze az eseményhez.
A kérdésem, hogyan tudom visszahozni a kitöltőjel láthatóságát? A mentés és újranyitás működik, de jó lenne egy közvetlenebb megoldás. -
Met
nagyúr
válasz
Delila_1
#47653
üzenetére
Köszi.
Ez jó lenne csak az a baj hogy arra vagyok kíváncsi, adott nap hányszor löktem egyet vagy négyet egymás után.
Mert ez ilyen fejlődési mérce, egy golyót könnyű elrakni de az gáz ha nincs utána folytatás.
Egy játék alatt lökhetek mondjuk ötször egyet és kétszer három golyós sorozatot.
Vagy csak balfasz vagyok a táblázathoz -
-
Met
nagyúr
Sziasztok!
Nem nagyon használom az excel-t, a diagram részét meg főleg nem.
Melyik diagrammal tudnám szemléltetni az alábbit.
Adott egy dátum, ehhez tartozik 6 adat (lökés számok, 1 lökés, 2 lökés stb.).
És van ebből a dátumból sok.
Azt szeretném valahogy látni egyben hogy adott napon mennyit löktem az első fajtából és az előző alkalommal mennyit löktem.
Szerintem vonal diagram kell nekem csak nem tudom hogy melyik és hogy nézzen ki a táblázat
Tudnátok segíteni? -
dreameli
újonc
Sziasztok!
Hogy tudom beállítani Excel 365-ben, hogy ha egy e-mail címet tartalmazó cellánál entert nyomok, akkor az ne alakuljon automatikusan linkké! Sokat dolgozom ilyen cellákkal, és nagyban nehezíti a munkámat, hogy visszatérve az ilyen cellákhoz rákattintva, rögtön a levelező program nyílik meg!
Köszönöm! -
Fferi50
Topikgazda
válasz
botond187
#47645
üzenetére
Szia!
Ez egy annál is összetettebb probléma, mint amire gondolsz. Számvitelileg készletnyilvántartási és értékelési körbe tartozik. Nem oldható meg ilyen egyszerűen. Javaslom nézd meg a számviteli törvény készlet értékeléssel és számlázással kapcsolatos előírásait.
Szerintem sokkal egyszerűbb venni egy számviteli programot, amelyikben benne vannak a megfelelő modulok, csak fel kell paraméterezni azokat.
Csak egy a felvethető kérdések közül a leírtakkal kapcsolatban:
"- a beszerzési ár legyen a számlázásnál korábbi, ahhoz legközelebbi időpontban történt beszerzés ára." kicsit egyszerűsítve ezt írod.
Mi legyen akkor, ha az abban az időpontban beszerzett termék mennyiség már elfogyott? Ezt pl. honnan fogja tudni a számolás?
Tudni kell hozzá a számviteli értékelési politikát -- FIFO, LIFO vagy átlag -- és annak megfelelően kell a készletet is vizsgálni hozzá.
Egy szó mint száz, a leírt követelményeid nem elegendőek a feladat --> az értékesítési árrés <-- megfelelő, számvitelben is felhasználható kiszámításához. Ehhez egy sokkal konkrétabb, a számviteli elszámolásoknak megfelelő specifikáció szükséges.
Üdv. -
botond187
csendes tag
válasz
Fferi50
#47591
üzenetére
Szia,
Kipróbáltam, valamiért nem működött, valószínűleg én voltam a béna.
Feltöltök egy mintafájlt, úgy valószínűleg egyszerűbb lesz, illetve kicsit módosítanék is az eredmény kiszámításán:2 féle számolási módot képzeltem el, viszont mindkettő más-más megközelítést, számolást követel meg, ezért csak az egyiket írom le:
Erre a fülre igazából nincs szükség ebben a számolási formában, így csak információként van jelen:(Szóval úgy képzeltem el, hogy adott az excel "Raktárkészlet" fülén a "C" oszloptól kezdődően, hogy milyen készletmozgások voltak az adott napon.1 oszlop 1 nap.Ebben benne van az eladás és a beérkezett termékmennyiség is.)Adott a "Beszerzések" fül, ahol látni, hogy milyen dátummal melyik azonosítójú termékből mennyi érkezett és milyen áron.
Adott még az "Eladások" fül, ahol látni, hogy 1 termékből melyik napon mennyi ment el.
Itt a "KISZÁMLÁZÁS DÁTUMA" oszlopát nézze, hogy mikor lett kiszámlázva az adott termék, és vesse össze, hogy legalább aznap vagy azt megelőzően milyen áron érkezett a rendelésben lévő adott termék (magyarul mennyiért vettük) a "Beszerzések" fül alapján.
- Szóval itt többszörös feltételes keresésre lenne szükség, amivel meggyűlt a bajom. -
Ha ez is megvan, vonja ki belőle a beszerzési árat, így megkapjuk, hogy mennyi árrés maradt azon a terméken.Az "Eladások" fül végén az "Árrés" oszlopba kellene kerüljön a számolt adat, akkor egyből látszódna az eredmény.
A mintafájl: [link]
Remélem, így jobb a leírásom.
Köszönöm a segítséget.
Üdv,
Botond -
ReSeTer
senior tag
válasz
Fferi50
#47642
üzenetére
Köszönöm, eszközölnöm kellett kisebb módosítást, de működik a Range Find metódusával.
Másik:
Szeretnék beilleszteni egy Word dokumentumban lévő táblázat celláiba értékeket. A cellák üresek.
Egyszerűen nem találok rá egyszerű megoldást a google-ben.
Hogyan tudom meghatározni, hogy hova illesszen be? Van valami azonosító?Eddigi kód:
Sub openword()Set wordalkalmazas = CreateObject("word.Application")wordalkalmazas.documents.Open "elérésiút\probasablon.doc"wordalkalmazas.Visible = TrueEnd Sub -
Fferi50
Topikgazda
válasz
ReSeTer
#47641
üzenetére
Szia!
A hibaüzenet - Type Mismatch - azt jelenti, hogy nem azonos típusú adatokkal szeretnél műveletet végezni. Ahogyan írtad is, a talalatsorszama változód értéke HIBA, hibához pedig nem lehet hozzáadni számot.
További megjegyzés:
A Match által visszaadott sorszám mindig a vizsgált tartományra vonatkozik.
Pl. Ha azA1:A100tartományra ad vissza 2-t, akkor az A2 celllában van a találat.
Ha azA2:A100tartományt vizsgálod és ott 2 az eredmény, akkor az A3 cellában van a találat,í mert az a tartomány 2. cellája!
A keresés ismétlésénél így a képleted szerint az A (2+1=3) cellától fog indulni a keresés, aminek az eredménye 1 lesz ---> vagyis a találatod ugyanabban az A3 cellában lesz.
Mivel most a találatsorszama eredménye 1, ezért a képleted alapján a következő keresési tartomány az A (1+1=2) cellától indul. Ez így szép kis végtelen ciklussá alakul át.
Vagyis meg kell jegyezned, hogy az előző találatnál honnan indult a keresési tartomány és abból az értékből kiindulva kell a következő keresési tartomány kezdő értékét beállítani.
Még egy megjegyzés:
Szerintem érdemes megnézned a Range Find metódusát is. Ez megkeresi a feltételnek megfelelő cellát és annak a sorát megkaphatod a Row tulajdonsággal. Jó kis példa is van a folytatólagos keresésre a HELP-ben. [link]
Üdv. -
ReSeTer
senior tag
Helló!
Egyszerűen nem tudok rájönni, hogy miért működik első ciklusban az egész, majd amikor az első ismétlés elkezdődik, hibára fut:
holkeressen = "A1:A1000"
For megintismetel = 1 To 3talalatsorszama = Application.Match(munkaszam, Range(holkeressen), 0)
holkeressen = "A" & talalatsorszama + 1 & ":A1000"If VarType(talalatsorszama) = vbError ThenMsgBox " nincs talalat", vbInformation, "Hiba"ElseMsgBox "cella tartalmának sorszáma az A oszlopban: " & talalatsorszama, vbInformation, "Eredmény üzenet"End IfOn Error GoToEgyéb kód ittNext megintismetelA cél az, hogy addig ismételje, amíg van találat, de próbaképp csak 3x akarom ismételni, majd később átírom. De így se fut le. Elvileg át kellene írnia mindig a keresési tartomány elejét az "előző találat+1"-re, hogy ne számolja bele az előbbi találat.
Hibaüzenet: Runtime error '13'
Type MismatchAmikor debug módban rámutatok egérrel a talalatsorszama-ra akkor: Error 2042 az értéke
Mi lehet a probléma?
-
lenkei83
tag
válasz
Fire/SOUL/CD
#47638
üzenetére
Nem a Power Query-hez.
A NAV adatbázishoz. 
Valószínűleg API-val lehet olvansi... -
#47638
Fire/SOUL/CD
félisten
lenkei83
#47637
-
lenkei83
tag
válasz
Fire/SOUL/CD
#47634
üzenetére
Szia!
Ne bonyolítsd.
Semmi SQL meg egyéb nem kell hozzá első körben, mint írtam, excelbe (lehet power query is) szeretném beolvasni. Egyelőre még linket sem találtam, ahol el lehet érni.
A VBA-n belüli lekérdezést és szűrést stb...megoldom, legyen az bármilyen adatbázisban. -
Delila_1
veterán
Teljes oszlophoz
Sub Nagy_Kicsi()Dim szoveg As String, sor As IntegerFor sor = 1 To 8Range("A" & sor).CopyRange("B" & sor).PasteSpecial xlPasteValuesszoveg = Range("B" & sor).ValueRange("B" & sor).Characters(Start:=1, Length:=InStr(szoveg, "(") - 1).Font.Size = 15Range("B" & sor).Characters(Start:=InStr(szoveg, "("), Length:=20).Font.Size = 8NextEnd Sub
-
Delila_1
veterán
Képletet tartalmazó cellában nem tudod a karakterek egy részét módosítani.
Lehet viszont segédcellában, ahova értékként átmásolod a képletet tartalmazó cella adatát. Ezt teszi a lenti makró. Az utolsó előtti sor a zárójel előtti részt 15-ös karakterűre állítja a segédcellában, az utolsó a többi részt 8-asra. Nem kívánt törlendő, a két méret tetszés szerint módosítható.
Ciklusba is beteheted, hogy egy teljes oszlop adatait átmásolja, és formázza.Sub Nagy_Kicsi()Dim szoveg As String, kezd As IntegerRange("A1").CopyRange("B1").PasteSpecial xlPasteValuesszoveg = Range("B1").Valuekezd = InStr(szoveg, "(")Range("B1").Characters(Start:=1, Length:=kezd - 1).Font.Size = 15Range("B1").Characters(Start:=kezd, Length:=20).Font.Size = 8End Sub -
#47634
Fire/SOUL/CD
félisten
lenkei83
#47633
válasz
lenkei83
#47633
üzenetére
1. Maga az adatbázis, az már egy létező adatbázis (pl. MySQL, Access, Paradox stb stb)?
2. Lokális (saját gépeden van) vagy hálózaton (neten egy szerveren csücsül stb stb)?
3. Az adatbázis felépítése?Szóval ezen, alapvető infók hiányában nagyon nehéz segíteni. Pl. korábban írtad:
"1: teljes adózói adatbázis letöltése excelbe"Adatbázist nem lehet "csak úgy" letölteni Excel-be, max. átkonvertálni (makró segítségével, de ehhez nélkülözhetetlen az adatbázis felépítésének ismerete) avagy "legegyszerűbben" Power Query segítségével beimportálni az adatokat, majd ezt követően SQL lekérdezéseket (is) már el lehet követni.
-
lenkei83
tag
válasz
Fire/SOUL/CD
#47631
üzenetére
Saját programhoz kellene, nem készül belőle adatszolgáltatás.
-
mdk01
addikt
válasz
Delila_1
#47630
üzenetére
Ez megvan köszi, de nekem a fenti szöveg/karakterlánc függvényből épül fel és abban az esetben ha a függvény megfelelő részét jelölöm ki inaktiválódik ugye a betű stílus állítási ablak.
Ez a függvényem ahova jó lenne beszúrni valami függvényt:
=HA(Alkatrészlista!Q7="";Alkatrészlista!Q7;Alkatrészlista!Q7&" (v"&Alkatrészlista!F7&")")Persze ha van más lehetőség a függvényen kívül nekem az is jó.
Vagy én értelek félre?
Köszi -
#47631
Fire/SOUL/CD
félisten
lenkei83
#47628
-
lenkei83
tag
Sziasztok!
Van valakienk ötlete, hogy a NAV adatbázisból, hogyan tudom lekérdezni az adóalanyok listáját? 2 megoldás is érdekelne:
1: teljes adózói adatbázis letöltése excelbe
2: kiválasztott adószám alapján az adott adózó adatainak letöltése.HTML-kóddal még csak-csak megy, de VBA-ban most ötletem sincs.
Köszi
P. -
Traxx
őstag
Sziasztok!
Van egy elég összetett excel táblám, sok makróval. A minap elkezdte azt játszani, hogy a makró dátumvezérlője "beakadt", és nem fut le - így kb. az egész használhatatlan. A hiba Office 2019 és 365 alatt is fennáll. Van ötletetek, hogyan lehetne korrigálni?
Köszönöm szépen!
-
Delila_1
veterán
válasz
ReSeTer
#47617
üzenetére
Betettem két soremelést az Else ágba, hogy feltünőbb legyen a sorszám.
Sub Talalat()Dim talalOn Error Resume NextColumns(2).ClearContents 'A későbbi beírás miatt törlöm a B oszlop adataittalal = Application.Match(Range("G1"), Columns(1), 0)If VarType(talal) = vbError ThenMsgBox "Nem található a G1 cella értéke az A oszlopban", vbInformation, "Hiányzó szöveg"On Error GoTo 0ElseMsgBox "G1 cella tartalmának sorszáma az A oszlopban: " & vbLf & vbLf & talal, vbInformation, "Sorszám"'Itt felhasználjuk a talal változó értékétRange("B" & talal) = "Ebben a sorban van a G1 cella értéke"End IfEnd Sub
-
ReSeTer
senior tag
Ok, közben valahogy megoldottam, viszont a következő probléma:
Van egy változóm: sorszam = mondjuk 1
Szeretném ha a "masikvaltozo" értéke a "sorszam és 1 oszlop" értéke lenne
Tehát a lenti példában az A1-es cella (mert ugye a "sorszam" értéke 1, tehát első sor) tartalmát szeretném hozzárendelni a "masikvaltozo"-hoz.Dim masikvaltozomasikvaltozo= Cells(sorszam, 1).ValueMit rontok el?
-
Delila_1
veterán
válasz
ReSeTer
#47611
üzenetére
Sub Talalat()Dim talalOn Error Resume Nexttalal = Application.Match(Range("G1"), Columns(1), 0)If VarType(talal) = vbError ThenMsgBox "Nem található a G1 cella értéke az A oszlopban", vbInformation, "Hiányzó szöveg"ElseMsgBox "G1 cella tartalmának sorszáma az A oszlopban: " & talal, vbInformation, "Sorszám"End IfOn Error GoTo 0End Sub -
ReSeTer
senior tag
Helló!
Hogyan lehetne azt megoldani legkönnyebben, hogy macroval, keresni akarok egy oszlopban egy szöveget, és ha megegyezik, akkor ki kellene nyerni a találatot tartalmazó sor számát, hogy aztán azt feltudjam használni változóként?
Tehát: Kellene annak a sornak a száma, amely tartalmazza a keresett szöveget.
Köszönöm!
-
Delila_1
veterán
Felveszel egy segédoszlopot, ahol összefűzöd a előtte lévő oszlopok adatait.
=A2 & " " & B2 & " " & C2
Nálam 3 oszlop van, a negyedikbe kerül a képlet.
Kijelölöd az első három oszlopot, majd a felt. formázáshoz egyedi képletet viszel be.=DARABTELI($D$2:$D$35;$D2)>1
Persze nem 35-ig lesznek a sorok. -
Delila_1
veterán
A régi alá másolod az újat. Mindegyikben az A oszlopban vannak az azonosítók.
Kijelölöd az A oszlop sorait, majd a feltételes formázásnál a Csak az egyedi vagy ismétlődések formázása opciót választod, a Formázás minden-nél pedig az ismétlődőt jelölöd be.Szerk.: míg írtam, megjött a válaszod, hogy nem lehet bennük egyező azonosító.
-
-
Fferi50
Topikgazda
Szia!
Kérdés kérdést szül.
"Mindazon sorok, melyek megegyeznek a két fájlban, a hátterük zöldre vált."
Itt gondolom az azonosító egyezőségére gondolsz és a fő fájlban felülíródik az adat. Ezt kellene a fő fájlban zölddel jelölni.
Ha nem talál az aktualizáláshoz egyező azonosítót, akkor marad a fő fájl adata.
Ebben az esetben én egy munkafüzetbe tenném a két munkalapot. A fő munkalapon egy segédoszlopban FKERES függvénnyel megkeresném a mellék fájlban az azonosítót.
Ezután feltételes formázással színezném azokat a sorokat, ahol nem hiba az eredmény.
A következő aktualizálás előtt (mert gondolom lesz ilyen is), a segédoszlop értékét - a hibák kivételéve - átmásolnám a régi oszlopba. Ezután az új értékek kerülnének az aktualizálásról másolt munkalapra.
Üdv. -
Újabb gondolathoz kérnék szakértői segítséget.
A két fájl még mindig ugyan az. Csak ezúttal a gondolat más.
Van az alap xlsx, benne sorok és oszkopok, kitöltve. És van egy másik is, ami eltérést mutat. Az, ami eltérést mutat, mindig kevesebb adatot tartalmaz, tehát a (nevezzük így) fő fájlból vannak benne elemek, módosítva.A cél az lenne, hogy rámásolom a mellék fájlt a fő fájlra. Mindazon sorok, melyek megegyeznek a két fájlban, a hátterük zöldre vált. Ami viszont nem egyezik meg, az nem csinál semmit, nem írja felül és nem is jelenik meg újként.
Erre így van megoldás?
Köszönöm előre is, mint ahogyan a türelmeteket is!
-
Köszönöm mindenkinek, megnézem így.
Ami pedig a régi kiterjesztést illeti, XLSX-et használok, csak megszokás. -
Delila_1
veterán
Látom, régi verzióval (xls kiterjesztés) dolgozol.
Nálam a két füzet régi.xls, ill. új.xls névre hallgat, mindegyikben az első munkalapon vannak az adatok, és mindkettőben az első sor a fejléc.A makró:
Sub Frissites()Dim sorRegi As Long, sorUj As Long, usor As Long, ideusor = Workbooks("új.xls").Sheets(1).Range("A" & Rows.Count).End(xlUp).RowFor sorUj = 2 To usorOn Error Resume Nextide = Application.Match(Workbooks("új.xls").Sheets(1).Cells(sorUj, 1), Workbooks("régi.xls").Sheets(1).Columns(1), 0)If VarType(ide) = vbError Then _ide = Application.WorksheetFunction.CountA(Workbooks("régi.xls").Sheets(1).Columns(1)) + 1Workbooks("új.xls").Sheets(1).Rows(sorUj).Copy Workbooks("régi.xls").Sheets(1).Range("A" & ide)NextEnd Sub
(javítottam, nem lesz a végén a perjel, ki is próbáltam, megnyílik a film)
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- Linux felhasználók OFF topikja
- Battlefield 6
- Hardverkiállítás a hónap vége felé közeledve
- Milyen billentyűzetet vegyek?
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER! lapcsalád
- Háztartási gépek
- Gumi és felni topik
- Kutyának sem kellenek a 8 GB-os VGA-k?
- Gitáros topic
- További aktív témák...
- AKCIÓ! Sony PlayStation 5 Slim 1TB SSD lemezes konzol garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Samsung Galaxy A80 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA! Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- Macbook Pro 2019 // i7 // 16/512GB // Számla+Garancia //
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő