Esetleg a cellaformázás – feltételes formázás – teszi a karakterek színét egyenlővé a háttérével?

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Nem boldogulok egy feladattal.
Hogy lehet egy egyenletből fügvényt csinálni?
Víz mennyiseg A1=10
Víz hőfok A2=8
Cél hőfok A3=6
Hűtővíz mennyiség A4=?
Hűtővíz hőfok A5=2
Az egyenlet:
A1*A2+A4*A5=(A1+A4)*A3
Az A4 értéke ismeretlen, azt szeretném egy fügvénnyel kiszámolni, amit a fenti egyenletből kellene megírni, de nem megy.

Szia!
Egyenlet megoldás:
A4=A1*(A3-A2)/(A5-A3)
Üdv.

Én 3db segédcellával oldottam meg.
Köszönöm.

Sziasztok!

Azzal a problémával állok szemben, hogy excel (Office 365), hogy a képteletek képletként jelenití meg, nem pedig értékként, pl ha A1=1 és B1=1, akkor ha beírom, hogy =A1+B1, akkor nem azt írja ki, hogy 2 hanem A1+B1, nincs bekapcsolva a képletvizsgáló, egyes függvények megjelennek, de a legtöbb nem, úgy túnik, mintha a képletet szövegként értelmezné, mert hiába gépelem el direkt a "HA" függönyt engedi beírni a hülyeséget, nem írja ki, hogy képlet hiba.
Tudnátok ebben segíteni?

vagy az Alt+. vagy a képlet előtt van egy '

Bámulatos hol tart már a tudomány!

Kézzel írom be a képleteket, nincs elötte ', HA függvényre ezt írja: =HA(A25=1;1;2), ellenben a A1=2021.02.01, beírom, hogy A1+1, értelmezi és kiírja, hogy 2021.02.02., még a A1+B1 sem számolja ki, csak azt írja ki, hogy A1+B1

a cella formátumát megnézted?

Bámulatos hol tart már a tudomány!

Igen, hiába állítom, nem változtat semmin

Szia!
Lehetséges, hogy a képletek megjelenítése van beállítva...
Beállítások - Speciális - számított eredmények helyett képletek megjelenítése a cellákban.
Vagy:
Menüszalag - Képletek - képletvizsgálat - Képletek
Üdv.

Szia, Nem hiszem ,hogy azzal lenne a probléma. Azt viszont észrevettem,hogy munkahelyen az ecxel 2016-ot míg itthon 2019-et használok. Az itthoni tökéletesn működik, a munkahelyi viszont problémás a képletet átírja és a nem látható a celléban a képlet eredménye.

A HAHIBA függvény utolsó paramétere "" (üres string)? Hiba esetén ez látszik, szóval nem látszik semmi. Probléma akkor van, ha olyan sorban is előfordul, ahol a HAHIBA függvény nem fut hibára.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Kollégának kellene egy függvény.

Van egy oszlop, benne angolul, hogy hétfő, kedd, szerda, stb. 1 hónapnyi. Pár oszloppal később ő írja be hozzá, hogy az egyik hétfői sor az 3, két héttel később a szerda 2, stb.

A táblázat végén van pár függvényes mező ami összeszámolná ezeket a számokat, de úgy akarja megcsinálni, hogy
az egyik cellába adja össze magától az összes hétköznapost,
aztán egy másikba az összes szombathoz és vasárnaphoz írt számot,
és végül aszem kellene neki az összes csak vasárnap, de igazából mindegy, elég az hétköznapos verzió első verzió.

A Tuesday, Wednesday, stb. van B4-től B33-ig, a hozzá írt számok H4-től H33-ig,
és a függvény kellene a B36-ba.

Most SZUM-al van neki összeadva, ami 1 hónapra jó is nem túl elegáns megoldásnak, de amikor csinál egy másik hónapot, akkor az 1. ált másik nap, így kézzel adogatja meg, pl.:
=SZUM(H4;H5;H6;H9;H10;H11;H12;H13;H16;H17;H18;H19;H20;H23;H24;H25;H26;H27;H30;H31;H32;H33)*E39*0,5

Szia!
Magyarban SZUMHA angolban SUMIF függvény kell neki.
Üdv.

Sziasztok!

Adott egy Excel tábla, amiben manuálisan változtatott dátumok vannak. Az lenne a feladat, hogy ha egy olyan dátum van benne, ami mondjuk egy héten belül bekövetkezik, akkor az adott cella háttere váltson pirosra. Ez megvalósítható?

Előre is köszönöm a segítő válaszokat (kész megoldást is hálásan fogadok, nem értek az excel-hez)

But who is watching the guardians?

persze, conditional formatting + formula való erre

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

=HA(D4-7<=MA();1;0)
a d4 ben van a dátumod és a fenti képlet kell a feltételes formázásba

Bámulatos hol tart már a tudomány!

=SZUMHA(B4:B34;"Monday";H4:H34)

és ehhez hogy írom hozzá a kedd,szerda stb.-t? 5 kritériumot akar megadni.

szerk.: =SZUMHA(B4:B34;"Monday";H4:H34)+SZUMHA(B4:B34;"Sunday";H4:H34)+ stb.stb.

[ Szerkesztve ]

Szia!
Ha több napot szeretnél összeadni egy eredménybe, akkor a
SZUMHATÖBB függvényt használd.
Itt az összegzendő területet csak 1x kell megadni, az 5 feltételt sajnos külön-külön.
Üdv.

[ Szerkesztve ]

Szia!
Persze azt is lehetne csinálni a hétköznapokra, hogy a teljes SZUM -ból kivonni a SZUMHATÖBB szombat, vasárnapot.
A hétvégére pedig a teljes SZUM-ból kivonni a hétköznapok összegét - az előző cellában levő értéket.
Üdv.

Köszönöm, bár akadnak gondok. A válasz mindig #NAME?, bármi is a dátum

But who is watching the guardians?

Megvan a hiba, nálam angol a felület, én pedig a magyar példát akartam ráerőltetni

But who is watching the guardians?

Egy makróban szeretnék használni egy változót, ami egy szám, és egy cellában található.
Ez a szám egy adott tartomány sorát adja meg egy másik munkalapon:

pl. X munkalap A1 cellájában van egy szám: 25.

Ez azt jelenti, hogy Y munkalap A9:H25 tartományát kelleni kijelölni.

Ezt, hogy tehetem meg? Egyszerű, de nem vágom a VBA-t. :/

Köszi

Spóroljunk! Kerül, amibe kerül!

Range("Sheet2!A9:H" & Range("Sheet1!A1").Value2).Select

Fejből jött; lehet, hogy van benne hiba

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Sziasztok,
Milyen beállítással tudom elérni, hogy munkaterületen kívüli oszlop és sorok rejtve maradjanak, macro nélkül.

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

kijelölöd az oszlopokat / sorokat és elrejted

Bámulatos hol tart már a tudomány!

Lappy válaszán kívül 2 változat:

1. Kijelölöd a módosítható tartományt, és a cellaformázás védelem fülén kiveszed a pipát a zárolás elől, majd lapvédelmet adsz.
2. Alt+F11-gyel belépsz a makró szerkesztőbe. Bal oldalon kiválasztod a lapodat, majd a Properties ablakban (ha nem látszik, F4-gyel láthatóvá teszed) beállítod a ScrollArea (szerkeszthető) területet a kép szerint. Ennél makróbarátként kell mentened a fájlt.

A ThisWorkbook laphoz pedig ez a makró kell:
Private Sub Workbook_Open()
    Sheets(1).ScrollArea = "$A$1:$H$20"
End Sub

[ Szerkesztve ]

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Köszönöm a választ. Alighanem nem pontosan fogalmaztam. Azt szeretném elérni, hogy a használt területen (pl. $A$1:$Z$100) kívüli részen ne legyen látható sem az oszlop betűjel, sem a sor száma, sem a mezők, esetleg ez még eltérő színű legyen.

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

1) AA oszlop kijelöl
2) CTRL+SHIFT+jobbra
3) jobb-gomb > hide
4) 101 sor kijelöl
5) CTRL+SHIFT+lefelé
6) jobb-gomb > hide

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

Hálás köszönetem, erre gondoltam

HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro

Sziasztok,

Előre is elnézést, kicsit hosszú lesz a probléma leírás. Ha van ötletetek, akkor kérlek segítsetek megtalálni a hiba okát!

Egy üres excel sheetről indultam. A file jelenleg a C: drive-on fut, így is produkálja a hibát, ha hálózaton van, akkor is előjön a hiba. (Hálózati futtatás során az alábbi hiba még read-only státuszt is eredményez, de ezzel ne foglalkozzunk, mert ha az alábbi problémát megoldjuk, akkor a read-only probléma megoldódik.)

A file-t a makró futtatása előtt ötször lementettem, bezártam, megnyitottam, semmi hibát nem tapasztaltam.

Excelben lefuttatva egy makrót, majd a file-t elmentve az alábbi hibaüzenet fogad.
Ha az alábbi makrót lefuttatom, file-t elmentem, majd ismét megnyitom előjön az alábbi hiba:

Yes-re kattintva az alábbi fogad:

A problémát okozó makró:

A makró alábbi része, gyakorlatilag a trial kitting nevű file-ból átmásol egy táblázatot, közé beszúrva az eredeti excel file-ban található sorokat. Utólag belegondolva, lehet egyszerűbb lenne az egész táblát átmásolni, mögéfűzni az új sorokat, majd az egészet dátum szerint lerendezni. (Mentségemre: nem excel vba-ban tanultam programozni, hanem még turbo pascalban, ott meg ilyen lehetőség nem volt)

Sub trial_kitting_kalkulator()
Dim tke_sm As Integer
Dim tk_sm As Integer
Dim tk_smig As Integer
Dim input_sm As Integer
Dim datum As Date

Call rendez

Sheets(TKE).Select
Range("A4").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Delete
Application.ScreenUpdating = False

Workbooks.Open filenev
Windows("Trial kitting.xlsm").Activate
If ActiveSheet.AutoFilterMode Then Selection.AutoFilter
Sheets(SOB).Select
Range("A3:V3").Select
Selection.Copy
Windows("trial kitting kalkulátor.xlsm").Activate
Sheets(TKE).Select
Range("A3").Select
ActiveSheet.Paste

input_sm = 16
tk_sm = 4
tke_sm = 4
Do
  datum = Sheets(bemenet).Cells(input_sm, 9)
  
  'Trial kittingből kimásolja azokat a sorokat, melyek korábbiak, vagy aznapiak
  Windows("Trial kitting.xlsm").Activate
  tk_smig = tk_sm
  While (Sheets(SOB).Cells(tk_smig + 1, 1).Value <= datum)
    tk_smig = tk_smig + 1
  Wend
  'Rows(tk_sm & ":" & tk_smig).Select
  If Not (IsEmpty(Sheets(SOB).Cells(tk_smig + 2, 1).Value)) Then
    datum = Sheets(SOB).Cells(tk_smig + 1, 1).Value
    Else
    datum = "2021/01/01"
  End If
  Range(Cells(tk_sm, 1), Cells(tk_smig, 22)).Select
  Application.CutCopyMode = False
  Selection.Copy
  Windows("trial kitting kalkulátor.xlsm").Activate
  Sheets(TKE).Select
  Cells(tke_sm, 1).Select
  ActiveSheet.Paste
  tke_sm = tk_smig + input_sm - 15
  tk_sm = tk_smig + 1
  

  'Trial kitting előrejelzésbe beírja a szükséges adatokat
  While (Sheets(bemenet).Cells(input_sm, 9).Value < datum) And Not (IsEmpty(Sheets(bemenet).Cells(input_sm, 9)))
    Sheets(TKE).Cells(tke_sm, 1) = Sheets(bemenet).Cells(input_sm, 9)
    Sheets(TKE).Cells(tke_sm, 2) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 3) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 4) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 5) = Sheets(bemenet).Cells(input_sm, 2)
    Sheets(TKE).Cells(tke_sm, 6) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 7) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 8) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 9) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 10) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 11) = Sheets(bemenet).Cells(input_sm, 9)
    Sheets(TKE).Cells(tke_sm, 12) = Sheets(bemenet).Cells(input_sm, 9)
    Sheets(TKE).Cells(tke_sm, 13) = Sheets(bemenet).Cells(input_sm, 7)
    Sheets(TKE).Cells(tke_sm, 14) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 15) = "Dummy"
    Sheets(TKE).Cells(tke_sm, 16) = Sheets(bemenet).Cells(input_sm, 5)
    Sheets(TKE).Cells(tke_sm, 17) = 0
    Sheets(TKE).Cells(tke_sm, 18) = Sheets(bemenet).Cells(input_sm, 5)
    Sheets(TKE).Cells(tke_sm, 19) = "Dummy"
    tke_sm = tke_sm + 1
    input_sm = input_sm + 1
  Wend
'Loop Until (IsEmpty(Sheets(bemenet).Cells(input_sm, 1))) Or datum = "01/01/2021"
Loop Until datum = "01/01/2021"
Application.ScreenUpdating = True

Van ötletetek, hogy a fenti sorokból mi okozhatj a a file sérülését?

köszi előre is!

Lépésenként futtatva (F8) a hibát okozó sort sárgával kijelölve láthatod.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

Az a baj, hogy a makró futtatása után / közben minden jónak tűnik. Csak amikor elmentem a filet, majd újra megnyitom, akkor látom a hibaüzenetet

Újra megnyitáskor kell lépésenként futtatnod.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

De már megnyitáskor egyből bedobja a hibaüzenetet. El se indítom a makrót, csak megnyitom a file-t windows intézőből és jön a hibaüzenet.

Megpróbáltam az eredeti hozzászólásomban kigondolt megoldással, egy lépésben másolni a két adattartományt, majd lerendezni.

A gondom az, hogy a két forrásban nem azonos dátum formátum van használva (mindkettő egy rendszer outputja, tehát nem változtatható).
Az egyik dátumot felismeri, a másikat nem, így nem tudom lerendezni dátum szerinti sorrendbe. Ha a "rossz" dátumba F2-vel bemegyek, majd enter, akkor már rájön, hogy ez egy dátum. Hogyan tudom VBA-ban elmondani, hogy az adott cella egy dátum formátum?

Jelenleg ezzel próbálkozom, de nem segít:

  Sheets(TKE).Cells(tke_sm, 1).NumberFormat = "yyyy/mm/dd"

Sziasztok!

Kis segítséget szeretnék kérni.

Egy cellából leválasztó menüt csináltam (500 mm, 400 mm, 300 mm ...)
Azt szeretném ha a mellette levő cellát kitöltse az alapján, hogy mi van kiválasztva a fülön.

Pl.:
Ha 500 mm van a cellában, akkor a mellette lévő cellába írja be, hogy 560H5000B
Ha 400 mm van a cellában, akkor a mellette levő cella 560H4000B

Remélem érthető, hogy mit szeretnék, hozzáértőknek ez gondolom marha egyszerű feladat.

mekkora a lista amiből választani lehet (ha rövid akkor akár ha függvény is elég)
ha sok akkor viszont kellene egy másik lista és fkeres függvény segítségével

Bámulatos hol tart már a tudomány!

de ha szabályszerű amit a cellába kel írni akkor lehet összefűz is

Bámulatos hol tart már a tudomány!

14 darabos a leválasztó fül tartalma. A HA függvény hogy nézne ki?

Így lehet egyszerűbb, hogy mi a cél

=összefűz("560H";E6;"0B")
így egyszerűbb

Bámulatos hol tart már a tudomány!

Köszönöm, így menni fog
Kicsit még alakítanom kell, mert ez alapján viszi a "szóköz mm-t" is, de a logikáját megértettem.

az E6 helyette akkor bal függvény tegyél és az csak az első 3 karaktert fogja összefűzni
..bal(E6;3)...

Bámulatos hol tart már a tudomány!

Köszönöm

Sziasztok!

Van egy F keres függvényem.

Egy adat sorból dolgozik aminek értéke ürestől a 2000-3000 ig változhat. Egy másik fülre vinném át az adatokat de minden második oszlopban ahol az eredeti adatsor üres a HIÁNYZIK hiba jön fel. érdekes módon minden elősnél az üres mezönél pedig 0 át hoz. Ez lenne a cél, hogy ahol üres a mező itt nullát adjon vissza. Ha szám szerepel a páros oszlopokban ott jó értéket ad vissza mint a képen is látszik.

Más: Hogyan tudok egy képlet után tetszőleges szöveget írni? Pl: (=SZUM(D8:X8)"rendeben"

Köszönöm.

Gigabyte B760M Gaming X, I5 13400, 2x16 DDR4 Corsair Vengeance 3600Mhz, NZTX Kraken X61, Sapphire Pulse RX 5600XT, EVGA Supernova G2 750W, Samsung 850 Evo 128Gb, WD Blue 1TB, Phanteks Enthoo Pro M Acrylic