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

• #29177 Fferi50 Topikgazda lenkei83 #29174

  Új Válasz 2015-10-25 16:20:34 #29177

  Ú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

  

  Fferi50

  Topikgazda

  válasz lenkei83 #29174 üzenetére

  Szia!

  Egyrészt, akkor ne az activesheet legyen amin keresel, hanem a másik.
  Set myRange = ActiveSheet.UsedRange helyett set myRange=Sheets(1).UsedRange
  Másrészt javaslom, hogy ne a range változóban tárold a találatokat, hanem egy stringváltozóban a találatok címeit.
  pl.
  Dim fm as String
  fm = FoundCell.Address(external:=True) ' az external paraméter a teljes címét adja a tartománynak (fájlnév, munkalapnév - ha ugyanazon a fájlon belül van a munkalap, akkor a képlet beírás után "elveszti" a fájlnevet.)
  'A következő találatnál pedig:
  fm = fm & "," & FoundCell.Address(external:=True)
  'A végén pedig a képlet:
  Range("A1").Formula = "=sum(" & fm & ")"

  Üdv.

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