- btz: Internet fejlesztés országosan!
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- LordAthis: Ismét egy "Idióta" A.I. Projekt, hogy meglovagolja az aktuális trendeket...
- gban: Ingyen kellene, de tegnapra
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Meggyi001: Nyilvános wc-k.....még mindig hiánypótló...
- Elektromos rásegítésű kerékpárok
Hirdetés
-
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
-
#13399
Delila_1
veterán
Mythunderboy
#13398
Delila_1
veterán
válasz
Mythunderboy
#13398
üzenetére
Továbbra is a zaro változóba kell beírni, hány napig legyen érvényes a demo.
Mivel az első megnyitás dátumát csak úgy lehet megjegyezni, ha a füzet tartalmazza, az első lap IV1 cellájába írattam be, hozzáadva a zaro értéket, ez adja a lejárat napját. Ha ez a cella üres (első megnyitás), akkor bekerül oda a lejárat dátuma.
A további futtatásoknál megvizsgálja a makró, hogy az aktuális dátum >= IV1 értéknél. Ha igen, megy a védelem. Ha nem, jön a szöveg a hátralévő napok számával. Elég lenne az aktuális dátum = IV1 feltétel, de lehet, hogy aznap nem nyitják meg a fájlt.Private Sub Workbook_Open()
Dim lap%, zaro As Date
zaro = 5
If Sheets(1).Cells(1, 256) = "" Then
Sheets(1).Cells(1, 256) = Date + zaro
Exit Sub
End If
If Date >= Sheets(1).Cells(1, 256) Or Date - Sheets(1).Cells(1, 256) = 0 Then
For lap% = 1 To 5
Sheets(lap%).Select
Cells.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="mmm"
Next
MsgBox "Megmondtam!"
Else
MsgBox (Date - Sheets(1).Cells(1, 256)) * -1 & " nap van még hátra!"
End If
Sheets(1).Select
End Sub -
#13398
Mythunderboy
csendes tag
Delila_1
#13397
Mythunderboy
csendes tag
válasz
Delila_1
#13397
üzenetére
Köszönöm a gyors választ! Lehet nem jól fogalmaztam ,de igazándiból úgy gondoltam,hogy nem a dátumot adnám meg ameddig érvényes,hanem azt az időt ahány napig tudja használni.(Ez több emberhez is elkerülne és valaki korábban valaki később nyitja meg először .Az első megnyitáshoz hozzáadná annyi napot ahány napra be van állítva , és addig lenne használható)
Így is megoldható?
(A "felold" makro nagyon jó ötlet ,és igen hasznos lett) -
#13397
Delila_1
veterán
Mythunderboy
#13396
Delila_1
veterán
válasz
Mythunderboy
#13396
üzenetére
A zaro változóban add meg a lejárat dátumát.
Private Sub Workbook_Open()
Dim lap%, zaro As Date
zaro = "2012.04.15"
If Date >= zaro Then
For lap% = 1 To 5
Sheets(lap%).Select
Cells.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="mmm"
Next
MsgBox "Megmondtam!"
Else
MsgBox zaro - Date & " nap van még hátra!"
Exit Sub
End If
End Sub...és hogy ne kelljen a próbálgatásoknál egyenként feloldanod a lapvédelmeket, és a cellák zárolását:
Sub Felold()
Dim lap%
For lap% = 1 To 5
Sheets(lap%).Select
ActiveSheet.Unprotect Password:="mmm"
Cells.Locked = False
Next
End Sub -
#13396
Mythunderboy
csendes tag
Mythunderboy
csendes tag
Sziasztok!
Delila szeretném "továbbfejleszteni" a dátumos makrót .Olyan formában ha lehetséges ,hogy a lap legelső megnyitásakor rögzítené az aznapi dátumot és innentől számítva egy szövegdobozban mindíg megjelenítené hány napig használható még a program.Amikor letelik akkor zárná le véglegesen a lapvédelemmel....Azt hogy hány napig használható azt külön meg lehetne határozni. Ilyen szerinted megoldható lenne?
-
Delila_1
veterán
-
plaschil
aktív tag
válasz
Delila_1
#13391
üzenetére
Ha jól látom miután készen van, csak a duplikációkat kell kiszednem és ugyanazt kapom mint egy pivotból.
Nagyon szépen köszönöm, eddig nem ismertem ezt a függvényt, nem régóta dolgozom excel-ben, de lehet ezt a függvényt tudom alkalmazni egy másik problémámnál.
Mégegyszer köszönöm!
Ja és ha már itt vagyok, a sok segítségért cserébe:
Hogy el ne hervadj!
-
Delila_1
veterán
válasz
plaschil
#13390
üzenetére
Nem adtad meg, hogy az Excelnek melyik verzióját alkalmazod.
Ha 2007-et, vagy 2010-et, akkor a Szumhatöbb függvényt használd, ha alacsonyabb verziód van, akkor fel kell venned egy segédoszlopot.
A D1 cella legyen: =A1&" "&B1, ezt másold le az adataid mellé.
Az összegző oszlop 1. cellájába ezt írd: =SZUMHA(D:D;A1&" "&B1;C:C), és másold le. -
plaschil
aktív tag
Sziasztok!
Segítséget szeretnék kérni egy makró megírásához. Adott egy lista. Ez tartalmaz több karakterkódot (ez most mindegy mi, pl. "ABC", "CAB", "CBA" hasonlók...), és ezekhez tartozik egy másik kód (ez most mindegy mi, pl "1234", "9876", "1243" hasonlók... de nem integer, mert pont is van benne, csak az egyszerűség kedvéért adtam meg így).
Így lesz egy olyan listám ami pl. így néz ki:
ABC 1234 5
ABC 1234 6
ABC 4321 2
ABC 4321 2
CBA 1234 1
CBA 1234 5
stb...
Na most az azonos "ABC"-k azonos kódjai mellett van egy szám (aláhúztam) ezeket szeretném összeadni.
Vagyis ABC 1234 esetén azt adja vissza nekem hogy:
ABC 1234 11
ABC 4321 esetén azt hogy:
ABC 4321 4
És így tovább, mint egy pivot, csak aztán nekem még mahinálnom kell az adatokkal és 100x egyszerűbb lenne ha egy makró adná ezt vissza nekem.Hú, érthető ez így? :S
-
Delila_1
veterán
válasz
jaszy83
#13388
üzenetére
Az előző makróból hagyd ki a Cells(sor, oszlop) = "K" sort, mivel manuálisan írod be.
Az uoszlop = Range("IV1").End(xlToLeft).Column sorban az egyenlőség jobb oldala helyett beírhatod fixen az 55 értéket (BD oszlop száma).A kézi bevitel után indíthatod a másik makrót, ami a BD oszlopba beírja a legnagyobb elhúzott súlyt.
Sub LegnSuly()
Dim sor%, usor As Integer, oszlop%
Sheets("Verseny").Select
usor = Range("B2").End(xlDown).Row
For sor% = 2 To usor
For oszlop% = 55 To 5 Step -1
If Cells(sor, oszlop%) = "K" Then
Cells(sor, "BD") = Cells(1, oszlop%)
Exit For
End If
Next
Next
End Sub -
jaszy83
csendes tag
válasz
Delila_1
#13385
üzenetére
Delila, bocsánat úgy látszik túl fáradt voltam hogy sikerüljön világosan fogalmaznom
A képlet az már jó volt úgy köszi neked, a menet a következő:
1. felvittük az adatokat, önsúlyból automatikusan kiszámolja melyik súlykategória,
majd a második makró sorbarendezi őket ahogy kell és átrakja verseny lapra.2. Innentől manuális a kezelése, a belépősúllyal kezd a versenyző, ha elhúzza akkor a sorába beírok egy K-t, ha hibézik akkor H-t. Így megy tovább, sikeres húzás esetén mehet tovább, ha következő választott súlyt kihagyja akkor megint K-t írok a sorába stb, egész addig, amíg az utolsó sikeres húzásra írok be neki K-t , többet már nem bír elhúzni. Legyen ez mondjuk 4000 kiló az egyik versenyzőnél. A sorok végére akartam írni egy olyan függvényt, ami a legnagyobb elhúzott súlyt írja ki adott versenyzőnél, tehát hogy az első sor (ahol a súlyok vannak növekvő sorrendben) azon adatát írja be a függvény mezőbe abból az oszlopból, amelyik a legtöbb elhúzott súly a versenyző sorában, tehát amelyik legjobbra helyezkedik el.
(nálam VERSENY lapon első sor E oszloptól kezdődik 500 kilótól a súly, és tart 100 kilónként BC oszlopig, 5500ig, innen kell kinyerni az adatot abból az oszlopból, ahol a versenyző sorában a verseny végén az utolsó K (sikeresen elhúzott súly) van).
na azt hiszem jól leírtam, remélem így érted mit szerenék.Na erre írtam én a
=INDEX($E$1:BC1;1;MAX(HOL.VAN("k";E11:BC11;0)))
függvényt, ami nem akar működni...
előre is köszi a segítséged! -
Delila_1
veterán
válasz
jaszy83
#13384
üzenetére
Nem mondhatom, hogy teljesen értem, ritkán húzgálok többszáz kilós súlyokat.
Most azt gondolom, hogy amelyik súly szerepel a Felvitel lap D oszlopában a név mellett, ahhoz a súlyhoz kell K-t írni a Munka3 lapon.
De honnan jön a H?
Makró:
Sub Rendez_2()
Dim sor As Long, usor As Long, oszlop As Integer, uoszlop As Integer
Dim WS As Worksheet, WSF As Worksheet
Application.ScreenUpdating = False
Set WS = Sheets("Munka3") '***************
Set WSF = Sheets("Felvitel") '***************
usor = WSF.Range("A" & Rows.Count).End(xlUp).Row
WS.Select
uoszlop = Range("IV1").End(xlToLeft).Column
'Előző cella-egyesítések megszüntetése
Columns(1).MergeCells = False
'Előző adatok törlése
Rows("2:5000").Delete '***************
'Adatok a Felvitel lapról a Munka3-ra
WSF.Select
Range("A2:C" & usor).Copy WS.Range("A2")
WS.Select
'Rendezés
Range(Cells(1, 1), Cells(usor, uoszlop)).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & usor) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & usor) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:C" & usor)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Cellaegyesítés az A oszlopban, "–" beírása
For sor = usor To 2 Step -1
If Cells(sor, 1) = Cells(sor - 1, 1) Then
Cells(sor - 1, 1) = ""
Range(Cells(sor - 1, 1), Cells(sor, 1)).MergeCells = True
End If
For oszlop = 5 To uoszlop
If Cells(1, oszlop) < WSF.Cells(sor, 4) Then
Cells(sor, oszlop) = "–"
Else
Cells(sor, oszlop) = "K"
Exit For
End If
Next
Next
'Keret
Range(Cells(1, 1), Cells(usor, uoszlop)).Select
Selection.Borders(xlEdgeLeft).LineStyle = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlInsideVertical).Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin
Application.ScreenUpdating = False
End Sub -
jaszy83
csendes tag
válasz
Delila_1
#13376
üzenetére
Delila köszi megint, működik, mostmár látom a végét.
Tehát most a helyzet:
Első sorban feltüntetve növekvő sorrendben a súlyok (pl: 500; 600; 700 stb)
alatta sorokban vannak a versenyzők, nyilvántartva a húzásaikat:
k a sikeres húzás, h a hiba, minusz a kihagyott súly
Tehát például adott versenyző sora így néz ki:- - - K - - K - - H - - K - - H
a feladat az lenne, hogy a legnagyobb elhúzott súlyt függvényként megjelenítsem, tehát lefordítva excelesre, adott sor LEGJOBBRÁBB elhelyezkedő "K" (sikeres húzás) oszlopából az első sor (elhúzott súly) adatát szerepeltesse. Próbálkoztam egy ilyesmivel de valamiért ez nem helyes adatot ad (a legkissebb elhúzott súlyt adja, tehát a legbalrábban lévő "k"-t):
=INDEX($E$1:BC1;1;MAX(HOL.VAN("k";E11:BC11;0)))
(a súlyozás E oszloptól indul, ahogy a rögzítés is, előtte adatok vannak)
mi lehet a baja? a max nem pont hogy a legnagyobbat kéne adja? (ráadásul kipróbálva a MAX helyett MIN-re is ugyanezt a legkisebbet adja) -
#13383
atillaahun
veterán
atillaahun
#13382
atillaahun
veterán
válasz
atillaahun
#13382
üzenetére
Na végül megoldottam .csv formátumban, úgy hogy minden adatot kitöröltem, kivéve az e-mail címeket, így már egy fokkal egyszerűbb volt, szóval tárgytalan.
Lenne itt viszont egy másik apróság.
Mappaszerkezetet hogyan tudok exportálni? A beérkező üzeneteken belül hoztam létre vagy 50-et, amit nagyon nem szeretnék minden gépen megcsinálni. Végülis a szűrőkhöz/szabályokhoz tartozó mappák ezek, ahova automatikusan kerülnek a bejövő üzenetek. -
#13382
atillaahun
veterán
atillaahun
veterán
Sziasztok, tartomány témában kérnék segítséget.
Outlook-ba importálnék be egy xls-ben lévő címlistát. De az Outlook azt mondja nem tudja importálni a fáj tartalmát, mert nincsenek tartományok meghatározva. Hozzam létre őket Excel-ben.
2003-mas változatot használok mindkét programból, Excel-ben megcsináltam, amit a SÚGÓ mond/mutat, de mikor a =OFSZET($A$2,0,0,DARAB2($A$2:$A$200),1) képletet bírom a felugró ablakba, és leokéznám, csak annyit mond: "A beírt képlet hibás.", és nem tudom mihez kezdjek vele.
Egyébként egyszerű a fájlom tartalma, A oszlopban nevek vannak, B oszlopban meg e-mail-ek. -
#13380
Delila_1
veterán
Mythunderboy
#13379
Delila_1
veterán
válasz
Mythunderboy
#13379
üzenetére
Az End Sub fölé:
MsgBox "Ráfaragtál, Öcsi!"
-
#13379
Mythunderboy
csendes tag
Delila_1
#13378
-
#13378
Delila_1
veterán
Mythunderboy
#13377
Delila_1
veterán
válasz
Mythunderboy
#13377
üzenetére
Szívesen.
A If Date > "2012.04.01" Then sorban állíthatod kedved szerint a dátumot.
Ha a mainál előbbit állítasz be, lefut a makró (akkor a lapok védettségét az "mmm" jelszóval fel tudod oldani, a cellák zárolását pedig az összes cella kijelölésével, és a formátumnál a "Zárolás" megszüntetésével).
Ha későbbit írsz ebbe a sorba, marad minden úgy, ahogy volt. -
#13377
Mythunderboy
csendes tag
Delila_1
#13373
Mythunderboy
csendes tag
válasz
Delila_1
#13373
üzenetére
Köszi Delila! Ismét
Az " adatokat megadni ne tudjanak" azt jelentené amit gyakorlatilag csinálni kéne a makrónak ,de ha jól értelmezem akkor pont ezt fogja csinálni tehát pont ilyenre gondoltam....letesztelni vajon hogyan tudnám? mert ha a mai dátumot adom meg hibaüzenetet ad de a holnapival már fut....vagy várjak holnapig -
jaszy83
csendes tag
válasz
Delila_1
#13365
üzenetére
Szia Delila, az X az a sikeres húzás, a H pedig hiba lenne... D oszlopban pedig majd számolja a hibákat
Viszont amit írtál az nekem hibát jelez:
Run-time error '1004':
Method 'Range' of object '_Global' failedés erre a sorra írja:
uoszlop = Range("XFD1").End(xlToLeft).Columnmi lehet a baja?
-
Alg
veterán
Na jó, kezd az agyamra menni az excel2007 az ő összes fájlformátumával
Adott egy eddig jól működő A.xls és egy eddig jól működő B.xlsm. Az utóbbiban egy függvény van megírva, és ezzel a függvénnyel hivatkozik az előbbire (egyfajta fkeres-szerűség ). ebben a felállásban eddig minden szép és jó volt.
1) Az A.xls elkezdett "Fájlhiba, az adatok elveszhetnek" hibákat dobni.
2) A.xlsm-ként mentve a B.xlsm-ben hivatkozás frissítésekor vagy "forrás nem található" vagy hibával elszáll az egész hóbelevanc.
3) A.xlsx-ként mentve mindig elszáll hibával hivatkozás frissítésnél.
4) B.xlsx-ként nem menthető, mert kinyírja a makrót.Egyéb lehetőség? Sem kedv, sem idő nem lenne az A fájlt újra nulláról megcsinálni egy üres .xlsx vagy .xlsm-ben (csak a miheztartás végett, ez egy .xls-ként 54, .xlsx-ként 15 megás fájl).
-
#13373
Delila_1
veterán
Mythunderboy
#13372
Delila_1
veterán
válasz
Mythunderboy
#13372
üzenetére
Azt hittem, mást is csinál a makró a lapvédelmen kívül.
A VB szerkesztőben bal oldalon a ThisWorkbook-ra duplán kattintasz, mire jobb oldalon kapsz egy üres lapot, oda másold be az alábbi kódot.
Ez minden lap minden celláját zárolja, és a hangzatos "mmm" jelszóval védetté teszi a lapokat. Adj helyette normálisat.
Mit értsek azon, hogy "adatokat megadni ne tudjanak"?
Private Sub Workbook_Open()
Dim lap%
If Date > "2012.04.01" Then
For lap% = 1 To 5
Sheets(lap).Select
Cells.Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
Scenarios:=True, Password:="mmm"
Next
Else
Exit Sub
End If
End Sub -
#13372
Mythunderboy
csendes tag
Delila_1
#13370
Mythunderboy
csendes tag
válasz
Delila_1
#13370
üzenetére
Köszi Delila!
Lenne két kérdésem:
Egy két makrót már megírtam a segítségeddel de még nem nagyon vágok pár dolgot.
1, A " This Workbook"-hoz hogyan rendelem? (Ez az adott munkalap lenne amin alkalmaznám?)
2,Amit végre akarok hajtani ha nem jár le a dátum, tehát hibátlanul működik, az 5 munkalapon van és egymáshoz kapcsolódnak ezt hogyan kellene megírnom a makróban?Vagyis 5 munkalapot kellene "lezárni" egyszerre ,hogy se beleírni se adatokat megadni ne tudjanak.....
Vagy valamit nem jól csinálok? A makrólevédés az menni fog. -
bajor14
csendes tag
=SZUMHATÖBB($H$1:$H$700,$C$1:$C$700,AA3,$A$1:$A$700,13)eddig ezzel próbálkoztam
csak a második kritériumtartomány a harmadik, negyedik... kritériumtartománynál is ua lenne, de úgy persze már nem működik a képlet
esetleg vmilyen makro is jó lenne, de azokhoz abszolút nem konyítok -
#13370
Delila_1
veterán
Mythunderboy
#13366
Delila_1
veterán
válasz
Mythunderboy
#13366
üzenetére
A VB szerkesztőben a ThisWorkbook-hoz rendeld.
Private Sub Workbook_Open()
If Date > "2012.04.02" Then
Exit Sub
Else
'***** Ide jön, amit vérge akarsz hajtatni, ha nem járt le a dátum
End If
End SubÉrdemes a makrót levédeni a szerkesztőben a Tools | VBAProject- Properties | Protection fülön, ahol jelszóval tudod letiltani a megnyitását.
-
#13368
lappy
őstag
Mythunderboy
#13366
lappy
őstag
válasz
Mythunderboy
#13366
üzenetére
Szia!
Makróval biztos megoldható, de ebben csak a nagy tudásúak tudnak majd segíteni! -
bajor14
csendes tag
Sziasztok!
van egy elég nagy adathalmazom melyben betűkódok alapján dátumhoz és órához (negyed órás bontásban) vannak az infók hozzárendelve. úgy néz ki, hogy betűkód, dátum, idő és utána még kb 15 cella különbözö értékek egy sorban. azt szeretném vhogy összehozni, hogy szedje ki minden egyes negyed órában, hogy adott betűkódhoz pl a H oszlopban milyen érték tartozik. annyiva viszont bonyolódik, hogy a betűkódok csoportokat alkotnak, így pl. 7:30-hoz nem csak a 13-as tartozik, hanem másik 5 is.
ha esetleg valaki tudna segíteni, azt megköszönném!
(elnézést, ha kuszán fogalmaztam ) -
#13366
Mythunderboy
csendes tag
Mythunderboy
csendes tag
Sziasztok!
Lenne egy talán idétlennek tűnő kérdésem Az aktuális dátumot a "MA()" függvénnyel elhelyeztem egy munkalapon.Van e lehetőség arra ha a dátum elér egy általam megadott adott napot akkor indítson egy lapvédelmet így használhatatlanná tegye? Mint egy demo verzió aminek lejár a licensze? -
Delila_1
veterán
válasz
jaszy83
#13364
üzenetére
Azt majd megmondod, mi az X és H az egyes sorokban.
Sub Rendez_1()
Dim sor As Long, usor As Long, oszlop As Integer, uoszlop As Integer
Dim WS As Worksheet, WSF As Worksheet
Application.ScreenUpdating = False
Set WS = Sheets("Munka3") '***************
Set WSF = Sheets("Felvitel") '***************
usor = WSF.Range("A" & Rows.Count).End(xlUp).Row
WS.Select
uoszlop = Range("XFD1").End(xlToLeft).Column
'Előző cella-egyesítések megszüntetése
Columns(1).MergeCells = False
'Előző adatok törlése
Rows("2:5000").Delete '***************
'Adatok a Felvitel lapról a Munka3-ra
WSF.Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Copy WS.Range("A2")
WS.Select
'Rendezés
Range(Cells(1, 1), Cells(usor, uoszlop)).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & usor) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & usor) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:C" & usor)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Cellaegyesítés az A oszlopban, "–" beírása
For sor = usor To 2 Step -1
If Cells(sor, 1) = Cells(sor - 1, 1) Then
Cells(sor - 1, 1) = ""
Range(Cells(sor - 1, 1), Cells(sor, 1)).MergeCells = True
End If
For oszlop = 5 To uoszlop
If Cells(1, oszlop) < Cells(sor, 4) Then
Cells(sor, oszlop) = "–"
Else
Exit For
End If
Next
Next
'Keret
Range(Cells(1, 1), Cells(usor, uoszlop)).Select
Selection.Borders(xlEdgeLeft).LineStyle = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlInsideVertical).Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin
Application.ScreenUpdating = False
End Sub -
jaszy83
csendes tag
válasz
jaszy83
#13356
üzenetére
problem solved,
büszke vagyok magamra, sikerült fkeres makróval abszolválni hogy negyedik adatnak vigye fel a súlykategóriát:Sheets("Rögzítés").Cells(hova, 4) = Application.VLookup(suly, Range("Felvitel!$G$2:$H$12"), 2)
Viszont újabb segítségre lenne szükségem:
Az adatok lapon felvitt harmadik, kulcsadat a kezdősúly.
Az itt megadott adatot kellene úgy felhasználni, hogy pl. ha kezdősúlynak 700-at írok be, akkor 600-ig a versenylapon adott versenyző sorába egy minuszt rakjon 600ig (valami olyasmire gondolok hogy a 700 lenne a megadott parameter, amire szükségünk van, az az hogy hány oszlopba írjon adott sorban (tehát a versenyző sorában) E oszloptól kezdve. Mivel E oszloptól indulnak a súlyok 500 kilótól, ezért a képlet a "(parameter-500)/100" lehetne, ez így a példa 700 kilónál 2-t ad ki, és innen valami do-until jellegű dologgal (vagy egyéb lehetséges módon) E oszloptól adott sorban írna minuszt.
Na ezt így remélem sikerült érthetően leírni kicsit fáradt vagyok.. ;
előre is köszi a segítséget! -
Alg
veterán
Sziasztok!
Tud valaki megoldást az office 2007 vs "régi" XLS "Fájlhiba, az adatok elveszhetnek!" problémára? Most épp egy 50 megás fájlban sikerült neki random kitörölni egyetlen mezőt és ezzel gallyra vágni az egészet
és még csak nem is képlet volt benne, egyszerű érték. -
#13362
Oly
őstag
Fire/SOUL/CD
#13361
Oly
őstag
válasz
Fire/SOUL/CD
#13361
üzenetére
Valóban túlcsordultam 1 sorral.
NEm mindig 30 tétel van a listában, ezért egy darab.teli által adott szám a ciklus vég, de csak 30-ig vannak a vezérlők.
Megoldom... Köszi.
-
#13361
Fire/SOUL/CD
félisten
Oly
#13359
Ááá, bocsi, hülyeséget írtam...
Szóval az lehet a gond, hogy az m ciklusváltozód olyan értéket vesz fel (man_m), amilyen nevű objektum nincs a userform-on. Valószínűleg a for ciklusod 1-el (vagy többel) tovább szalad, mint kellene. (Ahogy írtad 1-től 30-ig kellene futni a ciklusnak) -
#13360
Fire/SOUL/CD
félisten
Oly
#13359
-
#13359
Oly
őstag
Fire/SOUL/CD
#13358
Oly
őstag
válasz
Fire/SOUL/CD
#13358
üzenetére
Végül nem mókoltam, mert csak 8 helyen szerepel ugyanaz a 4 sor.
Nem sok.Most olyan bajom van, hogy "Could not find the specified object" üzit dob nekem erre a sorra:
If Form1.Controls("man_" & m).Value = False Thena Form1-en van 30 db ToggleButton, amiknek a neve man_1, man_2, stb...
Az m egy for ciklus változója.Egyébként helyesen lefut a makró, de a végén ezt az üzit bevágja.
Mi lehet baja? -
#13358
Fire/SOUL/CD
félisten
Oly
#13355
Én így oldanám meg ezt a feladatot
Public s As Integer, m As Integer
Sub MySubRoutine(MyIndex_s As Integer, MyIndex_m As Integer, Optional MyValue As Variant, Optional MyString As Variant)
Cells(MyIndex_s + 1, 11).Value = DateValue(Now)
Cells(MyIndex_s + 1, 12).Value = Cells(MyIndex_m + 1, 1).Value
Cells(MyIndex_s + 1, 13).Value = "A"
If Not IsMissing(MyValue) Then Cells(MyIndex_s + 1, 14).Value = MyValue
If Not IsMissing(MyString) Then Cells(MyIndex_s + 1, 15).Value = MyString
End Sub
Sub MyMainCode()
s = s + 1
MySubRoutine s, m, 48
s = s + 1
MySubRoutine s, m, 49
s = s + 1
MySubRoutine s, m, 31, "ID"
s = s + 1
MySubRoutine s, m
End Sub -
#13357
Fire/SOUL/CD
félisten
Oly
#13355
-
jaszy83
csendes tag
válasz
Delila_1
#13350
üzenetére
Delila Köszi, az elsőt használom működik,
a gondom viszont elképesztően banális problémával szenvedek már egy napja.
a felvitel lapomon ahhoz hogy automatikusan kiszámolja a sulykategóriát ez a függvényt használom:
=HA(Rögzítés!A18=(0); "";FKERES(Rögzítés!B18;$G$2:$H$12;2))az általad írt függvényt már egy tiszta lapról használnám ahol csak és kizárólag a három szükséges adat lesz rajta, a súlykategória, a név és a súly. Ehhez a felvitel lapról másolom az értékeket a Munka2 lapra
Sheets("Felvitel").Select
Columns("B:B").Select
Selection.Copy
Sheets("Munka2").Select
Columns("C:C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseÍgy viszont a fenti HA függvény eredményeként másolja a semmit is, és az összesítésnél lesz néhány ami jó adat, ahol tartalmaz versenyző adatokat, viszont lesz nagyon sok olyan, ami üres adat, de ezt is keretezi és összevonja a semmit.
Valami olyasmi kellene ami csak akkor másol ha nem 0 vagy nem " " vagy nem tudom. Elakadtam.. -
Oly
őstag
Sziasztok
Van egy hosszabb makróm, amiből kivettem most egy pár sort:
s = s + 1
Cells(s + 1, 11).Value = DateValue(Now)
Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
Cells(s + 1, 13).Value = "A"
Cells(s + 1, 14).Value = 48
s = s + 1
Cells(s + 1, 11).Value = DateValue(Now)
Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
Cells(s + 1, 13).Value = "A"
Cells(s + 1, 14).Value = 49
s = s + 1
Cells(s + 1, 11).Value = DateValue(Now)
Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
Cells(s + 1, 13).Value = "A"
Cells(s + 1, 14).Value = 31
Cells(s + 1, 15).Value = "ID"
s = s + 1
Cells(s + 1, 11).Value = DateValue(Now)
Cells(s + 1, 12).Value = Cells(m + 1, 1).Value
Cells(s + 1, 13).Value = "A"A félkövérrel kiemelt rész ismétlődik elég sokszor.
Van arra lehetőség, hogy ez csak egyszer szerepeljen a kódban, amit mindig meghívok a megfelelő helyen? -
#13354
Oly
őstag
Fire/SOUL/CD
#13349
Oly
őstag
válasz
Fire/SOUL/CD
#13349
üzenetére
Szia
Ez jó lett.
Köszi -
Delila_1
veterán
-
Penty
aktív tag
Mivel errefelé rendkívül segítőkész emberkék kószálnak, ezért ismét bátorkodnék zavarni...
Adva van az alábbi képen látható két oszlop: Az A oszlopban pénzösszegek vannak (bevételek és kiadások), a B oszlopban pedig dátumok.
Ahogy az látható a képen, a negatív és a pozitív számokat (kiadásokat és bevételeket) sikerült szétválasztanom és megszámolnom külön-külön az E1 és E2 cellákban. Sikerült külön-külön szétválasztanom és megszámolnom a januári, februári és márciusi pénzeket is az E3-E5-ig terjedő cellákban, de van velük egy kis bibi: Szeretnem ezeket a hónapokra lebontott számokat is külön-külön negatív és pozitív számokra tovább bontani, hogy meg tudjam külön számolni a januári, februári, márciusi kiadásokat és bevételeket is.
A Libre Office-ben nem találtam SZUMHATÖBB függvényt, így valami más megoldás kellene. Nem baj, ha az Excel képlet kicsit eltér a Calc-os képlettől: a különbségeket ki tudom majd bogarászni.
Segítségeteket előre is köszönöm! -
Delila_1
veterán
válasz
jaszy83
#13345
üzenetére
Gyorsabb futást eredményez az újabb makró, és csak a két lap nevét kell módosítani, meg esetleg az 5000 sort.
Sub Rendez()
Dim sor As Long, usor As Long, oszlop As Integer
Dim WS As Worksheet, WSF As Worksheet
Application.ScreenUpdating = False
Set WS = Sheets("Munka3") '***************
Set WSF = Sheets("Felvitel") '***************
usor = WSF.Range("A" & Rows.Count).End(xlUp).Row
WS.Select
oszlop = Range("XFD1").End(xlToLeft).Column
'Előző cella-egyesítések megszüntetése
Columns(1).MergeCells = False
'Előző adatok törlése
Rows("2:5000").Delete '***************
'Adatok a Felvitel lapról a Munka3-ra
WSF.Select
Range("A2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Copy WS.Range("A2")
WS.Select
'Rendezés
Range(Cells(1, 1), Cells(usor, oszlop)).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & usor) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & usor) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:C" & usor)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Cellaegyesítés az A oszlopban
For sor = usor To 2 Step -1
If Cells(sor, 1) = Cells(sor - 1, 1) Then
Cells(sor - 1, 1) = ""
Range(Cells(sor - 1, 1), Cells(sor, 1)).MergeCells = True
End If
Next
'Keret
Range(Cells(1, 1), Cells(usor, oszlop)).Select
Selection.Borders(xlEdgeLeft).LineStyle = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlInsideVertical).Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin
Application.ScreenUpdating = False
End Sub -
Delila_1
veterán
válasz
jaszy83
#13345
üzenetére
Akkor egyszerűsítsünk!
A makró a Felvitel lapról veszi az adatokat, és a Munka3 lapra másolja át. Az új tartományt rendezi, majd egyesíti az A oszlop egyesíthető celláit, végül megadja a keretet.
Mindezek előtt a Munka3 lapot kitakarítja a címsor kivételével.Nem tudom, mennyi adatod lesz, a takarítást az A2:K5000 tartományban végeztetem el. Azokat a sorokat, ahol a lapok nevén, vagy a tartományon módosítani kell, csillagokkal kommenteztem.
Sub Rendez()
Dim sor As Long, usor As Long, WS As Worksheet, WSF As Worksheet
Set WS = Sheets("Munka3") '***************
Set WSF = Sheets("Felvitel") '***************
usor = WSF.Range("A" & Rows.Count).End(xlUp).Row
WS.Select
'Előző cella-egyesítések megszüntetése
Columns(1).MergeCells = False
'Előző adatok törlése
Rows("2:5000").Delete '***************
'Adatok a Felvitel lapról a Munka3-ra
For sor = 2 To usor
Cells(sor, 1) = WSF.Cells(sor, 1)
Cells(sor, 2) = WSF.Cells(sor, 2)
Cells(sor, 3) = WSF.Cells(sor, 3)
Next
'Rendezés
Columns("A:K").Select '***************
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A" & usor) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("C2:C" & usor) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("A1:C" & usor)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Cellaegyesítés az A oszlopban
For sor = usor To 2 Step -1
If Cells(sor, 1) = Cells(sor - 1, 1) Then
Cells(sor - 1, 1) = ""
Range(Cells(sor - 1, 1), Cells(sor, 1)).MergeCells = True
End If
Next
'Keret
Range("A1:K" & usor).Select '***************
Selection.Borders(xlEdgeLeft).LineStyle = xlThin
Selection.Borders(xlEdgeTop).Weight = xlThin
Selection.Borders(xlEdgeBottom).Weight = xlThin
Selection.Borders(xlEdgeRight).Weight = xlThin
Selection.Borders(xlInsideVertical).Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin
End Sub -
#13349
Fire/SOUL/CD
félisten
Oly
#13347
-
#13348
Fire/SOUL/CD
félisten
Oly
#13347
-
#13346
scott_free
senior tag
scott_free
#13334
scott_free
senior tag
válasz
scott_free
#13334
üzenetére
megoldottam egy egyszerű trükkel: az adott hónap elsejét kivontam a következő hónap elsejéből, így a hónapban lévő napok számát kaptam vissza
=DÁTUM(A1;B1+1;1)-DÁTUM(A1;B1;1)
ahol A1=év, B1=hónap -
jaszy83
csendes tag
válasz
Delila_1
#13297
üzenetére
Delila, köszönöm,
ez már majdnem tökéletes, annyi a gondom vele, hogy a hol.van függvény
az adott súlykategórián belül így azt veszi kisebbnek, amelyiket hamarabb rögzítettem fel:
(pl a négyes sorszámú versenyző hiába nehezebb, 22 kiló, mivel hamarabb rögzítettem mint az adott súlykategórián belüli ötös sorszámú versenyzőt, ami 18 kilós, mégis előrébb van)
Ezen esetleg tudnátok segíteni?
Na meg olyan létezhet, hogy miután besoroltuk, sorba a versenyzőket, automatikusan átformázná az első oszlopot (akár makró segítségével) hogy az azonos súlykategóriákat kijelöli, és összevonja egy mezőbe? remélem értitek mit akarok, hogy a súlykat oszlop a versenylapon így nézzen ki valahogy:
Köszi előre is.
Bocsánat a nagy képért, nem tudom hogy lehet kicsinyiteni..
-
hamham
tag
Segítséget szeretnék kérni az alábbi problémában, konkrét adatokkal: adatok
Olyan kör-kör vagy kör-sáv diagramot szeretnék, amiben a fő körben Magyarország és Nyugat-Dunántúl lakosságának megoszlása szerepel, a Nyugat-Dunántúlt magyarázó másik körben vagy sávban pedig a Nyugat-Dunántúlt alkotó megyék lakosságának megoszlása.
Próbálkoztam már többször is, de nem osztotta jól fel az adatokat.
Előre is köszi -
poffsoft
veterán
Function Keres_2(ByRef mit As Range, ByRef hol As Range)
Dim C As Range
Dim cnt As Long
cnt = 0
For Each C In hol
If C.Value = mit.Range("A1").Value Then If C.Font.ColorIndex = mit.Range("A1").Font.ColorIndex Then cnt = cnt + 1
Next C
Keres_2 = cnt
End Functionszóval,
ha a B1 cellába bemásolod a keresett kék banánodat, és az A1:A20 tartományban keresed, akkor a képleted:
=Keres_2(B1;A1:A20) -
-
Penty
aktív tag
Sziasztok!
Ismét egy kis segítségre lenne szükségem, mert beakadtam.
Adva van mondjuk az "A" oszlop, benne függőlegesen különböző szavakkal, amik sokszor ismétlődnek is. Néhány szó azonban be van színezve mondjuk kékkel. (Itt most vastaggal emeltem ki a "kék" szavakat) Pl.:
alma
banán
dinnye
banán
alma
körte
szilva
körte
banán
dinnye
alma
banán
Meg tudom oldani, hogy a program csak a kékkel írt banán szavakat számolja össze mondjuk a B1 cellában és a feketével írtakat meg kihagyja? Valami olyasmire gondoltam, hogy:
DARABTELI(A1:A20;"COLOR=KÉK;banán") vagy valami ilyesmi...
Létezik ilyen megoldás?
Segítségeteket előre is köszönöm! -
mfer
csendes tag
Sziasztok, egy kis segítséget szeretnék kérni.
Van 3 Excel táblám, mindegyikben van olyan oszlop, ami azonos adatokat is tartalmaz, de nem mindegyikben azonos a számok megjelenése, s darabszáma. Pl 322 egyikben 2 sor, a másikban 5 sor.
No továb bonyolítva: vannak olyan oszlopok, amiket szeretnék egymás mellé illeszteni, de úgy, hogy a sorok száma, a legnagyob db. számmal rendelkező táblázathoz igazodjon. Ráadásul még olyan oszlopot is mellé kellene raknom, ami csak az egyik táblázatban van.
Azt tudom, hogy adatbázis kezelővel meg lehetne csinálni, de nekem az sajna még nem megy ha valakinek ötlete van, megköszönném ! -
#13337
bugizozi
őstag
Mythunderboy
#13336
bugizozi
őstag
válasz
Mythunderboy
#13336
üzenetére
Munka1 munkalapon
Private Sub CommandButton1_Click()
Sheets("Munka2").Select
End SubMunka2 munkalapon
Private Sub CommandButton1_Click()
Sheets("Munka1").Select
End Sub -
#13336
Mythunderboy
csendes tag
Mythunderboy
csendes tag
Sziasztok!
Olyan kérdésem lenne,hogy két Active x vezérlővel (mondjuk "Command Button"-nal) szeretnék váltani a munkalapok között "tovább" és "vissza" ....milyen megoldást javasolnátok?
Előre is köszönöm
Tboy -
#13335
Fire/SOUL/CD
félisten
Mazaki
#13333
-
#13334
scott_free
senior tag
scott_free
senior tag
sziasztok,
hogyan tudok a legegyszerűbben egy olyan legördülő listás dátum-megadót csinálni, ahol külön cellában tudom megadni az évet, a hónapot és a napot (mindegyiket egy legördülő listából kiválasztva), és a napnál csak olyan értékek jelennek meg, ahány nap az adott hónapban van?
(tehát, hogy ne lehessen pl. február 30-át megadni)köszi!
-
#13332
poffsoft
veterán
fracture333
#13331
poffsoft
veterán
válasz
fracture333
#13331
üzenetére
fkeres, hol.van, max
persze sokat segítene a tábla is... -
#13331
fracture333
aktív tag
fracture333
aktív tag
A segédtáblázat harmadik sorába határozza meg – függvény segítségével –, hogy mely
megyében termelték a legnagyobb mennyiséget az egyes gyümölcsfajtákból! A megyék
neve kerüljön a mennyiségek alá!erre melyik függvényt kell használni?
ha valaki tudna segíteni azt megköszönném -
-
Penty
aktív tag
válasz
Delila_1
#13326
üzenetére
Bocsi a kavarás miatt!
A zárójeles számok voltaképpen hónapokat jelentenek az eredeti táblázatomban, mivel szerettem volna összeadni hónapról-hónapra bizonyos dolgokat, és feltételeztem, hogy a függvény feltételeinek keresésénél ennek komoly szerepe lesz, de végül néhány helyettesítő karakter megoldotta a dolgot. -
#13325
Penty
aktív tag
Fire/SOUL/CD
#13323
Penty
aktív tag
válasz
Fire/SOUL/CD
#13323
üzenetére
Köszönöm szépen a választ, Fire! A linken szereplő segítséggel, magyarázattal sikerült végül megoldanom a problémát.
@Delila_1
A zárójeles számokat talán nem kellett volna odaírnom, mert kicsit megkavarhattak, de mindenesetre Te már egy újabb lépcsőre emelted a képletet... Majd kipróbálom ezt is, mert ha már lúd, akkor legyen kövér...
Köszönöm szépen a segítséget!
-
#13324
Delila_1
veterán
Fire/SOUL/CD
#13323
Delila_1
veterán
válasz
Fire/SOUL/CD
#13323
üzenetére
Összeadta, de gyalog. Ahelyett kellene valami képlet.
Próbáltam szétválogatás nélkül így: =SZUMHA(B:B;B3&"*";A:A), megy így =SZUMHA(B:B;"*"&B3&"*";A:A), de hol jó, hol rossz összeget ad. A két képlet azonos soroknál téved. Vagy én...?
Szerk. Persze, hogy én tévedek, hiszen a B3 pl. szeder (5), és abból nincs több.
-
#13323
Fire/SOUL/CD
félisten
Delila_1
#13322
válasz
Delila_1
#13322
üzenetére
Nem kell szétválogatni, legalábbis ahogy Penty leírta, az alapján nem kell.
Szeretném, ha pl. a C1 cellában összeadná az A oszlopban lévő azon számokat, amelyek mellett a B oszlopban a banán szó szerepel. Tehát jelen esetben: 123+134+120+110=487
Ha megnézed a korábbi listáját, akkor az összes banán-t összeadta...
-
#13322
Delila_1
veterán
Fire/SOUL/CD
#13321
Delila_1
veterán
válasz
Fire/SOUL/CD
#13321
üzenetére
Igen, de a banán egyszer banán (3), másszor banán (8) néven szerepel. Ezért előbb szét kell választani a cella két részét.
Penty!
Másold át a B oszlopot egy kicsit jobbra, ahol van üres helyed. Én az F oszlopba másoltam. Kijelölöd, Szövegből oszlopok, Tagolt, határolójel szóköz, Befejezés. Ez kétfelé választja az F oszlop tartalmát. Jöhet a képlet a C1-be:
=SZUMHA($F$1:$F$12;F1;$A$1:$A$12)
Azt nem tudom, a Te programodban hol találod meg a Szövegből oszlopok funkciót.
-
#13321
Fire/SOUL/CD
félisten
Penty
#13316
-
Penty
aktív tag
Sziasztok!
A segítségeteket kérném, mert nem vagyok egy nagy táblázat guru - finoman fogalmazva.
Nekem nem Excelem van, hanem a Libre Office féle Calc, de remélem azért tudtok majd segíteni, mert nem találtam olyan topikot, ami a calc-al foglalkozna. Feltételezem, hogy nagy különbség nem lehet a két program között egy ilyen egyszerű feladat esetében.
Adva van egy egyszerű exce..., akarom mondani calc táblázat, az alábbi A és B oszlopba beírt adatokkal:
A ..... B
123 banán (3)
-345 alma (4)
134 banán (8)
-567 körte (4)
120 banán (1)
167 szőlő (9)
-456 citrom (5)
132 dinnye (3)
110 banán (2)Szeretném, ha pl. a C1 cellában összeadná az A oszlopban lévő azon számokat, amelyek mellett a B oszlopban a banán szó szerepel. Tehát jelen esetben: 123+134+120+110=487
Segítségeteket előre is köszönöm!
-
SiPY88
csendes tag
válasz
SiPY88
#13278
üzenetére
Sajnos nem sikerült megoldanom a problémát és nem is írt senki, hogy segítene, ezért még1x neki futok. Aki teheti, kérem segítsen!
Volna egy excel táblám, és benne egy kiíratás. A lényeg, hogy ha lehúzom a képletet, akkor több helyen is #HIÁNYZIK-ot ír ki, de ha megváltoztatom a rendezés sorrendjét (pl dátumnál), akkor még több sorban írja ki az adatokat, de még így sem az egészben. Ez mitől lehet?
Vagy nekem az is jó, ha valaki megmondja mi a 13. feladat megoldása.
Köszönöm a segítséget!
-
-
Swen_N
csendes tag
válasz
Delila_1
#13304
üzenetére
akkor meg leszek nélküle
köszi azértViszont van egy másik probléma ami szerintem fejlesztői hülyeség, de elég zavaró.
Most tértem át a 2010-es Office-re (céges, úgyhogy muszáj-ból), és ebben van egy zavaró hiba. A sorbeszúrás eddig a jobb klikk után "s" betűvel lehetséges volt, most viszont egy másik parancs - az elrejtés - is az "s" betűhöz van rendelve. (érdekes módon ugyanez a jobb klikk menü az oszlopok estében nem így van, ott az elrejtés az "e" betű).
Szóval az eddig gyors, jobb klikk + "s" betű helyett, most kénytelen vagyok egérrel rákattintani a beszúrásra, mert az "s" nyomogatására csak ugrál a két parancs között.
Nyilván hülyeség két parancsot egy betűhöz társítani, nincs erre valami megoldás?köszönöm,
Swen
-
vH
csendes tag
Hello!
Lenne egy olyan gondom, h megakarok nyitni egy excel filet, es mind azt irja ki h "Program futtatasi hiba" ha total commanderben ben nyitom meg, es ha sajatgepben akkor meg: Problema merult fel, amikor a rendszer elkuldte a parancsot a programnak. Ja es egy tiszta ures excel lap jon elo.
Word, PP mukodik rendesen. Officet ujratelepitttem, semmi valtozas.2007 Office, win 7 64 bit
Nagyon halas lennek ha vki tudna segiteni.
Elore is koszonom.
Udv! -
krisztian7
tag
válasz
Fire/SOUL/CD
#13302
üzenetére
Köszönöm a segítséget!!
-
#13302
Fire/SOUL/CD
félisten
krisztian7
#13300
válasz
krisztian7
#13300
üzenetére
[link]
A1-be kézzel van beírva, nem képletet tartalmaz
B1 képlete (A1-nek kötött/fix formátumnak kell lennie)
=SZÖVEG(BAL(A1;5)+7;"hh.nn") & " - " & SZÖVEG(JOBB(A1;5)+7;"hh.nn")
És ezt a képletet másolod C1, D1 stb, ameddig kell.
Nagyon KÖSZÖNÖM!! 
(A "felold" makro nagyon jó ötlet ,és igen hasznos lett)
és még csak nem is képlet volt benne, egyszerű érték.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- btz: Internet fejlesztés országosan!
- Yettel topik
- AMD Navi Radeon™ RX 9xxx sorozat
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- One otthoni szolgáltatások (TV, internet, telefon)
- Huawei Watch GT 5 Pro - egészség + stílus
- Ilyen a Huawei Watch 5 és új érzékelője
- Háztartási gépek
- Hajmeresztő ajánlat: 34,5 milliárd dollárért vinnék a Google Chrome böngészőjét
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Magyarország piacvezető szoftver webáruháza
- Samsung Galaxy A34 5G 128GB Kártyafüggetlen 1 év Garanciával
- Gamer Notebook! Lenovo Ideapad Gaming3! I7 10750H / GTX 1650Ti / 8GB DDR4 / 256GB SSD
- Új és régi konzolok Okosítása/Softmodoloása, és Szoftveres szintű javítása - RÉSZLETEK A LEÍRÁSBAN
- ÁRCSÖKKENTÉS Dell Latitude E6320 notebook eladó
Állásajánlatok
Cég: FOTC
Város: Budapest