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

• #13470 Delila_1 veterán ThaBoss #13468

  Új Válasz 2012-04-19 13:51:43 #13470

  Ú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 ThaBoss #13468 üzenetére

  Ebben az esetben a lenti makróval oldd meg.

  Sub Valami()
  Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet
  Set WS1 = Sheets(1)
  Set WS2 = Sheets(2)
  
  sor% = 2: sor1% = 2
  WS2.Cells(sor1%, "N") = WS1.Cells(sor%, "N")
  WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N")
  
  Do While WS1.Cells(sor%, "N") <> ""
  If WS2.Cells(sor1%, "N") < WS1.Cells(sor%, "O") Then
  WS2.Cells(sor1% + 1, "N") = WS2.Cells(sor1%, "N") + 1
  WS2.Cells(sor1% + 1, "O") = WS2.Cells(sor1%, "N") + 1
  sor1% = sor1% + 1
  Else
  sor1% = sor1% + 1: sor% = sor% + 1
  WS2.Cells(sor1%, "N") = WS1.Cells(sor%, "N")
  WS2.Cells(sor1%, "O") = WS1.Cells(sor%, "N")
  End If
  Loop
  End Sub

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