Kedves Imre!

Tudnánk privátban beszélni?
Kérdésünk lenne a krzusról.
A felhasználói fiókomban lévő e-mail címen esetleg?

Köszi

Kedveseim! Nagyon köszönöm!

Képzeljétek, megoldottam. 3 napom ment rá. (Tudom, jó béna vagyok)
Kicsit csentem innen, kicsit kérdeztem onnan… De megoldottam.
Mondtam is a főnöknek, elmentem pezsgőt bontani… 🙂
Íme a művem:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim pivotDestRange As Range
    Dim pivotCache As pivotCache
    Dim pivotTable As pivotTable
    Dim lastColumn As Long
    Dim i As Integer
    Dim foundK As Boolean
    Dim cell As Range
    
     If Me.Name = "Munka1" Then
        If UCase(Left(Target.Cells(1, 1).Value, 1)) = "K" Then
          Set ws = ThisWorkbook.Sheets("Munka1")
            For Each tbl In ws.ListObjects
                If UCase(Left(tbl.HeaderRowRange.Cells(1, 1).Value, 1)) = "K" Then
                  Set pivotDestRange = tbl.Range.Cells(1, tbl.Range.Columns.Count + 2)
                    On Error Resume Next
                    If pivotDestRange.pivotTable Is Nothing Then
                        Set pivotCache = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=tbl.Range)
                        Set pivotTable = pivotCache.CreatePivotTable(TableDestination:=pivotDestRange, TableName:="Kimutatas")
                        If i = 0 Then
                            pivotTable.Name = "Kimutatas_" & tbl.Name
                            i = 1
                        Else
                            pivotTable.Name = "Kimutatas_" & tbl.Name & "_" & i
                        End If
                        pivotTable.TableStyle2 = "Boss1"
                       pivotTable.TableRange2.Select
                        pivotTable.PivotFields(2).Orientation = xlDataField
                    End If
                    On Error GoTo 0
                End If
            Next tbl
        End If
    End If
    
    If Not Intersect(Target, Me.UsedRange) Is Nothing Then
        Application.EnableEvents = False
        ActiveWorkbook.RefreshAll
        Application.EnableEvents = True
    End If
End Sub

Azért csatolom a fájlt is, amiben működik.
A kimutatás formázásával még küzdök, de már alakul.

Kedves Delila!

Köszönöm, de sajnos nem jó. Hiba ugyan nincs benne, de nem úgy működik, amire szükségem van. A táblázatok függvényeket tartalmaznak, ezért kéne csak az Érték ID oszlopot mozgatni. A megoldás amit küldtél, a Táblázat12-t teljesen felülírta, ráadásul csak az egyik táblázat adatai kerülnek bele, a második táblázat adatai a cél helyen, de a táblázaton kívülre kerülnek. Meglepő módon viszont a cél táblázat mérete a második forrás táblázat méretével nőtt meg. Szóval itt legalább átméretezi a táblázatomat, csak nem jól és nem jó helyen.

Szia.
Ez a megoldás hibátlan, köszönöm szépen.
Nálam sokkal hozzáértőbb is zseniálisnak nevezte. 🙂 Úgyhogy tényleg köszi még egyszer.

Szia!

Office 365 Business Edition használunk. Megnéztem és naprakész, minden frissítés le van töltve, de sajnos nem keres, csak kezdőbetűtől.
Ez lehet esetleg beállítási probléma?
Köszönöm a segítséget.

Kedves Verax,

nem tudok elég hálás lenni a sok segítségért.
Úgy tűnik elkészült ez a feladat is. Sikerült úgy átalakítanom, hogy egy makró leköveti a nyers export minden változását és hozzá alakítja a többi munkafüzetet.
Akár több adatról akár kevesebbről van szó, szépen beszúrja és törli a sorokat, másolja a cellákat. Még sokszor fogom elemezni amit küldtél, igyekszem tanulni belőle. 🙂

Még egyszer nagyon köszönöm

Üdv

Adri

Kedves Verax!
Mutatom a konkrét feladatot…. a csatolt táblázatban a nyers export fülbe kerülnek a programunkból kinyert adatok, ez állandóan változó hosszúságú táblázat lesz.
A soreltérés fülben az ID export oszlopba bekerülnek az azonosítók. Pontosan annyi, ahány sora van a nyers exportnak.
Az állapot fülbe szintén bekerülnek a nyers exportban lévő azonosítók. Majd az állapot fülben az ID oszlopok értékét átmásoljuk az ID érték oszlopba, mely adatok vissza kerülnek a soreltérés fül ID Állapot oszlopába. Az lenne a makró feladata, hogy a soreltérés fülön megvizsgálja a hiány oszlop végösszegét, majd az állapot fül táblázatának a végére beszúrjon annyi sort, amilyen értéket ott talált, ezután pedig az állapot oszlopból az összes értéket beillessze az ID Érték oszlopba. (tehát a képletet ne). Az lenne a legjobb, ha a makró akkor futna le, ha a soreltérés fül hiány oszlopának végösszege nagyobb, mint nulla. Remélem érthető voltam…:) Ha ez nem kivitelezhető, akkor az is jó lenne, ha minden mentéskor lefutna. Csak rövid ideje próbálkozom a makrózással, ezt még nem tudom megoldani sajnos. Nagyon megköszönném, ha segítenél.

Kedves verax!

Megírtad helyettem a makrót! 🙂 Nagyon köszi. 😀 Így lehet haladni a munkával. 😀

Még egyszer köszönöm a sok segítséget.

Szia.

Köszi szépen, ez nagyon jó, valószínűleg meg is oldja a problémánkat, de a csere azon a módon nem működik, ahogy írtad. Ha beírjuk a karaktereket „|” karakterrel ahogy a példában írtad, hibaüzenetet küld. Egyesével megcsinálta, működik is. de ez nem sikerül, hogy az összes karaktert cseréljük. Erre van ötleted? Azt írja, hogy nem található cserélendő adat. Néha pedig azt, hogy nem találjuk amit keres.
Köszönöm a segítséget.