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

• #15958 Delila_1 veterán csferke #15952

  Új Válasz 2013-01-03 10:16:43 #15958

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

  Sub Datum_L_be()
  Dim sor As Integer
  sor = Application.WorksheetFunction.Match([A1], Sheets(2).Columns(2), 0)
  Sheets(2).Cells(sor, "L") = Date
  End Sub

  Sub Novel_F_et()
  Dim sor As Integer, CV As Object
  For Each CV In [B27:B38]
  If CV <> "" And IsNumeric(CV) Then
  On Error GoTo Kov
  sor = Application.WorksheetFunction.Match(CV, Sheets(2).Columns(1), 0)
  Sheets(2).Cells(sor, "F") = Sheets(2).Cells(sor, "F") + Cells(CV.Row, "F")
  End If
  Kov:
  Next
  End Sub

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