Ú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.

• #29176 Delila_1 veterán lenkei83 #29174

  Új Válasz 2015-10-25 16:19:36 #29176

  Ú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 lenkei83 #29174 üzenetére

  Sokkal egyszerűbben csinálnám meg. Ahhoz a laphoz rendelném a makrót, ahova beviszed az értékeket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target = 12 Then Sheets("Munka1").Range("A1") = Sheets("Munka1").Range("A1") + Target
  End Sub

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