Displaying MULTIPLE/MANY PHOTOS of sorted results, opposite each other

srands

Board Regular
Joined
Jun 24, 2010
Messages
115
How to display MULTIPLE PHOTOS of specific results. :eek:

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. :confused:
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
 

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

Forum statistics

Threads
1,216,076
Messages
6,128,670
Members
449,463
Latest member
Jojomen56

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top