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

• #13571 Delila_1 veterán ThaBoss #13565

  Új Válasz 2012-04-25 14:57:56 #13571

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

  Itt az inverze.

  Sub Valami_3()
  Dim sor%, sor1%, ucso%, WS1 As Worksheet, WS2 As Worksheet
  Dim kezd, vég
  Set WS1 = Sheets(1)
  Set WS2 = Sheets(2)
  sor1% = 1
  ucso% = WS1.Cells(Rows.Count, "A").End(xlUp).Row
  
  For sor% = 2 To ucso%
  kezd = WS1.Cells(sor%, "A")
  vég = WS1.Cells(sor%, "B")
  Do
  sor1% = sor1% + 1
  If WS1.Cells(sor%, "B") > WS1.Cells(sor%, "A") Then
  WS2.Cells(sor1%, "A") = kezd
  WS2.Cells(sor1%, "B") = kezd
  WS2.Cells(sor1%, "C") = WS1.Cells(sor%, "C")
  WS2.Cells(sor1%, "D") = WS1.Cells(sor%, "D")
  kezd = kezd + 1
  End If
  Loop While vég >= kezd
  Next
  End Sub

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