עזרה לקוד באקסל

[הערש]

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

[OdedDvir]

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

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

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

[הערש]

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

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

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

[אוריי]

@הערש

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

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

[הערש]

@אוריי

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

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

[אוריי]

@הערש
לא נראה לי שיש אפשרות ע"י קוד
הקוד יחזיר לך שגיאה

[הערש]

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

[הערש]

מצאתי

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

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

[אוריי]

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

[הערש]

עובד מצוין

[אוריי]

@הערש
מעניין..
כאשר אני עשיתי אימות נתונים עם קוד vba כאשר באימות נתונים היה יותר מ 255 תווים האקסל לא רצה לשמור את זה..