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

[sotisanis]

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

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

[Tasos]

Καλησπέρα Σωτήρη!
Αντικατέστησε τη ρουτίνα 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

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

Τάσος

[sotisanis]

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

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

[pant]

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

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

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

[Tasos]

Καλημέρα!

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

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

Τάσος

[sotisanis]

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

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

[Spirosgr]

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