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