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

• #29174 lenkei83 tag Delila_1 #29171

  Új Válasz 2015-10-25 14:55:47 #29174

  Ú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

  

  lenkei83

  tag

  válasz Delila_1 #29171 üzenetére

  Kérdezek inkább konkrétabban:

  Itt ez a kód, ami munkalapon belül tök jól működik: írj be véletlenszerűen 12-es számot celláka, "A1"-ben összedja. Mondjuk Munka1-en.
  Ami a bajom, hogy ha a szum képletet nem activesheet-re szeretném, hanem Munka2-re (de az összeadandó értékeim maradnak Munka1-en), akkor hogyan tudom megadni minden range elé, a parent.name-et? Vagyis, hogy a szum képlet hivatkozzon Munka1-re

  Különálló celláknál még egyszerűbb a helyzet, de mi van akkor, ha úgy jön ki a range, hogy 3 cella van egymás alatt, aztán egy cella valahol máshol, aztán megint 4 egymás mellett máshol stb...

  Sub FindAll()
  
  Dim fnd As String, FirstFound As String
  Dim FoundCell As Range, rng As Range
  Dim myRange As Range, LastCell As Range
  
  fnd = "12"
  
  Set myRange = ActiveSheet.UsedRange
  Set LastCell = myRange.Cells(myRange.Cells.Count)
  Set FoundCell = myRange.Find(what:=fnd, after:=LastCell)
  
  If Not FoundCell Is Nothing Then
  FirstFound = FoundCell.Address
  Else
  GoTo NothingFound
  End If
  
  Set rng = FoundCell
  
  Do Until FoundCell Is Nothing
  Set FoundCell = myRange.FindNext(after:=FoundCell)
  Set rng = Union(rng, FoundCell)
  If FoundCell.Address = FirstFound Then Exit Do
  Loop
  
  ' rng.Select
  Range("A1").Formula = "=sum(" & rng.Address & ")"
  Exit Sub
  
  NothingFound:
  MsgBox "Nem található a keresett érték: " & fnd
  
  End Sub

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