Forum - VBA Άνοιγμα σε Web Browser

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Άνοιγμα σε Web Browser (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2675-anoigma-se-web-browser.html)

Άνοιγμα σε Web Browser

Καλησπέρα σας,

Θα χρειαστώ τη βοήθειά σας για να βελτιώσω τον κώδικά μου.

Θέλω από το excel να ανοίγω μια σελίδα με το google Chrome. Στο συνημμένο αρχείο θα βρείτε πιο πολλές πληροφορίες.

Φιλικά,
Δημήτρης

Καλημέρα
Δημήτρη αν και το ζητούμενο δεν είναι σαφές έτσι όπως το διατυπώνεις
δοκίμασε το εξής:

Βάλε τις κεφαλίδες στην πρώτη γραμμή (στο σταθεροποιημένο κομμάτι)
Ονόμασε την περιοχή C2:C20 MainSite
Βάλε στην Module τον κώδικα:

Κώδικας:

Sub OpenWebbrowser()

    Dim c As Range

    On Error Resume Next

    For Each c In Range("MainSite")

        If c.Value <> vbNullString Then

            c.Select

            c.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

        Else

            c(1, 0).Select

            c(1, 0).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

            c(1, 2).Value = "Ok!"

        End If

    Next

End Sub

Ο παραπάνω κώδικας κάνει το εξής:
Ψάχνει στην στήλη C (περιοχή C2:C20 MainSite) και αν βρει κελί με Υπερσύνδεση τότε το ανοίγει
Άλλως αν βρει κενό για κάθε κενό που βρίσκει πάει στο offset -1 κελί (στήλη Β) και το ανοίγει και
πάει στο offset +1 κελί (στήλη D) και γράφει "Ok!"
Τώρα για να είμαστε πιο σωστοί θα πρέπει ή οπωσδήποτε όλα τα κελιά της Β
να είναι <>"" ή να μπει μια συνθήκη ακόμα τι να κάνει αν και το αντίστοιχο κελί της Β = ""

Για δοκίμασε το παρακάτω και πες τι αλλαγές μπορεί να χρειάζεται
Προϋπόθεση ο Chrome να είναι το προεπιλεγμένο πρόγραμμα περιήγησης

Γεια σου Σπύρο,

Ευχαριστώ για την απάντησή σου.

Φιλικά,
Δημήτρης