Köszönöm szépen! Így már minden működik.

Sziasztok!

A Munka1 lapon van egy Táblázat1 nevű táblázatom dátum szerint rendezve(Dátum nevű oszlop a táblázatban), és tele vannak megrendelésekkel. Egy másik lapra szeretném átvinni az adatokat, amik egy napon vannak. Pl. ha beírom a Munka2 lap B2 cellájába a mai dátumot (ott kell megadni, hogy melyik napot szeretném kinyerni), akkor a Táblázat1 táblázatból az összes mai dátumú sort hozza át. Ezt meg lehet oldalni egyetlen egy képlettel? Nekem nem sikerült csak többel, segédcellák segítségével.
Az INDEX HOL.VAN párossal próbálkoztam, de csak az első eredményt adja vissza, az azon a napon lévő többi sort nem.
Ha van rá megoldás, valaki le tudná írni.

Mostanában több szó esett a speciális szűrésről, ami a barátod lesz. Keress rá ezekre.

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 szűrést ismerem, de nekem azért kell átvinnem egy másik táblába az adatokat, mert az máshogy néz ki, és ezt nyomtatjuk ki. A szűrés nem megoldható, mert az eredeti táblázatban több adat is van ,amit nem kell nyomtatni, ez így gyorsabb, ha az adatokat átvisszük egy másik táblázatba, amin már csak azok az adatok vannak, amik kellenek. Így az eredeti táblázathoz nem kell hozzá nyúlni (oszlopokat elrejteni, stb).

Speciális szűrést írtam, ami nem azonos az autoszűréssel.

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

Adatokbol vissza lehet szamolni a fugvenyt 2003-as excelben?

Ugy ertem, hogy ismerek nehany reszeredmenyt, ami grafikon alapjan nagyjabol linearis fuggvenynek nez ki, meg lehet gyorsan hatarozni a fuggvenyt, minimalisan a zeruspontot es a meredekseget?

Ha lineáris akkor igen
Ismerni kell a meredekséget hozzá.
m= (y2-y1) /(x2-x1)

[ Szerkesztve ]

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

Sajnos nem azonosak a kulonbsegek.

Itt egy pelda: a kulonbsegek 52-55 kozottiek
269 - 3145
271 - 3039
272 - 2985
274 - 2877
275 - 2825
279 - 2605
282 - 2443

nem igazán tudom hogy nálad mi a 52-55
azért írtam le a képletet amivel ki tudod számolni a meredekséget
veszel két pontot az egyenesről és az egyes pontokhoz tartozik egy (x;y) koordináta, na abból tudod kiszámolni
vagy tegyél ide egy példát

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

???
A peldasor 47058-ban, lepesrol lepesre:
271 es 272 kozott 54,
274 es 275 kozott 52,
269 es 271 kozott atlagolva 53 a kulonbseg, stb.

Szia!
Csinálj belőle vonalas grafikont, a grafikonhoz rendelj lineáris trendvonalat. Az Excel megmondja az egyenletet is hozzá. Jelen esetben a trendvonal megegyezik az eredeti diagramvonallal - azaz viszonylag szoros az összefüggés a két adatsor között.

Üdv.

[ Szerkesztve ]

Sziasztok!

Lehetséges Excel VBA kóddal, egy stringet splitelni az összes karakterre?
Pl a string értéke "343,fsdf.5434"fdsa$fg;bbb". Egyszerűen nem jövök rá, hogyan tudnám egyesével szétválasztani.

Próbáltam a sima split funkciót használni, de ott a probléma az hogy egy előre megadott karakterrel splitel és meg sem tartja az értéket. Szóval 175.258-ből lesz 175 és 258. A pont eltűnik.

Nem teljesen értem mit szeretnél egyesével szétválasztani. De ha a karaktereket akarod külön kezelni akkor Mid függvény lesz a segítségedre.

Szia,

Szeretném ezt a cella értéket karakterekre bontani: "343,fsdf.5434"fdsa$fg;bbb"
Szóval első karakter értéke " második 3 harmadik 4 negyedik 3 .... huszonhetedik ".

Ezek az értékek minden különbözőek.

Köszönöm igen pont ezt kerestem, sikerült minden karaktert kiíratnom.

Szia

Ahogy mondtam neked becsatolom az elvileg majdnem végleges megoldást. Most 4x csinálja meg a folyamatot, mert 4 sheeten is végig kell mennie. Ahogy látom így is elég gyors lett.

Private Sub Kalkuláció_Click()
Dim i As Long, InduloIdo As Single
InduloIdo = Timer
Dim sor_allapot As Integer
Dim sor_anyag As Integer
Dim oszlop As Integer
Dim lastrow_allapot As Integer
Dim lastrow_anyag As Integer
Dim sorszam As Integer
Dim cikkszam As String
Dim osszeg As Double
Dim TIB As String
Dim csere_sor As Integer
Dim csere_oszlop As Integer
If tib_lista.Value = "" Then
    MsgBox "Nincs kitöltve TIB azonosító!", vbCritical, "Figyelmeztetés"
    Exit Sub
 Else
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayStatusBar = False
Application.EnableEvents = False
    
    
    
    
lastrow_allapot = Sheets("Gerinc kiépítés állapot").Range("S" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
TIB = tib_lista.Value
Sheets("Anyagösszesítő").Range("F2:F" & lastrow_anyag) = ""
    For sor_allapot = 3 To lastrow_allapot
        If Sheets("Gerinc kiépítés állapot").Cells(sor_allapot, "S") = TIB Then
            For sor_anyag = 2 To lastrow_anyag
            osszeg = 0
            cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
            sorszam = Sheets("Gerinc kiépítés állapot").Cells(sor_allapot, 1)
                    For oszlop = 67 To 162 Step 5
                        If Sheets("Gerinc kiépítés adat").Cells(sorszam, oszlop - 1) = cikkszam Then
                            osszeg = osszeg + Sheets("Gerinc kiépítés adat").Cells(sorszam, oszlop)
                        End If
                    Next
                    Sheets("Anyagösszesítő").Cells(sor_anyag, "F").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "F").Value + osszeg
            Next
        End If
    Next
    
    
    
    
lastrow_allapot = Sheets("Alépítmény állapot").Range("z" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
Sheets("Anyagösszesítő").Range("g2:g" & lastrow_anyag) = ""
    For sor_allapot = 3 To lastrow_allapot
        If Sheets("Alépítmény állapot").Cells(sor_allapot, "z") = TIB Then
            For sor_anyag = 2 To lastrow_anyag
            osszeg = 0
            cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
            sorszam = Sheets("Alépítmény állapot").Cells(sor_allapot, 1)
                    For oszlop = 81 To 176 Step 5
                        If Sheets("Alépítmény adat").Cells(sorszam, oszlop - 1) = cikkszam Then
                            osszeg = osszeg + Sheets("Alépítmény adat").Cells(sorszam, oszlop)
                        End If
                    Next
                    Sheets("Anyagösszesítő").Cells(sor_anyag, "g").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "g").Value + osszeg
            Next
        End If
    Next
    
    
    
        
lastrow_allapot = Sheets("Házhálózat állapot").Range("v" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
Sheets("Anyagösszesítő").Range("h2:h" & lastrow_anyag) = ""
    For sor_allapot = 3 To lastrow_allapot
        If Sheets("Házhálózat állapot").Cells(sor_allapot, "v") = TIB Then
            For sor_anyag = 2 To lastrow_anyag
            osszeg = 0
            cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
            sorszam = Sheets("Házhálózat állapot").Cells(sor_allapot, 1)
                    For oszlop = 84 To 179 Step 5
                        If Sheets("Házhálózat adat").Cells(sorszam, oszlop - 1) = cikkszam Then
                            osszeg = osszeg + Sheets("Házhálózat adat").Cells(sorszam, oszlop)
                        End If
                    Next
                    Sheets("Anyagösszesítő").Cells(sor_anyag, "h").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "h").Value + osszeg
            Next
        End If
    Next
    
  
    
lastrow_allapot = Sheets("Optikai kötés állapot").Range("q" & Rows.Count).End(xlUp).Row
lastrow_anyag = Sheets("Anyagösszesítő").Range("a" & Rows.Count).End(xlUp).Row
cikkszam = ""
Sheets("Anyagösszesítő").Range("i2:i" & lastrow_anyag) = ""
    For sor_allapot = 3 To lastrow_allapot
        If Sheets("Optikai kötés állapot").Cells(sor_allapot, "q") = TIB Then
            For sor_anyag = 2 To lastrow_anyag
            osszeg = 0
            cikkszam = Sheets("Anyagösszesítő").Cells(sor_anyag, 2)
            sorszam = Sheets("Optikai kötés állapot").Cells(sor_allapot, 1)
                    For oszlop = 64 To 159 Step 5
                        If Sheets("Optikai kötés adat").Cells(sorszam, oszlop - 1) = cikkszam Then
                            osszeg = osszeg + Sheets("Optikai kötés adat").Cells(sorszam, oszlop)
                        End If
                    Next
                    Sheets("Anyagösszesítő").Cells(sor_anyag, "i").Value = Sheets("Anyagösszesítő").Cells(sor_anyag, "i").Value + osszeg
            Next
        End If
    Next
    
    
Sheets("Anyagösszesítő").Select
 For csere_oszlop = 6 To 9
   For csere_sor = 2 To lastrow_anyag
     If Sheets("Anyagösszesítő").Cells(csere_sor, csere_oszlop) = 0 Then
      Sheets("Anyagösszesítő").Cells(csere_sor, csere_oszlop) = "-"
      End If
    Next
 Next
 
        tib_lista.Value = ""
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        Application.DisplayStatusBar = True
        Application.EnableEvents = True
    MsgBox "Az összesítés elkészült!" & vbNewLine & vbNewLine & "Futási idő: " & Format((Timer - InduloIdo) / 86400, "hh:mm:ss") & vbNewLine, , ""  '86400 = 24*60*60
End If
End Sub

[ Szerkesztve ]

Annyit még egyszerűsíthetsz rajta, hogy beteszel egy For-Next ciklust 1-tól 4-ig, és egy Select Case utasításban adod meg a változó lapneveket, az oszlop ciklusok kezdetét és végét, miegyebeket.

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

Szia,

koszonom, erre nem gondoltam, hogy grafikusan egyszerubb.

Azt még megnézem, hogy kell és kipróbálom!
Köszönöm!

Egzotikus, ínycsiklandozó igénybe futottam bele:

Van egy táblázat, naponta írnak bele pár új sort. Az igény az lenne, hogy a dátum automatikusan kerüljön egy zárolt cellába, tehát amikor beírnak, bekerül a dátum, és az ott is marad, másnap a másnapi dátum kerül bele automatikusan. Igen, a MA() fgv. így kilőve.

Nem vagyok perverz, csak haladok a korral. (Még mindig: Rock&roll feeling baby, rock&roll feeling.....)

Private Sub Worksheet_Change

Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
Ez minden beírt cella mellé írja a dátumot

[ Szerkesztve ]

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

Szia!

1 lehetőség...:
Private Sub Worksheet_Change(ByVal Target As Range)
'Feltételezzük, hogy az A oszlopban kezdik a beírást, a dátum pedig az X oszlopba kerül...
If Not Application.Intersect(Target, Columns(1)) Is Nothing Then
Application.EnableEvents = False

'Ha van "zárolt" cella, akkor van bekapcsolt védelem is a munkalapra...
ActiveSheet.Unprotect "jelszo"

Cells(Target.Row, "X") = Date

ActiveSheet.Protect "jelszo"
Application.EnableEvents = True
End If
End Sub

A lenti sor 1 lépésben megoldja az engedélyezést és a tiltást a makró elején.

ActiveSheet.Protect Password:="JujjDeTitkosJelszó", UserInterfaceOnly:=True

Ez a sor csak makróból enged a zárolt cellákba írni.

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!

Excel 2019 ben webes lekerdezés 1 URL után ad 15db 5 soros 2 oszlopos "táblázatot" szeretném mind a 15-öt egy lapon megjeleniteni es a további URL-ek eredményét (szintén URL-enként 15 "táblázat") ugyanezen a lapon az előzők alá beszúrni. Így lenne az 5 linkemből egy 375 soros táblázat

Eljutottam odáig, hogy

- webes lekérdezés
- több tétel választása (itt kijelölöm a 15 "táblázatot")
- adatok átalakítása
- lekérdezések hozzáfüzése újként (három vagy több tábla)
- hozzáadom a 15 táblát

Itt elakadok, ha betöltöm akkor az eredmény 15 lap + egy URL lap + egy hozzáfüzés1 lap amin rendben szerepel minden

Problémám 1: a hozzáfüzés1 mellett a többi "táblázat" 1-15-ig is megjelenik különbözö lapokon
Problémám 2: a többi URL eredményének beszúrása a már létezö hozzáfüzés1 lapra (vagy bárhova ) folytatólagosan

Több problémám nincs...... még

Ha esetleg valakinek van valami oktató Youtube linkje azt is megköszönom.

[ Szerkesztve ]

Szia,
Ezt a webről betöltést nagyon sokszor használom, de nekem sem sikerült megoldani, hogy csak a 'hozzáfüzés1' kerüljön letöltésre és amiből a 'hozzáfüzés1' elkészül, azt ne.

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

Ha utana a Table1 - Table15 ig kitorlom, akkor mar a tulajdonsagainal ugy jelenik meg mint " csak kapcsolodas" es a hozzafuzes1 rendben mukodik tovabb es a tobbi nem jelenik meg tobbe. Viszont ez problema lehet tobb 100 erdemenyul kapott "table" eseteben, mert egyesevel kitorolni........ kicsit DOS 1.0 erzesem van Tehat szerintem a Power Query -ben lehetne talan ezt beallitani ha Excel guru lennek

[ Szerkesztve ]

A Power Query -ben nem találtam lehetőséget arra, hogy csak a hozzafuzes1 kerüljön betöltésre. A Table1 - Table-x munkalapokat az import után rögtön törlöm a kapcsolódással együtt, hogy ne zavarjon be, ha közvetlen utána újabb importálást végzek weblapról.

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

Köszi!

Ez eddig még nem jutott el a fejemig

Sziasztok!
Excel 2016 ban miként tudnám megoldani, hogy egy oszlopban minden nagybetűs legyen?
Üdv, és köszi.

Szia!
Egy segédoszlopban használd a NAGYBETŰS (UPPER) függvényt, majd másolás - irányított beillesztés értéket. Ezután a segédoszlop törölhető.
Üdv.

Sziasztok!
A Sor beszúrás időnként eltűnik a sor jobb gombos menüjéből. Nem tudom mitől, de egy cellán ctrl c crtl v hatására visszajön.
Ennek mi lehet az oka és hogyan lehet az eltűnést megelőzni?
Más: ctrl v-re megjelenő kis ablakot (ctrl beillesztés beállításai) hogyan lehet eltüntetni, hogy sose jelenjen meg?
Köszönöm

Sziasztok!
Van egy táblázat, mely különböző rovatokat tartalmaz, és azok összeget. Van a fő rovat pl. K311, és vannak az alábontásai pl. K311-001. A főrovat és az alábontások karakter száma is változó.
Hogyan lehetne az alábontások összegét összeadni, hogy kijöjjön a főrovat értéke?
Pl.:
K311-001: 1000
K311-003: 5000
K312-0004: 8000
K312-0012: 6000
K64-003: 10000

Eredmény:
K311: 6000
K312: 14000
K64: 10000

Köszönöm!

=SZUMHA(B37;"*K311*";C37)

[ Szerkesztve ]

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

=SZUMHA(B3:C7;"*K311*";C3:C7)

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

Á, szuper, köszönöm szépen!

Sziasztok, egy kis segítséget kérnék.

Adott 2 táblázat, össze kellene hasonlítani a 2 táblázatban 1 függőleges és 1 vízszintes oszlopot, majd az összehasonlított oszlop melletti értékeket kell vissza adnia a másik táblázatban. Milyen függvénnyel lehetséges ez?

Szia!
Nézd meg légy szíves az INDEX függvényt.
Üdv.

Esetleg olyan opció is van, hogy az excelnek a szűrési tartományát megváltoztatni, hogy ne csak 10.000 legyen a limit? A több munkalapos azért nem opció, mert a teljes adatbázisban kell keressem az ismétlődő értékeket, nem csak a munkalapon.

A végén csak áttérek az Accessre.. Ott is van opció az ismétlődések megjelölésére/kiemelésére? Csak jelölni szeretném, nem megakadályozni (erre találtam útmutatót).

Mivel az excel van egy fizikai korlátja ahogy korábban írták az nem lesz jó neked.
Az Accessnél meg nézd meg ezt

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

A 10000 a legördülő listában megjeleníthető elemek számra vonatkozik,nem a szűrési tartomány nagyságára.

Mennyi a szűrési tartomány nagysága? Nekem az excel 365-öm ~15.000 sor felett már nem adott vissza minden elemet az autoszűrőben.

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

Ha valakinek meg nem artott meg a hoseg, lenne kedve mutatni nekem egy peldat, hogyan kell pl. a foci eb-hez hasonlo "lepcsozetes" tablazatokat csinalni?

Ugye, indultak 6 tablazattal, mindegyikben 4 resztvevo, majd eloszor trukkosen, majd egyenesben feleztek oket.

Nem teljesen EB de ebből kiindulhatsz
[link]
vagy ez jobb [link]

[ Szerkesztve ]

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

Sziasztok, egy kis segítséget kérnék google munkafüzettel kapcsolatban, ami valószínüleg a legtöbbötöknek itt rutin feladat de én ehhez nagyon hülye vagyok

1. Itt annyit szeretnék hogy a kihasználtság alá ha beírom hogy 12 pl akkor az azalatti sorba kidobja hogy az 32-nek hány százaléka [link]

2. Itt pedig csak annyit hogyha a szám minuszba menne akkor ugorjon nullára és onnan számoljon tovább, tehát ne tudjon minuszba menni hanem a legkissebb szám az 0 legyen [link]

Köszönöm előre a segítséget

Don't Worry, Be Happy

1. A cella képlete F4/32 majd ha ez megvan akkor formázás menü szám százalék
2. if(0>sum(d2:d46);0;sum(d2:d46))

[ Szerkesztve ]

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

Köszönöm a seítséget, 1-es tökéletes
2-esnél az a probléma hogy így valóban nem mutatja a minuszt, viszont a minuszból számol tovább tehát ha beírok egy 48-at aztán minusz 50-et azután pedig egy 5-öt akkor 3 lesz ott nem pedig 5, bocsánat a bonyolításért

[ Szerkesztve ]

Don't Worry, Be Happy

Sziasztok, letöltöttem egy Excel file-t az internetről. Sok függőleges oszlop vízszintes sorainak celláiban képletek szerepelnek, ezek csak akkor látszanak, ha belépek a cellába. Hogyan lehetne megoldani, hogy minden cella tartalma megjelenjen a cellákban anélkül, hogy a kurzor ott legyen?
Másik kérdésem: eltűnt az egyik Excel fájlomban a vízszintes csúszka, Hogy lehet ezt visszaállítani?
Segítséget előre is köszönöm.

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

Minden képlet
https://support.microsoft.com/hu-hu/office/a-k%C3%A9pletek-megjelen%C3%ADt%C3%A9se-%C3%A9s-kinyomtat%C3%A1sa-65a29965-b1b1-40db-9cb7-4fd051da3a5c
Csúszka
https://support.microsoft.com/hu-hu/office/g%C3%B6rget%C5%91s%C3%A1vok-elrejt%C3%A9se-vagy-megjelen%C3%ADt%C3%A9se-a-munkaf%C3%BCzetben-2101e630-fa9b-4d22-90e0-b110278bafa7

[ Szerkesztve ]

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

Köszi a választ: az első problémához két kép: a kikapcsolt állapotban miért nem mutatja az eredményt; a második így megoldódott Kikapcsolt állapot :

Képletek bekapcsolt állapot:

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

Elképzelheto hogy fehér betű van beállítálva és a fehér alapon nem látszik.

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