Search results

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

As usual with Marc L much cackling little egg

Hi Marc can you explain a bit more what you mean.

How can i change this code so it works for jpg and gif? If Dir(Path & Cell & ".jpg") <> "" Then With .Pictures.Insert(Path & Cell & ".jpg") Thanks in advance

Try this. This will delete all rows below the last value in column B Sub Belle() Dim lastRow As Long Dim row As Long Dim temp As String ' insert your sheet name here With ThisWorkbook.Worksheets("Delete.Rows") lastRow = .Cells(.Rows.Count, "A").End(xlUp).row ' you can change the starting...

Problem 1: In the properties set tabstop on false and locked on true where applicable. Problem 2: Use a real table instead of Defined Name Range for your mastersheet then the Formulas will be added automaticly.

A to I are not rows but columns. Your question is not clear.

I looked at your questions, if you give me a few days, I gonna rework your userform.

Are there a lot of lower case textboxes.

You can try that, but instead of the Change event use the AfterUpdate event.

This is correct.

Yes, this is correct

Yes, indeed. Don't forget to add End Sub at the end.

Yes it does.

Off topic All this TextPrefix = "" TextE10Status = "" TextSuffix = "" TextShopOrderNumber = "" TextEmailSubjectLine = "" TextNotes = "" TextStage = "" TextStartDate = "" TextStageDue = "" TextEndDate = "" TextProposalNumber = "" TextSalespersonInitials = "" TextSalesperson = ""...