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

• #21795 Delila_1 veterán Attas #21793

  Új Válasz 2014-05-27 09:34:25 #21795

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

  Sub Valami()
  Dim sor As Integer, sor1, WS2 As Worksheet, WF As WorksheetFunction
  Set WS2 = Worksheets("Munka2")
  Set WF = Application.WorksheetFunction
  Sheets("Munka1").Select
  
  For sor = 10 To 13
  sor1 = 0
  On Error Resume Next
  sor1 = WF.Match(Cells(sor, "N"), WS2.Columns("N"), 0)
  WS2.Cells(sor1, "O") = WS2.Cells(sor1, "O") + Cells(sor, "O")
  Next
  End Sub

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