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

• #22126 Delila_1 veterán enelna #22123

  Új Válasz 2014-06-25 15:47:47 #22126

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

  Ez meg az óraszámot is beírja a H oszlopba:

  Sub Szabi_Ora()
  Dim sor As Integer, sz As String, hova As Integer
  Dim ora As Integer
  
  hova = Columns(5).Find("Szabadság").Row
  For sor = 10 To 40
  If Cells(sor, "E") = "Szabadság" Then
  sz = sz & Cells(sor, "A") & "; "
  ora = ora + 8
  End If
  Next
  
  Cells(hova, "F") = Left(sz, Len(sz) - 2)
  Cells(hova, "H") = ora
  End Sub

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