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

• #54685 szricsi_0917 tag

  Új Válasz 2025-10-17 12:34:33 #54685

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Egy kis segítséget szeretnék kérni vba kódhoz.
  A feladat az lenne, hogy 1 vagy több lekérdezés frissítésekor kikapcsolja az automatikus számítást és ha végzett akkor kapcsolja vissza. Ez lehet a fájl megnyításakor vagy megnyított állapotban is.

  Option Explicit
Private Sub Workbook_Open()
    ' Amikor a munkafüzet megnyílik, indítjuk a figyelőt
     Application.OnTime Now + TimeSerial(0, 0, 5), "Intelligens_lekerdezes.StartQueryMonitor"
End Sub
Private Sub Workbook_Activate()
    ' Ha valamiért még nem futna, indítsuk el a monitort
    Call Intelligens_lekerdezes.StartQueryMonitor
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' Bezáráskor leállítjuk a figyelőt
    Call Intelligens_lekerdezes.StopQueryMonitor
End Sub

  Option Explicit
Private nextCheckTime As Date
Private wasRunning As Boolean
Private stableCount As Integer
' --- Fő figyelő ---
Public Sub QueryMonitor()
    Dim conn As WorkbookConnection
    Dim isRunning As Boolean
    
    On Error Resume Next
    
    ' --- Ellenőrzés: van-e futó Power Query lekérdezés ---
    For Each conn In ThisWorkbook.Connections
        If InStr(1, conn.Name, "Query -", vbTextCompare) > 0 Or _
           InStr(1, conn.Name, "Lekérdezés -", vbTextCompare) > 0 Then
            If conn.Refreshing Then
                isRunning = True
                Exit For
            End If
        End If
    Next conn
    
    ' --- Ha bármelyik fut, állítsuk manuális számításra ---
    If isRunning Then
        If Application.Calculation <> xlCalculationManual Then
            Application.Calculation = xlCalculationManual
            Application.StatusBar = "Power Query frissítés folyamatban… képletek leállítva."
        End If
        wasRunning = True
        stableCount = 0
    Else
        ' --- Ha nincs futó lekérdezés ---
        If wasRunning Then
            stableCount = stableCount + 1
            ' Legalább 3 egymást követő ciklusig nem fut semmi
            If stableCount >= 3 Then
                ' --- Minden kész: üzenet és automatikus számítás visszaállítása ---
                Application.StatusBar = False
                wasRunning = False
                stableCount = 0
                MsgBox "Minden lekérdezés elkészült!", vbInformation, "Kész"
                Application.Calculation = xlCalculationAutomatic
            End If
        End If
    End If
    
    ' --- Újraütemezés 2 mp múlva ---
    nextCheckTime = Now + TimeSerial(0, 0, 2)
    Application.OnTime nextCheckTime, "Intelligens_lekerdezes.QueryMonitor"
End Sub
' --- Indítás (pl. Workbook_Open) ---
Public Sub StartQueryMonitor()
    On Error Resume Next
    StopQueryMonitor   ' Biztonsági leállítás
    wasRunning = False
    stableCount = 0
    ' --- Excel megnyitáskor automatikus számítás kikapcsolása ---
    Application.Calculation = xlCalculationManual
    nextCheckTime = Now + TimeSerial(0, 0, 2)
    Application.OnTime nextCheckTime, "Intelligens_lekerdezes.QueryMonitor"
End Sub
' --- Leállítás ---
Public Sub StopQueryMonitor()
    On Error Resume Next
    Application.OnTime nextCheckTime, "Intelligens_lekerdezes.QueryMonitor", , False
    Application.StatusBar = False
End Sub

  A probléma mintha nem érzékelné mikor fejeződik be a lekérdezés.
  Mi lehet a probléma?

• #49520 szricsi_0917 tag Fferi50 #49519

  Új Válasz 2022-09-02 16:18:08 #49520

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Fferi50 #49519 üzenetére

  Szia,
  
  Reméltem valami elegáns megoldást, de akkor lehet szumhatöbbel eltoltan összeadom őket és rejtett oszlopként beszúrom mindenhova az "A" oszlop értékét.
  Nem tudom sorfolytonosan, mert ezek mellett más adatokat is tartalmaznak a sorok.
  
  Köszönöm a segítséget!

• #49518 szricsi_0917 tag

  Új Válasz 2022-09-02 15:55:21 #49518

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  Egy kis segítséget szeretnék kérni. Milyen függvénnyel lehetne megoldani az alábbi problémát:
  

  Csináltam egy mintát a táblázatról.
  Az "A" oszlop fix. a "B", "C", "D" oszlop ugyanilyen sorrendben ismétlődik és adatokat tartalmaz (a fejléc számozása növekszik).
  Milyen módon tudnám összeadni a FEL/* oszlopokban található számok összegét azzal a feltétellel, hogy az "A" oszlopban található érték a "Cég1" és a Cikkszám/* oszlopokban található érték pedig az "1234". Próbáltam az eltolt szumha függvényt, de mivel az "A" oszlop nem ismétlődik így azt nem tudom használni.

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

• #47069 szricsi_0917 tag Delila_1 #47067

  Új Válasz 2021-07-02 06:49:11 #47069

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Delila_1 #47067 üzenetére

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

• #47066 szricsi_0917 tag Delila_1 #47045

  Új Válasz 2021-07-01 16:11:04 #47066

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Delila_1 #47045 üzenetére

  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

• #47047 szricsi_0917 tag Delila_1 #47045

  Új Válasz 2021-06-29 11:24:44 #47047

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Delila_1 #47045 üzenetére

  Szia
  
  Köszi. Mindenhol ott vagy!

• #47039 szricsi_0917 tag

  Új Válasz 2021-06-28 15:22:23 #47039

  Ú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

  Privát üzenet küldése

  

  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!

• #45549 szricsi_0917 tag

  Új Válasz 2020-12-10 10:38:32 #45549

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  
  Segítséget szeretnék kérni.
  Van egy excel fájl aminek az indítása után elméletileg nem jelenne meg a táblázat hanem azonnal egy userformot indít, de sajnos az indításnál feldobja a biztonsági figyelmeztetést, hogy letíltotta a makrókat. Van erre mód, hogy csak ennél az excel táblázatnál ne vegye figyelembe ezeket a biztonsági beállításokat?

• #45380 szricsi_0917 tag Fferi50 #45379

  Új Válasz 2020-11-20 16:06:39 #45380

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Fferi50 #45379 üzenetére

  Szia igen ez igaz, de 3 oszlop van.

• #45378 szricsi_0917 tag Fferi50 #45376

  Új Válasz 2020-11-20 15:33:30 #45378

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Fferi50 #45376 üzenetére

  Szia
  
  Sajnos nem az a baja.
  "Could not get the Column property. Invalid property array index".

• #45374 szricsi_0917 tag

  Új Válasz 2020-11-20 13:20:24 #45374

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  
  Egy kis segítséget szeretnék kérni:
  Me.Controls("ida" & bb & "_osszerend_auto_box").Column(1)
  Problémája van a combobox oszlopszámának megadásával. A Me.controls objektumba hogyan lehet megadni az oszlop számát?
  
  Előre is köszi a segítséget!

• #44296 szricsi_0917 tag szricsi_0917 #44295

  Új Válasz 2020-06-17 17:04:11 #44296

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz szricsi_0917 #44295 üzenetére

  Sziasztok
  
  Közben megtaláltam a megoldást!

• #44295 szricsi_0917 tag

  Új Válasz 2020-06-17 16:11:09 #44295

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Egy kis segítséget szeretnék kérni.
  Mi lehet a probléma az alábbi makró részlettel?
  Ez csak egy teszt, tehát csak próba elnevezések vannak benne:

  Sub proba()
Set abc = Sheets("Összerendelés").Range("A1:A10000").Find(What:=18, LookIn:=xlValues)
Set abc1 = abc.Offset(0, 29)
Sheets("Összerendelés").Range("af6") = Application.WorksheetFunction.CountA("Összerendelés!" & abc.Address & ":" & abc1.Address)
End Sub

  Szerintem rosszul adom meg a CountA tartományát.

• #44138 szricsi_0917 tag Mutt #44127

  Új Válasz 2020-05-27 12:38:26 #44138

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Mutt #44127 üzenetére

  Szia
  Köszönöm szépen a segítséget!
  Nem nagyon értek a VBA-hoz így nem gondoltam volna, hogy az indirekttel is baja lesz.
  A 11 oszlop eredménye for ciklusban van így mindig a legnagyobbat menti el, csak ezt nem írtam oda, mert az a része működik.

• #44126 szricsi_0917 tag Mutt #44122

  Új Válasz 2020-05-26 17:38:58 #44126

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Mutt #44122 üzenetére

  Szia

  Sub kmfrissites_auto()
Dim auto As Worksheet
Dim utnyilvan As Worksheet
Dim szerviz As Worksheet
Dim lastrow
Dim lastrow1
Dim lastrow2
Dim i As Long
Dim a As Long
Dim vMax As Double
Dim xMax As Double
'On Error GoTo kmfrissites_auto_Error
Set auto = Sheets("Autó")
Set utnyilvan = Sheets("Útnyilvántartó")
Set szerviz = Sheets("Szerviznyilvántartó")
lastrow = auto.Cells(Rows.Count, 1).End(xlUp).Row
lastrow1 = utnyilvan.Cells(Rows.Count, 1).End(xlUp).Row
lastrow2 = szerviz.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
For a = 10 To 21  
  auto.Range("V" & i) = Evaluate("=SumProduct(Max((Szerviznyilvántartó!B2:B" & lastrow2 & " = Autó!B" & i & ") * (INDIRECT(""'Szerviznyilvántartó'!"" & address(2," & a & ",4) & "":"" & INDIRECT(address(" & lastrow2 & "," & a & ",4)) = ""Motorolajcsere"") * Szerviznyilvántartó!G2:G" & lastrow2 & "))")

  Átalakítottam az általad javasolt megoldásra viszont újabb probléma merült fel.
  Több feltételt szeretnék hozzárakni. A probléma, hogy a 2. feltétel más méretű tömb mint a többi így ugye hibára fut a képlet.
  For ciklussal oldottam meg, hogy a 2. feltételnél oszloponként megy újra végig és mindig az utolsó legnagyobb értéket hagyja meg így a végén megkapom majd a maximum értéket.
  A probléma, hogy az indirect megoldással mindig érték hibára fut. Mi lehet a probléma?

• #44123 szricsi_0917 tag Mutt #44122

  Új Válasz 2020-05-26 12:48:31 #44123

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Mutt #44122 üzenetére

  Szia
  
  Köszönöm a segítséget, nem gondoltam volna, hogy a VBA nem tudja kezelni a MAX képlettel.
  Sajnos én olyan verziót használok amiben nincs MAXHA függvény pedig már rég kész lenne.
  AB.MAX-ot vagy kimutatást azért nem akartam, mert ez egy userformhoz tartozik és ezután még lesz pár számítás így az csak plusz lépés lett volna és nem tudom mennyire lenne lassabb mikor már több ezer sor van, a másik pedig, hogy így elegánsabb.

• #44121 szricsi_0917 tag

  Új Válasz 2020-05-26 12:01:52 #44121

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Sub kmfrissites_auto()
Dim auto As Worksheet
Dim utnyilvan As Worksheet
Dim szerviz As Worksheet
Dim lastrow
Dim lastrow1
Dim lastrow2
Dim i As Long
Set auto = Sheets("Autó")
Set utnyilvan = Sheets("Útnyilvántartó")
Set szerviz = Sheets("Szerviznyilvántartó")
lastrow = auto.Cells(Rows.Count, 1).End(xlUp).Row
lastrow1 = utnyilvan.Cells(Rows.Count, 1).End(xlUp).Row
lastrow2 = szerviz.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
 auto.Range("U" & i) = Application.WorksheetFunction.SumProduct(Application.WorksheetFunction.Max((utnyilvan.Range("B2:B" & lastrow1) = auto.Range("B" & i)) * utnyilvan.Range("C2:C" & lastrow1)))
 Next i

  Az auto.Range..... sornál miért fut "type mismatch" hibára?
  Köszönöm a segítséget!

• #44114 szricsi_0917 tag

  Új Válasz 2020-05-25 15:48:31 #44114

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Segítséget szeretnék kérni!
  Át akarom forgatni vba-ba a =SZORZATÖSSZEG(MAX((Szervíznyilvántartó!B2:B1000=B2)*Szervíznyilvántartó!G2:G1000))

  Ha beírom egy cellába ez működik is, tehát a számítás elgondolása helyes.
  VBA:
  auto.Range("U" & i) = Application.WorksheetFunction.SumProduct(Max((utnyilvan.Range("B2:B" & lastrow1) = auto.Range("B" & i)) * utnyilvan.Range("C2:C" & lastrow1)))
  A for "i" ciklus és a lastrow működik, mert ha egy egyszerűbb függvényt írok a helyére tökéletesen végig megy.
  Lehetséges, hogy vba-ba nem így kell összefűzni a SUMPRODUCT-ot és a MAX-ot?

• #43882 szricsi_0917 tag Guitar14 #43881

  Új Válasz 2020-05-08 15:13:17 #43882

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Guitar14 #43881 üzenetére

  Szia

  Tartsd nyomva a Shift gombot, amikor indítani akarod a 2. Excel-t és úgy nyisd meg a fájlt.

• #43789 szricsi_0917 tag SkiDev #43786

  Új Válasz 2020-04-30 16:57:04 #43789

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz SkiDev #43786 üzenetére

  Szia SkiDev!
  
  Inkább megosztottam hátha tudja más is használni ami benne van.

• #43788 szricsi_0917 tag

  Új Válasz 2020-04-30 16:31:30 #43788

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Szia SkiDev!

  Küldesz nekem prívátban egy email címet, mert van egy kész jelenléti táblázatom. Hátha tud segíteni néhány dologban.

• #43768 szricsi_0917 tag Fferi50 #43763

  Új Válasz 2020-04-29 16:44:01 #43768

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Fferi50 #43763 üzenetére

  Szia
  
  Ez a megoldás sem lenne rossz csak sajnos lassú a szűrés amikor nagy adatmennyiségről van szó és így nem segíti a felhasználó munkáját.

• #43767 szricsi_0917 tag Pá #43762

  Új Válasz 2020-04-29 16:20:39 #43767

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Pá #43762 üzenetére

  Szia
  
  Ebből a videóból próbálj mazsolázni, mert szerintem a Power Query a megoldás számodra, de a nálam hozzáértőbbek megcáfolnak, ha nem lenne igazam.

• #43759 szricsi_0917 tag Fferi50 #43758

  Új Válasz 2020-04-29 15:17:12 #43759

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Fferi50 #43758 üzenetére

  Szia

  Igen ez lenne a felállás, de még a b oszlopban is lehet több azonos egy adott névhez, de ez már részlet kérdés.
  Amiket eddig találtam pl vagy pl azok kategóriák alapján oldják meg a lista szűrését, itt pedig egymás után kéne vizsgálnia az oszlopokat.
  A nagy kérdés, hogy egy feltétel igaz értékeit, hogy tudom berakni egy tömbbe, mert utána eltolással már kész is lenne a lista, ha jól gondolom?

• #43757 szricsi_0917 tag Fferi50 #43756

  Új Válasz 2020-04-29 14:51:38 #43757

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Fferi50 #43756 üzenetére

  Szia
  
  A probléma, hogy egy név többször is szerepelhet az A oszlopban. A másik sheeten ahol a legördülő listák lennének pedig nem biztos, hogy adott név mindegyik sora szerepelni fog.

• #43755 szricsi_0917 tag

  Új Válasz 2020-04-29 13:43:07 #43755

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Egy kis segítséget szeretnék kérni.
  Példa:

  Ezeket az információkat az Adatokat sheeten tárolom.De szeretném használni a lista sheeten is olyan módon, hogy legördülő listában tudjam kiválasztani a különböző adatokat.
  Milyen módon lehet megoldani, hogy ha kiválasztom a lista sheeten az A oszlopban a "Csabit"-t akkor a B oszlopban ami a kivitel lesz már csak a hozzá tartozó "asztali" lehetőséget hozza fel a legördülő listában és így tovább a többi oszlopban is.

• #43711 szricsi_0917 tag Fferi50 #43710

  Új Válasz 2020-04-27 13:50:51 #43711

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Fferi50 #43710 üzenetére

  Szia
  
  Igen egy két helyen rosszul fogalmaztam, de már tárgytalan a kérdés, mert makróval megoldottam.
  Köszönöm.

• #43709 szricsi_0917 tag

  Új Válasz 2020-04-27 12:36:45 #43709

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  
  Szeretnék kérni egy kis segítséget.
  Egy sheeten az A oszlop legördülő lista (ehhez az adatok a B oszlopban vannk pl). Tegyük fel, hogy az A1 oszlopban kiválasztom a Kis Pistát a legördülő lista alapján. Milyen módszerrel lehet azt megoldani, hogy ha a B oszlopban ahol az adatok vannak a Kis Pistát átmódosítom Kis Pistikére akkor az a oszlopban is automatikusan megváltozzon?

• #43694 szricsi_0917 tag lappy #43693

  Új Válasz 2020-04-24 17:24:54 #43694

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz lappy #43693 üzenetére

  Ezzel akkor nem formázhatom táblázattá a sheetet, hogy nyomonkövesse a változást a többi sheeten is ahol azonos adatot tartalmaz?

• #43692 szricsi_0917 tag

  Új Válasz 2020-04-24 15:13:52 #43692

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  
  Egy kis segítséget szeretnék kérni.
  Van két sheet mindegyik táblázattá formázva, az egyik dolgozók a másik autók. A dolgozókban egyik oszlop a nevek. Az autók sheeten legördülő listát csináltam, hogy ki tudjak választani egy dolgozó nevet a dolgozó sheet alapján. A kérdésem, hogy milyen módszerrel lehet megoldani, hogy ha a dolgozók sheeten pl megváltoztatom a dolgozó nevét akkor az autók sheeten is azonnal frissüljön?

• #43140 szricsi_0917 tag Mutt #43138

  Új Válasz 2020-02-26 07:07:10 #43140

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Mutt #43138 üzenetére

  Szia
  
  Köszönöm a segítséget, letesztelem melyik a könnyebb megoldás.

• #43136 szricsi_0917 tag

  Új Válasz 2020-02-25 19:24:15 #43136

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok!
  Egy kis segítséget szeretnék kérni, házszámot szeretnék szétválasztani a szám és a betű részére.Példák: 121a, 1-3b, 12/b/2, 1-3.
  Idáig jutottam:
  =MAX(HA(HIBÁS(SZÖVEG.KERES("1";H2));0;SZÖVEG.KERES("1";H2));....(benne vannak a számok 1-9.
  Ezzel az a probléma, ha pl "212a" az érték akkor nem a 2. kettesnek a karakterszámát hozza fel. Lehet az egészet rossz oldalról közelítettem meg?!
  Előre is köszönöm a segítséget!

• #41812 szricsi_0917 tag karlkani #41810

  Új Válasz 2019-09-25 07:29:49 #41812

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz karlkani #41810 üzenetére

  Köszönöm a segítséget, segédoszlop nélkül akartam megoldani, de ha nem lehet akkor nem lehet úgyhogy ezzel majd kezdek valamit.

• #41808 szricsi_0917 tag Delila_1 #41807

  Új Válasz 2019-09-24 12:20:39 #41808

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Delila_1 #41807 üzenetére

  Szia
  Másra gondoltunk.
  Háttér: Nekem egy kis raktárkezelő excelhez kell. Az A oszlopban van a bevitt mennyiség a B oszlopban a kiadott, a C oszlopban pedig a jelenlegi készlet.

  A C oszlophoz kellene az adatsávos formázás, de soronként nézve az adatokat, tehát pl ha A1=10 a B1=5 és a C1=5 akkor az adatsáv 50%-osan színezzen pl. És ezt így kéne néznie folyamatosan soronként.

• #41806 szricsi_0917 tag

  Új Válasz 2019-09-24 11:02:23 #41806

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  Segítséget szeretnék kérni. A problémám az lenne, hogy van a C oszlop 500 sorral amin adatsávos formázást szeretnék alkalmázni, de úgy, hogy a legkisebb érték az adott sor A oszlopában van a legnagyobb pedig a B oszlopában. A probléma, hogy nem enged relatív hivatkozást csinálni, abszolút hivatkozással pedig csak soronként lehetne megcsinálni, ami elég sokáig tartana. Van erre esetleg valami megoldás?

• #41772 szricsi_0917 tag

  Új Válasz 2019-09-16 09:04:07 #41772

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  
  [Ebben] a kérdésben tudnátok segíteni?

• #41741 szricsi_0917 tag

  Új Válasz 2019-09-13 12:37:54 #41741

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Segítséget szeretnék kérni. A problémám az lenne, hogy van a C oszlop 500 sorral amin adatsávos formázást szeretnék alkalmázni, de úgy, hogy a legkisebb érték az adott sor A oszlopában van a legnagyobb pedig a B oszlopában. A probléma, hogy nem enged relatív hivatkozást csinálni, abszolút hivatkozással pedig csak soronként lehetne megcsinálni, ami elég sokáig tartana. Van erre esetleg valami megoldás?

• #41255 szricsi_0917 tag

  Új Válasz 2019-06-25 12:08:29 #41255

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Egy kis segítséget szeretnék kérni.
  Egy adatbázisból lehúzok egy listát ahol a számok is szövegként szerepelnek.
  Van egy összesítő táblázatom ahova beillesztem értékként viszont akkor is szöveg marad pedig általánosra van formázva, de ha megnyitok egy üres excelt és oda illesztem be értékként akkor már átalakítja számmá.
  Mi lehet ennek az oka?

• #41219 szricsi_0917 tag ny.janos #41218

  Új Válasz 2019-06-17 19:24:00 #41219

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz ny.janos #41218 üzenetére

  Kipróbálom, köszi!

• #41216 szricsi_0917 tag

  Új Válasz 2019-06-17 11:15:46 #41216

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Lenne egy problémám. Van egy excel táblázatom ami a megnyitáskor nagyon lassan tölt be. Értekezlet megnyitását tölt, ami elég sokáig tart. A kérdésem, hogy mi ez az értekezlet és hogyan lehet kikapcsolni?

• #41209 szricsi_0917 tag ny.janos #41208

  Új Válasz 2019-06-14 08:21:11 #41209

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz ny.janos #41208 üzenetére

  Én is erre jutottam, de valahogy mindig értékhibát hoz fel.

• #41207 szricsi_0917 tag ny.janos #41200

  Új Válasz 2019-06-14 07:40:49 #41207

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz ny.janos #41200 üzenetére

  Szia

  Még egy kis technikai segítség, mert elakadtam. hogy tudsz hozzáadni még egy feltételt ami pl az x oszlopban van és csak számolja össze az értékeket ha pl az x oszlop adott sorában 1-es van?

• #41199 szricsi_0917 tag ny.janos #41198

  Új Válasz 2019-06-12 07:07:54 #41199

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz ny.janos #41198 üzenetére

  Köszönöm szépen a segítséget. Fogalmam sem volt, hogy a szumha feltétele így is képes kiszámolni. Én is a szorzatösszegen gondolkodtam és az is fog maradni, mert átváltom 4 dimenziósra a többi feltétel miatt.
  Köszi mégegyszer!

• #41196 szricsi_0917 tag

  Új Válasz 2019-06-11 20:00:04 #41196

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  

  Lenne egy hasonló táblázat ahol a megnevezés és a darabszám egymás mellett ismétlődik. A kérdés az lenne, hogy tudom kiszámolni ebben a 2 oszlopos ismétlődésekben pl az anyag1-hez tartozó darabszámok összegét?
  Előre is köszi a segítséget.

• #39072 szricsi_0917 tag

  Új Válasz 2018-09-06 10:31:27 #39072

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok

  Egy kis segítséget szeretnék kérni makróval kapcsolatban. Van egy minta táblázatom aminek az egyik munkalapján két oszlop van az első cikkszámok a mellette lévő pedig azok elnevezése.
  A kérdés, hogy van egy mappa amiben nagyon sok excel fájl van de mind azonos felépítésű de csak az egyik munkalapja érdekel. Azt szeretném, hogy minden fájlnak nyissa meg az adott munkalapját majd a minta tábla alapján keresse meg a cikkszámokat és ahol egyezést talál ott írja felül a mellette lévő oszlopban az elnevezést

• #38904 szricsi_0917 tag

  Új Válasz 2018-08-21 08:01:42 #38904

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok.
  Olyan kérdésem lenne, hogy excel 2010-ben van esetleg olyan lehetőség, hogy a kimutatásnál egy teljes mappát választasz ki adatforrásként és ha új excel fájl kerül bele akkor azt automatikusan hozzáadja?

• #38011 szricsi_0917 tag szricsi_0917 #38007

  Új Válasz 2018-05-11 11:43:29 #38011

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz szricsi_0917 #38007 üzenetére

  =SZUM(ELTOLÁS(INDEX(B5:B600;HOL.VAN(V2;B5:B600;0));;7):ELTOLÁS(INDEX(B5:B600;HOL.VAN(V2;B5:B600;0));;18))

  Ez a képlet lett, kicsit változtatva közben a táblázat kinézetén is. Vagy van ennél egyszerübb is esetleg?

• #38007 szricsi_0917 tag

  Új Válasz 2018-05-11 11:10:46 #38007

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok.

  Az lenne a kérdésem, hogy a szumha függvénynél, hogy oldható meg hogy a keresési tartomány pl az A oszlop
  de az összegzendő tartomány az a C oszloptól a T oszlopig tart?

• #37994 szricsi_0917 tag Mutt #37993

  Új Válasz 2018-05-09 09:20:13 #37994

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Mutt #37993 üzenetére

  Köszönöm a segítséged!

• #37992 szricsi_0917 tag Mutt #37991

  Új Válasz 2018-05-08 12:54:20 #37992

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Mutt #37991 üzenetére

  Még egy kis segítséget szeretnék kérni.
  Jelenleg itt tartok:
  =SZORZATÖSSZEG(--ÉS(VAGY(HÉT.NAPJA(D$1;11)>5;SZÁM(HOL.VAN(D$1;$A$4:$A$20;0)));NEM(SZÁM(HOL.VAN(D$1;$A$32:$A$47;0))))*SZÁM(D2:AH2))

  Azt szeretném vele elérni, hogy az a oszlopban vannak munkaszüneti napok és kötelező munkanapok, így viszonyítson ahhoz is, ne csak annyit nézzen, hogy hétvégi nap-e. Valamiért most mindegyiket számolja ahol szám van. A4:A20-ig a munkaszüneti napok vannak A32:A47-ig pedig a kötelező munkanapok.

• #37990 szricsi_0917 tag

  Új Válasz 2018-05-08 09:21:16 #37990

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Sziasztok
  Abban kérném a segítségeteket, hogy egy táblázat első sorában vannak a hónap napjai a következő sorokban pedig személyek, hogy milyen napokon dolgoztak.
  Van rá megoldás makró nélkül olyan függvény ami kiszámolja minden sorban, hogy hány darab cella van ami számot tartalmaz de azzal a feltétellel, hogy ahol talált olyan cellát ami számot tartalmaz annak az oszlopnak az első sora (ahol a dátumok vannak) hétvége?

• #37918 szricsi_0917 tag Mutt #37917

  Új Válasz 2018-04-26 15:28:28 #37918

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz Mutt #37917 üzenetére

  Lehet én vagyok a béna de nekem nem sikerül ezzel.
  A sor amiben a dátumok vannak dátumra is van formázva, benne a képlet:

  (=HA(D1="";"";HA(DÁTUM(ÉV(D1);HÓNAP(D1);NAP(D1)+1)=DÁTUM(ÉV($B$1);HÓNAP($B$1)+1;NAP($B$1));"";D1+1))

  ez azért van, hogy automatikus legyen a hossza az adott hónaphoz és ne nekem kelljen beírni a dátumokat.
  A képletem ahhoz, hogy megtaláljam a hétvégi napokat és a munkaszüneti napokat:

  =ÉS(VAGY(HÉT.NAPJA(D$1)=7;HÉT.NAPJA(D$1)=1;D$1=$A$4;D$1=$A$5;D$1=$A$6;D$1=$A$7;D$1=$A$8;D$1=$A$9;D$1=$A$10;D$1=$A$11;D$1=$A$12;D$1=$A$13;D$1=$A$14;D$1=$A$15;D$1=$A$16;D$1=$A$17;D$1=$A$18;D$1=$A$19;D$1=$A$20);ÉS(D$1<>$A$32;D$1<>$A$33;D$1<>$A$34;D$1<>$A$35;D$1<>$A$36;D$1<>$A$37;D$1<>$A$38;D$1<>$A$39;D$1<>$A$40;D$1<>$A$41;D$1<>$A$42;D$1<>$A$43;D$1<>$A$44;D$1<>$A$45;D$1<>$A$46;D$1<>$A$47))

  Ez azért ilyen hosszú mert az A oszlopban kézzel be vannak írva a munkaszüneti és a kötelező munkanapok.

  Én azon logika mentén kezdtem el haladni, hogy ha a darab függvény számolná össze azokat a cellákat amiben van szám cellánként az adott sorban, de csak akkor ha az adott cella oszlopának első sorában ennek a két függvénynek valamelyike teljesül. Csak azt nem tudom, hogy kell feltételes eltolással használni a darab (vagy darabhatöbb) függvényt.

• #37916 szricsi_0917 tag szricsi_0917 #37915

  Új Válasz 2018-04-26 08:39:32 #37916

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  válasz szricsi_0917 #37915 üzenetére

  Még egy kis kiegészítés hozzá. A függvényem megvan, hogy milyen módon számolja ki a hétvégi napokat és esetleg a munkaszüneti napokat is, de nem tudom milyen módon kell alkalmazni, hogy eltolással számolja ki a darabszámokat a vizsgált cellák alapján.

• #37915 szricsi_0917 tag

  Új Válasz 2018-04-26 08:31:36 #37915

  Ú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

  Privát üzenet küldése

  

  szricsi_0917

  tag

  Szasztok.
  Egy kis segítséget szeretnék kérni, adott ez a táblázat
  

  A felső sor a hónap napjai, az alsó sor pedig, hogy hány órát dolgozott a kolléga.
  Milyen függvényell oldható meg, hogy összeszámolja hány olyan cella van az adott sorban ami számot tartalmaz, de csak azokat nézze amelyik hétvégi napra esik a felső sor alapján?

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