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

• #16434 Oly őstag Delila_1 #16426

  Új Válasz 2013-01-22 14:03:56 #16434

  Ú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

  

  Oly

  őstag

  válasz Delila_1 #16426 üzenetére

  Szia

  A valóságban külön sheeteken vannak a táblák és a problémát az okozza, hogy minden költéshez van egy megjegyzés oszlop is, melyet a pivot nem tud betenni.
  Így a Te makrós megoldásod hegeszthetem, de az összegző táblán elakadtam.

  Úgy akarom megcsinálni, hogy A1 cellába beírom a kívánt dátumot és akkor kilistázza, hogy adott napon kik mennyit költöttek az adott boltban (én mellé kiírja nekem a megjegyzést is, ezért nem jó a pivot)

  Szóval, hogy tudom neki megadni, hogy rakja be új sorba az emberkét, ha nincs a listában?
  Próbálkoztam, hogy beraktam egy ONERROR-t és akkor tegye be a változót egy új sorba, de valamiért folyton hibára fut:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
  Dim sor%, usor%, sorB%, oszlopB%, WF As WorksheetFunction
  Dim nev$, uzlet$
  Set WF = Application.WorksheetFunction
  usor% = Sheets("data").Cells(Rows.Count, "A").End(xlUp).Row
  uszem% = Cells(Rows.Count, "A").End(xlUp).Row
  Range("b2:u60") = ""
  For sor% = 2 To usor%
  If Sheets("data").Cells(sor%, 1) >= Range("a1") Then
  nev$ = Sheets("data").Cells(sor%, 2)
  uzlet$ = Sheets("data").Cells(sor%, 3)
  On Error GoTo makesor
  sorB% = WF.Match(nev$, Columns(1), 0)
  GoTo vansor
  makesor:
  MsgBox "Hozzuk létre? " & nev$
  Cells(uszem% + 1, 1) = nev$
  sorB% = WF.Match(nev$, Columns(1), 0)
  vansor:
  oszlopB% = WF.Match(uzlet$, Rows(1), 0)
  Cells(sorB%, oszlopB%) = Sheets("data").Cells(sor%, 4)
  Cells(sorB%, oszlopB% + 1) = Sheets("data").Cells(sor%, 5)
  End If
  Next
  End If
  End Sub

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