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

• #30355 Delila_1 veterán m.zmrzlina #30352

  Új Válasz 2016-02-02 10:38:48 #30355

  Ú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 m.zmrzlina #30352 üzenetére

  Most egy kicsit rendesebben írom be a két makrót. Tegnap siettem, és eléggé el nem ítélhető módon nem dekraláltam a változókat, ráadásul az idézett makrókat nem jelöltem programkódként. Bocsi.

  Sub Adatok()
  Dim Balfelső As String
  Balfelső = "$B$2": Végrehajtás Balfelső
  Balfelső = "$C$9": Végrehajtás Balfelső
  End Sub
  
  
  Sub Végrehajtás(Balfelső)
  Dim sorok As Long, oszlopok As Long, Jobbalsó As String, cella As Range, osszeg
  Dim ws_Kabelo As Worksheet
  Set ws_Kabelo = Sheets("Kabelo")
  
  sorok = 5: oszlopok = 4: osszeg = 0
  Jobbalsó = ws_Kabelo.Range(Balfelső).Offset(sorok - 1, oszlopok - 1).Address
  For Each cella In ws_Kabelo.Range(Balfelső & ":" & Jobbalsó)
  osszeg = osszeg + cella
  Next
  ws_Kabelo.Range(Jobbalsó).Offset(1) = osszeg
  End Sub

  Az osszeg változónál nem adtam meg a típust. Közel sem biztos, hogy összegezni akarsz a ciklusban, és ha mégis, nem tudom, hogy egész-, vagy lebegőpontos értékeid vannak-e.

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