-
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
-
Fferi50
őstag
válasz ntamas97 #41050 üzenetére
Szia!
A Darabhatöbb függvényt kellene használnod. Hogy egyszerűbb legyen a keresés, én csinálnék egy segédoszlopot, ahol a válaszok alternatíváit egy betűvel jelölném.
Pl. Sok autómárkát ismerek, származási helyükkel tisztában vagyok és az autós híreket is követem =A
Sok autómárkát ismerek és a származási helyükkel tisztában vagyok =B
stb.
Üdv. -
Warface
csendes tag
Sziasztok!
Jó pár oldalba beleolvastam, nemigen találtam ilyen jellegű kérdést. A kérdésem:Hogyan tudnám az excel-ben a weblapról való lekérdezést normálisan frissíteni?
van egy excel adatbázisom, ami egy játék market adatait tölti le és azokból különb féle dolgokat számol.A probléma, hogy mindig 2 órával ezelőtti adatokat szedi le. Hogyan tudnám ezt korrigálni (akár függvény, beállítás, makró) lényeg hogy másik gépen ne kelljen semmit se állítani, csak megnyitni.
erről a weblapról szedi az adatokat: https://crossoutdb.com/#length=-1.
Mindent leszed, de csak 2 órával ezelőttiket. A játék orosz, asszem gmt 0-t használ, én Magyarországon vagyok (ha ez számít).
Köszönöm szépen a segítséget.
-
logitechh
csendes tag
Sziasztok
Hogy oldom meg azt ha rajta állok egy cellán akkor jelölje ki az aktív cellától jobbra 7 celláig az összes cellát?Sub Makró14()
'
' Makró14 Makró
'
'
Range(Selection, Selection.End(xlToRight)).Select
End SubSajnos nem folytonos az adattartalom tehát csak azt tudom hogy "A oszloptól a "G" oszlopig akarom kijelölni az aktív sort. Tehát ha az A2-n állok akkor az A2:G2
Esetleg ha azt meg lehetne oldani az még jobb volna ha a C3-n állok akkor a makró az A3:G3 tartományt jelölje ki -
Dr V
őstag
Sziasztok!
Miért csinálja néha azt az Excel, hogy ha egy másik cellára hivatkozok, akkor a képletet jeleníti meg a hivatkozott cella helyett? A hivatkozott cellában szöveg van, nem függvény, de utóbbi esetben is az eredményt kéne megjelenítenie tudtommal.
-
mpierre
veterán
Ismét megpróbálom, hogy tudna-e valaki segíteni a linken lévő problémában: [link]
#### Scythe Kama Bay AMP 2000 Rev.B + Overnight Sensation hangdobozok + Kanto S6 #### Eladó cuccok: https://hardverapro.hu/aprok/hirdeto/mpierre/index.html ####
-
Delila_1
Topikgazda
Ha csak lehet, kerüljük a cellák összevonását!
A vízszintes összevonást könnyedén megoldhatjuk. Beírom a szöveget az A1-be, kijelölöm A1:D1 tartományt, aminek a közepén szeretném látni. A Cellaformázás Igazítás fülén a képen látható vízszintes elrendezést választomAz eredmény
Az egyesítésről olvashatsz még itt is.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Warface
csendes tag
Sziasztok!
Tudom már egyszer írtam ezt a kérdést, de nem kaptam semmi vàlaszt sajnos.
Jó pár oldalba beleolvastam, nemigen találtam ilyen jellegű kérdést. A kérdésem:Hogyan tudnám az excel-ben a weblapról való lekérdezést normálisan frissíteni?
van egy excel adatbázisom, ami egy játék market adatait tölti le és azokból különb féle dolgokat számol.A probléma, hogy mindig 2 órával ezelőtti adatokat szedi le. Hogyan tudnám ezt korrigálni (akár függvény, beállítás, makró) lényeg hogy másik gépen ne kelljen semmit se állítani, csak megnyitni.
erről a weblapról szedi az adatokat: https://crossoutdb.com/#length=-1.
Excel 2019Mindent leszed, de csak 2 órával ezelőttiket. A játék orosz, asszem gmt 0-t használ, én Magyarországon vagyok (ha ez számít).
Köszönöm szépen a segítséget.
[ Szerkesztve ]
-
sarampo
csendes tag
válasz Warface #41060 üzenetére
Hali
én úgy látom, hogy a friss adatokat hozza le, csak az időn történik valahol egy konverzió és 2 órával kevesebb van már az excelben.
Ha Power Queryt használsz: adj hozzá egy új custom oszlopot, a képlet pedig ez legyen:
[Last Update]+#duration(0,2,0,0)[ Szerkesztve ]
-
sarampo
csendes tag
válasz sarampo #41062 üzenetére
Aha, van benne egy js funkció, ami lefut, amikor betöltődik az oldal. Ez igazítja a helyi időhöz a timestampet.
Amikor az excel tölti le a táblát, akkor nem tud lefutni, így az eredetit kapod.// Get server time to local time offset
utcToLocalTimeOffset = moment().utcOffset();
totalUnixOffset = utcToLocalTimeOffset * 60 * 1000;
function adjustTimeStamp() {
$('.item-timestamp').each(function (i, element) {
$(element).text(function (i, text) {
var unixtimestamp = moment(text, 'YYYY-MM-DD HH:mm:ss').format('x');
var adjustedtimestamp = parseInt(unixtimestamp) + totalUnixOffset;
var newText = moment(adjustedtimestamp, 'x').format('YYYY-MM-DD HH:mm:ss');
return newText;
});
});
}; -
logitechh
csendes tag
Sziasztok
Van egy táblázat amiben szűrök és szeretném a szűrt táblazat első oszlopát besorszámozni de csak a látható cellákat ott viszont folytonos legyen -
Delila_1
Topikgazda
válasz logitechh #41064 üzenetére
Makró arra az esetre, ha a szűrt oszlop az A, a sorszámot pedig a B oszlopba kell írni.
Sub Sorszamozas()
Dim sor As Long, usor As Long, sorszam As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
sorszam = 1
For sor = 2 To usor
If Rows(sor).Hidden = False Then
Range("B" & sor) = sorszam
sorszam = sorszam + 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.
-
ny.janos
tag
válasz logitechh #41064 üzenetére
Szia!
A sorszámozandó oszlop 2. sorának képlete, ha a hivatkozott oszlop (a képletben B) kizárólag számokat tartalmaz:
=ÖSSZESÍT(2;5;$B$2:B2)
Ha a hivatkozott oszlopban nem csak számok vannak:=ÖSSZESÍT(3;5;$B$2:B2)
Működési korlát, hogy a hivatkozott oszlop (a példámban B) minden sorának kell adatot tartalmaznia. Ha ez nem teljesül, akkor a képlet sajnos nem alkalmazható. Ebben az esetben marad a makró, amit Delila_1 írt.
[ Szerkesztve ]
-
logitechh
csendes tag
válasz Delila_1 #41065 üzenetére
Köszi mindkettőtöknek a gyors választ
Ugyanehhez tartozik (mert ez a könnyebb megoldás ez volt) de hogy az adott tábla A19:H109.
A 110. sortól szöveges részek vannak
szeretnék makróval törölni egy sort mondjuk a 100-at akkor ha megadnám egy cellában akkor törölje a 100 as sort majd az utolsó sorba szúrjon be ismét egy keretes részt és a szöveges rész ismét a 110. sorban legyen. -
Fferi50
őstag
válasz logitechh #41067 üzenetére
Szia!
Nem kell törölni a sort, majd újra beszúrni.
Elég a ClearContents tulajdonságot használni:Range("A100:H100").ClearContents.
Ha az A1 cellában van a sor száma:Range("A" & Cells(1,1).Value & ":H" & Cells(1,1)).ClearContents
A tartalom törlődik és a sor marad, újra felhasználható.Üdv.
-
Delila_1
Topikgazda
válasz Fferi50 #41068 üzenetére
Másképp értelmezem. A kitöltött táblázat egy bizonyos sorát kell törölni, majd ehelyett a tábla végére egy utolsó, üres sort beszúrni.
Vegyük, hogy a J12 cella tartalmazza a törlendő sor számát, ott láttam helyet a beírásra.
Sub Beszur_Torol()
Rows(Range("J12")).Delete Shift:=xlUp
Range("A109").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A108:H108").Copy
Range("A109:H109").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub41066, ny.janos: Az összesít képlettel az a baj, hogy a szűrést megszüntetve nem marad meg a sorszámozás.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
logitechh
csendes tag
válasz Fferi50 #41068 üzenetére
alapból így lenne de egy másik makró pakolja az utolsó üres sorba az értékeket egy másik munkalapról és ha csak a tartalmat törlöm akkor pl a 71. sor üres lesz majd a 72. sorba érték. Ezért szeretném a 71. sort törölni és az utolsó üres sor utáni sorba illeszteni az új adatokat
-
-
-
Fferi50
őstag
válasz logitechh #41070 üzenetére
Szia!
Nem vagyok nagy híve a formázott adatok közötti sor/oszlop törlésnek, ha máshogyan is meg lehet csinálni.
Pl. úgy, hogy rámásolod a mögötte levő sorok tartalmát, majd az utolsó sor tartalmát törlöd.
Valahogy így:Dim sor As Integer
sor=Range("J12").Value
Range(Cells(sor+1 ,"A"),Cells(109,"H")).Copy Destination:=Cells(sor,"A")
Range(Cells(109,"A"),Cells(109,"H")).ClearContentsÍgy nem rontod el az adataid és nem marad köztük üres sor sem.
Üdv.
-
Fferi50
őstag
válasz Delila_1 #41069 üzenetére
Szia!
Ez természetesen szintén működik, de pont mai és néhány nappal korábbi tapasztalatom alapján elég veszélyesnek találom a törléseket.
Pl. volt egy Range változó, ami egy cellára mutatott. Aztán egy törlési művelet kapcsán az adott cella törlődött és így vele együtt a rá mutató változó is meghatározatlanná vált, jött a Run time error 424 - Object required hibaüzenet és a leállás.Üdv.
-
BalanceR
addikt
Egy olyan kérdésem lenne, hogy meg lehet-e oldani a következőt (lehetőleg képlettel, hogy könnyen másolható legyen):
Van egy oszlopom cikkszámokkal, mellette terméknév.
Azt szeretném hogy a terméknévre kattintva nyisson meg egy linket, ami egy adott oldal keresője a termék cikkszámával, szóval az kellene, hogy a terméknevekből legyen egy általam megadott hiperhivatkozás aminek a végére hozzácsapja a cikkszámot.
Megoldható ez valahogy elegánsan?
Előre is köszi!
#Raspberry #Orangepi #HassOS #Esp32
-
logitechh
csendes tag
válasz Fferi50 #41073 üzenetére
Újragondoltam a storyt
Delia nagy igazságát szem előtt tartva plusz a tiédet(nincs összevonás veszélyes a sorok törlése) sokkal egyszerűbb megoldásra jutottam.
Persze ehhez ti kelletek.
Mégpedig egy helyre bemásolom az adatokat amit behivatkozok a megformázott táblázatba egyszerű képlettel. Ahonnan meg hivatkozom kedvemre törölgethetek
Végül is erre való a fórum, hogy egymástól okosodjunk. Igaz 4 éjszakányi meló megy a kukába de így legalább könnyen javítható lesz és gyorsabb is
Köszi mindannyitoknak -
sz_abika
addikt
Hali,
makrózni szeretnék egy olyan funkciót, ami az aktív munkafüzetembe egy másik munkafüzetből lehív pár cellát és bemásolja az enyémbe, akkor ha egyezik a fülnek a neve. Hogy érthetőbb legyen.
Dolgozok a termes.xlsben, de a C:/ladak.xls-ből lenne szükségem az "Alma" adatra az "alma" fülről, de ha "körte" kellene, akkor a "Körte" fülről húzza be nekem az A1 : C5 ranget.FKERES onnan már elintézi a szűrést és bemásolást, de nem bírok rájönni hogy kellene ezt a manuális másolgatást megszüntetni, hanem VBA-ból előásni.
[ Szerkesztve ]
PSN: xszabikax
-
VGYke
addikt
Sziasztok! Első körben win10 fiókban próbálkoztam az alábbi kérdésemmel, hiába.
A fene tudja milyen (Win, vagy Office, vagy Eset) frissítés óta, az otthoni asztali PC-n megnyitva egy olyan Excel fájlt amiben van egy http:// hivatkozás, arra kattintva az Excel bezárja magát, vagy kiakad (másolatot készít magáról), stb.
Itt van egy minta, amivel eddig a DIGI internet sebességeket mértem.
Ugyanezen Excel fájl otthoni hálózatban laptopon megnyitva kiválóan működik, munkahelyen lévő gépemen is, amiken szintén win10 és Office2016 van, tehát nem a példaként hozott "Sebesség_2019.04.03-tól.xlsx" fájl a hibás, hanem valami ördög költözött a PC-be.
Mi lehet a baj, illetve, fájdalom mentesen (akár win, akár Office) újratelepítés nélkül, hogyan tudnám javítani?kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
Delila_1
Topikgazda
válasz sz_abika #41082 üzenetére
Azonos füzetbe tettem a körte és alma nevű lapokat, amiknek a nevét a Munka1!A1 cellában választom ki, vagy írom be.
Biztosan át tudod alakítani a makrót úgy, hogy a lapok nevét ne a saját füzetben, hanem a ladak.xls-ben keresse, és onnan másoljon.Sub Masolas()
Dim a, lapnev As String
lapnev = Sheets(1).Range("A1")
On Error Resume Next
Set a = Sheets(lapnev) '***
If Err.Number <> 0 Then
MsgBox "Nincs " & lapnev & " nevű lap", vbCritical
Else
Sheets(lapnev).Range("A1:C5").Copy Sheets(1).Range("A2") '*** (sor elején)
End If
On Error GoTo 0
End Sub***-gal jelöltem, hol kell megadnod a másik füzet útvonalát, nevé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.
-
Exportlaptop
csendes tag
Sziasztok!
Segítségre lenne szükségem.
Van egy nagy excel adatbázisom, több ezer sorból áll.
A K oszlop minden cellájában van egy-egy nagyobb szöveg.
A szövegből mindent törölni kell az "Item Specifics" szó után.
Keresgéltem a neten, csak pár angol fórumot találtam, ahol az alábbi függvény jelentett megoldást:
L oszlopba beírni a következőt: =LEFT(K2;SEARCH("Item Specifics";K2)-2)
Mivel magyar excelem van, próbáltam ezt a függvényt LEFT helyet BAL-al és KERES-el beírni, de helytelen így és csak az alábbi eredményt hozza elő: #NÉV?
Mit csináltam rosszul? Hogyan kellene beírnom, hogy sikerüljön?Hálás köszönet a segítségért előre is,
Erika -
Delila_1
Topikgazda
válasz Exportlaptop #41085 üzenetére
SZÖVEG.KERES a barátod.
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 Exportlaptop #41089 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Exportlaptop
csendes tag
-
Exportlaptop
csendes tag
válasz Delila_1 #41090 üzenetére
Közben rájöttem, más okozta a problémát, megoldva
Köszi még egyszer!
Még egy kérdésem lenne esetleg ha nem gond.
Van két oszlop, az elsőben mondjuk 100 sor, melyben 70 sorban van adat, 30 sorban nincs, vagyis üres.
Viszont ahol üres, ott a második oszlopban van adat, és a többi 70 üres.
Ezt a két oszlopot, hogy lehet összevonni, hogy egy oszlopban legyenek, úgy hogy ne sérüljön egyik sem?
Köszönöm ha segít valaki.
Üdv,
Erika -
ny.janos
tag
válasz Exportlaptop #41092 üzenetére
Egy új oszlopban megkapod az eredményt, ha összefűzöd az előbbi két oszlopot (ha A és B oszlopokat akarod összefűzni, akkor C oszlop képlete a 2. sorban):
=A2&B2
[ Szerkesztve ]
-
the radish
senior tag
Sziasztok!
Makró segítségével szeretnék olyan egész sort törölni (nem csak adatot), melynek az első cellájában ("A" oszlopban) a "SZUM" kifejezés van.
Előre is köszönöm.
-
the radish
senior tag
válasz the radish #41095 üzenetére
Sikerült megoldani:
Sub sbDelete_Rows_IF_Cell_Contains_String_Text_Value()
Dim lRow As Long
Dim iCntr As Long
lRow = 100000
For iCntr = lRow To 1 Step -1
If Cells(iCntr, 1).Value = "SZUM" Then
Rows(iCntr).Delete
End If
Next
End Sub[ Szerkesztve ]
-
VGYke
addikt
Ok látom, ezen kérdésemmel rossz helyen járok, de tudnátok javasolni megfelelő fórumot? Kiegészítés: nem Excel, hanem vagy Office, vagy win10 probléma, mert Word-nél is ugyan ezt csinálja, beszúrt link-re kattintva, hiba!
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
-
logitechh
csendes tag
Sziasztok!
Input boxba lehet valahogyan combo boxot rakni?
Bújom a netet de nem találom.
Dim Beszallito As String
Beszallito = InputBox("Add meg a beszállító kódját" & vbLf & "A Törzsadatok munkalapon találod a szállítók kódját", " Beszállító", "")
Range("EL5").Value = Beszallito[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz logitechh #41098 üzenetére
Eleve Combobox legyen a formon. Ennek a RowSource paraméterénél megadod a választható adatok helyét, pl. Törzsadatok!A1:A15. Kiválasztáskor a
Private Sub ComboBox1_Change()
Sheets(1).Range("EL5") = ComboBox1
End Submakró beírja az értéket az első lap EL5 cellájába. Nyomógombhoz is rendelheted a makrót a ComboBox helyett.
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
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."