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

• #49890 lappy őstag luckyboi82 #49889

  Új Válasz 2022-11-09 15:46:54 #49890

  Ú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

  

  lappy

  őstag

  válasz luckyboi82 #49889 üzenetére

  ezzel lehet osztani az összes számot ami az adott tartományban van
  Az E3 itt a váltószám

  Sub Divide_a_range_of_cells_by_same_number()
'declare variables
Dim ws As Worksheet
Dim rng As Range
Dim myVal As Range
Set ws = Worksheets("Munka1")
Set rng = ws.Range("B2:B6")
For Each myVal In rng
myVal = myVal.Value / ws.Range("E3") ' ide lehet tenni * is akkor visszavált
Next myVal

End Sub

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