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

• Delila_1 veterán

  2015-05-29 10:10:16 #27145

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  válasz scott_free üzenetére #27144

  ... van egy "Emberek" nevű táblázatom egy lapon.
  Ezt úgy tettem a makróba, hogy az Emberek lapon vettem fel egy táblázatot, ahol az A oszlopban vannak a nevek, B-ben a címek, C-ben a telefonok.

  A "lekérdezős" lap A1 cellájába tettem az érvényesítést, a megjegyzés a mellette lévő B1 cellába kerül. Ehhez a laphoz rendeltem az eseményvezérelt makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then Keres Target.Value
  End Sub

  Mivel az eseményvezérlés csak a saját lapján tud dolgozni, egy modulba írt másik makró végzi a keresést.

  Sub Keres(nev)
  Dim sor As Long, Cim As String, Tel As String
  
  With Sheets("Emberek")
  sor = Application.Match(nev, .Columns(1), 0)
  Cim = .Cells(sor, "B")
  Tel = .Cells(sor, "C")
  End With
  On Error Resume Next
  Cells(1, "B").AddComment
  Cells(1, "B").Comment.Text Text:="Cím: " & Cim & vbLf & "Tel: " & Tel
  On Error GoTo 0
  End Sub

  Az On Error Resume Next sor arra szolgál, hogy ha már van megjegyzés a B1 cellához fűzve, ne fusson hibára a makró. Ennek a feloldása az On Error GoTo 0 sor.

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