• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Recent content by Belleke

  1. Belleke

    Copy and paste the data VBA Code

    Glad to help.:)
  2. Belleke

    Copy and paste the data VBA Code

    Like this?
  3. Belleke

    How to convert a financial statement which is in pdf need to convert to Excel?

    This PDF in Excel. Hope it helps.
  4. Belleke

    How to clear the cells only from the table

    Glad to help.:)
  5. Belleke

    How to clear the cells only from the table

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

    How to clear the cells only from the table

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

    VBA Place Current Month Number in Certain Sheet Cell

    Glad to help.:)
  8. Belleke

    VBA Place Current Month Number in Certain Sheet Cell

    Hi, Set cell format to standard or number.
  9. Belleke

    VBA Place Current Month Number in Certain Sheet Cell

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

    ActiveX ListBox to be populated

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

    VBA Used Column range

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

    VBA Used Column range

    Glad to help.:)
  13. Belleke

    VBA Used Column range

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

    VBA UserForm - Skip Form Fields, Apply Formulas to New Rows on Data Table

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

    VBA UserForm - Skip Form Fields, Apply Formulas to New Rows on Data Table

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