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

Search results

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

    Sort data by formula

    Thank you for your kind words and glad help you. No I'm searching for a shorter formula or/and array formula
  17. M

    Sort data by formula

    Should be shorter (I'll search) =INDEX($A$2:$A$5,IF(MOD(MATCH(1,$B$2:$B$5,0)+ROWS(A$2:A2)-1,ROWS($A$2:$A$5))=0,ROWS($A$2:$A$5),MOD(MATCH(1,$B$2:$B$5,0)+ROWS(A$2:A2)-1,ROWS($A$2:$A$5))))
  18. M

    Sort data by formula

    Hi If you have in A2:B5 Column A_____Column B Apple____________4 grapes___________1 pineapple________2 mango____________3 In C2, write this forumla =INDEX($A$2:$A$5,MATCH(ROWS(A$2:A2),$B$2:$B$5,0)) Then fill down Regards
  19. M

    Naming a Non-Contiguous Range

    Hi As sayed by NARAYANK991, Maybe you should check again about NewRange If Not Newrange Is Nothing Then Names.Add Name:="HRRange", RefersTo:=Newrange
  20. M

    Strange date behaviour

    Hi Try this and adapte to your file (I suppose that columns 3, 4 and 9 of worksheet Supply Data are date) Public Sub Copy_Supply_Data() Dim LastLig As Long, Number_Of_Rows As Long, Row_Counter As Long, i As Long, Check_Date As Long Dim Row_Array As Variant, Record_Array As Variant, Tmp() As...
  21. M

    Strange date behaviour

    I remember the topic. But without a sample file, it's difficult to answer exactly. Your system date is dd/mm/yyyy or mm/dd/yyyy?
  22. M

    Strange date behaviour

    Hi KPJ how do you copy data (your code)? Regards
  23. M

    VBA Loop - delete worksheet based on cell value

    Hi You can also try this Sub DeleteEmptyWorksheet() Dim Ws As Worksheet Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets If Ws.Range("A3").Value = "" Then Application.DisplayAlerts = False If ThisWorkbook.Sheets.Count <> 1 Then Ws.Delete Application.DisplayAlerts = True...
  24. M

    vb macro to create hyperlink

    Hi If in D2 you have http://www.cookfood.net In A2, write this =HYPERLINK($D2,&#34;Name Of Company&#34;) See Help of the function Regards
  25. M

    Request - Simple row Delete Macro

    Hi And for excel 2007 and later using an autofilter on an array as criteria Sub Delete3() Dim LastRow As Long Dim LST As Variant Application.ScreenUpdating = False LST = Array(&#34;AUR02G&#34;, &#34;AUDITED&#34;, &#34;ALL WINGS&#34;, &#34;GROUPS&#34;, &#34;---- GUEST NAME ----&#34;) With...
Back
Top