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

• #26507 Törpella csendes tag

  Új Válasz 2015-04-12 23:13:08 #26507

  Ú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

  

  Törpella

  csendes tag

  Sziasztok!
  Igen rég jártam erre, és nagy segítséget kaptam :-) ebben reménykedve kérném a segítségeteket most is.

  Az elképzelés, hogy szinte egyetlen gombnyomással lekérdezhető legyen egy-egy megadott adathoz tartozó halmaz. Formon és azon belül multipage, combo box, sima text beviteli mező, ilyesmikkel lenne lekérdezhető az adat. Elképzelésem szerint egy pivot a megoldás excelben, és abból lehetne kinyerni a szűrt adatokat.
  addig eljutottam, hogy pivotot létre tudok hozni, de konkrétan erre a megoldásra nem találtam semmit.

  Amit szeretnék: meglévő pivotból vba-val form beviteli mezőn megadott értéket keresni a fix helyen levő pivot (row labels - search mezőjébe....)
  Azt hiszem annyi mindennel próbálkoztam már, hogy teljesen belezavarodtam.

  A következő terv az az lett volna, hogy ha ez megvan, akkor a leszűrt pivotot másolja valahova....

  Private Sub CommandButton1_Click()
  Dim wt As Worksheet
  Dim wp As Worksheet
  Set wp = Worksheets("Sheet1")
  Set wt = Worksheets("data2")
  lastrow = wt.UsedRange.Rows.Count + 1

  Dim pi As PivotItem
  pi = Me.Product_CodeQ.Value

  'vagy pi= sheet1-en az A2 cella'

  'data2 C2'
  wt.Cells(lastrow, 3).Value = Me.Product_CodeQ.Value

  'Pivot_Product_Code Macro
  '
  Sheets("data2").Select
  Cells(lastrow, 3).Select
  Selection.Copy
  Sheets("Sheet1").Select
  Range("A2").Select
  ActiveSheet.Paste

  ActiveSheet.PivotTables("PivotTable1").PivotFields("Product Code"). _
  ClearAllFilters
  ActiveSheet.PivotTables("PivotTable1").PivotFields("Product Code").CurrentPage _
  = pi

  Application.CutCopyMode = False
  Selection.Copy
  Sheets("dashboard").Select
  Range("F5").Select
  ActiveSheet.Paste
  Columns("F").EntireColumn.AutoFit

  End Sub
  _______________________________________

  itt: ActiveSheet.PivotTables("PivotTable1").PivotFields("Product Code").CurrentPage _
  = pi megbukik a dolog. persze ez már csak az a része, ahol próbálgattam, hogy egyáltalán mi csúszik át vélhetően helyes megoldásként, tehát sok értelmet ne keressen senki benne... :-/

  'data2 C2'
  wt.Cells(lastrow, 3).Value = Me.Product_CodeQ.Value ------ez meg csak odamásolja az adatot, először onnan akartam kiszedni a pivothoz.

  Nagyon hálás lennék, ha valaki segítene.
  Ha egy picit is megoldhatónak látszik, akkor szívesen feltöltöm akár az összes részletét a feladatnak (nem titkos) :-)

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