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

• #12613 Delila_1 veterán motinka #12610

  Új Válasz 2012-01-12 08:10:24 #12613

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

  A kérdéses laphoz rendeld a makrót.

  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 = 1
  f = False
  
  If Target.Address = "$A$1" Then
  If Target = "" Then
  Rows("1:5000").Delete
  Else
  Rows("2:5000").Delete
  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("B1") = "Nincs adat erre a napra"
  Range("C1:IV1").Delete
  End If
  End If
  End If
  
  Application.EnableEvents = True
  End Sub

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