Forum - VBA Βοήθεια με υπερσύνδεσμο

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

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

- - [VBA] Βοήθεια με υπερσύνδεσμο (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3002-boitheia-me-ypersindesmo.html)

Βοήθεια με υπερσύνδεσμο

Παιδια καλησπερα
Με την βοηθεια σας εχω φτιαξει αυτο το αρχειο.Αλλα θελω να κανω κατι ακομα
οπως θα δειτε στο δευτερο φυλο εχω βαλει και ενα link
θελω λοιπον στο πρωτο φυλο που γινεται η αναζητηση και εμφανιζεται η γραμμη το link να εμφανιζεται κανονικα και οχι σαν απλο κειμενο

Πως θα το κανω ρε παιδια
Επισυναπτω και το αρχειο να το δειτε!

Καλησπέρα Σωτήρη!
Αντικατέστησε τη ρουτίνα InsertListRow() με τον παρακάτω κώδικα:

Κώδικας:

Private Sub InsertListRow()

    Dim c As Range, hLink As Excel.Hyperlink, strHLink As String

    If Me.ListBox1.ListCount = 0 Then Exit Sub

    If Me.ListBox1.ListIndex = -1 Then Exit Sub

    Set c = Range("OrderCodes").Find(Me.ListBox1.Value, LookIn:=xlValues)

    If Not c Is Nothing Then GoTo ExitHere

    With Cells(Rows.Count, Range("OrderCodes").Column).End(xlUp).Offset(1)

        .Value = Me.ListBox1.Value

        Set c = ShData.Range("C:C").Find(.Value, LookIn:=xlValues).Offset(, 4)

        If c.Hyperlinks.Count Then

            Set hLink = c.Hyperlinks(1)

            Set c = Cells(.Row, 9)

            c.Hyperlinks.Add c, hLink.Address, , hLink.TextToDisplay, hLink.TextToDisplay

        ElseIf c.Value <> vbNullString Then

            strHLink = c.Value

            Set c = Cells(.Row, 9)

            c.Hyperlinks.Add c, strHLink, , strHLink, strHLink

        End If

        Cells(.Row, 8).Select

        If Me.ChckFocusAfterNewEntry Then

            AppActivate Application.Caption

        End If

    End With

ExitHere:

    With Me.ListBox1

        If .List(.ListIndex, 2) = ItmIsMissing Then

            .List(.ListIndex, 2) = ItmExists

        End If

    End With

    If Not c Is Nothing Then

        Cells(c.Row, 8).Select

    End If

End Sub

Καλή συνέχεια!

Τάσος

Τασο χιλια ευχαριστω πραγματικα!!!!
Να σου κανω αλλη μια ερωτηση ισως ειναι λιγο χαζη και συγνωμη

Πως μπορω να τρεχω το xlsm μεσω ιντερνετ δηλαδη σαν ιστοσελιδα
Γιατι το skydrive πχ δεν το κανει επειδη εχει macros

Σκέψη για την αναζήτηση

Καλημέρα παιδιά

Θα ηθελα να καταθέσω μία σκέψη οσο αφορα την αναζήτηση στο σχετικο πρόγραμμα .
Εαν μπορει η αναζήτηση να γίνετε απευθείας στην γραμμή , στην στήλη Περιγραφή και πατωντας
enter να βγαίνουν τα στοιχεια που θελεις και ο κερσορας να πηγαινει στην στηλη τεμ και να βάζεις την ποσοτητα

Ευχαριστω Γρηγόρης

Καλημέρα!

Δεν θα μπορέσεις να τρέξεις μακροεντολές του Excel στο Ιντερνέτ έτσι απλά.

Είναι προτιμότεροι να δημιουργηθεί μια εφαρμογή Web που να κάνει αυτα που κάνει και η Excel.

Τάσος

Τασο δωσε λιγο ξανα τα φωτα σου στο excel γιατι παλι σκαλωσα
Το Ελάχιστη Παραγγελία οταν παταω καθαρισμο φορμας σβηνεται τελειως η εξισωση
Πως να το κανω??

ΥΓ σε υπερευχαριστω για ολη την βοηθεια σου.Με εχεις σωσει

Καλησπέρα
Σε αυτόν τον κώδικα
Private Sub cmdClearAll_Click()
διέγραψε την γραμμή
Range("OrderCodes").Offset(, 5).ClearContents