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

• #8723 Delila_1 veterán a.t.t.i. #8721

  Új Válasz 2010-11-28 09:44:19 #8723

  Ú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 a.t.t.i. #8721 üzenetére

  Hol találtad meg?

• #8722 Delila_1 veterán a.t.t.i. #8721

  Új Válasz 2010-11-28 09:43:14 #8722

  Ú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 a.t.t.i. #8721 üzenetére

  A megjegyzésekben történő kereséshez itt egy makró.
  A makró első sorában megadott területen megvizsgálja a megjegyzések tartalmát, megkeresi bennük a megadott szöveget (keres="alma"), majd az O oszlopban egymás alatt felsorolja a találatok címét, mellettük a P oszlopban a megjegyzés teljes tartalmát.

  Sub Megjegyz()
  Columns("O:P").Select 'Itt változtass
  Selection.ClearContents
  
  Set ter = Range("A1:C10") 'itt változtass
  keres = InputBox("Mit keresel?") 'itt változtass
  sor = 1
  For Each CV In ter
  Set kom = Range(CV.Address).Comment 'aktuális cellához csatolt megjegyzés
  If Not kom Is Nothing Then 'ha van megjegyzés
  sz = kom.Text 'Megjegyzés szövege
  If InStr(sz, keres) Then
  Cells(sor, 15) = CV.Address 'itt változtass
  Cells(sor, 16) = sz 'itt változtass
  sor = sor + 1
  End If
  End If
  Next
  End Sub

  4 helyre írtam be, hogy "itt változtass".
  A másodikhoz a saját területedet írd, a 3. és 4. az O, ill. a P oszlopot jelöli ki (15 és 16) a megjegyzés cellájának, és szövegének beírásához. Az első helyen az előző beírásokat törlöm az O:P oszlopokban, vagyis csak akkor írd át, ha a 15 és 16 értéket módosítottad.

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