Lényegesen gyorsabb lett.
Köszi

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

Van egy mondjuk úgy idő nyilvántartóm.
Munkavégzés pl.: 9:00-12:00, ez 3:00 munkaóra.
Óradíj 3.000 Ft / óra. Hogyan tudom ezt képletezni, hogy ezeket szépen kiszámolja ( 3 óra * 3000 Ft = 9000 Ft legyen az eredmény cellában)

Persze lehet bonyolítani ebédidővel, éjszakai műszakkal, túlórával, hétvégi munkával, miegyébbel.

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

Hali

HH:MM formátumú óra-perceket kéne összeadni. Szum függvénnyel az 54 óra az 2,25 (nap)lesz, Nekem óra-perc kellene ide is, mi a megoldás?

moto g72, Ninebot d28e

Szia!
A cellaformátum legyen [hh]:mm. Akkor nem váltja át az órákat napokra.
Üdv.

Sziasztok,
Bocsánat a nem idevaló témáért, de fontos lenne mihamarabb megoldanom ezt:
Szeretnék egy word-dokumentumban megjeleníteni mindig az aktuális időhöz képest +30perccel több időt automatikusan.
A beszúrás > kész modulok > mező > Time -mezőkódnál tudok "hozzáadni" időhöz? Vagy képlettel megoldható?

Köszönöm!
Automata tud lenni?

Üdv! Egy lapon van 2db kimutatás amik bejövő és kimenő anyagok összesítését végzik, tehát azt mutatják, miből mennyi van készleten. Ezek eddig évek óta jól működtek, de egyszercsak negatívra változott benne minden szám. Találkozott ilyennel valaki?

[ Szerkesztve ]

Ryzen 7 5700G, 32 GB, RX6600XT, Windows 11

[link]
1 helyett -1-et írj, azzal szorozd fel a tartományodat.

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

Hát ööö. Ahonnan veszi az adatokat ott minden rendben, csak a kimutatás mutat mindenből mínuszt, hogy annyi van készleten.

Ryzen 7 5700G, 32 GB, RX6600XT, Windows 11

sziasztok.

van egy xls-em amiben az egyik oszlopban a cellákban URL-ek vannak de nem kattinthatók (tehát egyszerű szöveg) amit kattinthatóvá kellene tennem de egyenként kicsit sokáig tartana.
Van erre módszer hogy tömegesen meg lehessen ezt csinálni?

1. ALT+F11, ThisWorkbook-n duplaklikk és copy/paste-l bemásolod az alábbi kódot (nem kell mentened az Excel táblát makróbarát doksiként)

Public Sub FireReEditCells()

Dim MyRange1 As Range, MyRange2 As Range

Application.ScreenUpdating = False

Set MyRange2 = Selection

For Each MyRange1 In MyRange2
MyRange1.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
DoEvents
Next

Application.ScreenUpdating = True

End Sub

2. kijelölöd az URL-ket tartalmazó cellákat(ne az egész oszlopot, mert akkor sokáig tarthat a dolog), ALT+F8 és futtatod a makrót

3. kitörölheted a makrót és hagyományos munkafüzetként mentheted

[ Szerkesztve ]

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

Kösz a segítséget, működik.
Bár a billentyű kombinációk egyáltalán nem csináltak semmit.

"Bár a billentyű kombinációk egyáltalán nem csináltak semmit."

Ez tipikusan 2 esetben fordul elő:

1. laptop user-ek esetén van Fn billentyű is és a BIOS-ban ennek használata van beállítva. Ilyenkor a funkcióbillentyűket csak ezen gomb lenyomásával együtt lehet elérni, tehát FN+ALT+F11 és FN+ALT+F8.

2. NVidia kártyát használók esetén a driver-el együt települ az ún. NVidia (Geforce) Experience és ez okozza a jelenséget, nem csak Excel-ben, hanem más app-okban is, a lentebb linkelt videóban épp a Photoshop-ba kever bele.
El kell távolítani, vagy letiltani vagy a hotkey szekcióban átkonfigolni.
How to Change/Disable Keyboard Hotkeys of Nvidia GeForce Experience

Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)

A következő probléma megoldásában kérném a segítségeteket:
Adott egy bemásolt lista az A1 cellától lefelé. A lista elemei legyenek a példa kedvéért sorban
pl.: cikkszám, mennyiség, egység, megnevezés, ár, …. , de a listában egymás után több cikkszám, mennyiség, egység … van
A következőt szeretném az átalakításhoz
A lista elemeit oszlopokba helyezze, de csak azt amelyikre éppen szükségem van – kijelöléssel történne és adom meg mettől meddig. Kijelölök egy tartományt akkor helyezze át a következő üres oszlopba majd a következő tartományt mellé (akár ezek az áthelyezések lehetnek egy munkalapon is). De a csavar az benne, hogy utána újabb listát másolok be és azt is mint az előző kijelölés után tegye az általam megadott oszlop utolsó eleme után.

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

Esetleg 2 kép, amik mutatják, miből mit szeretnél létrehozni?

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

a képen a színes tartományokat szeretném áthelyezni, de a mérete változó és van közte olyan adat amire nincs szükségem - csak az adatok mozgatása a cél

[ Szerkesztve ]

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

Sub Masolas()
    Dim cim As String, sor As Long, tartomany As Range, oszlop As Integer, usor As Long
    
    Set tartomany = Selection
    sor = tartomany(1).Row
    cim = Cells(sor, 2)
    On Error Resume Next
    oszlop = Application.Match(cim, Range("G1:BB1"), 0)
  If VarType(oszlop) = vbError Or oszlo=0 Then
        oszlop = Cells(1, Columns.Count).End(xlToLeft).Column + 1
        Cells(1, oszlop) = cim
    Else
        oszlop = oszlop + 6
    End If
    usor = Cells(Rows.Count, oszlop).End(xlUp).Row + 1
    Selection.Copy Cells(usor, oszlop)
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.

Az előzőnél az
oszlop = Application.Match(cim, Range("G1:BB1"), 0)
sor olykor 0 értéket ad, ha nem található a G1 : BB1 tartományban a cím.
Az eredeti
If VarType(oszlop) = vbError Then
sort ezért kibővítettem
If VarType(oszlop) = vbError Or oszlop=0 Then
-re, de lemaradt egy p betű az oszlop végéről.

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

Sziasztok!

Segítséget szeretnék kérni. Feltételes formázásnál ha törlni akarom akár egy cellából is a feltételes formázás lefagy az excel. A lapon nem minden cellára igaz csak néhányra. Hiába törlöm az adatokat a cellákból a formázás törlésénél lefagy az egész tábla, tegnap 2 órán keresztül hagytam hátha de semmi.

Segítséget előre is 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

Az a gond, hogy egyetlen cellára is van kb 100 szabály beállítva, gondolom ez akasztja meg a táblát. Hogy lehetne ezeket törölni, hogy ne tartson kb. fél évszázadig?

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

elképzelhető hogy a szabályokat sokszorozta ez okozza a gondolom
Kezdőlap > Feltételes formázás > Szabályok törlése > Szabályok törlése a kijelölt cellákból elemre

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

Szia! Igen ezt próbáltam de egyszerűen nem bírta feldolgozni, 2-3 órán keresztül nem bírta megcsinálni a törlést. Inkább készítettem egy új lapot a régit meg töröltem. Így már OK.

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

Sziasztok!

Van egy (szerintem) számotokra viszonylag egyszerű kérdésem.

Olyat szeretnék csinálni, hogy van egy excelem, aminek van egy 1-es és egy 2-es munkalapja. Azt szeretném elérni, hogy az 1-es munkalap A oszlopában levő kb. 3000 db elemből (vannak ugyanolyanok is) valamilyen módon válogassa vagy emelje ki a program azokat, amelyek a 2--es munkalap C oszlopában is szerepelnek.

Ezt hogy tudnám a legkönnyebben elérni?

"Tiefe Brunnen muss man graben wenn man klares Wasser will"

Szia!
Adj feltételes formázást a Munka1 lap A oszlopára. Kijelölöd a formázandó cellákat, a képlet legyen =DARABTELI(Munka2!$C:$C;A1)>0, és add meg a kívánt formátumot.

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

Sziasztok!

Adott egy A oszlop, amiben iktatószámok vannak és van egy B oszlop, amiben nevek. A feladat az lenne, hogy egy másik munkalapban, ha megadom az iktatószámot akkor írja ki a hozzátartozó nevet. Ez eddig egy egyszerű fkeres, viszont a csavar az, hogy A oszlopban egy iktatószámhoz többféle név is tartozhat, és a másik munkalapon az összes nevet ki kéne iratni mondjuk egymás alá.

Előre is köszönök minden konstruktív ötletet.

=INDEX($C$3:$C$7;KICSI(HA(($E$3=$B$3:$B$7);SOR($B$3:$B$7)-MIN(SOR($B$3:$B$7))+1;"");SOROK($A$1:A1)))
Tömbképlettel
C3 : C7 : nevek
B3 : B7 : cikkszám
E3 : keresett cikkszám
következő találathoz a képletben az A1 helyett A2 és így tovább

tömbképlet nélkül
=@INDEX($C$3:$C$7;KICSI(INDEX(($E$3=$B$3:$B$7)*(HOL.VAN(SOR($B$3:$B$7); SOR($B$3:$B$7)))+($E$3<>$B$3:$B$7)*1048577;);SOROK($A$1:A2)))

[ Szerkesztve ]

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

Függvénnyel

Előbb keresd meg, hogy hány darab van az adott iktatóból. hol.van függvénnyel keresd meg, hogy hol van az oszlopban elsőként, majd index-el keresd ki az adott pozícióban lévő nevet.

A hol.van függvénybe a keresés tartomány elejét indirekt függvénnyel kell megadni, ahol a sor poziciót a hol.van föggvény találatát kell alapul venni +1-el.

Előbb meg kell nézni, hogy mennyi az azonos iktatóhoz tartozó maximum darabszám. Kimásolod egy külön oszlopba, ismétlődések eltávolítása, majd mellé egy darabhatöbb függvénnyel összeszámoltatod.

üdv, föccer

Építésztechnikus. Építőmérnök.

Function SingleCellExtract(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer)
Dim i As Long
Dim Result As String
For i = 1 To LookupRange.Columns(1).Cells.Count
If LookupRange.Cells(i, 1) = Lookupvalue Then
Result = Result & " " & LookupRange.Cells(i, ColumnNumber) & ","
End If
Next i
SingleCellExtract = Left(Result, Len(Result) - 1)
End Function

a makrót a Module-ba kell helyezni
az alábbi saját függvénnyel =@Singlecellextract(E3;$B$3:$C$7;2)

[ Szerkesztve ]

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

Köszi a segítséget, az A1 nem világos, hogy micsoda.

ha több értéket akarsz megkeresni akkor a következő sorba másolod a képletet, de a képletben kell egy kis változtatás -- erre utalt, hogy A1 helyett A2 majd A3 és így tovább ahány egyező találat lehet a cikkszámra - ezt egy darabteli függvénnyel tudod ellenőrizni

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

A tömbképlet nélküli működik, úgyhogy nagyon szépen köszönöm.
Két kérdés:
a @ jel biztos kell az Index elé?
Mi az a 1048577?

a @ nem kell az kihagyható

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

az a terület nagyságát adja meg azt hagyd úgy

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

Sziasztok,
Megoldható-e képlettel vagy macro-val, hogy képet másoljunk egyik munkalapról a másikra?
Pl.: munkalap1 a1 - bármi szöveg B1 - akármi.png (kép)
munkalap1 a2 - bármi szöveg B2 - akármi.png (kép)
....
....
másol munkalap2 a1 - bármi szöveg B1 - akármi.png (kép)
munkalap2 a2 - bármi szöveg B2 - akármi.png (kép)
....
....
Segítséget köszönöm előre is.

[ Szerkesztve ]

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

miért nem másolod a teljes munkalapot?

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

Van adatállományom ~200 országnévvel és a hozzátartozó zászló képekkel egy munkalapon.
Ebből kell leválogatnom ~50 nevet képpel együtt (mindig más), de ezt új munkafüzetbe.

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

Sziasztok!

Ugyan csak részben excel, körlevél varázsló word-ben. A számformátumokkal nem boldogulok. Mezókód váltás után ha beírom a formátumot, vagy nem történik semmi, vagy nem az aminek kellene.
Így néz ki a formázás: MERGEFIELD MRP_éves_alapösszeg \# #,##0.00 és ez lesz belőe: 4000000, 0.00
Office 2016-on csináltam már ilyet korábban és emlékeim szerint működött. Van valakinek ötlete a problémár?

Üdv
P.

Sziasztok!

Abba kérném a segítséget, hogy miként lehet azt megoldani, hogy egy cella hivatkozása egy másik cella tartalmától függjön.

pl. ha az A1 cellába "c:\00.pdf" szerepel akkor az A2 cellába található tartalom-hoz rendelt hivatkozás az A1 cellába szereplő érték legyen.

Az A1 cella értéke mindig változó lenne.
Valami olyasmi lenne jó, hogy egy képlet határozná meg a linket.

Jó lenne ha makró, vb és társai nélkül meg lehetne valósítani.

Előre is köszönöm a segítséget

de mi legyen az A2-ben?
egy képet dobhatnál fel

[ Szerkesztve ]

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

[kép]

Az A2 szövege mindegy csak a hozzá tartozó hivatkozás legyen az A1 cella tartalma
de ha az A1 cella tartalma megváltozik az A2 hivatkozása is megváltozzon

remélem érthető

[ Szerkesztve ]

=JOBB(A1;SZÖVEG.TALÁL(".";A1))

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

Nekem nem nyitja meg az A2 cellából az A1 tartalmára mutató linket/fájlt

Mit csinálok rosszul?

Az A2 képlete
=HIPERHIVATKOZÁS(A1;A1)

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öszi, ezzel működik
Annyi, hogy a valós link a hálózati meghajtókra mutat ezért a 2003-ba engedélyeztetni kellett neki (beállítások/adatvédelemi központ/megbízható helyek)

Sziasztok
Segítséget szeretnék kérni, képletekkel hogyan lehet megcsinálni, hogy a napoknál DE,DU,ÉJ, P van akkor a BJ2-ben igaz legyen ha bármi más van akkor hamis. A másik ha túlóránál T4 vagy T8-ból minimum kettő van akkor az igaz ha kevesebb akkor hamis. Ha lehet ez is a BJ2-be ha nem akkor mellé BK2-be.
[kép]

Előre is köszönöm a segítséget :R

A másodikra a képlet
=HA((DARABTELI(A2:BH2;"T4")+DARABTELI(A2:BH2;"T8"))<2;HAMIS;IGAZ)

Az elsőre a BI2-be, vagy BK2-be
=HA((DARAB2(A2:BH2)-DARABTELI(A2:BH2;"DE")-DARABTELI(A2:BH2;"DU")-DARABTELI(A2:BH2;"P")-DARABTELI(A2:BH2;"B")-DARABTELI(A2:BH2;"ÉJ")-DARABTELI(A2:BH2;"T4")-DARABTELI(A2:BH2;"T8"))>0;HAMIS;IGAZ)

detroitrw (49198): szívesen.

[ 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.