Recent content by Belleke

Glad to help.:)

Like this?

This PDF in Excel. Hope it helps.

Glad to help.:)

Hi, Like this? Sub CleanCells() For i = 3 To 17 Sheets("Plan1").ListObjects("Tabela1").ListColumns(i).DataBodyRange.ClearContents Next i For i = 24 To 28 Sheets("Plan1").ListObjects("Tabela1").ListColumns(i).DataBodyRange.ClearContents Next i End Sub

Do you mean this? Sub CleanCells() With Sheets("Plan1").ListObjects("Tabela1") If Not .DataBodyRange Is Nothing Then .DataBodyRange.ClearContents End With End Sub

Glad to help.:)

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.