-
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
-
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!
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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!
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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...
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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..."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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")))
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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)"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
makró-ban tudna valaki segíteni?
Sorba rendezést szeretnék előbb "B" oszlopra majd "A"-ra, próbáltam makrórögzítéssel, de ott mindig megadja a munkalap nevét, de az nekem minden nap más."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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))))""Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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.
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz Delila_1 #17812 üzenetére
köszi,
ez jó lenne csak most az a baj, hogy végigmegy az összes cellán.
próba képen 8 cellába beírtam felváltva, alma, körte, majd futtattam a makrót és 8 szor kellett klikk-elni az ok-ra."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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...
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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!
[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
-
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ó)"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
olyat tudok, hogy van egy szövegem amiben van két szám amire szükségem lenne számoláshoz?
pl:
A1: rendelhető 10-10 kg, ill. dinnye, kókusz, 3-3 db-ot.
B1: 10
C1: 3A "B1" és "C1" cella az "A1"-ből szedné az értéket az első szövegrész váltózó hosszúságú.
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
-
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][ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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 & "'"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
Sziasztok,
Most egy kis működésbeli kérdésem lenne:
Ha készítek egy adattáblát és az elnevezem pl:"TBL_ADAT1"-nek, akkor ezt az adattáblát tudom használni másik munkafüzetben is vagy csak abban amiben létrehozom az adattáblát?"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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!
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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"?"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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."Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz Endless #20815 üzenetére
szia
tegyük fel B2=érkezési idő és C2=távozási idő akkor én pl. ezt tenném a D2-be:
=HA(C2-B2<=0,35417;0;C2-B2-0,35417)
"B"; "C" és "D" oszlopokat állítsd idő formátumra.
persze csak ha a 8:30 óra feletti részre vagy kíváncsi.[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
alfa20
senior tag
válasz z123456789 #20834 üzenetére
Feltételes formázás?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
-
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
[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
Új hozzászólás Aktív témák
- Milyen TV-t vegyek?
- Gördeszka topic
- Az NVIDIA szerint a partnereik prémium AI PC-ket kínálnak
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Xbox Series X|S
- Anglia - élmények, tapasztalatok
- Konzolokról KULTURÁLT módon
- BestBuy ruhás topik
- Milyen billentyűzetet vegyek?
- 3D nyomtatás
- További aktív témák...