[Tasos]

Καλημέρα σε όλους!

Σταύρο απ΄ ότι κατάλαβα θέλεις έναν πίνακα που να περιέχει τα προϊόντα μοναδικά αλλά με τις όλες τις αντιστοιχισμένες εικόνες τους.

Στο παράδειγμα που επισυνάπτω και στο φύλλο "Results" υπάρχει μια λίστα που με τύπους εμφανίζει τα μοναδικά ονόματα προϊόντων.

Οι στήλες ΑΝ και ΑΟ χρησιμοποιούν την παρακάτω συνάρτηση:

Function GetFeautureFromProduct(ProductStartRow As Long, _
                                ProductEntRow As Long, _
                                FeautureColumn As Range, _
                                Optional StringSeparator As String = vbLf) As String
    Dim i As Integer
    Dim tmp As String

    For i = ProductStartRow To ProductEntRow
        If FeautureColumn(i) <> vbNullString Then
            tmp = tmp & FeautureColumn(i) & StringSeparator
        End If
    Next
    If InStr(1, tmp, StringSeparator) Then
        GetFeautureFromProduct = Mid(tmp, 1, Len(tmp) - 1)
    End If

End Function

που επιστρέφει τις τιμές των κελιών στο φύλλο xml που αντιστοιχούν στο προιόν.

Η σύνταξη της συνάρτησης είναι:

=GetFeautureFromProduct(αρχική_γραμμή;τελική_γραμμή;
στήλη_προς_αναζήτηση;προαιρετικός_διαχωριστικός_χαρακτήρας_πχ Char(10)_ή_";")

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



Φιλικά
Τάσος