Nagyon szépen köszönöm Imre!
Majd elemzem, ezek szerint meglehet csinálni, csak érteni kell hozzá.
Ez nekem egy lökőerő!
😊

Ez így nem fog menni PQ-val.
A három új oszlopba az értékeket a mintafájlból veszi, mindenhová ezt akarja beírni.
Holott minden mappába más Dátum, megrendelés-szám, Rendelte(Név) van!
A sorok száma is változik, így hibát dob mindig.
Erre van megoldás?
Vagy tegyem át minden megrendelőben a három oszlopot?

Köszönöm a gyors választ, tudom mire gondolsz, de nálam csak az „Attributes-„nél van!
Nem csak itt kellene lennie.

Kettős kereszt (#) beütése után Shift-Space felkinál opciókat, az utpolsó művelet nem feltétlen van benne.
A felkínáltak használatával volt hogy hibába futottam.

A cégnél nem mindíg frissül az Office, csak ha központilag frissítik.

Bocsi Imre!
Újrakezdem sokadszor.
Nem mindíg van zöldszám!

Üdv Imre!
Küszködök, nem kicsit, pár dolgot tudnom kellene a PQ ról, ről még.
Az én minta fájlaim nem táblázatok!
Ha Adatok beolvasása ->fájlból-mappából-t választom és nem csinálok belőle táblázatot akkor Excel csinál, Column 1, Column 2 stb. csak nekem a K1 cellában ez van „Megrendelés-szám” amit hibaként jelez. amikor új oszlopot akarok létrehozni. Te, a mintafájlban először táblázatot csináltál ezért a K oszlop lett a Column10, amit elfogad.
-Át kellene neveznem a K1 cellát-cellákat fájlonként „Megrendelés-szám” helyett „-„ nélkülire? „Megrendelésszám”-ra?

Összegzés

Szia Imre!
Nagyon szépen köszönöm fáradozásodat, de nekem nem sikerült, pedig próbálgattam.
A „belső mintafájl átalakításban „ nem tudok megfelelően navigálni. Power Query szerkesztése új nekem.
Új oszlop létrehozása, utolsó két sor törlése, fejlécbe léptetni a sort megy.
Felteszek kettő mintafájlt és egy összegzés fájlt ahogy szeretném, hogy kinézzen. Lehet nem egyre gondolunk. A sorok száma változó!
Valóban meglehet csinálni?

„A szűrőt a helyedben az 5. sorba tenném az első helyett, akkor még hasznát is vehetnéd.”
🙂

Imre és Delila, nagyon szépen köszönöm!
Most csak ránéztem, de elemezni fogom, biztos hasznomra lesz!
Mégegyszer, Köszönöm szépen mindkettőtöknek!

Van 3 oszlop amit figyelmen kívül kellene hagyni?
OK,NOK ezek nem számok, ezért nem tud szorozni velük.
Próbáltam összefűzni, de nem sikerült megoldanom.
A függvények egybeágyazása nem könnyű!
Ha csak az első öt oszlopot veszem Működik
=SZORZATÖSSZEG((E6:I6>=$E$2:$I$2)*(E6:I6<=$E$3:$I$3))
a 3 oszlop után is működik, hogy hegesszem össze?
=SZORZATÖSSZEG((M6:AV6>=$M$2:$AV$2)*(M6:AV6<=$M$3:$AV$3))

Szerintem megvan!

Range(„AW6”) = Range(„AQ47”).DisplayFormat.Interior.Color ‘ ez vissza adja a feltételesen formázott színt!

Range(„AW7”) = Range(„AV7”).Interior.Color ‘ ez vissza adja a cella valódi színét!

Köszi Delila, küzdök vele!
Egyenlőre nem oké!

A fájlt nem tudom csatolni.

Üdv!
Bocsi más dolgom volt, csak összejött!
A hibakezelést korábbi témánál verax adta a tippet
Alapvető hibám!
A Variant/Stringből akartam integert!
Nem jött össze…, okát nem tudom.
Mivel TorzsSzam2 = Cells(Jaavsor + 2, 15) pedig Variant/Double lett!
Igy nem jöhetett össze az If, ezért Átalakítottam Stringgé, TorzsSzam2 = CStr(TorzsSzam2) így már működik!
Ha valakit érdekel progi teljes működése, leírom.

Private Sub BTN_Javit_Click()
Dim Jaavsor
Dim eee
 Unload FormBevitel
Skip:
'On Error Resume Next

TorzsSzam1 = Application.InputBox("Kérem a törzsszámodat!")
    
    If TorzsSzam1 = "" Then
            MsgBox ("Nem írtál be semmit!")
    GoTo Skip
    End If
Skip2:
Jaavsor = Application.InputBox("Melyik sort javítsam?:")

    If Not IsNumeric(Jaavsor) Or Jaavsor = "" Then
    MsgBox "Nem írtál be semmit, vagy nem számot írtál!"
    Unload FormBevitel
    GoTo Skip2
    End If
    TorzsSzam2 = Cells(Jaavsor + 2, 15)
    TorzsSzam2 = CStr(TorzsSzam2)
   If TorzsSzam1 = TorzsSzam2 Then
    Else: MsgBox "Nem vagy jogosult a sor javítására!"
    Exit Sub
   End If

   If Jaavsor > 0 Then
    eee = Range(Cells(Jaavsor + 2, 3), Cells(Jaavsor + 2, 15)).Address
    ActiveSheet.ScrollArea = eee
    Range(eee).Interior.ColorIndex = 4
    MsgBox "Most javíthatsz a " & Jaavsor & ". sorban! "
    End If
    Unload FormBevitel
End Sub

A pont utánni fájlkiterjesztést hozzá kell adni, .xmls !

Ez lett a végleges!
Még egyszer köszönöm mind kettőtöknek!

Private Sub CommandButton2_Click()
Dim Jaavsor
Dim eee
On Error Resume Next
Jaavsor = Application.InputBox("Melyik sort javítsam?:")

    If Not IsNumeric(Jaavsor) Or Jaavsor = "" Then
    MsgBox "Nem írtál be semmit, vagy nem számot írtál!"
    Unload FormBevitel
    Exit Sub

    ElseIf Jaavsor > 0 Then
    eee = Range(Cells(Jaavsor + 2, 3), Cells(Jaavsor + 2, 15)).Address
    ActiveSheet.ScrollArea = eee
    Range(eee).Interior.ColorIndex = 4
    MsgBox "Most javíthatsz a " & Jaavsor & ". sorban! "
    End If
    Unload FormBevitel
End Sub

Köszönöm verax!
Valóban jó amit csináltál!
A form elrejtése szándékos volt, hogy ott folytassa ahol abbahagyta az illető!
Még egyszer köszönöm!

Az első tipped beválni látszik!
Az Excel útjai kifürkészhetetlenek!
Köszönöm Imre!