How to display MULTIPLE PHOTOS of specific results.
http://www.1sar.karoo.net/exoftable3~PhotoMacro.xls
Currently I have succeeded </SPAN>in adding 1 PHOTO per CAR.
However need 5 photos+ per car really.
Master Photos are in COLUMN AF per ROW of WorkSheet.
PHOTOs are displayed in RESULTS in COLUMN F if that car is selected, for example select: PEUGEOT, 206, HDI, SILVER, left click GET IMAGES.
Perhaps the VB code in module 3 can be edited to simply add more photos by INSERTING COLUMNS from COL AG onwards in WORKSHEET.
Alternatively perhaps a different VB code, OR an even simpler FORMULA SOLUTION.
To give more detail, there are two spreadsheets:
i). THE MASTER DATA LIST of ALL CARS: WorkSheet
A simple list of cars.
ii). THE SORTED DATA: RESULTS
A sort is performed depending on combo boxs selected: CAR, MODEL, TYPE & COLOUR.
http://www.1sar.karoo.net/exoftable3~PhotoMacro.xls
VB code is in module 3 is as follows for 1 PHOTO per each car, hence needs editing for more then 1 photo per car in RESULTS:
http://www.1sar.karoo.net/exoftable3~PhotoMacro.xls
Currently I have succeeded </SPAN>in adding 1 PHOTO per CAR.
However need 5 photos+ per car really.
Master Photos are in COLUMN AF per ROW of WorkSheet.
PHOTOs are displayed in RESULTS in COLUMN F if that car is selected, for example select: PEUGEOT, 206, HDI, SILVER, left click GET IMAGES.
Perhaps the VB code in module 3 can be edited to simply add more photos by INSERTING COLUMNS from COL AG onwards in WORKSHEET.
Alternatively perhaps a different VB code, OR an even simpler FORMULA SOLUTION.
To give more detail, there are two spreadsheets:
i). THE MASTER DATA LIST of ALL CARS: WorkSheet
A simple list of cars.
ii). THE SORTED DATA: RESULTS
A sort is performed depending on combo boxs selected: CAR, MODEL, TYPE & COLOUR.
http://www.1sar.karoo.net/exoftable3~PhotoMacro.xls
VB code is in module 3 is as follows for 1 PHOTO per each car, hence needs editing for more then 1 photo per car in RESULTS:
Code:
Sub GetImages()
u = Sheets("WorkSheet").Range("AE65536").End(xlUp).Row
For Each shp In ActiveSheet.Shapes
If Left(shp.Name, 4) = "Pict" Then
shp.Delete
End If
Next
111
For ii = 33 To 999
If Cells(ii, 1) = "" Then Exit For
Next ii
K = ii - 1
For i = 6 To K
For j = 2 To u
If Sheets("Results").Cells(i, 5) = Sheets("WorkSheet").Cells(j, 31) Then
Sheets("WorkSheet").Cells(j, 32).Copy Sheets("Results").Cells(i, 6)
End If
Next j
Next i
End Sub