Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #30872 Delila_1 veterán Carasc0 #30870
    Új Válasz #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