תחומים - פורום חרדי מקצועי

עובד מצוין

מצאתי

Private Sub Worksheet_SelectionChange _
  (ByVal Target As Range)
Dim selPF As PivotField
Dim strField As String
Dim strAdd As String
Dim myVal As String
strField = "Site"

On Error Resume Next
Set selPF = Target.PivotField
If Not selPF Is Nothing And _
    selPF.Name = strField Then
  myVal = Target.Value
  If InStr(1, myVal, "@") > 0 Then
    strAdd = "mailto:"
  End If
  ThisWorkbook.FollowHyperlink _
    Address:=strAdd & myVal, _
    NewWindow:=True
End If

End Sub

זה עובד טוב אבל עושה את כל הטקסט לקישורים ומחזיר שגיאה כל לחיצה על תא שאינו כותבת.

האם יש פתרון אחר

@אוריי

האם תוכל לתת דוגמא?

יש לי טקסט ארוך שצריך להיות קישור ואני לא יכול להשתמש עם HYPERLINK כי זה יותר מ-256 תווים האם יש פתרון להפוך את זה לקישור ע"י קוד או קומבינה אחרת.

@OdedDvir אמר בעזרה לקוד באקסל:

לא הבנתי מה רצונך. האם תוכל לתת דוגמא?

אני משתמש עם CONCATENATE ואני צריך שהתוצאה יהיה קישור ואני לא יכול להשתמש עם HYPERLINK כי זה חורג ממגבלת 256 תווים אני רוצה לכתוב קוד מאקרו שיהפוך את כל הטקסט בגיליון לקישורים או לפי מה שיזהה כקישור.

אני מחפש קוד מאקרו לאקסל שיהפוך את כל התאים לקישורים להטקסט או לפי מה שיזהה כקישור

גולן 613#*