בקשת סיוע ב Excel - מקרו לפתיחת מספר קישורים בדפדפן

[מיד תועבר לעמוד]

בקשת סיוע ב Excel - מקרו לפתיחת מספר קישורים בדפדפן

שלום רב
Office Professional Plus 2016
Win 10 Home 64
.
בקשה 1:
אני מבקש סיוע בהכנת מקרו שיפתח מספר דפי אינטרנט ברצף בדפדפן ברירת המחדל, בלי התערבות המשתמש, לפי רשימה הנמצאת בקובץ אקסל (מצ"ב).
.
בקשה 2:
אני מבקש סיוע בהכנת מקרו שיפתח מספר דפי אינטרנט ברצף בדפדפן אחר, לפי בחירתי (לא דפדפן ברירת המחדל), בלי התערבות המשתמש, לפי רשימה הנמצאת בקובץ אקסל (מצ"ב).
.
תודה מראש לכל המסייעים.

 

[ziv98]

קוד

For Each cl In Range("B2:B5").Cells
    ThisWorkbook.FollowHyperlink (cl)
Next

For Each cl In Range("B2:B5").Cells
    Shell "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe " & cl
Next

 

[מיד תועבר לעמוד]

תודה זיו

כשיודעים, אז זה לא כל כך מסובך
אנסה ומקווה להצליח

 

[מיד תועבר לעמוד]

הי זיו

אשמח לשכלול המאקרו
התאים נמצאים בטווח משתנה
לעיתים B2:B5
לעיתים B2:B23
.
הייתי רוצה להכניס את הפרמטרים האלה בתא כלשהו בגיליון, ושהמאקרו ישלוף אותם משם
.
תכל לסייע בבקשה ?
.
תודה וחג שמח

 

[ziv98]

אופציות

אתה יכול, כמו שביקשת, להכניס טווח לתא: שים לב שבתוך - RANGE יש טקסט ולכן:
For Each cl In Range([A1]).Cells
כאשר ב - A1 נמצא הטווח.

אתה יכול לבחור תאים ולהריץ את הקוד על התאים שנבחרו:
For Each cl In Selection.Cells


אתה יכול לפתוח תיבת INPUT במצב שהיא מקבלת טווח (סמן את הטווח עם העכבר):

  Dim rng As Range
  Set rng = Application.InputBox(prompt:="range", Type:=8)
  For Each cl In rng.Cells

 

[מיד תועבר לעמוד]

תודה זיו

איזה יופי .....
.
הלכתי על A1 - ה RANGE:
.
תודה