- bambano: Bambanő háza tája
- Luck Dragon: Asszociációs játék. :)
- sziku69: Szólánc.
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: AMD Ryzen 7 7700X vs AMD Ryzen 9 9900X Cinebench R23 & R24 Benchmarkokban mérve
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Argos: Adjátok vissza a netet! - szeretnék elaludni!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- sh4d0w: Árnyékos sarok
-
LOGOUT
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
-
lappy
őstag
válasz
andreas49
#47097
üzenetére
Minden képlet
https://support.microsoft.com/hu-hu/office/a-k%C3%A9pletek-megjelen%C3%ADt%C3%A9se-%C3%A9s-kinyomtat%C3%A1sa-65a29965-b1b1-40db-9cb7-4fd051da3a5c
Csúszka
https://support.microsoft.com/hu-hu/office/g%C3%B6rget%C5%91s%C3%A1vok-elrejt%C3%A9se-vagy-megjelen%C3%ADt%C3%A9se-a-munkaf%C3%BCzetben-2101e630-fa9b-4d22-90e0-b110278bafa7 -
andreas49
senior tag
Sziasztok, letöltöttem egy Excel file-t az internetről. Sok függőleges oszlop vízszintes sorainak celláiban képletek szerepelnek, ezek csak akkor látszanak, ha belépek a cellába. Hogyan lehetne megoldani, hogy minden cella tartalma megjelenjen a cellákban anélkül, hogy a kurzor ott legyen?
Másik kérdésem: eltűnt az egyik Excel fájlomban a vízszintes csúszka, Hogy lehet ezt visszaállítani?
Segítséget előre is köszönöm. -
-
Casseius
tag
Sziasztok, egy kis segítséget kérnék google munkafüzettel kapcsolatban, ami valószínüleg a legtöbbötöknek itt rutin feladat de én ehhez nagyon hülye vagyok
1. Itt annyit szeretnék hogy a kihasználtság alá ha beírom hogy 12 pl akkor az azalatti sorba kidobja hogy az 32-nek hány százaléka [link]
2. Itt pedig csak annyit hogyha a szám minuszba menne akkor ugorjon nullára és onnan számoljon tovább, tehát ne tudjon minuszba menni hanem a legkissebb szám az 0 legyen [link]
Köszönöm előre a segítséget
-
#47093
lappy
őstag
MostaPista
#47092
lappy
őstag
válasz
MostaPista
#47092
üzenetére
-
#47092
MostaPista
tag
MostaPista
tag
Ha valakinek meg nem artott meg a hoseg, lenne kedve mutatni nekem egy peldat, hogyan kell pl. a foci eb-hez hasonlo "lepcsozetes" tablazatokat csinalni?
Ugye, indultak 6 tablazattal, mindegyikben 4 resztvevo, majd eloszor trukkosen, majd egyenesben feleztek oket.
-
#47091
föccer
nagyúr
temporello
#47090
föccer
nagyúr
válasz
temporello
#47090
üzenetére
Mennyi a szűrési tartomány nagysága? Nekem az excel 365-öm ~15.000 sor felett már nem adott vissza minden elemet az autoszűrőben.
-
ny.erno
tag
válasz
Fire/SOUL/CD
#46734
üzenetére
Esetleg olyan opció is van, hogy az excelnek a szűrési tartományát megváltoztatni, hogy ne csak 10.000 legyen a limit?
A több munkalapos azért nem opció, mert a teljes adatbázisban kell keressem az ismétlődő értékeket, nem csak a munkalapon.
A végén csak áttérek az Accessre.. Ott is van opció az ismétlődések megjelölésére/kiemelésére? Csak jelölni szeretném, nem megakadályozni (erre találtam útmutatót). -
yoogie
aktív tag
Sziasztok, egy kis segítséget kérnék.
Adott 2 táblázat, össze kellene hasonlítani a 2 táblázatban 1 függőleges és 1 vízszintes oszlopot, majd az összehasonlított oszlop melletti értékeket kell vissza adnia a másik táblázatban. Milyen függvénnyel lehetséges ez?
-
Dr. Mózes
aktív tag
Sziasztok!
Van egy táblázat, mely különböző rovatokat tartalmaz, és azok összeget. Van a fő rovat pl. K311, és vannak az alábontásai pl. K311-001. A főrovat és az alábontások karakter száma is változó.
Hogyan lehetne az alábontások összegét összeadni, hogy kijöjjön a főrovat értéke?
Pl.:
K311-001: 1000
K311-003: 5000
K312-0004: 8000
K312-0012: 6000
K64-003: 10000Eredmény:
K311: 6000
K312: 14000
K64: 10000Köszönöm!
-
user112
senior tag
Sziasztok!
A Sor beszúrás időnként eltűnik a sor jobb gombos menüjéből. Nem tudom mitől, de egy cellán ctrl c crtl v hatására visszajön.
Ennek mi lehet az oka és hogyan lehet az eltűnést megelőzni?
Más: ctrl v-re megjelenő kis ablakot (ctrl beillesztés beállításai) hogyan lehet eltüntetni, hogy sose jelenjen meg?
Köszönöm -
andreas49
senior tag
-
smnetbp
csendes tag
válasz
andreas49
#47075
üzenetére
Ha utana a Table1 - Table15 ig kitorlom, akkor mar a tulajdonsagainal ugy jelenik meg mint " csak kapcsolodas" es a hozzafuzes1 rendben mukodik tovabb es a tobbi nem jelenik meg tobbe. Viszont ez problema lehet tobb 100 erdemenyul kapott "table" eseteben, mert egyesevel kitorolni........ kicsit DOS 1.0 erzesem van
Tehat szerintem a Power Query -ben lehetne talan ezt beallitani ha Excel guru lennek -
smnetbp
csendes tag
Sziasztok!
Excel 2019 ben webes lekerdezés 1 URL után ad 15db 5 soros 2 oszlopos "táblázatot" szeretném mind a 15-öt egy lapon megjeleniteni es a további URL-ek eredményét (szintén URL-enként 15 "táblázat") ugyanezen a lapon az előzők alá beszúrni. Így lenne az 5 linkemből egy 375 soros táblázat
Eljutottam odáig, hogy
- webes lekérdezés
- több tétel választása (itt kijelölöm a 15 "táblázatot")
- adatok átalakítása
- lekérdezések hozzáfüzése újként (három vagy több tábla)
- hozzáadom a 15 táblátItt elakadok, ha betöltöm akkor az eredmény 15 lap + egy URL lap + egy hozzáfüzés1 lap amin rendben szerepel minden
Problémám 1: a hozzáfüzés1 mellett a többi "táblázat" 1-15-ig is megjelenik különbözö lapokon
Problémám 2: a többi URL eredményének beszúrása a már létezö hozzáfüzés1 lapra (vagy bárhova ) folytatólagosanTöbb problémám nincs...... még
Ha esetleg valakinek van valami oktató Youtube linkje azt is megköszönom.
-
Pakliman
tag
válasz
Dilikutya
#47070
üzenetére
Szia!
1 lehetőség...:
Private Sub Worksheet_Change(ByVal Target As Range)
'Feltételezzük, hogy az A oszlopban kezdik a beírást, a dátum pedig az X oszlopba kerül...
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False
'Ha van "zárolt" cella, akkor van bekapcsolt védelem is a munkalapra...
ActiveSheet.Unprotect "jelszo"
Cells(Target.Row, "X") = Date
ActiveSheet.Protect "jelszo"
Application.EnableEvents = True
End If
End Sub -
lappy
őstag
válasz
Dilikutya
#47070
üzenetére
Private Sub Worksheet_Change
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
Ez minden beírt cella mellé írja a dátumot -
Dilikutya
félisten
Egzotikus, ínycsiklandozó igénybe futottam bele:
Van egy táblázat, naponta írnak bele pár új sort. Az igény az lenne, hogy a dátum automatikusan kerüljön egy zárolt cellába, tehát amikor beírnak, bekerül a dátum, és az ott is marad, másnap a másnapi dátum kerül bele automatikusan. Igen, a MA() fgv. így kilőve.
-
#47067
Delila_1
veterán
szricsi_0917
#47066
Delila_1
veterán
válasz
szricsi_0917
#47066
üzenetére
Annyit még egyszerűsíthetsz rajta, hogy beteszel egy For-Next ciklust 1-tól 4-ig, és egy Select Case utasításban adod meg a változó lapneveket, az oszlop ciklusok kezdetét és végét, miegyebeket.
-
szricsi_0917
tag
válasz
Delila_1
#47045
üzenetére
Szia
Ahogy mondtam neked becsatolom az elvileg majdnem végleges megoldást. Most 4x csinálja meg a folyamatot, mert 4 sheeten is végig kell mennie. Ahogy látom így is elég gyors lett.
Private Sub Kalkuláció_Click()Dim i As Long, InduloIdo As SingleInduloIdo = TimerDim sor_allapot As IntegerDim sor_anyag As IntegerDim oszlop As IntegerDim lastrow_allapot As IntegerDim lastrow_anyag As IntegerDim sorszam As IntegerDim cikkszam As StringDim osszeg As DoubleDim TIB As StringDim csere_sor As IntegerDim csere_oszlop As IntegerIf tib_lista.Value = "" ThenMsgBox "Nincs kitöltve TIB azonosító!", vbCritical, "Figyelmeztetés"Exit SubElseApplication.ScreenUpdating = FalseApplication.Calculation = xlCalculationManualApplication.DisplayStatusBar = FalseApplication.EnableEvents = Falselastrow_allapot = Sheets("Gerinc kiépítés állapot").Range("S" & Rows.Count).End(xlUp).Rowlastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Rowcikkszam = ""TIB = tib_lista.ValueSheets("Anyagösszesítő").Range("F2:F" & lastrow_anyag) = ""For sor_allapot = 3 To lastrow_allapotIf Sheets("Gerinc kiépítés állapot").Cells(sor_allapot, "S") = TIB ThenFor sor_anyag = 2 To lastrow_anyagosszeg = 0cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)sorszam = Sheets("Gerinc kiépítés állapot").Cells(sor_allapot, 1)For oszlop = 67 To 162 Step 5If Sheets("Gerinc kiépítés adat").Cells(sorszam, oszlop - 1) = cikkszam Thenosszeg = osszeg + Sheets("Gerinc kiépítés adat").Cells(sorszam, oszlop)End IfNextSheets("Anyagösszesítő").Cells(sor_anyag, "F").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "F").Value + osszegNextEnd IfNextlastrow_allapot = Sheets("Alépítmény állapot").Range("z" & Rows.Count).End(xlUp).Rowlastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Rowcikkszam = ""Sheets("Anyagösszesítő").Range("g2:g" & lastrow_anyag) = ""For sor_allapot = 3 To lastrow_allapotIf Sheets("Alépítmény állapot").Cells(sor_allapot, "z") = TIB ThenFor sor_anyag = 2 To lastrow_anyagosszeg = 0cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)sorszam = Sheets("Alépítmény állapot").Cells(sor_allapot, 1)For oszlop = 81 To 176 Step 5If Sheets("Alépítmény adat").Cells(sorszam, oszlop - 1) = cikkszam Thenosszeg = osszeg + Sheets("Alépítmény adat").Cells(sorszam, oszlop)End IfNextSheets("Anyagösszesítő").Cells(sor_anyag, "g").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "g").Value + osszegNextEnd IfNextlastrow_allapot = Sheets("Házhálózat állapot").Range("v" & Rows.Count).End(xlUp).Rowlastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Rowcikkszam = ""Sheets("Anyagösszesítő").Range("h2:h" & lastrow_anyag) = ""For sor_allapot = 3 To lastrow_allapotIf Sheets("Házhálózat állapot").Cells(sor_allapot, "v") = TIB ThenFor sor_anyag = 2 To lastrow_anyagosszeg = 0cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)sorszam = Sheets("Házhálózat állapot").Cells(sor_allapot, 1)For oszlop = 84 To 179 Step 5If Sheets("Házhálózat adat").Cells(sorszam, oszlop - 1) = cikkszam Thenosszeg = osszeg + Sheets("Házhálózat adat").Cells(sorszam, oszlop)End IfNextSheets("Anyagösszesítő").Cells(sor_anyag, "h").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "h").Value + osszegNextEnd IfNextlastrow_allapot = Sheets("Optikai kötés állapot").Range("q" & Rows.Count).End(xlUp).Rowlastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Rowcikkszam = ""Sheets("Anyagösszesítő").Range("i2:i" & lastrow_anyag) = ""For sor_allapot = 3 To lastrow_allapotIf Sheets("Optikai kötés állapot").Cells(sor_allapot, "q") = TIB ThenFor sor_anyag = 2 To lastrow_anyagosszeg = 0cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)sorszam = Sheets("Optikai kötés állapot").Cells(sor_allapot, 1)For oszlop = 64 To 159 Step 5If Sheets("Optikai kötés adat").Cells(sorszam, oszlop - 1) = cikkszam Thenosszeg = osszeg + Sheets("Optikai kötés adat").Cells(sorszam, oszlop)End IfNextSheets("Anyagösszesítő").Cells(sor_anyag, "i").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "i").Value + osszegNextEnd IfNextSheets("Anyagösszesítő").SelectFor csere_oszlop = 6 To 9For csere_sor = 2 To lastrow_anyagIf Sheets("Anyagösszesítő").Cells(csere_sor, csere_oszlop) = 0 ThenSheets("Anyagösszesítő").Cells(csere_sor, csere_oszlop) = "-"End IfNextNexttib_lista.Value = ""Application.ScreenUpdating = TrueApplication.Calculation = xlCalculationAutomaticApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueMsgBox "Az összesítés elkészült!" & vbNewLine & vbNewLine & "Futási idő: " & Format((Timer - InduloIdo) / 86400, "hh:mm:ss") & vbNewLine, , "" '86400 = 24*60*60End If
End Sub -
-
zsolti_20
senior tag
Sziasztok!
Lehetséges Excel VBA kóddal, egy stringet splitelni az összes karakterre?
Pl a string értéke "343,fsdf.5434"fdsa$fg;bbb". Egyszerűen nem jövök rá, hogyan tudnám egyesével szétválasztani.Próbáltam a sima split funkciót használni, de ott a probléma az hogy egy előre megadott karakterrel splitel és meg sem tartja az értéket. Szóval 175.258-ből lesz 175 és 258. A pont eltűnik.
-
#47061
Fferi50
Topikgazda
MostaPista
#47060
Fferi50
Topikgazda
válasz
MostaPista
#47060
üzenetére
Szia!
Csinálj belőle vonalas grafikont, a grafikonhoz rendelj lineáris trendvonalat. Az Excel megmondja az egyenletet is hozzá. Jelen esetben a trendvonal megegyezik az eredeti diagramvonallal - azaz viszonylag szoros az összefüggés a két adatsor között.
Üdv. -
#47059
lappy
őstag
MostaPista
#47058
lappy
őstag
válasz
MostaPista
#47058
üzenetére
nem igazán tudom hogy nálad mi a 52-55
azért írtam le a képletet amivel ki tudod számolni a meredekséget
veszel két pontot az egyenesről és az egyes pontokhoz tartozik egy (x;y) koordináta, na abból tudod kiszámolni
vagy tegyél ide egy példát -
#47057
lappy
őstag
MostaPista
#47056
lappy
őstag
válasz
MostaPista
#47056
üzenetére
Ha lineáris akkor igen
Ismerni kell a meredekséget hozzá.
m= (y2-y1) /(x2-x1) -
#47056
MostaPista
tag
MostaPista
tag
Adatokbol vissza lehet szamolni a fugvenyt 2003-as excelben?
Ugy ertem, hogy ismerek nehany reszeredmenyt, ami grafikon alapjan nagyjabol linearis fuggvenynek nez ki, meg lehet gyorsan hatarozni a fuggvenyt, minimalisan a zeruspontot es a meredekseget?
-
norbika84
csendes tag
válasz
Delila_1
#47053
üzenetére
A szűrést ismerem, de nekem azért kell átvinnem egy másik táblába az adatokat, mert az máshogy néz ki, és ezt nyomtatjuk ki. A szűrés nem megoldható, mert az eredeti táblázatban több adat is van ,amit nem kell nyomtatni, ez így gyorsabb, ha az adatokat átvisszük egy másik táblázatba, amin már csak azok az adatok vannak, amik kellenek. Így az eredeti táblázathoz nem kell hozzá nyúlni (oszlopokat elrejteni, stb).
-
norbika84
csendes tag
Sziasztok!
A Munka1 lapon van egy Táblázat1 nevű táblázatom dátum szerint rendezve(Dátum nevű oszlop a táblázatban), és tele vannak megrendelésekkel. Egy másik lapra szeretném átvinni az adatokat, amik egy napon vannak. Pl. ha beírom a Munka2 lap B2 cellájába a mai dátumot (ott kell megadni, hogy melyik napot szeretném kinyerni), akkor a Táblázat1 táblázatból az összes mai dátumú sort hozza át. Ezt meg lehet oldalni egyetlen egy képlettel? Nekem nem sikerült csak többel, segédcellák segítségével.
Az INDEX HOL.VAN párossal próbálkoztam, de csak az első eredményt adja vissza, az azon a napon lévő többi sort nem.
Ha van rá megoldás, valaki le tudná írni. -
Fferi50
Topikgazda
válasz
zoombiee
#47049
üzenetére
Szia!
Az a probléma, hogy a szövegben levő idézőjelek megszakítják a szöveget, az utána következő részt (és az előtte levőt is persze) nem tudja értelmezni.
Ha idézőjeleket szeretnél a szövegben elhelyezni, akkor meg kell duplázni azokat:"ThisWorkbook.Sheets(""Munka1"").Range(""K5"") = 5"
minden olyan helyen, ahol idézőjelet akarsz.
Üdv. -
zoombiee
csendes tag
Sziasztok,
Szeretnék segítséget kérni az alábbi kódhoz.Működése: Ha az "A" oszlopban van érték, akkor létrehoz gombot az "S" oszlopban.
Az automatikusan létrehozott gombban kellene szerepelnie kódnak.
A probléma az, hogy ennél a sornál:
.InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
Hibát generál, ha ezt a sort kiveszem, akkor minden rendben lefut, viszont így sajnos a gomb lényege elvész, mert nincs hivatkozás sor benne.Sub gomb()
Dim ws As Worksheet
Dim celLeft As Integer
Dim celTop As Integer
Dim celWidth As Integer
Dim celHeight As Integer
Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Set ws = Sheets("Munka1")
For i = 2 To LastRow
celLeft = ws.Range("S6").Left
celTop = ws.Range("S" & i).Top
celWidth = ws.Range("S6:S6").Width
celHeight = ws.Range("S6:S6").Height
Set objBtn = ws.OLEObjects.Add(classType:="Forms.CommandButton.1", Link:=False, _
displayasicon:=False, Left:=celLeft, Top:=celTop, Width:=celWidth, Height:=celHeight)
objBtn.Name = "S" & i
objBtn.Object.Caption = "--->"
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
N = .CountOfLines
.InsertLines N + 1, "Private Sub " & "S" & i & "_Click()"
.InsertLines N + 2, vbNewLine
.InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
.InsertLines N + 4, vbNewLine
.InsertLines N + 5, "End Sub"
End With
Next i
End SubElőre is köszönöm a segítséget!
Üdv: Dani -
#47045
Delila_1
veterán
szricsi_0917
#47039
Delila_1
veterán
válasz
szricsi_0917
#47039
üzenetére
A másik fórumon, ahol feldobtad ugyanezt a kérdést, megadtam a választ: speciális szűrés.
-
#47039
szricsi_0917
tag
szricsi_0917
tag
Sziasztok
Egy kis vba segítséget szeretnék kérni:
Erről a kis táblázatról lenne szó ami pár ezer soros lesz. A "D" oszlop lesz a feltétel oszlopa. Ha a D oszlopban pl 01H02401 található akkor az "A" oszlopban található sorszámokat tárolja el, mert egy másik szumhatöbb függvényhez majd szükségem lesz rá. Milyen kóddal oldható meg, hogy ezeket az értékeket tárolja, majd egyessével lépkedve fel tudjam tudjam használni egy for ciklusban?
Köszönöm előre is a segítséget! -
Fferi50
Topikgazda
Szia!
Ha az R1 cella érték hollétét szeretnéd a táblázatban feltételes formázással megmutatni, akkor elegendő az R1 cellával hasonlítani az adott cella értékét.
Állj rá az A1 cellára (vagy jelöld ki a teljesA1:O6tartományt).
Feltételes formázás - kijelölés képlettel.
A képlet: =A1=$R$1
Az érvényesség területe pedigA1:O6
Ezzel rögzíted az R1 cellát és a tartományon belül minden cella értékét ehhez hasonlítja.
Üdv.
-
#47034
Delila_1
veterán
EroSennin79
#47033
Delila_1
veterán
válasz
EroSennin79
#47033
üzenetére
=IFERROR(=Statistic!W41/Statistic!Z41,"")
A magyar HAHIBA függvény angol megfelelője. -
#47033
EroSennin79
újonc
Fferi50
#47032
EroSennin79
újonc
válasz
Fferi50
#47032
üzenetére
Hihetetlen vagy, nagyon szépen köszönöm. Hatalmas segitség volt. El sem hiszem már készen is vagyok
Póbálom magamat képezni de egyedül kissé nehézkes.
Még egy kérdésem lenne. Ha a formula eredménye 0 akkor az excel mindig #DIV/0 hibát ir. Ezt IF funkcióval szoktam nullázni. Van valami más egyszerübb módja hogy ne legyen a nullától rosszul ? Például ennél a formulánál?
=Statistic!W41/Statistic!Z41 -
#47032
Fferi50
Topikgazda
EroSennin79
#47031
Fferi50
Topikgazda
válasz
EroSennin79
#47031
üzenetére
Szia!
A Keres - cserél funkciót (Ctrl + F ) használhatod:
Először keresed a 2020 -at és cseréled 2021-re a képletekben, az összes cseréje.
Ezután keresed a 2019 -et és cseréled 2020-ra szintén a képletekben, az összes cseréje.
A december havi tételek képletében megnézed a < utáni dátumot és ha szükséges, akkor az egész dátumot cseréled a jóra.
Csak magyar képet tudok csatolni:
Üdv. -
#47031
EroSennin79
újonc
EroSennin79
újonc
Sziasztok.
Segitséget szeretnék kérni.
Van egy összefoglaló statiszikai táblázat amit készitettem a munkahelyemen.
Éves összefoglást készit megrendelőkre lebontva, elég sok megrendelőről van szó ezért sok az adat. A kérdésem az lenne hogy hogyan tudnám az alábbi formulában gyorsan kicserélni a tól-ig dátumot. Eddig megoldottam manuálisan de most kissé sürget az idő.
A formula a Januári cellában ez és ezt minden hónapban meg kell tenni (cellák egymás alatt vannak):
=COUNTIFS(Datas!I:I,"ONT01", Datas!K:K,"On time delivery",Datas!G:G,">31/12/2019",Datas!G:G,"<01/02/2020")Az aktuális érték 31/12/2020 és 01/02/2021 lenne, viszont ez minden hónap cellájában módositani kell megrendelőnként 3x a megfelelő dátumra emelkedő sorrendben. Manuálisan sajnos nagyon sok idő.
Próbáltam már a google-ban keresni megoldást de nem nagyon találtam jót.
Csatoltam egy képet a táblázat egy részletéről.
Előre is köszönöm -
karlkani
aktív tag
Sziasztok!
Van egy listám, .m3u8 kiterjesztéssel, ez az A1 cellában van. Szétszedtem, módosítva több csoportba, egy elég ronda képlettel, meg hozzáfűztem, cseréltem, amit kell. Lett 4x30 sornyi adatom, melyeket külön-külön fájlokba (4 darab, .m3u8 kiterjesztéssel) szeretném menteni. A név nem számít, átírom utólag, lehet 1, 2, 3, 4. Az lenne a legjobb, ha egy gombra kattintva létrehozná a listákat. A makrónak úgy kellene kinézni, hogy kiválasztja az A1 cellát, beilleszti a vágólap tartalmát, majd külön-külön fájlokba lementi az A4:A33, A36:A65, A68:A97 és A100:A129 tartományok tartalmát.
Előre is nagyon szépen köszönöm!
-
Telda
addikt
Köszi!
Közben találtam rá egy makrót.Sub munkafuzetmasolas()
Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "munkalaplista"
Range("A1").Select
For i = 1 To Sheets.Count - 1
Sheets(i).Select
Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
Selection.Copy
Sheets("munkalaplista").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
lastRow = ActiveCell.Row
Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub -
Mutt
senior tag
válasz
PistiSan
#47021
üzenetére
Szia,
Alapokhoz nekem sokat segített az "M is for Data Monkey" nevű könyv. Régi, de jól elmondja a dolgokat.
Microsoft hivatalos doksija segít a függvényekben eligazodni.
Youtube-on pedig Mike Girvin csatornája kiváló forrás, illetve Mynda csatornája.
üdv
-
Mutt
senior tag
Szia,
Ha Excel 2016-osod vagy frissebbed van, akkor a Power Query-vel lehet automatizálni.
A másik megoldás, hogy mivel az első 14 lapon mindig 65 ezer sor van fixen, akár képlettel is megoldható.
Lenne egy input.xls és egy template.xlsx nevű fájlom. Az input amit a program kiad. A template-ben pedig egy sima hivatkozás lenne egy lapon az input első lapjára, majd a 65 ezredik sor után a második lapra és így tovább. Az utolsó lap esetén pedig mivel nem lesz minden sor vmi ilyen hivatkozás lenne:
=HA([input.xls]Sheet15!A1<>"";[input.xls]Sheet15!A1;"")Ezek után csak az input fájlt kell cserélgetned és a template-ben kapott eredményt elmenteni értékek beillesztése után.
Mindkét megoldás hátránya, hogy formátumokat nem másol.
Ha kell formátum, akkor VBA.üdv
-
Telda
addikt
Sziasztok!
Hogyan tudnám a munkalapok tartalmát egymás alá másolni egy munkalapra?
A program ami kihozza az adatbázist, de csak 65536 sort tud kezelni, ezért mindig új munkalapot csinál.
Maga az adatbázis viszont 940ezer soros, így 15 munkalapot hoz létre.
Ezeket szeretném egy munkalapra egymás alá bemásolni. -
PistiSan
addikt
Mindkét verzió eszembe jutott, az általad felsoroltakból.
Felsoroltam egy külön fájlban amit le kellett vonni, de függvényt nem tudtam írni hozzá, ami amúgy így hogy már leírtad, marha egyszerűen tűnik utólag.
Mivel összesen 1 névről van szó, ezért az első verziót használtam fel az általad írt megoldások közül!
Nagyon szépen köszönöm,úgy működik, ahogy elvártam tőle.Annyira ritkán kell ilyen egyéni függvény, hogy még soha nem néztem utána rendesen, esetleg ha tudsz hozzá ajánlani egy faék egyszerű dolgokat leíró leírást amit ajánlanál, szívesen elolvasnám.
Köszi!
-
Mutt
senior tag
-
Fferi50
Topikgazda
válasz
pigsty
#47017
üzenetére
Szia!
Az Összefűzés függvényt "helyettesíti" az & . A & B =AB
Ha valóban dátum van az adott cellában, akkor a cellaformátumot kell megváltoztatnod a kívánt formára. Szerintem a dátumformátumok között ott is van ez a fajta. (Cella - jobb egérgomb - cellaformátum - dátum és ott kiválasztod. Ha nincs ilyen, akkor a cellaformátum után Egyéni és oda beírod a kívánt formátumot.)
Ha szöveg van - dátumnak kinézően, akkor a szövegdaraboló függvényeket tudod használni a forma eléréséhez:=BAL(A1;4) & "." & KÖZÉP(A1;5;2) & "." & JOBB(A1;2)
Üdv. -
pigsty
aktív tag
Üdv,
olyankor mi van, ha hiányzik a "SZÖVEGÖSSZEFŰZÉS" képlet? Excel 2016
Múlt héten még megvolt.
két oszlop összeillesztéséhez kellen, óra és perc oszlopból egy oszlopba illessze össze HH:MM formába.--
A Szöveg-> Összefűznél hiányzik az elválasztó, és üreset mellőz lehetőség. -
PistiSan
addikt
Sziasztok!
Power Query-szerkesztő-ben össze hoztam magamnak strukturáltan az adatokat.
NÉV | SZÁM1 | SZÁM2
Kacsa | 12,5 | 21
Kutya | 16 | 45Annyit szeretnék, hogy a a "Kacsa"-val kezdődő sorban a "SZÁM1" és "SZÁM2"-ból kivonjak mondjuk 5-öt.
Olyat találtam, hogy a teljes oszlopból vonjon ki egy számot, de nekem az azért nem jó, mert ez egy egyedi eset, 1 adott név melletti értékből kell kivonni 2 különböző számot. -
#47014
MostaPista
tag
MostaPista
tag
Sajnos 46989-es kerdesem azota is valaszra var.
-
zsolti_20
senior tag
Sziasztok!
Azt lehet esetleg tudni, hogy kijelentkezett windows alatt miert nem lehet hasznalni copy pastet excel VBA kodban?
Csupan egy szimpla cella masolasrol lenne szo egyik wokrbookbol a masikba. A kod le is fut szepen miko be vagyok jelentkezve, de ha nyomok egy windows + L-t akkor a kod mindig megakad a paste-nal.
Lehetseges, hogy mikor kijelentkezek, akkor pauseolja a windowst?
Bar a fura dolgo az egeszben, hogy a masik filet megnyitja, de a cella tartalom nem kerul at csak egy hibat ir.
"Run-time error '1004':
PasteSpecial method of Worksheet class failed.
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False, NoHTMLFormatting:=True
Elkepzelheto hogy ez valami vedelem reszben? Amint belepek a windowsba ujra es emgnezem, semmi nincs a vagolapon. Szoval ugy tunik a masolas sem tortenik meg. -
Chrisluke
csendes tag
Sziasztok, Kaptam több oldalas költségvetést egyetlen munkalapon. A nyomtatás során a táblázat össze-vissza került volna a lapokra egyes tételekt el is választott volna fele erre a lapra fele a másik lapra került volna ezt megoldottam a töréspontokkal. Az utolsó lapon azonban egyetlen tétel van ezt a tételt a lap közepére akarja nyomtatni, olyan mintha lennének üres sorok elötte pedig nincsenek. Hogyan tudnám ezt a tételt a lap tetéjére igaztani?
-
#47011
Delila_1
veterán
MostaPista
#47010
Delila_1
veterán
válasz
MostaPista
#47010
üzenetére
Sajnos...
-
zsolti_20
senior tag
válasz
Fferi50
#47000
üzenetére
Köszönöm szépen a jobbnál jobb kódokat.
Linkelek ide egy képet, az A oszlopban vannak az értékek, B oszlop Delila_1 gyártott kód eredménye C oszlop Fferi50 kódjának eredménye.Ahogy látom a Fferi50 a te kódodnál végülis mindegy mennyi elválasztás történik, az utolsó tömb értéke elé lesz beszúrva a "." aztán össze fűzzük a maradékot. Így a forrás lehet bármekkora, működni fog.
-
RAiN91
őstag
Sziasztok,
adott A1 cella, amiben 5-6 különböző szó van, szóközzel elválasztva. És mindig változnak a szavak, a sorrend is.
Ebből szeretnék kiragadni bizonyos szavakat akkor, ha megegyezik az általam előre definiált szavakkal.
Konkrét példa:
A1 cella jelenleg: szó1 szó7 szó3 szó4 szó5
B oszlopban egymás alatt, a szavak, amiket keresek: szó5, szó8, szó9
C1 cellában szeretném látni szó5, szó8 vagy szó9-et akkor, ha A1-ben valahol szerepelnek.
A sorrend A1-ben nem fix, ezért a "BAL" "KÖZÉP" stb. függvény sajnos nem jó. Van erre valami kereső függvény esetleg, vagy csak VBA-val tudom megoldani?
Köszömöm előre is!
7;"*K311*";C3
Új hozzászólás Aktív témák
Hirdetés
- Apple iPhone 11 - népalma
- Hivatalos a OnePlus 13 startdátuma
- Hálózati / IP kamera
- bambano: Bambanő háza tája
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen okostelefont vegyek?
- Óvodások homokozója
- Új telefont és tabletet mutatott be a Telekom
- Mafia: The Old Country teszt
- Apple MacBook
- További aktív témák...
- LG 27GR83Q-B - 27" IPS / QHD 2K / 240Hz & 1ms / NVIDIA G-Sync / FreeSync / DisplayHDR 400
- Bomba ár! HP EliteBook 755 G5 - Ryzen PRO 5 I 8GB I 256GB SSD I 15,6" FHD I Cam I W10 I Gari!
- Dell Latitude 5330 i3-1215U 6magos! - 16GB 512GB 13.3" FHD magyarbill 1 év garancia
- Bomba ár! Dell Latitude E5550 - i5-5GEN I 8GB I 128GB SSD I 15,6" FHD I W10 I HDMI I Cam I Gari!
- Samsung Galaxy S23 Ultra / 8RAM 256GB / Gyárifüggetlen / 12 Hó Garancia
Állásajánlatok
Cég: FOTC
Város: Budapest