• 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 mercatog

  1. M

    Extracting a value from a formula

    Hi I'll be with a little stupide idea if all formula in Bxx =Axx*Constant and Axx<>0 then the constant in Cxx =Bxx/Axx Regards
  2. M

    How to covert rows in a table to multiple columns.

    Sorry but I uploaded the wrong file (Apologize and if a moderator can delete the post) Here the file: http://speedy.sh/FWecX/madhu-61244.xlsx
  3. M

    Auto generate workbook file name based on multiple cell contents

    Glad helping you and thanks for your feedback and kind words
  4. M

    Auto generate workbook file name based on multiple cell contents

    Look In the 2nd code Dim NameFile As Variant Not As String
  5. M

    Auto generate workbook file name based on multiple cell contents

    Hi Try this again Sub SaveFile() Dim NameFile As Variant With Worksheets("Sheet1") NameFile = .Range("A1") & "_" & .Range("B1") & "_" & .Range("C1") & ".xls" End With NameFile =...
  6. M

    How to covert rows in a table to multiple columns.

    Hi Here file with 3 intermediate columns and the final result http://speedy.sh/Dgucy/madhu-61244.xlsx Regards
  7. M

    Auto generate workbook file name based on multiple cell contents

    Hi and welcome Try this code Sub SaveFile() Dim NameFile As String With Worksheets("Sheet1") NameFile = .Range("A1") & "_" & .Range("B1") & "_" & .Range("C1") & ".xls" End With ThisWorkbook.SaveAs Environ("USERPROFILE") &...
  8. M

    VBA Help - looping

    Hi To write only in visibl worksheets Dim Sh As Worksheet For Each Sh In ThisWorkbook.Worksheets If Sh.Visible Then Sh.Range("D2").Value = "LC" Next Sh
  9. M

    Delete Rows after certain text

    Hi kaushik03, Luke M @ kaushik03 "he is our one of the VBA champs of this forum" That's a very big word. No I'm still begginer and each day a learn something new Hope that Luke M analysis was clear. Regards
  10. M

    Delete Rows after certain text

    Hi, Adapte this code to your sheet Sub DeleteRows() Dim LastLig As Long Dim c As Range Application.ScreenUpdating = False With Worksheets("Sheet1") 'Adapte to your sheet name LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row Set c =...
  11. M

    find and concat text

    Note that you can also use =IF(ISERROR(FIND("aaa",A1)),"","aaa1")
  12. M

    find and concat text

    Hi T100 Try this in B1 =IF(ISNUMBER(FIND("aaa",A1)),"aaa1","") Regards
  13. M

    Rounding question

    Hi If toy have in A2 5798.69 =ROUND(A2/1000,0)*1000 will return 6000 Or =INT(A2/100)*100 will return 5700 regards
  14. M

    Strange date behaviour

    Hi, I thought that you can adapte to your file Change lines like this Case 3, 9: Tmp(j, Row_Counter) = CDbl(Row_Array(i, j)) Then to format onlu column 3 and 9 '.... .Offset(0, 2).Resize(Row_Counter, 1).NumberFormat = "mm/dd/yyyy" 'columns 3 and 9 are dates .Offset(0...
  15. M

    Sort data by formula

    Great Luke M! The world's better with ninjas Thank you
See more
Back
Top