Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- Brogyi: CTEK akkumulátor töltő és másolatai
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- bb0t: Ikea PAX gardrób és a pokol logisztikája
- GoodSpeed: A RAM-válság és annak lehetséges hatásai
-
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
-
alfa20
senior tag
sziasztok,
egy kis formázás, de én már belefáradtam és most nincs semmi új ötletem:
Ha "A1" cella értéke nagyobb, mint "B1" vagy nagyobb, mint "C1", akkor a cella legyen piros.
a trükk, nem minden "B" és "C" cella van kitöltve, vannak üres cellák.
Van ahol "B" nagyobb mint "A", de "C" kisebb mint "A" és fordítva.
vagy "B" kisebb vagy nagyobb mint "A", de "C" üres és fordítva "B" üres, esetleg mind kettő üres.erre ötlet valakinek?
Mutt: ezt köszönöm! #20946
-
alfa20
senior tag
sziasztok,
Olyan makrót tudok készíteni ami megkérdezi melyik oszlop(ok)ból szeretném törölni a nullákat és szépen kitörli?
A törlésre a makrót létrehoztam, de azt nem tudom, hogy esetleg lehetne egy felugró ablak ami megkérdi az oszlop nevét és azt teszi a megfelelő helyre
pl.:felugró üzen:
Adja meg az oszlopot: "textszöveg"makróban meg ezekbe a sokrokba be teszi a megadott oszlopot:
$oszlp = "textszöveg"
Columns("$oszlp:$oszlp").Select
ActiveSheet.Range("$oszlp" & "I1":$oszlp" & usor).AutoFilter Field:=1, Criteria1:="0"
Range("$oszlp" & "I3").Selectnem próbáltam de biztos nem ilyen egyszerű, meg ilyen felugró ablakokat nem sokat késztetem még.
esetleg a végén egy yes/no ablak, ami megkérdezni van e még oszlop, az igennel vissza menne a makró elejére a nem-re meg Sub End. de ez azt hiszem már nekem is menne
csere makróm:
Sub nulla_csere()
Dim usor As Long
usor = Range("A" & Rows.Count).End(xlUp).Row
Columns("I:I").Select
Selection.AutoFilter
ActiveSheet.Range("I1:I" & usor).AutoFilter Field:=1, Criteria1:="0"
Range("I3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Selection.AutoFilter
Range("A1").Select
End Sub -
alfa20
senior tag
van egy táblám amiben rá azt szeretném, hogy rászűrők pl az almát tartalmazó szavakra
és törölni szeretném ezeket a sorokat.eddig jutottam, de így mindent kijelöl a tábla legaljáig, ezért a törlés sokáig tart:
Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$V$" & usor).AutoFilter Field:=2, Criteria1:=Array( _
"*alma*"), Operator:=xlFilterValues
Rows("2:2" & usor).Select
Selection.Delete Shift:=xlToLeftStophogy lehet csak a kitöltött cellákat kijelölni?
-
#20837
alfa20
senior tag
z123456789
#20834
alfa20
senior tag
válasz
z123456789
#20834
üzenetére
Feltételes formázás?
-
-
alfa20
senior tag
Sziasztok,
megint sikerült elakadnom, de most képlettel:
Adott az A2-es cella aminek az értéke ha az alábbi szám valamelyike (130;131;132;133;160;161;170;171;190;191;375;376), akkor adja eredményül a B2-es cellá, ha nem egyenlő, akkor a C2-est.egy szép hosszú függvénnyel sikerül, de nincs valami rövidebb?
=HA(VAGY(A2=130;A2=131;A2=132;A2=133;...stb...);B2;C2)#20780: Delila_1! ismételten, köszi, kifogom majd próbálni, csak most mással szenvedek kicsit
-
alfa20
senior tag
válasz
Delila_1
#20772
üzenetére
Köszönöm, ismételten
ha több táblám van amivel dolgozom, akkor így tegyem be a makró elejére?
pl:
Dim tbl1_fulnev As WorkSheet
Set tbl1_fulnev = Sheets("blabla1")
Dim tbl2_fulnev As WorkSheet
Set tbl2_fulnev = Sheets("blabla2")
Dim tbl3_fulnev As WorkSheet
Set tbl3_fulnev = Sheets("blabla3")A 'Dim' az mit csinál?
általában úgy készítek egy makrót, hogy a már készekből át teszem amit tudok használni, a többit meg makró rögzítésbe készítem, majd megpróbálom kielemezni mi mit csinál és az alapján alakítom. -
alfa20
senior tag
Sziasztok,
Makróban alapesetben így szoktam megnyitni és előkészíteni a tábláimat:
Workbooks.Open Filename:=kpt_allnev, UpdateLinks:=False
kpt_nev = ActiveWorkbook.Name
kpt_fulnev = ActiveSheet.Name
mivel általában egy fül szokott csak lenni, most viszont van egy olyan táblám amiben rengeteg a fül, hogy változtassam meg, hogy az "összesített" nevű legyen a "kpt_fulnev"? -
alfa20
senior tag
Szia,
Köszönöm a választ,
Akkor próbálkozom, mert egy makróhoz kell kereséshez, aminek a végén úgy is rögzít minden adatot.
Több táblából kell egyet készíteni és van amelyikben állandó adatok vannak, csak ritkán bővül.
Eddig valahogy így oldottam meg:
=FKERES(C2;[Fájlneve.xlsx]Munkalap!$A1$B42;2;0)
csak ha esetleg bővíteni a sort, akkor makróban nem kellene a képletet átírni adattábla esetén, ezért gondoltam erre a megoldásra.köszi!
-
alfa20
senior tag
válasz
Delila_1
#20584
üzenetére
ez azért nem jó, mert akkor minden nap újra kellene írni a makrót, mert a 0219 hónapot és napot jelölni
Akkor lehet másképpen kell megoldani...
#20583:
bakter, már tudom mi volt a hiba.
A makró neve ugye MB_R(), én meg szépen ott is hagytam a két záró jelet.
ezer köszönet -
alfa20
senior tag
volna egy ilyen képletem:
Range("D2").FormulaR1C1 = _
"=SUMPRODUCT(--('[" & k49_nev & "]" & k49_fulnev & "'!R1C1:R999C1=RC[-3]),--('[" & k49_nev & "]" & k49_fulnev & "'!R1C3:R999C3=RC[-2]),'[" & k49_nev & "]" & k49_fulnev & "'!R1C6:R999C6)"viszont ezt megelőzően rendezés és formázás miatt a fülnév megváltozott, így most az eredeti (0219.49) fülből szeretne keresni de az nem jó, mert az adatok időközben átkerültek a (0219.49_RND) fülbe.
Lehet változtatni ezen a részen, hogy a fülnévhez az "_RND" hozzárakodjon és úgy keressen?
" & k49_fulnev & "' -
alfa20
senior tag
Sziasztok,
Abban tud nekem segíteni valaki, hogy makróban hogyan tudok makrót indítani.
Amiről szó lenne:
Van egy makró amit most írok, ez megnyit nekem 4-5 Excel táblát amiket majd szépen össze kell FKERES-nie. viszont az alaptáblák nem éppen használhatóak, így ezeket meg kell formázni használhatóra, erre van egy makróm is.persze ha minden megnyitott Excel táblához át másolom a formázást, úgy működik, csak nekem ez nem tetszik
,
olyat tudok, hogy a formázó makrót a 'Module2'-be beteszem és a nyitás után le is fut, majd nyitja a következőt táblát
pl.:Sub rendezes_mehet()
k50_allnev = Range("c3").Value
k49_allnev = Range("c4").Value
k35_allnev = Range("c5").Value
vab_allnev = Range("c6").Value
aktnev = ActiveWorkbook.Name
Workbooks.Open Filename:=k50_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
Workbooks.Open Filename:=k49_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
Workbooks.Open Filename:=k35_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
Workbooks.Open Filename:=vab_allnev
-- itt lefutna a 'Module2'-ben lévő 'MB_R' nevű makró --
End Sub(/C)[/M] -
alfa20
senior tag
köszi, de sajnos nem sikerül össze hoznom,
Van ugye két táblázatom:
Az elsőből kellene az adatokat összekeresni a másodikba, úgy ahogy a példa táblában is van,
csak persze az lenne jó ha nem kellene az első táblázatban az "A" oszlopot beszúrni és egy egyedi azonosítót létrehozni. -
alfa20
senior tag
Sziasztok,
Van egy makróm ami több táblázatból tesz össze egy nagyot, most az van, hogy az alaptáblát kivéve minden táblát meg kell nyitogatnom és egy egyedi azonosítót kell létrehoznom az FKERES miatt, ezt nem tudnám valahogy kiváltani, akár egy másik függvényt a FKERES-be tenni, hogy ne kelljen minden reggel 4 táblába egyedi azonosítót készíteni?
(legtöbb esetben A és B oszlophoz kell egyedi azonosító) -
alfa20
senior tag
Sziasztok,
Most az órabérrel küzdök és elakadtam kicsit:
D2: 8:00 - (munkakezdés ideje)
E2: 17:00 - (munkaidő vége)
F2: 1:00 - (ebéd idő)
G2: =SZUM(E2-D2-F2) - (ledolgozott órák száma eredmény:8:00)
H2: =SZUM(G2:G6)*24 - (heti ledolgozott órák szám)
I2: 8,50 € - (órabér)
K2: =SZUM(G2*J2)*24 - (Napi bér
L2: =SZUM(K2: K6) - (heti bér)A fenti dolog addig szépen is működik amíg a ledolgozott órák száma egész óra, vagy fél óra (pl.: 8:00 vagy 8:30), de ha valahol negyed vagy háromnegyed óra jön ki eredményül (pl.: 8:15 vagy 8:45), akkor nem jól számolja napi illetve a hetibért.
tudna valaki segíteni a problémámban?
Köszönöm előre is!
-
alfa20
senior tag
válasz
Delila_1
#17818
üzenetére
Szia Delila_1,
Kipróbáltam reggel, át ültettem a táblába, előbb volt egy hiba üzenet a "Dim sor%, usor%, szoveg$" ", usor%"-nál:
"Compire error:
Duplicate declaration in current scope
mivel van már 'usor' a táblába így a 'Dim' sorbol kivettem a többi 'usor%'-ot át írtam 'usor'-ra, így már végigfut, de csak egy üres ablak jelenik meg. próbáltam, hogy rögzítem a képletet hogy csak szöveg legyen a cellában, de akkor is csak üres ablakot dob fel.
Azt is megpróbáltam, hogy másik makróba tettem csak ezt a részt és egy 'CTRL+K'-val futtattam, de ez sem segített.
most így néz ki:
Dim sor%, szoveg$
Dim OK%, AH%
usor = Range("U" & Rows.Count).End(xlUp).Row
For sor% = 2 To usor
If InStr(Cells(sor%, 1), "OK") Then OK% = OK% + 1
If InStr(Cells(sor%, 1), "ADAT HIBA!") Then AH% = AH% + 1
Next
If OK% > 0 And AH% > 0 Then szoveg$ = "Adathibák száma: " & AH% & " db."
If OK% > 0 And AH% = 0 Then szoveg$ = "Nincsenek hibák."
MsgBox szoveg$viszont ami érdekes, ha egy üres munkafüzetbe teszem bele csak ezt a részt, akkor szépen működik, akkor meg szépen teszi a dolgát.
lenne ötleted?
-
alfa20
senior tag
válasz
Delila_1
#17816
üzenetére
Bocsi,
szóval azt szeretném, hogy adott egy oszlop (legyen "A") amiben vannak állítások (több száz sor):
- ideális esetben csak "OK" szerepel, ekkor írja ki: "minden ok"
- az oszlopban szerepel az "OK" és a "STÁTUSZ HIBA!", ekkor írja ki: "Státusz hiba, javítsa!"
- az oszlopban szerepel az "OK" és az "ADAT HIBA!", ekkor írja ki: "Adat hiba, javítsa!"
- az oszlopban szerepel az "OK", a "STÁTUSZ HIBA!" és az "ADAT HIBA!", ekkor írja ki: "Státusz és adat hiba, javítsa!"a lényeg hogy csak egy ablak ugorjon fel.
remélem sikerült leírnom amit szeretnék...
-
alfa20
senior tag
szerintem:
'A' oszlopban vannak az állítások tetszőlegesen (pl: egy, kettő, három, négy)
'B' oszlopba megadod az állításokat:
B2: egy
B3: kettő
B4: három
B5: négy'C' oszlopba:
C2: =DARABTELI(A:A;"egy")
C3: =DARABTELI(A:A;"kettő")
C4: =DARABTELI(A:A;"három")
C5: =DARABTELI(A:A;"négy")'D' oszlop %-ot számol ennek megfelelően legyen % a cella formátum:
D2: =C2*(1/SZUM(C$2:C$5))
D3: =C2*(1/SZUM(C$2:C$5))
D4: =C2*(1/SZUM(C$2:C$5))
D5: =C2*(1/SZUM(C$2:C$5))Aztán márt csak a diagram van hárta
-
alfa20
senior tag
Delila_1
Köszönöm a másik fórumon a válaszod, mivel látom itt aktívabb vagy inkább itt kérdeznék:és ha én egy egész oszlopban szeretnék kerestetni?
igazából négy állításra kellene az üzenet.pl:
ha 'A' oszlop tartalmazza az 'alma' szót, akkor írja ki: 'van almád'
ha 'A' oszlop tartalmazza az 'körte' szót, akkor írja ki: 'van körtéd'
ha 'A' oszlop tartalmazza az 'alma' és a 'körte' szót, akkor írja ki: 'van almád és körtéd'
ha 'A' oszlop egyiket sem tartalmazza, akkor meg azt írja: 'semmid sincs'előzmények:
kérdés:
Makróba 'HA' függvénybe belehet ágyazni az 'MsgBox'-ot?
Azt szeretném, ha lefut a makró összerakja nekem a táblát, és ha 'X'
sorban talál egy bizonyos szöveget, akkor fel dobjon egy üzenet ablakot, amit csak le kell 'OK'-ézni, ha viszont nem találja akkor egy másik üzenet jelenjen meg.válaszod:
Sub Kerdesek()
If Range("A5") = "Egyik szöveg" Then
MsgBox "Tudomásul vettem."
Else
MsgBox "Nem találom. :("
End If
End SubHa egy ciklusban keresel, kicsit másképp alakul.
-
alfa20
senior tag
megint én:
most olyat szeretnék, hogy kész a táblám nagyon szépen működik de még olyat szeretnék, hogy ha egy adott sorban talál egy szöveget, akkor egy 'MsgBox'-ot dobjon fel, ha meg másik szöveg akkor egy másikat, és egy harmadik félét, ha egyik szöveg sem szerepel az oszlopban:amit kipróbáltam az nem működik, nem tetszik neki, gondolom nem ennyire egyszerű
Range("AB1").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND(COUNTIF(C[-7],""STÁTUSZ HIBA!""),COUNTIF(C[-7],""ADAT HIBA!"")), msgbox(Ellenőrizd a Státuszokat és az adatokat!),IF(AND(COUNTIF(C[-7],""STÁTUSZ HIBA!""),COUNTIF(C[-7],""OK"")),msgbox(Ellenőrizd a státuszokat!),IF(AND(COUNTIF(C[-7],""OK""),COUNTIF(C[-7],""ADAT HIBA!"")),msgbox(Ellenőrizd az adatokat!),IF(AND(COUNTIF(C[-7],""STÁTUSZ HIBA!"")=0,COUNTIF(C[-7],""ADAT HIBA!"")=0),msgbox(GRATULÁLOK! ma jó napod van!),4))))" -
alfa20
senior tag
válasz
Delila_1
#17777
üzenetére
Így kell?
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Add Key:=Range( _
"A2:A376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Active.Sheet").Sort.SortFields.Add Key:=Range( _
"B2:B376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Active.Sheet").Sort
.SetRange Range("A1:Z376")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End Withennek a helyén
Range( _
"A2:A376")működhet usor-al:
Range( _
"A2:A" & usor)Ez az eredeti:
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Add Key:=Range( _
"A2:A376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("0416-kp").Sort.SortFields.Add Key:=Range( _
"B2:B376"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("0416-kp").Sort
.SetRange Range("A1:Z376")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With -
#17762
alfa20
senior tag
dellfanboy
#17760
alfa20
senior tag
válasz
dellfanboy
#17760
üzenetére
nem tudom tud-e ilyet az fkeres, mert az első találatot keresi, majd a hozzá értők meg mondják a tutit, de addig rendezd sorba előbb a lakosság számára majd az országra, addig is jó lesz míg nem kapsz más választ
-
alfa20
senior tag
Nagyon szépen köszönöm!
már nagyon fáradt voltam este viszont lenne még valami nyűgöm "VAGY" függvénnyel:
Ha három cellába beírom, hogy "IGAZ" vagy "HAMIS" és erre hivatkozom pl:
=VAGY(A1;B1;C1)
Akkor szépen kiadja az eredményt, viszont, ha képletben adom meg, akkor nem végzi el pl:
A2 cella "=HA(1=1;"IGAZ";"HAMIS")" B2 és C2 cella: HAMIS
D2 cella =VAGY(A2;B2;C2) -
alfa20
senior tag
Ismét egy kis segítséget szeretnék kérni:
Azt szeretném ha "IGAZ/HAMIS" állítás lenne, de az alábbival most nem boldogulok:
=HA(VAGY(ÉS(U2="KPT";L2>0;E2>1);ÉS(U2<>"KPT";L2>0;E2>0))=1;"IGAZ";"HAMIS")
a teljes képlet:
=HA(U2="HRD";"HAMIS";HA(U2="BZI";"HAMIS";HA(VAGY(ÉS(U2="TKP";L2>0;E2>1);ÉS(U2<>"TKP";L2>0;E2>0))=1;"IGAZ";"HAMIS")))
-
alfa20
senior tag
abban tudna valaki segíteni, azt szeretném, ha az adott cella szövege (3-4 karakteres betűkódok) tartalmaz egy karaktert (jelen esetben a "T" betűt), akkor azt írja ki, hogy "IGAZ" ha nem tartalmazza, akkor meg a "HAMIS"-t írja ki, a lenti képlettel odáig jutottam, hogy az "IGAZ" meg van, de ha nem tartalmazza akkor "#ÉRTÉK!" jön ki,
=HA(SZÖVEG.KERES("T";G8)>0;"IGAZ";"HAMIS")próbáltam az "AZONOS" függvényt de az sem jó, mert tovább kell mennem a képlettel,
az lenne a végeredmény, valami ilyet tegyen:ha tartalmat "T" karaktert: 1
ha tartalmat "A" karaktert: 2
ha tartalmat "P" karaktert: 3
ha tartalmat "M" karaktert: 4
ha tartalmat "B" karaktert: 0és persze kis és nagybetűt ne különböztesse meg
-
alfa20
senior tag
lehet van egyszerűbb megoldás is, de szerintem ha a "BOM" fülön beszúrsz egy oszlopot az "A" vagy "E" oszlop elé és készítesz egy egyedi azonosítót akkor egy sima FKERES függvénnyel megoldható.
pl:
1.) egyedi azonosító az "A" oszlopban:
"BOM" fülön A2 cella "=B2&C2&D2&E2"
"INPUT" fül E2 cella: "=FKERES(A2&B2&C2&D2;BOM!A:F;6;0)"2.) egyedi azonosító az "E" oszlopban:
"BOM" fülön E2 cella "=A2&B2&C2&D2"
"INPUT" fül E2 cella: "=FKERES(A2&B2&C2&D2;BOM!E:F;2;0)"Az egyedi azonosító oszlopot el is rejtheted ha zavar.
szert:
smile került a képlet be -
alfa20
senior tag
sziasztok,
Makró tanuláshoz (alapoktól) milyen tudnátok könyvet ajánlani?
jelenleg úgy készítem őket, hogy rögzítem a műveletet, majd próbálom értelmezni és át ültetni a táblázatba,
több kevesebb sikerrel boldogulok, de vannak dolgok amik sehogy nem jönnek össze... -
alfa20
senior tag
Sziasztok
kis segítséget szeretnék kérni két dologban,
1.) Egy formázatlan alaptáblával kell nyitnom, amit a "Szövegbeolvasó varázsló"-val kell meg nyitnom, makróban ez így néz ki mikor fel vettem a folyamatot:
Workbooks.OpenText Filename:= _
"C:\Users\....\Documents\RND\0405", _
Origin:=1250, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1)), ThousandsSeparator:="." _
, TrailingMinusNumbers:=TrueEz szépen működik is míg nem teszem át az eredeti makróba ahol azonban nem hajlandó dolgozni folyton hibát jelez, előbb a ":=" nem tetszik neki, ha át írom "Origin = 1250," akkor a "," nem tetszik neki, ha azt törlőm akkor megy a "StartRow:" a hiba.
E közé kellene behelyeznem, hogy megnyitást követően formázza meg a táblát:
Workbooks.Open Filename:=forras_allnev, UpdateLinks:=False
Range("a1:n1")2.) azt szeretném ha a "G" oszlopban lévő adatok a "=H/F" érték lenne, majd értékkel rögzítené a képletet és a "H=F*G"-vel képlet követné, és ez lemenne teljes oszlopban, ami mindig változik most pl:1614 sor jelenleg így néz ki ez a rész a makróban:
Range("G2").Select
Range("G2").Select
ActiveCell.FormulaR1C1 = "=RC[1]/RC[-1]"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G1614")
Range("G:G1614").Select
Selection.Style = "Currency [0]"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H1614")
Range("H2:H1614").Selectpróbáltam az "& usor"-t, de ott mindig elakadtam hiba miatt...
-
alfa20
senior tag
válasz
poffsoft
#15681
üzenetére
sziasztok,
van olyan függvény amivel megtudnám oldani egyszerűen az alábbit:
A1=1001; B1=3; C1=1; ... Z1=2
A2=999; B2=1; C2=0; ... Z2=1
A3=123; B3=0; C3=4; ... Z3=3
A4=567; B4=5; C4=0; ... Z4=5
...
A20=654; B20=2; C20=1; ... Z20=4
B21=SZUM($A1*B1)+($A2+B2)+($A3*B3)+($A4*B4)...+($A20*B20)
C21=SZUM($A1*C1)+($A2+C2)+($A3*C3)+($A4*C4)...+($A20*C20)
...
Z21=SZUM($A1*Z1)+($A2+Z2)+($A3*Z3)+($A4*Z4)...+($A20*Z20)"A" oszlopban az értékeke lennének "B" oszloptól lennének a mennyiségek, a 21 sorba lenne a képlet,
Most két lehetőség meg fogalmazott bennem, az egyik a "=SZUM" képlet, a másik meg ha be szurok egy oszlopot a "B" oszlop mögé és ott összeszorzom, majd a 21. sorban összeszummázom.
mind a kettő elég idő igényes ezért lenne jó ha lenne egy függvény erre célra. -
alfa20
senior tag
Sziasztok!
Kis segítséget szeretnék kérni, makróhoz:
van egy táblázatom "A"-tól "H" oszlopig alap adatokkal, makróval azt elértem, hogy az összes képletet elkészítse ("I"-től "T"-ig vannak a képletek). a problémám annyi, hogy a sorok száma naponta változik, és azt szeretném ha a képleteket az utolsó sorig másolná le.én eddig jutottam:
Range("I2:T2").Select
Selection.AutoFill Destination:=Range("I2:T10")
Range("I2:T10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=Falsepróbaképen csak a 10-dik sort állítottam be, de nekem lejjebb keljen és mivel nincs fix sor így nem tudom hogyan tovább...
Ha valaki tudna ebben segíteni azt megköszönném!
-
alfa20
senior tag
Sziasztok,
lehet lehetetlent kérek, de én egy olyan védelmet szeretnék Excel táblába hogy bizonyos oszlopok csak bizonyos felhasználok láthassanak, de ne keljen jelszót használni.
pl:
elkészítem egy táblázatot, "I" és "J" oszlopokban értékek szerepelnének, ezt a két oszlopot csak én láthassam és Béla, de ha Józsi megnyitja akkor ő ne láthassa a ezt a két oszlopot.erre van mód, vagy csak ha a megnyitáshoz jelszót állítók be?
segítséget előre is köszönöm!
Új hozzászólás Aktív témák
Fferi50- Stalker Clear Sky Limited Collector's Edition
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Árváltozás+játék!The Witcher 2 Assassins of Kings Collector's Edition
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- BLACK FRIDAY! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Samsung Galaxy A33 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 13 mini 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS3443
- ÚJ HP OmniBook Ultra Flip 14"OLED 2,8 K 120Hz - Ultra 7 256V - 16GB - 1TB - 2,5 év gari - MAGYAR
- Telefon felvásárlás!! iPhone 12 Mini/iPhone 12/iPhone 12 Pro/iPhone 12 Pro Max
- GYÖNYÖRŰ iPhone 14 128GB Red -1 ÉV GARANCIA -Kártyafüggetlen, MS3678, 100% Akkumulátor
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopműhely Bt.
Város: Budapest