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

• #30350 Delila_1 veterán bsh #30347

  Új Válasz 2016-02-01 18:41:08 #30350

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

  Sub adatok()
  Balfelső = "$B$2": Végrehajtás Balfelső
  Balfelső = "$C$9": Végrehajtás Balfelső
  End Sub

  Ez hívja meg a Végrehajtás makrót, átadva a kezdő cella címét

  Sub Végrehajtás(Balfelső)
  sorok = 5: oszlopok = 4: osszeg = 0
  jobbalsó = Range(Balfelső).Offset(sorok - 1, oszlopok - 1).Address
  For Each cella In Range(Balfelső & ":" & jobbalsó)
  osszeg = osszeg + cella
  Next
  Range(jobbalsó).Offset(1) = osszeg
  End Sub

  A jobb alsó cella alá kiírattam a tartományok összegét.

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