EXCEL - kontingencni tabulka Vyřešeno

[Aquila]

Zdravim,
v pivotce potrebuju kvuli importu do SAPu zobrozovat kriteria na kazdem radku. Jde to nekde nastavit? Standartne se zobrazuje hodnota kriteria jen na prvnim radku. Viz v priloze "PN" a "QTY".

Diky

[Reklama]

[navstevnik]

Verze Excelu? A pripoj demo zdrojovou tabulku vcetne vytvorene kontigencni tabulky.
Nejspis to povede na proceduru VBA.
PS: pokud to je soubor .xlsx, musis zabalit zipem

[Aquila]

Tajne jsem doufal ze to bude jen dobre skryte nastasveni tabulky.

Excel 2003 (11.8316.8221) SP3

[mike007]

V kontingenční tabulce to nastavit nejde. Já to dělám tak, že tabulku zkopíruju a vložím ji do jiného listu jako hodnoty. V něm pomocí makra prázdné buňky vyplním.

[navstevnik]

Kontigencni tabulku prekopiruj na novy list - vlozit hodnoty (Upravy>Vlozit jinak>Hodnoty) a spust (z nastroju nebo klavesovou zkratkou) nize prilozenou proceduru (vloz v editoru VBA - Alt+F11 - do standardniho modulu):

Kód: Vybrat vše

Option Explicit

Sub UpravitKT()
  Dim SBlk As Range, SRow As Range, TmpRow As Range
  Set SBlk = Application.InputBox("Vyber tazenim mysi oblast bunek z KT pro doplneni," & vbCr & _
  "pripadne vepsanim, napr A5:C11", , , , , , , 8)
  With SBlk
    Set SRow = .Resize(1, .Columns.Count)
  End With
    Application.ScreenUpdating = False
    For Each SRow In SBlk.Rows
      If Not IsEmpty(SRow.Resize(1, 1)) Then
        Set TmpRow = SRow
      Else
        SRow.Value = TmpRow.Value
      End If
    Next SRow
    Application.ScreenUpdating = True
  Set TmpRow = Nothing
  Set SRow = Nothing
  Set SBlk = Nothing
End Sub

PS: Na vyzvu je potreba vybrat z KT pouze oblast bunek, v nichz maji byt doplneny udaje, v tebou prilozenem demu to je A5:C11

[Aquila]

Diky, funguje to

// Označuji za vyřešené
// mike007