[VBA] Άνοιγμα σε Web Browser

[dmarop]

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

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

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


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

[Spirosgr]

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

Βάλε τις κεφαλίδες στην πρώτη γραμμή (στο σταθεροποιημένο κομμάτι)
Ονόμασε την περιοχή 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!"
Τώρα για να είμαστε πιο σωστοί θα πρέπει ή οπωσδήποτε όλα τα κελιά της Β
να είναι <>"" ή να μπει μια συνθήκη ακόμα τι να κάνει αν και το αντίστοιχο κελί της Β = ""

[Spirosgr]

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

[dmarop]

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

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

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