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

• #29703 Delila_1 veterán Batistuta7 #29702

  Új Válasz 2015-12-04 07:57:50 #29703

  Ú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

  

  Delila_1

  veterán

  válasz Batistuta7 #29702 üzenetére

  Ha jól értem, az első lapra írod be az AC oszlopba a napi állásidőt az egyes gépekhez. Ezeket kell összesíteni a második lapon, ahol az A oszlop tartalmazza a gépek nevét, az első sor pedig a hét napját.

  Fontos, hogy a 2 lapon megegyezzen a gépek neve, tehát ha az első lapon P1 a név, a másodikon is az legyen, nem 1.

  Az első laphoz rendeltem egy eseményvezérelt makrót. Mikor beírod egy géphez az állásidőt, a második lapon a megfelelő géphez, és az aktuális naphoz beírja az értéket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim WSO As Worksheet, sor, oszlop As Integer
  
  Set WSO = Sheets("Összesítés")
  If Target.Column = 29 And Target > "" Then
  sor = Application.Match(Cells(Target.Row, 1), WSO.Columns(1), 0)
  If VarType(sor) = vbError Then
  sor = Application.Match(Cells(Target.Row - 1, 1), WSO.Columns(1), 0)
  End If
  oszlop = Application.Weekday(Date, 2) + 1
  WSO.Cells(sor, oszlop) = WSO.Cells(sor, oszlop) + Target
  End If
  End Sub

  A második lap J oszlopába betettem egy összesítést.
  Nézd meg a csatolt füzetben a cellaformázást az első lap AC; valamint a második lap B:H és J oszlopában.

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