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

• #21088 Delila_1 veterán Salex1 #21084

  Új Válasz 2014-03-25 11:15:48 #21088

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

  Igen, a gomb click eseményébe csak ennyit kell írnod: auto_open.
  A lenti makró működik gombról.

  Sub masol()
  Dim sor As Long, usorR As Long, usorM As Long
  Dim WSR As Worksheet, WSM As Worksheet
  
  Set WSR = Sheets("Rendszerek")
  Set WSM = Sheets("Munkák")
  
  usorR = WSR.Range("A" & Rows.Count).End(xlUp).Row
  usorM = WSM.Range("B" & Rows.Count).End(xlUp).Row + 1
  
  For sor = 2 To usorR
  If WSR.Cells(sor, "O") = 1 Then
  WSM.Cells(usorM, "B") = WSR.Cells(sor, "C").Value
  WSM.Cells(usorM, "H") = WSR.Cells(sor, "H").Value
  WSM.Cells(usorM, "G") = "Terv"
  WSR.Cells(sor, "O") = "áttéve"
  usorM = usorM + 1
  End If
  Next
  
  WSM.Range("A1").AutoFilter Field:=7, Criteria1:="<>kész"
  End Sub

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