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

• #30872 Delila_1 veterán Carasc0 #30870

  Új Válasz 2016-03-06 14:42:43 #30872

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

  Sub Kever()
  Dim sor As Integer
  
  Application.ScreenUpdating = False
  
  With Sheets("BÓNUSZ GENERÁTOROK")
  .Range("C1:C50").ClearContents
  .Range("A1:A20").Copy Range("C1")
  .Range("B1:B20") = "=RAND()"
  .Range("B1:B20").Copy
  .Range("B1").PasteSpecial xlPasteValues
  
  .Sort.SortFields.Clear
  .Sort.SortFields.Add Key:= _
  .Range("B1:B20"), SortOn:=xlSortOnValues, Order:=xlAscending, _
  DataOption:=xlSortNormal
  With .Sort
  .SetRange Range("B1:C20")
  .Header = xlGuess
  .Orientation = xlTopToBottom
  .Apply
  End With
  
  .Range("A21:A25").Copy Range("C21")
  .Range("B21:B50") = "=Int(Rand() * (50 - 21)) + 21"
  .Range("B21:B50").Copy
  .Range("B21").PasteSpecial xlPasteValues
  
  .Sort.SortFields.Add Key:= _
  .Range("B21:B50"), SortOn:=xlSortOnValues, Order:=xlAscending, _
  DataOption:=xlSortNormal
  With .Sort
  .SetRange Range("B21:C50")
  .Header = xlGuess
  .Orientation = xlTopToBottom
  .Apply
  End With
  
  .Range("B1:B50").ClearContents
  .Cells(1).Select
  End With
  Application.ScreenUpdating = True
  End Sub

  Hol a söröm?

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