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

• #13557 Delila_1 veterán ThaBoss #13556

  Új Válasz 2012-04-24 14:54:35 #13557

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

  Óhajod parancs.

  Sub Valami_1()
  Dim sor%, sor1%, WS1 As Worksheet, WS2 As Worksheet
  Dim info, képlet, usor, kezd
  
  
  Set WS1 = Sheets(1): Set WS2 = Sheets(2)
  sor% = 2: sor1% = 2
  usor = WS1.Cells(sor%, "A").SpecialCells(xlLastCell).Row
  info = WS1.Cells(sor%, "C"): képlet = WS1.Cells(sor%, "D")
  kezd = WS1.Cells(sor%, "A")
  
  For sor% = 2 To usor
  If WS1.Cells(sor% + 1, "D") <> képlet Then
  
  WS2.Cells(sor1%, "A") = kezd
  WS2.Cells(sor1%, "B") = WS1.Cells(sor%, "B")
  WS2.Cells(sor1%, "C") = WS1.Cells(sor%, "C")
  WS2.Cells(sor1%, "D") = WS1.Cells(sor%, "D")
  
  sor1% = sor1% + 1
  kezd = WS1.Cells(sor% + 1, "A")
  képlet = WS1.Cells(sor% + 1, "D")
  End If
  Next
  End Sub

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