Search results

Hi, Set cell format to standard or number.

Code goes in ThisWorkbook Event Private Sub Workbook_Open() With Sheets("Calendar") .Select .Range("E6").Value = Month(Date) End With End Sub

I guess you mean something like this? Make your choises in list 1 and 2.

This remark pisses me off, maybe in Paris it is basic, for most users this is not basic. Respect please!

Glad to help.:)

Sub Task_Cnt() Dim ANSYS As Integer, MATLAB As Integer, MPASM As Integer For Each c In Sheets("Sheet1").UsedRange.Columns(1).Cells If c.Value = "Ansys" Then ANSYS = ANSYS + 1 If c.Value = "Matlab" Then MATLAB = MATLAB + 1 If c.Value = "Mpasm" Then MPASM = MPASM + 1 Next c MsgBox...

I was working on your file file, but my wife says I have to do the dishes now and then;), to finish it it takes a bit of time. I use short names T_00,T_01 etc.. so it is easy to use a loop (For 0 to 10 for example) You are right, the short names are almost the same as the columns, but I start...

Everybody has to learn,you cant't run before walking.

I been looking in your code,the formulas are added but deleted again, I can't find why. There is such a bunch of crap in your codes,sorry. A starter up to column 65.

Try the button mail just for fun.

Glad to help:)

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.