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

• #19442 hunterzsolt csendes tag hunterzsolt #19439

  Új Válasz 2013-11-03 21:11:10 #19442

  Ú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

  

  hunterzsolt

  csendes tag

  válasz hunterzsolt #19439 üzenetére

  Sziasztok!

  Sikerült megoldanom a problémámat a következőképpen:

  Private Sub GépINF1_Click()
  sor = Application.Match(Me.Gépszám1, Range("C:C"), 0)
  If VarType(sor) <> vbError Then
  ActiveWorkbook.FollowHyperlink Cells(sor, "I").Hyperlinks(1).Address, NewWindow:=True
  End If
  End Sub

  Ha netán valakinek szüksége lenne rá...

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