Search results

Like this?

This workbook path ? So if the folder is "C\Test\" than the file has to be on the C, the file has to go in my documents.

My workbook reflect exact what I want. Simple as bonjour. Photos's in a folder, Names in column M (with or without extention, doesn't matter I can change that)and photo's should be added in column N I don't think you can figure it out yourself,otherwise it is a small matter of posting a small...

Can you post a working example with the coorect phot names and path,I drives me nuts.

They hadn't an extention, I added them to test if it works then,but also nada

Why you think that,what can be the error?

Example with file and folder with 3 Photo's

I tryed in the immedate window, when i saved the file code and window was gone. Worksheet test is my bad, it has to be Sheet 1 Because nothing works and I don't get anywere I am getting nervous.. In the real file I don't make these mistakes naming the sheet wrong

Example

Nothing happens??

????? Euh

Sub VeryHiddenSheet() Dim e For Each e In Array("D", "E", "F", "G", "H") ThisWorkbook.Sheets(e).Visible = xlVeryHidden Next e End Sub

No go.:( The names of the pictures are in Column M with extension like chandoo.jpg this is the code Sub belle() Dim Cell As Range, Path As String Path = "C:\test\" With Sheets("test") For Each Cell In .Range("M2:M" & .Cells(.Rows.Count, 13).End(xlUp).Row) For Each pic In Array(".gif"...

Thanks so far, I work on it tommorrow.

You mean there is nothing wrong with the code?

My bad, it is a table. I have to look at the code, but this will be for tomorrow.

Glad to help.

Now I have this. For Each Cell In .Range("M2:M" & .Cells(.Rows.Count, 13).End(xlUp).Row) For Each pic In Array(".gif", ".jpg") If Dir(Path & Cell & pic) <> "" Then With .Pictures.Insert(Path & Cell & pic) .ShapeRange.LockAspectRatio = msoFalse...

For each is not the problem, how to do it with the pics instead of cells,I don't want to use the blocks for every extention. An example of a for each in a function doen't help at aal.

I don't know how to proceed.

a = Application.WorksheetFunction.CountIf(Range("D:D"), Me.TextShopOrderNumber.Text)

Yes you wrote it, the only problem is how to do it,that is the reason why I asked the question.

NO, your data is not a table, it is is a defined name range. The only table in your example is the to do list.

Thanks for your reply. I was wondering if there is another way, shorter not a code block for every extension, Thanks

This is the complete code. I want to expand this code so I can use different extensions. Jpg, Gif,Png Any body an idee? Sub belle() Dim Cell As Range, Path As String Path = "C:\Test\" With Sheets("Sheet1") For Each Cell In .Range("M2:M" & .Cells(.Rows.Count, 13).End(xlUp).Row) If...