-
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
-
#44833
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Rég jártam erre...
Lenne egy 3000+ sort és 30 oszlopot tartalmazó excel adatbázisom, amit folyamatosan + sorokkal bővítünk. Viszont megjelent egy olyan probléma, hogy bizonyos sorok ismétlődnek, amit eddig az "ismétlődések eltávolítása" lehetőséggel megoldottam, de annyiban más a helyzet, hogy a korábbi sor esetén a megjegyzés rovatba került adat, és az utóljára bekerült egyedi azonosítóval ellátott sort, mely nem tartalmaz megjegyzéseket kellene eltávolítanom..
Hogy tudom megoldani?
Vagy maga az "ismétlődések eltávolítása" funkció mindig a hátrább lévő sorokat törli?
-
#42721
huliganboy
addikt
Pöttön
#42717
huliganboy
addikt
válasz
Pöttön
#42717
üzenetére
A4 cellába írt érték esetén meghatározott számhoz tartozó értéket:
=FKERES($A$4;Munka2!$A$2:$B$7;2;HAMIS)
1. Először a Munka2 fülön hozz létre a A4 cellába írt értkhez párosítani kívánt adatokat:
[kép]2. A következő föggvényeket írd be a B4-F4 celléákba:
B4- F4:=FKERES($A$4;Munka2!$A$2:$B$7;2;HAMIS)
3. Eredmény:
[kép]MEgj: Ha a B4-F4 cella értéke az A4 cell számához viszonyítva mind más szám, akkor minden egyes cellára a Munka2 lapon létre kell hozni egy segédtáblát, és minden cellábaban arra kell hívatkozni...
(#42719) lappy : A függvények összefűzése plusz feltételek megadásával nem annyira egyszerü szerintem, de az általad javasolt is egy jó megoldás hisz a feltételek és az eredményeket is tartalmazza a függvény.
-
#42674
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Van egy több száz oldalas exel táblám. A3-as fekvőbe van méretezve, de egy oldalra nem fér rá.
Hogy tudom azt megoldani, hogy az oldalak párját nyomtassa kétoldalasan, ne pedig az 1-2, 2-3 stb alapmetódust kövesse?
-
#41410
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Van egy adatbázisom, amiben az utca neve, jellege, házszám kerül feltüntetésre, de ezeket nekem külön cellába kellene szednem, tehát az A1 cellában lévőket szétválasztani:
Hogy tudom ezt tömegesen megoldani?
Köszönöm!
-
#40751
huliganboy
addikt
Fferi50
#40749
huliganboy
addikt
válasz
Fferi50
#40749
üzenetére
Szia!
Van sok sok nyomtatványunk, amit az ügyfeleinknek adunk ki. Ha velünk kapcsolatba akarnak kerülni, vagy üzletelni szeretnének velünk akkor ezeket a nyomtatvány csomagokat kell kitölteniük. Egy csomag esetenként 20-25 word fájlból is állhat.
A tendencia az, hogy 90% hiányosan, vagy hibásan kitöltve hozza azokat vissza. Sok mindent kipróbáltunk már köztük az acrobat űrlapot is, de nem volt célravezető; véleményem szerint az egyes dokumentumok sűrűsége, lapszáma miatt...
Így arra gondoltam, hogy a nyomtatványok kitöltendő vagy éppen jelölendő részeit felviszem egy korlátozott excelbe, és ott ha mondjuk nincs kitöltve valami azt tudja felé jelezni a program (pl feltételes formázással pirosan kiemeli a cellát stb.), majd behúzzuk körlevél mezőként....
A terv ez (volt?):
Munka1 lapon A oszlopban a kérdések, B oszlopban a válaszok szabad karakteres, dátum, fix karakteres, legördülő listás stb. mezők formájában.
Ezeket manuálisan sima = jellel Munka2 lap 1 valamint 2 sorába "hívnám" meg...
Végig gondolva egyelőre kivitelezhetetlennek tartom. Tudom van access, de sok ügyfél nem rendelkezik ezzel, excel azért majdnem mindenkinek van....
példafájlok:
Köszi
-
#40745
huliganboy
addikt
Fferi50
#40742
huliganboy
addikt
válasz
Fferi50
#40742
üzenetére
Igen ez tiszta... Kérdés, hogy összesítsem egy külön lapon?
Tehát a munka1 lapon van az "ürlap".
A munka1 lap A1 cellájában a kérdés, a B1 cellában mondjuk 4 válasz legördülő listában...
A munka2 lapon összesítem A1 B1 C1 D1 a kérdések, de alájuk hogy huzom be a megadott válszt
lehet nem is lehetséges, csak forgok rajta...Köszönöm
-
#40741
huliganboy
addikt
Fferi50
#40740
huliganboy
addikt
válasz
Fferi50
#40740
üzenetére
Értem, köszönöm, ezt szoktam alkalmazni, ha olyan cellát vizsgálok ahol nincs érték...
Más:
Ugye ez az Excel tábla egy körlevél formanyomtatvány adatbázisnak készül. Vannak olyan pontok a word levélben ahol egy bizonyos kérdésre mondjuk 3 válasz lehetséges, és az utasítás szerint alá kell húzni... Na már most az excelben a 3 választ legördülő menüből lehez választani.. Ti hogyan oldanátok meg a Word nyomtatványban a megjelenését?Köszönöm
-
#40739
huliganboy
addikt
Fferi50
#40738
huliganboy
addikt
válasz
Fferi50
#40738
üzenetére
Közben gondolkoztam is, nem jó a plusz sorok beszúrása, mivel körlevélhez lesz egy másik lapon összesítve a tartalom, így fix cellákból kell építkezni....
Ellenben képlettel lehet feltételesen megjeleníteni szöveget (kérdést).
Itt arra gondolsz, hogy a cella maga üres, de ha a válasz igaz megjelenik benne a szöveg?
Köszi
-
#40736
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Excelben van mód arra, hogy ha az A1 cellában van egy kérdés amire a B1 cellában legördülő választási lehetőség van akkor a B1 cella egyik megadott értékének választásakor az alatta lévő sorba több általam megadott sort szúr be...... Ez sem megoldás mert igen válasz esetén előre nem meghatározható hány tömb sort kellene beszúrni....
Csak hogy érthető legyen:
A1: Kaptál e már hímes tojást? B1: IGEN/NEM
Ha B1 igen akkor fel kellene sorolni hogy kitől és mikor stb.
Hogy oldható meg, hogy az user maga adjon hozzá új sorokat az én általam megadott tartalommal ami az igen válasz esetén releváns?
Köszönöm előre is!
-
#40624
huliganboy
addikt
Delila_1
#40605
huliganboy
addikt
válasz
Delila_1
#40605
üzenetére
Szia!Köszönöm de ez nem működik nekem.. Nekem az elérési utak a D oszlop celláiban vannak... onnan kellene kihivatkoznia a függvényeket A g oszlop vele párhuzamos cellájába..Átneveztem a te általad megadott névre az oszlopot és ő2007-es office van a gépen ha ez számít...
Mit ronthatok el?A @ kitörlése megoldotta a problémát
Azt miért csinálja, ha egy cellába írom akkor a végtelenségig az alatta lévő cellákba is berakja ugyan azt a függvényt? Visszavonás gombbal csak az adott cellában marad benne.
-
#40602
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Van egy táblázatom aminek az egyik cellájában elérési utak vannak: pl C:\Adat\adat2
Ezt a mellette lévő cellába automatikusan kattinthatóvá akarom tenni.
Eddig ezt használtam:=HIPERHIVATKOZÁS(Táblázat2[[#Ez a sor];[Link (ha le van töltve)]])Viszont az elérési utak hosszúak, hogy lehet mondjuk egy LINK szóra rövidíteni a függvény kimenetét?
Köszönöm
-
#38703
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Szeretnék egy külön munkafüzetet létrehozni statisztikának, melyben más xls/xlsx állományok szolgálnának forrásként.
A problémám az, hogy az excel fájlok fájlnevei folyamatosan minden héten változnak (a hét száma változik).
Milyen módszerrel lehetne ezt automatizálni, hogy az összes föggvényt ne kelljen mindig átírni?
Jelenleg ezt a statikus megoldást használom:
=DARABTELI('[adatbazis 10.hét.xls]Munka1'!$AU$5:$AU$5000;"egyes vizsgalt elem")
Köszönöm
-
#38251
huliganboy
addikt
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!
-
#34425
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Excel munkafüzet megosztással kapcsolatban van valakinek tapasztalata?
Van egy 2500+ soros, CS oszlopos táblázatom, tele függvénnyel, makróval....Mivel több ember dolgozna vele, jó lenne, hálózaton keresztül több embernek egy időben használni:
- Új sorok rögzítése
- Meglévő sorok kiegészítés/módosításKorábban próbálkoztunk vele, de adatvesztésbe szaladtunk bele, és ugye ekkora táblázatnál már követhetetlen volt, ki mit írt bele és éppen mi veszett el.... Ekkor még volt office 2003 és 2007 is használatba, ma már csak 2007 van..
Szerintetek érdeme próbálkozni? Ha igen, van e valami jó beállítás amire oda kell figyelni?
Köszönöm!
-
#33341
huliganboy
addikt
huliganboy
addikt
#33339) Pakliman
(#33340) Fferi50Köszönöm srácok végül az alábbi megoldást választottuk: (nem tudom mennyire elegáns, de működik)
Sub Nagy_Kezdőbetű_F()
Set x = Application.InputBox(prompt:="Add meg a nagybetűsíteni kívánt tartományt!" & vbCrLf & "VIGYÁZZ! Számot tartalmazó oszlop ne szerepeljen benne!", Title:="Tartomány megadása", Type:=8)
x.Select
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False
For Each x In Selection
x.Value = Application.WorksheetFunction.Trim(x.Value)
x.Value = Application.Proper(x.Value)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
MsgBox "KÉSZ!", vbInformation
End Sub -
#33338
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Az alábbi makró hogyan módosítható, hogy a gép ne haljon bele a futtatásába?
Sub Nagy_Kezdőbetű()
' A megadott tartomány összes celláján végrehajtja a ciklust.
For Each x In Range("D3:AD20000")
' A Microsoft Visual Basic for Applications (VBA) alkalmazásban nincs nagy kezdőbetűs függvény.
' Ezért a munkalapfüggvényt kell használnia a következő módon:
x.Value = Application.Proper(x.Value)
Next
End SubKb lehetetlen kivárni mig befejezi...
Köszönöm!
-
#31371
huliganboy
addikt
huliganboy
#31369
huliganboy
addikt
válasz
huliganboy
#31369
üzenetére
Az előző kérdésem kiegészítéseként:
TimeValue hogy adható úgy meg, hogy csak perc és másodperc kijelzés legyen? PL: 36:46 (perc:másodperc), de 60 perc után ne órára ugorjon hanem folytassa a perc számlálását pl: 74:35(perc:másodperc).
Illetve a ha makróban TimeValue értéket gombbal indítom és állítom, hogy lehet resetelni? Tehát nulla állásba rakni? Valamint hogy lehet belenyúlni esetleg adott időt megadni, hogy onnan induljon a számlálás?
Jelenleg itt tartok:
Private Sub CommandButton1_Click()
StartTimer
End Sub
Private Sub CommandButton2_Click()
stopTimer
End SubSub StartTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"
End Sub
Sub Increment_count()
Range("B10").Value = Range("B10") + 1
StartTimer
End Sub
Sub stopTimer()
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", Schedule:=False
End SubKöszi!
-
#31369
huliganboy
addikt
huliganboy
addikt
Sziasztok
Meg lehet azt excelben oldani, hogy egy vezérlő gomb megnyomásakor a munkalap egy adott részén jelenjen meg egy kép 3-4 másodpercre majd tünjön el?
Köszönöm
-
#30658
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Pár napja kérte megy kis segítséget, és most töltenék fel egy mintafájlt...
Tehát ilyen fejléccel érkeznek a táblázatok a korábban írtaknak megfelelően, Az ebben lévő sorokat folyamatosan formázom, hol színekkel, hol megjegyzésekkel... Viszont mikor kapok egy újabb adag adatot, akkor nem tudom, hogy egyesítsem, hisz előfordúl, hogy az általam szerkesztett valamint az új listában is szerepel ugyan az a sor....
Köszönöm!
Sziasztok!
Az alábbi problémával küzdök!
Excelben kapok hetente-kéthetente egy kb. 40 oszlopos és állandóan változó de 1000-12000 sor közötti táblázatot adatokkal, fejléccel. A fejlécek minden esetben egyeznek.
Ha az egyik táblázatban elkezdek dolgozni akkor, mikor megkapom a másikat mindig hatalmas munka azt úgy összefésülni, hogy az addigi formázások, megjegyzések is megmaradjanak... A problémát fokozza, hogy az adott listákban adott adatok többször is előfordúlnak...
Ti, hogy "egyesítenétek" ezen táblákat, hétről hétre, hogy az addigi munkátok ne menjen kárba?
Köszönöm!
-
#30581
huliganboy
addikt
Delila_1
#30580
-
#30575
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Az alábbi problémával küzdök!
Excelben kapok hetente-kéthetente egy kb. 40 oszlopos és állandóan változó de 1000-12000 sor közötti táblázatot adatokkal, fejléccel. A fejlécek minden esetben egyeznek.
Ha az egyik táblázatban elkezdek dolgozni akkor, mikor megkapom a másikat mindig hatalmas munka azt úgy összefésülni, hogy az addigi formázások, megjegyzések is megmaradjanak... A problémát fokozza, hogy az adott listákban adott adatok többször is előfordúlnak...
Ti, hogy "egyesítenétek" ezen táblákat, hétről hétre, hogy az addigi munkátok ne menjen kárba?
Köszönöm!
-
#29987
huliganboy
addikt
huliganboy
addikt
Accessben nem tudjátok véletlenül hogy lehet kerekiteni?
Van egy szám amit szorzok a hónap napjainak számával ami mindig egész szám kell legyen.. De van ugye hogy pl 69998 jön ki... Az Excel ezt szépen felkerekíti, de ez a fránya access nem akarja...
-
#29915
huliganboy
addikt
Delila_1
#29913
-
#29911
huliganboy
addikt
huliganboy
addikt
Szerintetek ez miért nem működik nekem? Egy oldalon találtam, azt hittem megoldás a problémámra.
Feladat: C oszlop második cellájától a cellákban levő értékeket vizsgálni, és ha van azonos akkor a hozzá tartozó sorokat törölni, egy kivételével!
Sub RemoveDuplicatesCells_EntireRow()
'PURPOSE: Remove the entire row of duplicate cell values within a selected cell range
'SOURCE: www.TheSpreadsheetGuru.com
Dim rng As Range
Dim x As Integer
'Optimize code execution speed
Application.ScreenUpdating = False
'Determine range to look at from user's selection
On Error GoTo InvalidSelection
Set rng = Selection
On Error GoTo 0
'Ask user which column to look at when analyzing duplicates
On Error GoTo InputCancel
x = InputBox("Which column should I look at? (Number only!)", _
"Select A Column", 1)
On Error GoTo 0
'Optimize code execution speed
Application.Calculation = xlCalculationManual
'Remove entire row if duplicate is found
rng.EntireRow.RemoveDuplicates Columns:=x
'Change calculation setting to Automatic
Application.Calculation = xlCalculationAutomatic
Exit Sub
'ERROR HANDLING
InvalidSelection:
MsgBox "You selection is not valid", vbInformation
Exit Sub
InputCancel:
End SubKöszi!
-
#29902
huliganboy
addikt
huliganboy
#29900
huliganboy
addikt
válasz
huliganboy
#29900
üzenetére
Végül ez lett a megoldás...
Sub ttt()
mappak = Array ' Nálad persze más és más
' lehet egy dir("e:",vbdirectory) a feltöltésben, ha egy mappán belül vannak.
For Each mappa In mappak
Set uj = Workbooks.Add
fajl = Dir(mappa & "*.xls")
celsor = 1
Do While fajl <> ""
Workbooks.Open Filename:=mappa & fajl, ReadOnly:=True
sor = Range("a1").SpecialCells(xlLastCell).Row
If celsor = 1 Then
Range("a1", Range("a1").SpecialCells(xlLastCell)).Copy uj.Sheets(1).Cells(celsor, 1)
celsor = celsor + sor
Else
Range("a2", Range("a1").SpecialCells(xlLastCell)).Copy uj.Sheets(1).Cells(celsor, 1)
celsor = celsor + sor - 1
End If
ActiveWorkbook.Close False
fajl = Dir()
Loop
uj.SaveAs mappa & "eredmeny.xls"
'uj.Close False
Next
MsgBox "Kész"
End SubViszont még ebbe bele kellene aplikálni, hogy a C oszlopban azonos sorokat törölje illetve a megadott oszlopokat is törölje!!
[ Módosította: CoolMan ]
-
#29900
huliganboy
addikt
huliganboy
addikt
Üdv!!
Lenne itt 35-40 db excel, ugyan azon oszlopokkal, mindegyik munka1 lapon, de más tartalommal, adott esetben sorismérlődéssel.
Hogy tudom ezt az excel álloményokat egyszerüen egybe másolni, úgy hogy egymás után tegye be a tartalmakat egy fájlba?
Kb. 9000 sor összesen és tartalmaz szöveget, számokat, dáátumokat!
-
#29836
huliganboy
addikt
huliganboy
addikt
Azt vajon hogy tudom megoldani, hogy:
Ha B2 értéke 3 akkor D2 cella legyen zöld, Ha B2 értéke nulla akkor D2 piros Ha B2 értéke 1 vagy 2 akkor D2 narancs színü!
Köszi
-
#29825
huliganboy
addikt
huliganboy
addikt
Van egy ilyen függvényem:
=HA(C12>0;"VÉGE";"LEJÁTSZANDÓ")A bajom az hogy ha a cellába 0-át írok sem hat ki rá.... Ugyanis a cella értéke alapjáraton is nullának érzékeli az excel...
Ugye azt szeretném ha 0 vagy nagyobb szám kerül a cellába írja ki hogy vége ellenkező esetben lejátszandó.
Nem tudom úgy összerakni ÉS valamint VAGY függvénnyel hogy működjön!
-
#29811
huliganboy
addikt
huliganboy
addikt
Üdv!
Office 2007 Excel-ben hogy tudom az alábbi feltételes formázást megoldani:
HA C12-C17 értéke nagyobb mint 0 akkor a G12-G17 cellába a feltételes formázás ikonkészletéből legyen egy-egy zöld pont középre helyezve, HA értéke 0 vagy kisebb akkor legye egy-egy piros pont!
Köszönöm!
-
#29810
huliganboy
addikt
huliganboy
#29804
huliganboy
addikt
válasz
huliganboy
#29804
üzenetére
Valaki nem tudna kisegíteni?
-
#29804
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Lenne egy focikupa a hétvégén, és szükségem lenne egy excel táblára ami rangsorolja a csoportokban a csapatokat.
A google segítségével találtam előre elkészítettet, viszont a sorrend eldöntésénél nekem más szempontokat kellene figyelembe venni.
Esetleg valaki tudna segíteni nekem, az adott táblát kiegészíteni? Lényegében egy besorolási szempontot kellene felvenni...
Köszönöm!
-
#26670
huliganboy
addikt
Delila_1
#26668
huliganboy
addikt
válasz
Delila_1
#26668
üzenetére
Szia!
A pár nappal ezelőtti makrót amit készítettél az egyik barátommal továbbvittük kicsit....
A kérdése maz lenn, hogy az üres sorokat, hogyan tudnánk kiszedni.....Köszönöm!
Sub ido()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 3 To usor Step 2
For oszlop = 2 To 8
Sheets("Munka5").Cells(sorIde, 3) = Left(Cells(sorInnen, oszlop), 5)
Sheets("Munka5").Cells(sorIde, 5) = Right(Cells(sorInnen, oszlop), 5)
sorIde = sorIde + 1
Next
Next
Sheets("Munka5").Select
Call helyszin
End Sub
Sub helyszin()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 4 To usor Step 2
For oszlop = 2 To 8
Sheets("Munka5").Cells(sorIde, 7) = Cells(sorInnen, oszlop)
sorIde = sorIde + 1
Next
Next
Sheets("Munka5").Select
Call nap
End Sub
Sub nap()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Dim hossz As Long
Sheets("Munka2").Select
sorInnen = 1: sorIde = 2: usor = Range("b" & Rows.Count).End(xlUp).Row
For sorInenn = 3 To usor Step 2
For oszlop = 2 To 8
Sheets("Munka5").Cells(sorIde, 2) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde, 4) = Cells(sorInnen, oszlop)
sorIde = sorIde + 1
Next
Next
Call edzo
End Sub
Sub edzo()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 3 To usor Step 4
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 1, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 2, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 3, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 4, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 5, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 6, 1) = Cells(sorInnen, oszlop)
Next
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde + 7, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 8, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 9, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 10, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 11, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 12, 1) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 13, 1) = Cells(sorInnen, oszlop)
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
Next
Call korosztaly
End Sub
Sub korosztaly()
Dim sorInnen As Long, sorIde As Long, oszlop As Integer
Dim usor As Long
Sheets("Munka2").Select
sorInnen = 3: sorIde = 2: usor = Range("B" & Rows.Count).End(xlUp).Row
For sorInnen = 5 To usor Step 4
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 1, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 2, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 3, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 4, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 5, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 6, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 7, 6) = Cells(sorInnen, oszlop)
Next
For oszlop = 1 To 1
Sheets("Munka5").Cells(sorIde + 7, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 8, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 9, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 10, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 11, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 12, 6) = Cells(sorInnen, oszlop)
Sheets("Munka5").Cells(sorIde + 13, 6) = Cells(sorInnen, oszlop)
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
For oszlop = 2 To 8
sorIde = sorIde + 1
Next
Next
Sheets("Munka5").Select
End Sub -
#26640
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Ezt a függvényt, hogy tudom több száz soron át ismételni, manuális bevitel nélkül?
=BAL(TRANSZPONÁLÁS(Munka2!B3:H3);5)
A Munka2 B3 és H3 oszlop adatait rakja föggőlegesen egymás alá... Minden második sorból kellene hivatkozni..... Tehát a fenti B3-H3 után B5-H5 majd B7-H7 és így tovább következik...
UI: A függvény sajnos csak crtl+shift+enter esetén tömbként működik....
Köszönöm
-
#26595
huliganboy
addikt
Törpella
#26593
huliganboy
addikt
válasz
Törpella
#26593
üzenetére
Szia!
Először is köszi!
Mi van abban az esetben ha egy oktatónak egy napon a három eseményen kívül, egy kettő vagy egy eseménye sincs?
Illetve Ha megnézed az első oktatót akkor nem három sorba kell felvinni a másik táblázatba, hanem 14 sorba, ami hétről hétre változik annak függvényében egy nap hány foglalkozás van.... Legrosszabb esetben heti 21.... -
#26591
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Adott egy szabott excel tábla melyből a google naptár által importálandó excel formátumot kellene kinyernem. A dolgot elég sok minden bonyolítja, és akár hogy agyalok, nem tudom a megoldást, egyáltalán van e megoldása a dolognak.?!
Bármilyen ötletet szívesen fogadok....
Egy kitétel van a kiinduló fájl megjelenése, gondolok itt a heti nézet és az oktatók csoportok felsorolására nem változtatható, ugyanis ragaszkodnak ehhez a megjelenéshez.
Nagyon szépen köszönöm!
Office verzió: 2003-2007
-
#24677
huliganboy
addikt
huliganboy
addikt
Sziasztok!
Adott egy táblázat melyben egy labdarúgó torna lebonyolításának rendjét számolja, rangsorolja az excel......
Sajnos a tudományunk egy szinten megáll és egy nettről letöltött sablonhoz képest mi sem jutunk tovább...
Jelenleg a lejátszott mérkőzések alapján egy tábla számolja az adatokat és a megadott értékek alapján rangsorolja a csapatot.... ez a következő:
1. Elért pontszám
2. Gólkülönbség
3. Több rúgott gólHogy tudnám kibővíteni a táblázatot, hogy a következő feltételek alapján rangsorolja a tabellákat:
1. pontszám
2. egymás elleni eredmény
3. jobb gólkülönbség
4. több rúgott gólNagyon szépen köszönöm annak aki segít!!!
Van egyébként egy hihetetlenül összetett táblázat is, de szerintem annak átalakítása még nagyobb feladat.... Ezt ha feloldjuk és felfedjük az elrejtett dolgokat sok mindent lehet megtudni!!
Köszönöm!!
bocs fapados de gyors... természetesen majd vissza és marad az eredeti felállás 
Új hozzászólás Aktív témák
- Keresek Xbox Series S / Series X / Playstation 5 konzolokat
- Akciós kisWorkstation! Dell Precision 3570 i7-1255U 4.7GHz / 16GB / 512GB / Quadro T550 4GB FHD 15"
- ÁRGARANCIA!Épített KomPhone Ryzen 5 4500 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
- Xiaomi Redmi 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: BroadBit Hungary Kft.
Város: Budakeszi