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

• #12642 Delila_1 veterán motinka #12641

  Új Válasz 2012-01-13 16:17:38 #12642

  Ú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 motinka #12641 üzenetére

  Jobb, ha a teljes átírtat megint berajzolom ide.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Integer, usorH As Integer
  Dim WS2 As Worksheet, sorH, f As Boolean
  Application.EnableEvents = False
  
  Set WS2 = Sheets("HÓNAP")
  usorH = WS2.Range("A1").End(xlDown).Row
  sor = 2
  f = False
  
  If Target.Address = "$A$2" Then
  If Target = "" Then
  Range("A2:D5000") = ""
  Else
  Range("A3:D5000") = ""
  For sorH = 2 To usorH
  If WS2.Cells(sorH, "A") = Target Then
  Cells(sor, "B") = WS2.Cells(sorH, "E")
  Cells(sor, "C") = WS2.Cells(sorH, "J")
  Cells(sor, "D") = WS2.Cells(sorH, "AI")
  sor = sor + 1
  f = True
  End If
  Next
  If f = False Then
  Range("B2") = "Nincs adat erre a napra"
  Range("A2:D5000") = ""
  End If
  End If
  End If
  
  Application.EnableEvents = True
  End Sub

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