-
Mobilarena
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
-
Delila_1
veterán
válasz
repvez
#45424
üzenetére
Újabb változat. Eddig arról volt szó, hogy azonos dátumnál a következő oszlopba írja be az értéket, most meg hogy írja felül a B oszlopban lévőt.
FFeri makróját módosítva:Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Variant
If Target.Column = 8 Then
With Sheets("Munka2")
cel = Application.Match(CLng(Date), .Range("A:A"), 0)
If IsError(cel) Then
cel = .Range("A10000").End(xlUp).Row + 1
.Cells(cel, 1).Value = Date: .Cells(cel, 2) = Target
Else
.Cells(cel, 2) = Target
End If
End With
End If
End Sub -
Delila_1
veterán
válasz
Fferi50
#45421
üzenetére
Bocs, lusta vagyok kikeresni a kérdést.
Mindig a H2-be ír – ha jól értem –, csak az azonos napon beírt értékeket szeretné 1 sorba beírni a másik lapon. Remélem, jó lesz, de csak holnap derül ki.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Long, oszlop As Integer
If Target.Address = "$H$2" Then
With Sheets("Munka2")
sor = .Range("A" & Rows.Count).End(xlUp).Row + 1
If .Cells(sor - 1, 1) <> Date Then
oszlop = 2
Else
sor = sor - 1
oszlop = .Cells(sor, Columns.Count).End(xlToLeft).Column + 1
End If
.Cells(sor, 1) = Date
.Cells(sor, oszlop) = Target
End With
End If
End Sub -
Delila_1
veterán
válasz
repvez
#45411
üzenetére
Másold be az alábbi makrót a munkalapod kódlapjára (lásd a Téma összefoglalóban).
Ha nem Munka2 a neve a másik lapodnak, írd át a makróban. A fájl makróbarátként kell elmentened.Private Sub Worksheet_Change(ByVal Target As Range)
Dim ide As Long
If Target.Address = "$H$2" Then
With Sheets("Munka2")
ide = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & ide) = Date
.Range("B" & ide) = Target
End With
End If
End Sub -
Delila_1
veterán
válasz
Fferi50
#45398
üzenetére
Hát még, ha tagolva lenne a makró! Akkor látszana, ki kivel van.
Function Poisson2(Feltétel2 As Range) As Long
Call kep_ki
Application.Volatile 'Prohardver Delila_1 nyomán
k = 0
Kezd = Cells(8, 7) 'Feltétel kezdete oszlop
Kezd5 = Kezd + 5 'Javasolt számok terület előtti oszlop száma
Kezd22 = Kezd + 22 'Feltételek a javaslat válogatásához
a = Cells(12, Kezd) 'A munkatábla kezdő előtti oszlop száma
Előford = Kezd + a 'K(i) táblázat kezdő előtti oszlop száma
Valószín = Előford + 90 'P(x=1) táblázat kezdő előtti oszlop száma
Várak = Valószín + 90 'n(i) táblázat kezdő előtti oszlop száma
Us = Cells(4, 7) + Cells(2, 7) 'Táblázat utolsó sora
Cikl = Cells(5, Előford + 1) 'A számolás kezdete sor
Cells(6, Előford + 1) = Cikl 'Ez lesz a Ciklusváltozó kezdete
Range(Cells(Cikl + 1, Kezd + 1), Cells(Us, Kezd + 15)).ClearContents 'számítása sorok törlése
Range(Cells(Cikl, Előford + 1), Cells(Us, Valószín)).ClearContents 'K(i) táblázat törlése
Range(Cells(8, Előford + 1), Cells(8, Valószín)).Value = _
Range(Cells(Cikl - 1, Várak + 1), Cells(Cikl - 1, Várak + 90)).Value 'Az n(i-1) sor feltöltése
Cells(14, Előford + 1).Formula = Cells(14, Kezd + 49).Formula
Cells(14, Előford + 1).Select 'Kijelölés kitöltéshez
Selection.AutoFill Destination:=Range(Cells(14, Előford + 1), Cells(14, Valószín)), Type:=xlFillDefault
'Feltételek
Range("AF11:AJ11").Value = Range("AF4:AJ4").Value 'Manuális számítás
'Calculate 'A munkalapfüggvények számolása
For Cikl = Cells(6, Előford + 1) To Us 'Az utolsó + 1-ig
'1. : 'Az n(i-1) és az előző ciklusban kitörölt képletek újrafelépítése a Tartalék raktárcellából BF14
Range(Cells(8, Előford + 1), Cells(8, Valószín)).Value = _
Range(Cells(Cikl - 1, Várak + 1), Cells(Cikl - 1, Várak + 90)).Value 'Az n(i-1) sor feltöltése
Cells(14, Előford + 1).Formula = Cells(14, Kezd + 49).Formula 'Képlet
Cells(14, Előford + 1).Select 'Kijelölés kitöltéshez
Selection.AutoFill Destination:=Range(Cells(14, Előford + 1), Cells(14, Valószín)), Type:=xlFillDefault
'[P(x=1) 13-dik sor]
For i = 1 To 5
For j = 1 To 90
Calculate 'A munkalapfüggvények kiszámolják a 14-dik
If Cells(13, Előford + j) <= Cells(11, Kezd22 + i) And Cells(14, Előford + j) Then
For k = 1 To 5
If Cells(14, Előford + j) = Cells(Cikl, Kezd5 + k) Then GoTo Köv
Next k
Cells(Cikl, Kezd5 + Cells(17, Kezd5 + i)) = Cells(14, Előford + j)
Cells(Cikl, Kezd + 10 + Cells(17, Kezd5 + i)) = Cells(13, Előford + j)
Cells(14, Előford + j) = ""
j = 90
End If
Köv:
Next j
Next i
'2.
Cells(6, Előford + 1) = Cikl
'Calculate 'A munkalapfüggvények számolása
If Cells(Cikl, 4) Then
For j = 1 To 5
Cells(Cikl, Kezd + j) = Cells(12, Előford + Cells(Cikl, 3 + j))
Next j
End If
'Calculate 'A munkalapfüggvények számolása
Range(Cells(Cikl, Előford + 1), Cells(Cikl, Valószín)).Value _
= Range(Cells(Cikl - 1, Előford + 1), Cells(Cikl - 1, Valószín)).Value
For j = 1 To 90
Cells(8, Előford + j) = Cells(8, Előford + j) + 1 'n(i) cellasor munkatáblában(i) cellasor
Next j
If Cells(Cikl, 4) Then
For j = 1 To 5
Cells(Cikl, Előford + Cells(Cikl, 3 + j)) _
= Cells(Cikl, Előford + Cells(Cikl, 3 + j)) + 1
Cells(8, Előford + Cells(Cikl, 3 + j)) = 0 'n(i) cellasor
Next j
End If
'Calculate
Range(Cells(Cikl, Valószín + 1), Cells(Cikl, Várak)).Value _
= Range(Cells(12, Előford + 1), Cells(12, Valószín)).Value
Range(Cells(Cikl, Várak + 1), Cells(Cikl, Várak + 90)).Value _
= Range(Cells(8, Előford + 1), Cells(8, Valószín)).Value
Next Cikl
Call CountCcolor 'Prohardver nyomám Színes cellák számolása**** Modul3 lapon
Poisson2 = WorksheetFunction.Sum(Range("O14:S14")) 'Solver Célcella
Call kep_be
End Function -
Delila_1
veterán
A CV>40 csak egy példa a feltételre, amivel színezed a tartomány elemeit. Nyilván a saját feltételedet kell beírni helyette.
Az Application.Volatile sor eredménye, hogy ha a területen belül megváltoztatod egy cella értékét úgy, hogy feleljen (vagy ne feleljen) meg a feltételnek, akkor az eredmény is automatikusan módosuljon az új értékre. -
Delila_1
veterán
Szerintem a feltételt kellene megadnod a ciklusban, ami színezi a cellákat.
Function FeltetelesDarabszam(Tartomany As Range)
Dim CV As Range, db As Integer
Application.Volatile
db = 0
For Each CV In Tartomany
If CV > 40 Then db = db + 1
Next CV
FeltetelesDarabszam = db
End Function -
#45321
Delila_1
veterán
pero19910606
#45320
Delila_1
veterán
válasz
pero19910606
#45320
üzenetére
If Cells(i, 11) = "Nincs nyitott kérdés" Then
If Cells(i, 6) = "Készletszint=0" Then
If Cells(i, 13) = "Van lemondási ok" Then
Cells(i, 14) = "Folyamatos hiány"
Else
Cells(i, 14) = "Beszerzői probléma"
End If
Else
Cells(i, xx) = "Készletszint köv.beérk. nap"
Cells(i, xy) = "Rendben"
End If
End If -
Delila_1
veterán
válasz
Delila_1
#45295
üzenetére
Egy kis magyarázat az előbbihez, mert a MEDIÁN függvény nem túl közismert.
A függvény az argumentumában megadott számok középértékét adja.
A példában 3 érték szerepel, a D2, és a hozzá tartozó L2 és M2 érték. Az utóbbi kettőt az FKERES függvénnyel találjuk meg aK:Mtartományban. Ha a D2 nem egyenlő a 3 szám középértékével (nem középre esik), akkor a képlet értéke IGAZ, és piros lesz a háttér. -
#45286
Delila_1
veterán
Norbika1493
#45285
Delila_1
veterán
válasz
Norbika1493
#45285
üzenetére
Szívesen.
Az FKERES függvény a közelítő érték keresésekor úgy működik, ahogy leírtam. -
#45282
Delila_1
veterán
Norbika1493
#45281
Delila_1
veterán
válasz
Norbika1493
#45281
üzenetére
Meg kell határoznod, hogy melyik időpontot melyik napszakhoz rendeled. Ez nálam az
F1:G7tartományban van. A B oszlop képletei ebben a tartományban keresnek.
-
#45257
Delila_1
veterán
customer114
#45256
Delila_1
veterán
válasz
customer114
#45256
üzenetére
=SZUMHATÖBB(B1:B8;A1:A8;"a";B1:B8;">" & 2) -
Delila_1
veterán
válasz
tomi_x
#45243
üzenetére
Kevés megjegyzés esetén rákattintasz a megjegyzésre, majd a Delete gombbal kitörlöd.
Sok megjegyzésnél érdemes egy rövid makró futtatni.
Sub OhneMegj()
Dim sz As Object
For Each sz In ActiveSheet.Comments
sz.Shape.Select True
Selection.Delete
Next
End SubLátod, a makró kijelöli, majd kitörli egyenként a megjegyzéseket. Ha elhagyjuk a kijelölést, valamiért a cella jobb felső sarkában megmarad a kis piros háromszög, és nem is enged új megjegyzést beszúrni oda.
Szerk.: Lehet, hogy a képen látható, megjegyzés kinézetű szöveg nem megjegyzés, hanem egy érvényesítéshez csatolt útmutató.
-
Delila_1
veterán
válasz
zsolti_20
#45232
üzenetére
Erre már válaszoltam. A képlet
=JOBB(Munka1!A2;HOSSZ(Munka1!A2)-6)*1Az előző válaszhoz képest annyi a változás, hogy akkor azonos lapon volt a szöveg+szám, itt másikra kell a képlet. Még az is változott, hogy ott csoport szerepelt, itt meg group, ahol a karakterek száma eltér.
-
Delila_1
veterán
válasz
Misi_D
#45219
üzenetére
Nem biztos, hogy jól értem a feladatot.
A képen a betöltött adatok azA:Coszlopokban vannak. A G oszlopban az Ismétlődések eltávolítása funkcióval minden ID értéket egyszer szerepeltettem.
A H2 képlete=INDEX($A$1:$C$15;HOL.VAN($G2;$A$1:$A$15);2), az I2-é=INDEX($A$1:$C$15;HOL.VAN($G2;$A$1:$A$15);3)
-
Delila_1
veterán
-
Delila_1
veterán
válasz
Lokids
#45212
üzenetére
Így egyszerűbb.
Sub mmm()
Dim s_rnG As Range, p_Osszeg, s_Cell As Range, ev As Integer, honap As Integer
Set s_rnG = Range("ADU2:ADX5")
p_Osszeg = 500
For Each s_Cell In s_rnG
If Year(s_Cell.Value) = Left(Cells(1, s_Cell.Column), 4) * 1 And Month(s_Cell.Value) = Right(Cells(1, s_Cell.Column), 2) * 1 Then
s_Cell.NumberFormat = "General"
s_Cell.Value = p_Osszeg
End If
Next
End Sub -
Delila_1
veterán
válasz
Lokids
#45210
üzenetére
Egy leegyszerűsített példa
Sub mmm()
Dim s_rnG As Range, p_Osszeg, s_Cell As Range, ev As Integer, honap As Integer
Set s_rnG = Range("ADU2:ADX5")
p_Osszeg = 500
For Each s_Cell In s_rnG
Select Case Cells(1, s_Cell.Column)
Case 801: ev = 2020: honap = 1
Case 802: ev = 2020: honap = 2
Case 803: ev = 2020: honap = 3
Case 804: ev = 2020: honap = 4
End Select
If Year(s_Cell.Value) = ev And Month(s_Cell.Value) = honap Then
s_Cell.NumberFormat = "General"
s_Cell.Value = p_Osszeg
End If
Next
End Sub
-
Delila_1
veterán
A Munka1-től Munka4-ig marad úgy, ahogy a 45202-es hsz képe mutatja.
Az összesítő lapon vegyél fel egy új oszlopot. Itt az A oszlopba kell beírnod a keresendő értéket, az új oszlopba pedig a lap nevét. Ezeket érvényesítésből is kiválaszthatod, hogy ne legyenek elírások.
A B2 cella képletete
=HAHIBA(INDEX(INDIREKT($G2 & "!$A$1:$G$10");HOL.VAN($A2;Munka1!$A:$A;0);HOL.VAN(B$1;Munka1!$1:$1;0));"–")
amit jobbra és le is másolhatsz. Nem létező adat, vagy lapnév esetén "–" lesz a beírás. -
Delila_1
veterán
válasz
zsolti_20
#45192
üzenetére
Nem volt egyszerű, de végül sikerült.
Sub Eredmeny()
Dim sorSzuro As Integer, sorEredm As Integer, db As Integer, csoport As Integer
Dim usorLista, x As Integer, elso As Integer, ucso As Integer, nev As String, van
sorEredm = 2: csoport = 1
usorLista = Range("D" & Rows.Count).End(xlUp).Row
Kezd:
elso = Application.Match(csoport, Columns(1), 0)
ucso = Application.Match(csoport, Columns(1))
db = 0
For x = elso To ucso
If Application.WorksheetFunction.CountIf(Columns(4), Cells(x, 2)) > 0 Then db = db + 1
If db = ucso - elso + 1 Then
For sorSzuro = 2 To usorLista
nev = Cells(sorSzuro, "D")
On Error Resume Next
van = Application.Match(nev, Range(Cells(elso, "B"), Cells(ucso, "B")), 0)
If VarType(van) = vbError Then
On Error GoTo 0
Else
Cells(sorEredm, "F") = csoport
Cells(sorEredm, "G") = nev
sorEredm = sorEredm + 1
End If
Next
End If
Next
csoport = csoport + 1
If csoport > Application.WorksheetFunction.Max(Columns(1)) Then
Exit Sub
Else
GoTo Kezd
End If
End Sub -
Delila_1
veterán
válasz
xenom0rph
#45175
üzenetére
A makrót a laphoz kell rendelned. Az F2 cellában érvényesítés biztosítja, hogy csak az A oszlopban szereplő értékek közül lehessen választani.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sor As Integer
If Target.Address = "$F$2" Then
sor = Application.Match(Target, Columns(1), 0)
MsgBox "B = " & Cells(sor, 2) & vbLf & "C =" & Cells(sor, 3) & vbLf & _
"D = " & Cells(sor, 4), vbInformation
End If
End Sub -
Delila_1
veterán
-
#45163
Delila_1
veterán
Fire/SOUL/CD
#45162
Delila_1
veterán
válasz
Fire/SOUL/CD
#45162
üzenetére
Egy nagyon komoly nyúlról van szó benne.
-
#45161
Delila_1
veterán
Fire/SOUL/CD
#45160
Delila_1
veterán
válasz
Fire/SOUL/CD
#45160
üzenetére
Nézd meg a válaszomat, ami pontosan olyan értelmes, mint a kérdés.
-
#45130
Delila_1
veterán
Norbika1493
#45129
Delila_1
veterán
válasz
Norbika1493
#45129
üzenetére
A bekeretezett tartományra kell megadnod a formátumot.
-
#45128
Delila_1
veterán
Norbika1493
#45127
Delila_1
veterán
válasz
Norbika1493
#45127
üzenetére
Az összesítésnél [óó]:pp:mm formát kell alkalmaznod.
-
Delila_1
veterán
válasz
Gondics
#45100
üzenetére
Az L1 cellában legyen az összegző képlet,
=SZUM(A1:A7)Modulba másold a makrót.
Sub Osszegzes()
Range("B1") = Range("B1") + Range("L1")
End SubTegyél a lapodra egy gombot, és ahhoz rendeld az Osszegzes makrót. A gombbal indítva a B1 cellában a teljes összeged jelenik meg.
-
#45057
Delila_1
veterán
customer114
#45056
Delila_1
veterán
válasz
customer114
#45056
üzenetére
Szívesen.
Remélem, utána néztél a két függvénynek, és legközelebb egyedül is menni fog. -
#45055
Delila_1
veterán
customer114
#45054
Delila_1
veterán
válasz
customer114
#45054
üzenetére
-
Delila_1
veterán
válasz
zsolti_20
#45008
üzenetére
A válasznál is írhattam volna. A megnyitott füzet lesz aktív, ennyit kell tudni hozzá.
Látod, nem váltok ide-oda a két füzet között, hanem másoláskor megadom, hogy melyik füzetből melyikbe másolok.
Ha mindenestől akarod másolni egyik füzetből a másikba a két tartományt, elég ez a két sor:ShInnen.Range("H4").Copy ShIde.Range("C339")
ShInnen.Range("J5:K20").Copy ShIde.Range("A342")Ha viszont PasteSpecial-lal másolsz, akkor új sorban kell megadnod a beillesztés helyét, ahogy írtam.
-
Delila_1
veterán
Bemásoltam a neveket a H oszlopba, és ott az Adatok | Adateszközök | Ismétlődések eltávolítása funkcióval megszüntettem a többszörözést.
Az I2 cella képlete:=MIN(HA($A$2:$A$30=H2;$B$2:$B$30))
A J2-é pedig:=MAX(HA($A$2:$A$30=H2;$C$2:$C$30))
Mindkettő tömbfüggvény, Shift + Ctrl + Enter-rel kell bevinned. A képletek lefelé másolhatók.Természetesen a 30-at mindkét képletben írd át annyira, amennyire szükséges.
-
Delila_1
veterán
válasz
zsolti_20
#44998
üzenetére
Azt a füzetet, ahonnan másolni akarsz, Zsolti_Innen.xlsx-nek neveztem.
A Const utvonal = "F:\Eadat\Excel fórumok\PH\" sorban írd át a megadott értéket a saját útvonaladra, majd indíthatod a makrót. Ez a makró abban a füzetben legyen, ahova másolni akarsz.Sub Zsolti()
Dim ShInnen As Worksheet, ShIde As Worksheet
Const utvonal = "F:\Eadat\Excel fórumok\PH\"
Set ShIde = ActiveWorkbook.Sheets("Transactions")
Workbooks.Open utvonal & "Zsolti_innen.xlsx"
Set ShInnen = ActiveWorkbook.Sheets(6)
ShInnen.Range("H4").Copy
ShIde.Range("C339").PasteSpecial xlPasteValues
ShInnen.Range("J5:K20").Copy
ShIde.Range("A342").PasteSpecial xlPasteValues
Workbooks("Zsolti_innen.xlsx").Close False
End Sub -
Delila_1
veterán
válasz
zsolti_20
#44996
üzenetére
Ha jól látom, megnyitsz egy fájlt (sFileName), majd a 6. lapjának a H4 celláját bemásolod az eredetileg megnyitott füzet Transactions nevű lapjának a C339 cellájába. Utána (felesleges zárás-új nyitás után) a megnyitott füzet 6. lapján másolod a
J5:K20tartományt, amit az első füzet Transactions lapon az A342 cellába illeszted be.
Ennyi? -
Delila_1
veterán
válasz
zsolti_20
#44992
üzenetére
Ha PasteSpecial-t alkalmazol, azt is meg kell adnod, hogy mit illesszen be. Értéket, formátumot, mindent, oszlopszélességet, stb.
Érték beillesztésnélSh.Range("A204").PasteSpecial xlPasteValuesLátod, a hely meghatározása CSAK Range("A204"). Mivel 1 celláról van szó, nem kell tól-ig tartományt megadnod.
-
Delila_1
veterán
-
Delila_1
veterán
válasz
zsolti_20
#44976
üzenetére
A különböző területek együttes kijelölése a VBA-ban
xlBook.Sheets(6).Range("J5:K20, H4").Selectformában lehetséges, de másolni csak két lépésben tudsz.xlBook.Sheets(6).Range("J5:K20").Copy Sh.Range("A342")
xlBook.Sheets(6).Range("H4").Copy Sh.Range("A342")A beillesztésnél nincs szükség az Sh aktiválására, amint a fenti 2 sorban láthatod.
Annak mi értelme, hogy az Sh.Range("A342") helyre bemásolod előbb a 15 cellás tartományt, majd a H4 cellával felülírod? -
#44973
Delila_1
veterán
[CS]Blade2
#44972
Delila_1
veterán
válasz
[CS]Blade2
#44972
üzenetére
A C1 cellába tettem az idők összegét, a formátum [ó]:pp:mm.
Az Excelben az idő alapegysége a nap, ezért a 330 órát át kell számolnunk napba: =330/24.
A feltétel képlete=HA(C1>330/24;C1-330/24;C1) -
Delila_1
veterán
Az Index függvénynek van egy olyan változata, ahol több területet adhatunk meg a tartomány kiválasztásához.
Felveszünk egy segédoszlopot, ahol kikeressük a megfelelő tartományt. Ez nálam a P oszlop. A P2 képlete=HA(DARABTELI($B$2:$B$10;M2)<>0;1)+HA(DARABTELI($D$2:$D$8;M2)<>0;2)+HA(DARABTELI($F$2:$F$11;M2)<>0;3)+HA(DARABTELI($H$2:$H$9;M2)<>0;4)
Mikor a terület sorszámát már ismerjük, meghatározhatjuk annak a címét.
Az O2 cella képlete=HAHIBA(INDEX(($B$2:$B$10;$D$2:$D$8;$F$2:$F$11;$H$2:$H$9);1;1;P2);"")
-
#44946
Delila_1
veterán
dogpatch06
#44945
Delila_1
veterán
válasz
dogpatch06
#44945
üzenetére
Figyelmetlenül határoztad meg a 3 tartományt a CHOOSE függvényben.
Helyesen
=VLOOKUP($C2;CHOOSE($D2;$K$2:$L$8;$K$10:$L$16;$K$18:$L$24);2;1) -
Delila_1
veterán
válasz
Csanaky
#44856
üzenetére
A formázások is sok helyet, időt foglalnak le. Sokan a teljes sort, vagy oszlopot formázzák, holott az adatok csak x sort és y oszlopot tartalmaznak.
Előfordul, hogy internetről letöltéskor képek kerülnek a fájlba, de nem látszanak, mert a szélességük, vagy magasságuk 0 értékű. Ezeket egyszerre törölheted az ugrás (Ctrl+g) menüben. Irányított, Objektumok egyszerre kijelöli az összeset, Delete billentyű törli mindet. -
#44846
Delila_1
veterán
napoleon2323
#44838
Delila_1
veterán
válasz
napoleon2323
#44838
üzenetére
A 44844--esben elírtam a helyettesítő képletet.
Helyesen:=HELYETTE(A2;KARAKTER(10);" ") -
#44844
Delila_1
veterán
napoleon2323
#44838
Delila_1
veterán
válasz
napoleon2323
#44838
üzenetére
Kissé macerás a dolog.
1. Törlöd a szövegből a következőket a csere funkcióval: -tól, -től, -ig.
2. A HELYETTE függvénnyel átalakítod a sortöréseket szóközökké:=HELYETTE(A2;KARAKTER(10);" ")10)," "), ahol az A2 cella tartalmazza az időpontokat
3. Kijelölöd a tartományt, másolod Ctrl+c-vel, majd önmagára értékként beilleszted.
4. Szövegből oszlopok, Tagolt, határoló jel szóköz, OK.Külön oszlopokba kerültek a kezdő és végző idők, amikkel már tudsz számolni.
Érdemes (gyakorlás után) makróba rögzíteni. -
#44777
Delila_1
veterán
Norbika1493
#44776
Delila_1
veterán
válasz
Norbika1493
#44776
üzenetére
Nem másik táblázatot, hanem kimutatást kell készítened az eredeti táblázat adataiból.
Új hozzászólás Aktív témák
Hirdetés
- PlayStation 5
- Vezetékes FEJhallgatók
- Milyen légkondit a lakásba?
- Milyen videókártyát?
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Macska topik
- A Micron újszerű módszerrel javítja QLC-s SSD-jének sebességét
- Autós topik
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Xbox Series X|S
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - NYÁRI AKCIÓ!
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Gyermek PC játékok
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- ÁRGARANCIA! Épített KomPhone i7 14700KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i3 10105F 16/32/64GB RAM RX 6600 8GB GAMER PC termékbeszámítással
- Xiaomi Redmi Note 13 256GB, Kártyafüggetlen, 1 Év Garanciával
- AKCIÓ! ASUS Z97-A Z97 chipset alaplap garanciával hibátlan működéssel
- Tablet felvásárlás!! Apple iPad, iPad Mini, iPad Air, iPad Pro
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest