Új hozzászólás Aktív témák

• lappy őstag

  2021-07-13 19:50:40 #47100

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz andreas49 üzenetére #47099

  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!
• andreas49 senior tag

  2021-07-13 18:47:02 #47099

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  válasz lappy üzenetére #47098

  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
• lappy őstag

  2021-07-13 18:21:05 #47098

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz andreas49 üzenetére #47097

  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

  Bámulatos hol tart már a tudomány!
• andreas49 senior tag

  2021-07-13 17:33:23 #47097

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  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
• Casseius tag

  2021-07-13 16:05:55 #47096

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Casseius

  tag

  válasz lappy üzenetére #47095

  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

  Don't Worry, Be Happy
• lappy őstag

  2021-07-13 15:45:46 #47095

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz Casseius üzenetére #47094

  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))

  Bámulatos hol tart már a tudomány!
• Casseius tag

  2021-07-13 15:27:16 #47094

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Casseius

  tag

  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
• lappy őstag

  2021-07-09 05:48:52 #47093

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz MostaPista üzenetére #47092

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

  Bámulatos hol tart már a tudomány!
• MostaPista tag

  2021-07-09 00:32:18 #47092

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MostaPista

  tag

  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.

• föccer nagyúr

  2021-07-08 21:30:26 #47091

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  föccer

  nagyúr

  válasz temporello üzenetére #47090

  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. Ingatlan adás-vétel vevő oldali támogatása. Mérnök tanácsadás, felújításhoz, átépítéshez. Excel feladatok megoldása. Lézergravírozás. Mindent IS csinálok: www.jatekosfejlodes.hu
• temporello tag

  2021-07-08 20:26:47 #47090

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  temporello

  tag

  válasz ny.erno üzenetére #47088

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

• lappy őstag

  2021-07-08 18:03:06 #47089

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz ny.erno üzenetére #47088

  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!
• ny.erno tag

  2021-07-08 17:39:06 #47088

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  ny.erno

  tag

  válasz Fire/SOUL/CD üzenetére #46734

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

• Fferi50 Topikgazda

  2021-07-08 16:37:06 #47087

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  válasz yoogie üzenetére #47086

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

• yoogie aktív tag

  2021-07-08 13:58:34 #47086

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  yoogie

  aktív tag

  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?

• Dr. Mózes aktív tag

  2021-07-08 06:59:03 #47085

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Dr. Mózes

  aktív tag

  válasz lappy üzenetére #47084

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

• lappy őstag

  2021-07-07 17:14:14 #47084

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz lappy üzenetére #47083

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

  Bámulatos hol tart már a tudomány!
• lappy őstag

  2021-07-07 17:06:22 #47083

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz Dr. Mózes üzenetére #47082

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

  Bámulatos hol tart már a tudomány!
• Dr. Mózes aktív tag

  2021-07-07 16:44:12 #47082

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Dr. Mózes

  aktív tag

  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!

• user112 senior tag

  2021-07-06 15:21:08 #47081

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  user112

  senior tag

  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

• Fferi50 Topikgazda

  2021-07-04 23:37:06 #47080

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  válasz gepesz13 üzenetére #47079

  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.

• gepesz13 tag

  2021-07-04 22:35:27 #47079

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  gepesz13

  tag

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

• Pakliman tag

  2021-07-04 11:16:21 #47078

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Pakliman

  tag

  válasz Delila_1 üzenetére #47073

  Köszi!

  Ez eddig még nem jutott el a fejemig

• andreas49 senior tag

  2021-07-03 14:13:27 #47077

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  válasz smnetbp üzenetére #47076

  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
• smnetbp csendes tag

  2021-07-03 09:48:01 #47076

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  smnetbp

  csendes tag

  válasz andreas49 üzenetére #47075

  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

• andreas49 senior tag

  2021-07-03 08:48:25 #47075

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  válasz smnetbp üzenetére #47074

  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
• smnetbp csendes tag

  2021-07-02 22:30:33 #47074

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  smnetbp

  csendes tag

  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.

• Delila_1 veterán

  2021-07-02 14:10:37 #47073

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz Pakliman üzenetére #47072

  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.
• Pakliman tag

  2021-07-02 12:34:41 #47072

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Pakliman

  tag

  válasz Dilikutya üzenetére #47070

  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

• lappy őstag

  2021-07-02 12:06:46 #47071

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz Dilikutya üzenetére #47070

  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

  Bámulatos hol tart már a tudomány!
• Dilikutya félisten

  2021-07-02 11:25:24 #47070

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Dilikutya

  félisten

  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.....)
• szricsi_0917 tag

  2021-07-02 06:49:11 #47069

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  szricsi_0917

  tag

  válasz Delila_1 üzenetére #47067

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

• MostaPista tag

  2021-07-01 22:53:47 #47068

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MostaPista

  tag

  válasz Fferi50 üzenetére #47061

  Szia,

  koszonom, erre nem gondoltam, hogy grafikusan egyszerubb.

• Delila_1 veterán

  2021-07-01 16:25:33 #47067

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz szricsi_0917 üzenetére #47066

  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.
• szricsi_0917 tag

  2021-07-01 16:11:04 #47066

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  szricsi_0917

  tag

  válasz Delila_1 üzenetére #47045

  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

• zsolti_20 senior tag

  2021-07-01 15:25:44 #47065

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  válasz Bobrooney üzenetére #47063

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

• zsolti_20 senior tag

  2021-07-01 15:08:40 #47064

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  válasz Bobrooney üzenetére #47063

  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.

• Bobrooney senior tag

  2021-07-01 15:01:14 #47063

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Bobrooney

  senior tag

  válasz zsolti_20 üzenetére #47062

  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.

• zsolti_20 senior tag

  2021-07-01 13:57:12 #47062

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  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.

• Fferi50 Topikgazda

  2021-06-30 21:18:53 #47061

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  válasz MostaPista üzenetére #47060

  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.

• MostaPista tag

  2021-06-30 19:48:34 #47060

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MostaPista

  tag

  válasz lappy üzenetére #47059

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

• lappy őstag

  2021-06-30 18:43:21 #47059

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz MostaPista üzenetére #47058

  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!
• MostaPista tag

  2021-06-30 17:42:41 #47058

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MostaPista

  tag

  válasz lappy üzenetére #47057

  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

• lappy őstag

  2021-06-30 17:01:04 #47057

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz MostaPista üzenetére #47056

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

  Bámulatos hol tart már a tudomány!
• MostaPista tag

  2021-06-30 16:58:27 #47056

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MostaPista

  tag

  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?

• Delila_1 veterán

  2021-06-30 15:11:15 #47055

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz norbika84 üzenetére #47054

  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.
• norbika84 csendes tag

  2021-06-30 15:09:58 #47054

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  norbika84

  csendes tag

  válasz Delila_1 üzenetére #47053

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

• Delila_1 veterán

  2021-06-30 14:50:36 #47053

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz norbika84 üzenetére #47052

  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.
• norbika84 csendes tag

  2021-06-30 13:16:55 #47052

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  norbika84

  csendes tag

  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.

• zoombiee csendes tag

  2021-06-30 11:34:05 #47051

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zoombiee

  csendes tag

  válasz Fferi50 üzenetére #47050

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

• Fferi50 Topikgazda

  2021-06-30 11:27:30 #47050

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  válasz zoombiee üzenetére #47049

  Szia!
  Az a probléma, hogy a szövegben levő idézőjelek megszakítják a szöveget, az utána következő részt (és az előtte levőt is persze) nem tudja értelmezni.
  Ha idézőjeleket szeretnél a szövegben elhelyezni, akkor meg kell duplázni azokat:
  "ThisWorkbook.Sheets(""Munka1"").Range(""K5"") = 5"
  minden olyan helyen, ahol idézőjelet akarsz.
  Üdv.

• zoombiee csendes tag

  2021-06-30 10:56:53 #47049

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zoombiee

  csendes tag

  Sziasztok,
  Szeretnék segítséget kérni az alábbi kódhoz.

  Működése: Ha az "A" oszlopban van érték, akkor létrehoz gombot az "S" oszlopban.
  Az automatikusan létrehozott gombban kellene szerepelnie kódnak.
  A probléma az, hogy ennél a sornál:
  .InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
  Hibát generál, ha ezt a sort kiveszem, akkor minden rendben lefut, viszont így sajnos a gomb lényege elvész, mert nincs hivatkozás sor benne.

  Sub gomb()


Dim ws As Worksheet
Dim celLeft As Integer
Dim celTop As Integer
Dim celWidth As Integer
Dim celHeight As Integer

Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row

Set ws = Sheets("Munka1")

For i = 2 To LastRow

celLeft = ws.Range("S6").Left
celTop = ws.Range("S" & i).Top
celWidth = ws.Range("S6:S6").Width
celHeight = ws.Range("S6:S6").Height

Set objBtn = ws.OLEObjects.Add(classType:="Forms.CommandButton.1", Link:=False, _
displayasicon:=False, Left:=celLeft, Top:=celTop, Width:=celWidth, Height:=celHeight)
objBtn.Name = "S" & i
objBtn.Object.Caption = "--->"

With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
N = .CountOfLines
.InsertLines N + 1, "Private Sub " & "S" & i & "_Click()"
.InsertLines N + 2, vbNewLine
.InsertLines N + 3, "ThisWorkbook.Sheets("Munka1").Range("K5") = 5"
.InsertLines N + 4, vbNewLine
.InsertLines N + 5, "End Sub"

End With

Next i

End Sub

  Előre is köszönöm a segítséget!
  Üdv: Dani

• andreas49 senior tag

  2021-06-29 12:44:02 #47048

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  válasz Delila_1 üzenetére #47046

  +1* köszi, ez a 3 tagból álló további nagy segítség volt.

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

  2021-06-29 11:24:44 #47047

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  szricsi_0917

  tag

  válasz Delila_1 üzenetére #47045

  Szia
  
  Köszi. Mindenhol ott vagy!

• Delila_1 veterán

  2021-06-29 10:39:24 #47046

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz andreas49 üzenetére #47044

  Azt nem tudom, de a képletet kicsit módosítva a 3 tagból álló nevek is megjelennek a kigyűjtésben.

  =HAHIBA(FKERES("*"&KÖZÉP(D2;3;HOSSZ(D2)-3)&"*";A:A;1;0);"")

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

  2021-06-29 10:18:24 #47045

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz szricsi_0917 üzenetére #47039

  A másik fórumon, ahol feldobtad ugyanezt a kérdést, megadtam a választ: speciális szűrés.

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

  2021-06-29 09:18:02 #47044

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  válasz Delila_1 üzenetére #47043

  Esetleg megoldható, hogy az idegen karakterest is becserélje?

  HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
• Delila_1 veterán

  2021-06-29 06:23:03 #47043

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz andreas49 üzenetére #47042

  Szívesen.

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

  2021-06-28 18:35:34 #47042

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  válasz Delila_1 üzenetére #47041

  Hálás köszönetem, úgy működik, ahogy elképzeltem.

  HONOR Magic5 Pro - Huawei P30 Pro 8/128 GB - Xiaomi MI Note 10 Pro - Huawei Mate 10 Pro
• Delila_1 veterán

  2021-06-28 17:45:00 #47041

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz andreas49 üzenetére #47040

  Az F2 cella képlete legyen
  =HAHIBA(FKERES("*"&KÖZÉP(D2;3;20);A:A;1;0);"Nem szerepel az A oszlopban")
  Azokat a neveket nem találja meg, amikben idegen karakterek szerepelnek, ezért tettem be a HAHIBA függvényt.

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

  2021-06-28 16:53:10 #47040

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  andreas49

  senior tag

  A mellékelt linken szereplő Excel táblázatban foglaltakhoz keresek megoldást.
  Segítséget előre is köszönöm.
  [link]

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

  2021-06-28 15:22:23 #47039

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  szricsi_0917

  tag

  Sziasztok
  
  Egy kis vba segítséget szeretnék kérni:
  
  
  Erről a kis táblázatról lenne szó ami pár ezer soros lesz. A "D" oszlop lesz a feltétel oszlopa. Ha a D oszlopban pl 01H02401 található akkor az "A" oszlopban található sorszámokat tárolja el, mert egy másik szumhatöbb függvényhez majd szükségem lesz rá. Milyen kóddal oldható meg, hogy ezeket az értékeket tárolja, majd egyessével lépkedve fel tudjam tudjam használni egy for ciklusban?
  
  Köszönöm előre is a segítséget!

• 3DFan aktív tag

  2021-06-28 11:36:20 #47038

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  3DFan

  aktív tag

  válasz Fferi50 üzenetére #47037

  Köszönöm.

• Fferi50 Topikgazda

  2021-06-28 09:53:01 #47037

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  válasz 3DFan üzenetére #47036

  Szia!
  Ha az R1 cella érték hollétét szeretnéd a táblázatban feltételes formázással megmutatni, akkor elegendő az R1 cellával hasonlítani az adott cella értékét.
  Állj rá az A1 cellára (vagy jelöld ki a teljes A1:O6 tartományt).
  Feltételes formázás - kijelölés képlettel.
  A képlet: =A1=$R$1
  Az érvényesség területe pedig A1:O6
  Ezzel rögzíted az R1 cellát és a tartományon belül minden cella értékét ehhez hasonlítja.
  Üdv.

• 3DFan aktív tag

  2021-06-28 07:49:58 #47036

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  3DFan

  aktív tag

  Sziasztok!
  Az R1 cella értékét szeretném kijelölni feltételes formázással a képen látható tartományban.
  Az oszlopot miként kerestessem, hogy más értékkel is helyesen működjön? Köszönettel.
  [kép]

• EroSennin79 újonc

  2021-06-27 21:11:35 #47035

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  EroSennin79

  újonc

  válasz Delila_1 üzenetére #47034

  Szuper, köszönöm szépen mindenkinek a sok segitséget. Fantasztikusak vagytok

• Delila_1 veterán

  2021-06-27 19:01:51 #47034

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz EroSennin79 üzenetére #47033

  =IFERROR(=Statistic!W41/Statistic!Z41,"")
  A magyar HAHIBA függvény angol megfelelője.

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

  2021-06-27 17:40:13 #47033

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  EroSennin79

  újonc

  válasz Fferi50 üzenetére #47032

  Hihetetlen vagy, nagyon szépen köszönöm. Hatalmas segitség volt. El sem hiszem már készen is vagyok Póbálom magamat képezni de egyedül kissé nehézkes.
  Még egy kérdésem lenne. Ha a formula eredménye 0 akkor az excel mindig #DIV/0 hibát ir. Ezt IF funkcióval szoktam nullázni. Van valami más egyszerübb módja hogy ne legyen a nullától rosszul ? Például ennél a formulánál?
  =Statistic!W41/Statistic!Z41

• Fferi50 Topikgazda

  2021-06-27 17:08:59 #47032

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  válasz EroSennin79 üzenetére #47031

  Szia!
  A Keres - cserél funkciót (Ctrl + F ) használhatod:
  Először keresed a 2020 -at és cseréled 2021-re a képletekben, az összes cseréje.
  Ezután keresed a 2019 -et és cseréled 2020-ra szintén a képletekben, az összes cseréje.
  A december havi tételek képletében megnézed a < utáni dátumot és ha szükséges, akkor az egész dátumot cseréled a jóra.
  Csak magyar képet tudok csatolni:
  
  Üdv.

• EroSennin79 újonc

  2021-06-27 16:48:14 #47031

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  EroSennin79

  újonc

  Sziasztok.
  Segitséget szeretnék kérni.
  Van egy összefoglaló statiszikai táblázat amit készitettem a munkahelyemen.
  Éves összefoglást készit megrendelőkre lebontva, elég sok megrendelőről van szó ezért sok az adat. A kérdésem az lenne hogy hogyan tudnám az alábbi formulában gyorsan kicserélni a tól-ig dátumot. Eddig megoldottam manuálisan de most kissé sürget az idő.
  A formula a Januári cellában ez és ezt minden hónapban meg kell tenni (cellák egymás alatt vannak):
  =COUNTIFS(Datas!I:I,"ONT01", Datas!K:K,"On time delivery",Datas!G:G,">31/12/2019",Datas!G:G,"<01/02/2020")

  Az aktuális érték 31/12/2020 és 01/02/2021 lenne, viszont ez minden hónap cellájában módositani kell megrendelőnként 3x a megfelelő dátumra emelkedő sorrendben. Manuálisan sajnos nagyon sok idő.
  Próbáltam már a google-ban keresni megoldást de nem nagyon találtam jót.
  Csatoltam egy képet a táblázat egy részletéről.
  
  Előre is köszönöm

• karlkani aktív tag

  2021-06-26 10:16:21 #47030

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  karlkani

  aktív tag

  Sziasztok!

  Van egy listám, .m3u8 kiterjesztéssel, ez az A1 cellában van. Szétszedtem, módosítva több csoportba, egy elég ronda képlettel, meg hozzáfűztem, cseréltem, amit kell. Lett 4x30 sornyi adatom, melyeket külön-külön fájlokba (4 darab, .m3u8 kiterjesztéssel) szeretném menteni. A név nem számít, átírom utólag, lehet 1, 2, 3, 4. Az lenne a legjobb, ha egy gombra kattintva létrehozná a listákat. A makrónak úgy kellene kinézni, hogy kiválasztja az A1 cellát, beilleszti a vágólap tartalmát, majd külön-külön fájlokba lementi az A4:A33, A36:A65, A68:A97 és A100:A129 tartományok tartalmát.

  Előre is nagyon szépen köszönöm!

• Delila_1 veterán

  2021-06-25 06:42:32 #47029

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz user112 üzenetére #47028

  A DARABTELI függvényt javaslom.

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

  2021-06-25 06:40:56 #47028

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  user112

  senior tag

  Sziasztok!
  Fkereshez kapcsolódóan kérdeznék.
  Van valami gyors módszer arra, hogy megtudjam lenne e esetleg a másik táblában több találat

• lappy őstag

  2021-06-24 10:38:33 #47027

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  Sziasztok!
  hol lehet beállítani hogy egy munkafüzet mérete ne kisebb méretű legyen (a képernyő 1/4-ben létszik csak?

  Bámulatos hol tart már a tudomány!
• Telda addikt

  2021-06-23 10:29:14 #47026

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Telda

  addikt

  válasz Mutt üzenetére #47024

  Köszi!
  Közben találtam rá egy makrót.

  Sub munkafuzetmasolas()

Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "munkalaplista"
Range("A1").Select


For i = 1 To Sheets.Count - 1

Sheets(i).Select

Range(Cells(1, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
Selection.Copy
Sheets("munkalaplista").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
lastRow = ActiveCell.Row
Cells(ActiveCell.Row, 1).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Next i

End Sub

• Mutt senior tag

  2021-06-22 09:45:27 #47025

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Mutt

  senior tag

  válasz PistiSan üzenetére #47021

  Szia,

  Alapokhoz nekem sokat segített az "M is for Data Monkey" nevű könyv. Régi, de jól elmondja a dolgokat.

  Microsoft hivatalos doksija segít a függvényekben eligazodni.

  Youtube-on pedig Mike Girvin csatornája kiváló forrás, illetve Mynda csatornája.

  üdv

  A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
• Mutt senior tag

  2021-06-22 09:34:25 #47024

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Mutt

  senior tag

  válasz Telda üzenetére #47022

  Szia,

  Ha Excel 2016-osod vagy frissebbed van, akkor a Power Query-vel lehet automatizálni.

  A másik megoldás, hogy mivel az első 14 lapon mindig 65 ezer sor van fixen, akár képlettel is megoldható.
  Lenne egy input.xls és egy template.xlsx nevű fájlom. Az input amit a program kiad. A template-ben pedig egy sima hivatkozás lenne egy lapon az input első lapjára, majd a 65 ezredik sor után a második lapra és így tovább. Az utolsó lap esetén pedig mivel nem lesz minden sor vmi ilyen hivatkozás lenne:
  =HA([input.xls]Sheet15!A1<>"";[input.xls]Sheet15!A1;"")

  Ezek után csak az input fájlt kell cserélgetned és a template-ben kapott eredményt elmenteni értékek beillesztése után.

  Mindkét megoldás hátránya, hogy formátumokat nem másol.
  Ha kell formátum, akkor VBA.

  üdv

  A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
• lappy őstag

  2021-06-22 09:18:22 #47023

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz Telda üzenetére #47022

  Mivel az excel csak ennyi sort kezel így sajnos sehogy

  Bámulatos hol tart már a tudomány!
• Telda addikt

  2021-06-22 09:11:58 #47022

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Telda

  addikt

  Sziasztok!
  Hogyan tudnám a munkalapok tartalmát egymás alá másolni egy munkalapra?
  A program ami kihozza az adatbázist, de csak 65536 sort tud kezelni, ezért mindig új munkalapot csinál.
  Maga az adatbázis viszont 940ezer soros, így 15 munkalapot hoz létre.
  Ezeket szeretném egy munkalapra egymás alá bemásolni.

• PistiSan addikt

  2021-06-22 08:12:36 #47021

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  PistiSan

  addikt

  válasz Mutt üzenetére #47020

  Mindkét verzió eszembe jutott, az általad felsoroltakból.
  Felsoroltam egy külön fájlban amit le kellett vonni, de függvényt nem tudtam írni hozzá, ami amúgy így hogy már leírtad, marha egyszerűen tűnik utólag.
  Mivel összesen 1 névről van szó, ezért az első verziót használtam fel az általad írt megoldások közül!
  Nagyon szépen köszönöm,úgy működik, ahogy elvártam tőle.

  Annyira ritkán kell ilyen egyéni függvény, hogy még soha nem néztem utána rendesen, esetleg ha tudsz hozzá ajánlani egy faék egyszerű dolgokat leíró leírást amit ajánlanál, szívesen elolvasnám.

  Köszi!

• Mutt senior tag

  2021-06-21 17:09:31 #47020

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Mutt

  senior tag

  válasz PistiSan üzenetére #47015

  Szia,

  Új oszlopot kell hozzáadnod:
  

  Egy kicsit univerzálisabb megoldás, hogy egy másik táblában felsorolod hogy melyik név esetén mennyivel kell módosítani az eredményt és utána a két táblát összekapcsolod majd megint új oszlop hozzáadásával számítod a végeredményt.
  

  üdv

  A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
• pigsty aktív tag

  2021-06-21 13:40:18 #47019

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  pigsty

  aktív tag

  válasz Fferi50 üzenetére #47018

  Köszönöm szépen!

  Jobb ma egy veréb, mint holnap egy véreb.
• Fferi50 Topikgazda

  2021-06-21 13:20:34 #47018

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fferi50

  Topikgazda

  válasz pigsty üzenetére #47017

  Szia!
  Az Összefűzés függvényt "helyettesíti" az & . A & B =AB
  Ha valóban dátum van az adott cellában, akkor a cellaformátumot kell megváltoztatnod a kívánt formára. Szerintem a dátumformátumok között ott is van ez a fajta. (Cella - jobb egérgomb - cellaformátum - dátum és ott kiválasztod. Ha nincs ilyen, akkor a cellaformátum után Egyéni és oda beírod a kívánt formátumot.)
  Ha szöveg van - dátumnak kinézően, akkor a szövegdaraboló függvényeket tudod használni a forma eléréséhez:
  =BAL(A1;4) & "." & KÖZÉP(A1;5;2) & "." & JOBB(A1;2)
  Üdv.

• pigsty aktív tag

  2021-06-21 12:26:26 #47017

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  pigsty

  aktív tag

  válasz pigsty üzenetére #47016

  + ezt hogy lehet megoldani ha a dátumformátum "20210614"-ban van, egy makróval/függvénnyel berakja a tagolást, így "2021.06.14."

  Jobb ma egy veréb, mint holnap egy véreb.
• pigsty aktív tag

  2021-06-21 11:43:32 #47016

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  pigsty

  aktív tag

  Üdv,
  olyankor mi van, ha hiányzik a "SZÖVEGÖSSZEFŰZÉS" képlet? Excel 2016
  Múlt héten még megvolt.
  két oszlop összeillesztéséhez kellen, óra és perc oszlopból egy oszlopba illessze össze HH:MM formába.

  --
  A Szöveg-> Összefűznél hiányzik az elválasztó, és üreset mellőz lehetőség.

  Jobb ma egy veréb, mint holnap egy véreb.
• PistiSan addikt

  2021-06-21 10:36:17 #47015

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  PistiSan

  addikt

  Sziasztok!

  Power Query-szerkesztő-ben össze hoztam magamnak strukturáltan az adatokat.
  NÉV | SZÁM1 | SZÁM2
  Kacsa | 12,5 | 21
  Kutya | 16 | 45

  Annyit szeretnék, hogy a a "Kacsa"-val kezdődő sorban a "SZÁM1" és "SZÁM2"-ból kivonjak mondjuk 5-öt.
  Olyat találtam, hogy a teljes oszlopból vonjon ki egy számot, de nekem az azért nem jó, mert ez egy egyedi eset, 1 adott név melletti értékből kell kivonni 2 különböző számot.

• MostaPista tag

  2021-06-20 20:39:39 #47014

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MostaPista

  tag

  Sajnos 46989-es kerdesem azota is valaszra var.

• zsolti_20 senior tag

  2021-06-20 16:22:40 #47013

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  Sziasztok!
  
  Azt lehet esetleg tudni, hogy kijelentkezett windows alatt miert nem lehet hasznalni copy pastet excel VBA kodban?
  
  Csupan egy szimpla cella masolasrol lenne szo egyik wokrbookbol a masikba. A kod le is fut szepen miko be vagyok jelentkezve, de ha nyomok egy windows + L-t akkor a kod mindig megakad a paste-nal.
  
  Lehetseges, hogy mikor kijelentkezek, akkor pauseolja a windowst?
  Bar a fura dolgo az egeszben, hogy a masik filet megnyitja, de a cella tartalom nem kerul at csak egy hibat ir.
  
  "Run-time error '1004':
  
  PasteSpecial method of Worksheet class failed.
  
  ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
  False, NoHTMLFormatting:=True
  
  Elkepzelheto hogy ez valami vedelem reszben? Amint belepek a windowsba ujra es emgnezem, semmi nincs a vagolapon. Szoval ugy tunik a masolas sem tortenik meg.

• Chrisluke csendes tag

  2021-06-19 12:28:59 #47012

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Chrisluke

  csendes tag

  Sziasztok, Kaptam több oldalas költségvetést egyetlen munkalapon. A nyomtatás során a táblázat össze-vissza került volna a lapokra egyes tételekt el is választott volna fele erre a lapra fele a másik lapra került volna ezt megoldottam a töréspontokkal. Az utolsó lapon azonban egyetlen tétel van ezt a tételt a lap közepére akarja nyomtatni, olyan mintha lennének üres sorok elötte pedig nincsenek. Hogyan tudnám ezt a tételt a lap tetéjére igaztani?

• Delila_1 veterán

  2021-06-19 05:55:08 #47011

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz MostaPista üzenetére #47010

  Sajnos...

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

  2021-06-19 00:21:06 #47010

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  MostaPista

  tag

  válasz Delila_1 üzenetére #33224

  Ez a link mar nem el, atiranyit valami MS regisztracios weboldalra.

• Nixon18 senior tag

  2021-06-18 16:54:14 #47009

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Nixon18

  senior tag

  válasz Delila_1 üzenetére #47006

  Köszönöm mindkettőtöknek!
  Ez valamiért nem jutott az eszembe egyáltalán...

• zsolti_20 senior tag

  2021-06-18 15:47:31 #47008

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  válasz zsolti_20 üzenetére #47007

  A kép lemaradt véletlenül:
  [link]

• zsolti_20 senior tag

  2021-06-18 14:50:16 #47007

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  zsolti_20

  senior tag

  válasz Fferi50 üzenetére #47000

  Köszönöm szépen a jobbnál jobb kódokat.
  
  Linkelek ide egy képet, az A oszlopban vannak az értékek, B oszlop Delila_1 gyártott kód eredménye C oszlop Fferi50 kódjának eredménye.
  

  Ahogy látom a Fferi50 a te kódodnál végülis mindegy mennyi elválasztás történik, az utolsó tömb értéke elé lesz beszúrva a "." aztán össze fűzzük a maradékot. Így a forrás lehet bármekkora, működni fog.

• Delila_1 veterán

  2021-06-18 05:28:20 #47006

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz Nixon18 üzenetére #47004

  [link]
  A szűrőtartomány >=4 legyen.

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

  2021-06-18 03:02:43 #47005

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz Nixon18 üzenetére #47004

  Mondjuk egy sima szűréssel is megoldhato

  Bámulatos hol tart már a tudomány!
• Nixon18 senior tag

  2021-06-17 22:39:26 #47004

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Nixon18

  senior tag

  Sziasztok!

  Hogyan tudok egy táblázategyik oszlopából kigyűjteni egy másik munkalapra neveket az alapján, hogy a névhez tartozó átlag 4 vagy annál nagyobb?

  Köszi!

• lappy őstag

  2021-06-17 20:03:13 #47003

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  lappy

  őstag

  válasz RAiN91 üzenetére #47002

  Szöveg.keres függvényt ajánlom.
  Valahogy így nézne ki: ha(vagy(szöveg.keres();szöveg.keres()...;összefűz(b1:b3);0)

  Bámulatos hol tart már a tudomány!
• RAiN91 őstag

  2021-06-17 19:33:53 #47002

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  RAiN91

  őstag

  Sziasztok,

  adott A1 cella, amiben 5-6 különböző szó van, szóközzel elválasztva. És mindig változnak a szavak, a sorrend is.

  Ebből szeretnék kiragadni bizonyos szavakat akkor, ha megegyezik az általam előre definiált szavakkal.

  Konkrét példa:

  A1 cella jelenleg: szó1 szó7 szó3 szó4 szó5

  B oszlopban egymás alatt, a szavak, amiket keresek: szó5, szó8, szó9

  C1 cellában szeretném látni szó5, szó8 vagy szó9-et akkor, ha A1-ben valahol szerepelnek.

  A sorrend A1-ben nem fix, ezért a "BAL" "KÖZÉP" stb. függvény sajnos nem jó. Van erre valami kereső függvény esetleg, vagy csak VBA-val tudom megoldani?

  Köszömöm előre is!

• Delila_1 veterán

  2021-06-17 18:36:34 #47001

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Delila_1

  veterán

  válasz Fferi50 üzenetére #47000

  

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

Új hozzászólás Aktív témák