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

• #24256 Delila_1 veterán zhari #24251

  Új Válasz 2014-11-18 16:54:16 #24256

  Ú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 zhari #24251 üzenetére

  Makróval gyorsan előállítható.

  Sub Periodusok()
  Dim sor As Long, sor1 As Long
  
  Munka1.Select
  For sor = 1 To Application.WorksheetFunction.CountA(Munka1.Columns(1))
  For sor1 = 1 To Application.WorksheetFunction.CountA(Munka2.Columns(1))
  If Cells(sor, "A") >= Munka2.Cells(sor1, "A") And Cells(sor, "A") <= Munka2.Cells(sor1, "B") Then
  Cells(sor, Cells(sor, Columns.Count).End(xlToLeft).Column + 1) = Munka2.Cells(sor1, "C")
  End If
  Next
  Next
  End Sub

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