PICTURE selector, instead of "A" ROW, COLUMNS way & then PER ROW?

srands

Board Regular
Joined
Jun 24, 2010
Messages
115
Working on a PICTUREs selector, however these versions are currently just 1 COLUMN:
Master sheet of CARS with 5 PHOTOS PER CAR in 1st Sheet.
Select desired CAR for upto 5 PHOTOs per car to be displayed in 2nd Sheet.

In RESULTS/PHOTOselector page how do I edit for ALL 5 PHOTOS for each CAR selected (Either by CODE or COMBOBOX)</SPAN>, hence MULTIPLE COLUMNS and per ROW. :eek:
In other words 5 COLUMNS: PHOTO1, PHOTO2, PHOTO3, PHOTO4, PHOTO5 and then PER ROW

In FORMULA terminology speak currently the row by row of 1 COLUMN is B:B. </SPAN>
I guess the equivalent search I want is for example starting from B2:F2, and EACH ROW of CARS selected by either:</SPAN>
Enter code then MACRO BUTTON “GET PHOTOS” (MACRO TYPE) </SPAN>
or </SPAN>
Combobox (NON-MACRO TYPE).</SPAN>

My edits are below:

i). Macro type
http://www.1sar.karoo.net/PHOTOs~Macro2.xls 786 KB's

The macro version looks more plausible then the non-macro.

Unsure of VB code for COLUMNS way instead or ROWS way, then when edited for all of the 5 PHOTO COLUMNS, for EACH ROW a CODE specific to a car, is entered in COLUMN A of RESULTS/PHOTOSELECTOR.

In other words how to include COLUMNS B to F per EACH ROW?
As well as COLUMN A, instead of just COLUMN A.

Code:
Sub GetImages()
u = Sheets("WorkSheet").Range("A65536").End(xlUp).Row
For Each shp In ActiveSheet.Shapes
If Left(shp.Name, 4) = "Pict" Then
shp.Delete
End If
Next
111
For ii = 2 To 999
If Cells(ii, 1) = "" Then Exit For
Next ii
k = ii - 1
For i = 2 To k
For j = 2 To u
If Sheets("Results").Cells(i, 1) = Sheets("WorkSheet").Cells(j, 1) Then
Sheets("WorkSheet").Cells(j, 2).Copy Sheets("Results").Cells(i, 2)
End If
Next j
Next i
End Sub

ii). Non-macro type http://www.1sar.karoo.net/PHOTOs~NonMacro2.xls 805 KB's

The non-macro consisting of lists maybe possible for multiple photos, but how to edit the PHOTOSELECTOR sheet for display multiple columns for that SPECIFIC CAR, and then PER ROW for EACH CAR (of Combo Boxs selected) I don't know.

(Defined Name & Data Validation)

I created this spreadsheet as follows:
CREATE LIST WITH PHOTOS: Column A is DESCRIPTION, Column B is PHOTOs

INSERT, DEFINE, NAME
NAME: PictureList
REFERS TO: =OFFSET(Sheet1!$A$1,1,0,COUNTA(Sheet1!$A:$A)-1,1)

INSERT, DEFINE, NAME
NAME: Picture
REFERS TO: =OFFSET(Sheet1!$B$2,MATCH(Sheet2!$A$2,PictureList,0)-1,0,1,1)

Sheet2, B2, insert object, create from file, choose a picture, RE-size same as Sheet1 photos.

Sheet2, A2, Data, Validation, Settings, Allow: List.
Source: =PictureList

Then place mouse over CELL A2 for combo box to appear, then select choice, and PHOTO should appear.
 

Excel Facts

Best way to learn Power Query?
Read M is for (Data) Monkey book by Ken Puls and Miguel Escobar. It is the complete guide to Power Query.

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