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

• #29971 bsh addikt stivi1g #29969

  Új Válasz 2015-12-26 13:40:37 #29971

  Ú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

  

  bsh

  addikt

  válasz stivi1g #29969 üzenetére

  nekem nem teljesen világos: gondolom a B oszloptól az AF oszlopig január 1-től január 31-ig lennének a dátumok (csak nem látszik), de a tartalék mező csak jan.22-től van? akkor most csak jan22-jan31 közti mezőket vegye figyelembe? vagy a tartalék mezők ki lesznek bővítve? vagy nem tudom...
  Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  On Error GoTo xit
  Set Target = Target.Cells.Item(1)
  If Not Intersect(Target, Me.Range("B9:AF500")) Is Nothing Then
  If Target = "tartalék" Then
  x = WorksheetFunction.Match(Me.Cells(8, Target.Column), Me.Range("AI12:AR12"), 0) - 1
  Me.Range("AI12:AI512").Offset(0, x).Find("") = Me.Cells(Target.Row, 1)
  End If
  End If
  xit:
  Application.EnableEvents = True
  End Sub
  ez a teljes(?) dátumtartományban (B-AF oszlopok) "figyel", és az AI12:AR12 cellákban lévő dátumokkal hasonlít össze, ezek persze kiterjeszthetők/lecsökkenthetők.

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