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

• #15974 csferke senior tag Delila_1 #15958

  Új Válasz 2013-01-03 17:53:35 #15974

  Ú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

  

  csferke

  senior tag

  válasz Delila_1 #15958 üzenetére

  Delila!
  Köszi a gyors választ/megoldást.
  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

  Mivel a B27:B38-ban nem szám van hanem egy-egy termékhez tartozó kód (betűkből és számokból) sz.tem az if ágban nem kell az IsNumeric(CV).??
  Nem értem, hogy mi szükség van az On Error GoTo Kov és a Kov: sorokra

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