• 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 ashish koul

  1. A

    Formula Return bottom 3 values from an array/table based on a criteria?

    have u tried this one =INDEX(A:A,SMALL(IF($C$19:$C$28=F19,ROW($C$19:$C$28),""),COUNTIF($F$19:F19,F19))) ctrl + shift + enter
  2. A

    Formula Return bottom 3 values from an array/table based on a criteria?

    try this one =INDEX(A:A,SMALL(IF($C$19:$C$28=F19,ROW($C$19:$C$28),""),COUNTIF($F$19:F19,F19))) ctrl+ shift + enter
  3. A

    Formula Return bottom 3 values from an array/table based on a criteria?

    try this formula in cell G19 and fill it down make sure you press ctrl+shift+enter bcoz its array forumla and not just enter INDEX(A:A,SMALL(IF($C$19:$C$28=F19,ROW($C$19:$C$28),""),ROW(A1))) Note Press Ctrl+shift+enter
  4. A

    Excel Reading Data from Access and CSV files - Splash Screen with Progress Bar

    1 change .ProgressBar1.Max = 10000 change its max value with total no of files which you want to import 2 For i = 1 To 10000 change "10000" with total no of files 3 .ProgressBar1.Value = i Add your code of import before this line
  5. A

    Excel Reading Data from Access and CSV files - Splash Screen with Progress Bar

    @ Ian Try these Sample Macro https://www.box.com/s/0a6b971ebda2d944017f Working Example https://www.box.com/s/75768cb330466a7b2481
  6. A

    UDF to extract hyperlink address from a cell

    If you want to extract hyperlink address from a cell. Try this udf- Function hyperlink_extcell(cell As Range) If cell.Hyperlinks.Count > 0 Then hyperlink_extcell = cell.Hyperlinks(1).Address Else hyperlink_extcell = "Hyperlink Not Found" End If End Function
  7. A

    Pick/Extract a word by position from a cell

    If you to extract/pick a word by its postion from a cell . For example 1) Input: Procter & Gamble Output(Pick 3rd word): Gamble 2) Input: Procter,&,Gamble Output(Pick 1st word): Procter Try this udf : Function pick_word(str1 As String, spl As String, positon As Integer) Dim arr1 arr1 =...
  8. A

    UDF to concatenate first letter of each word in a cell

    If you want to concatenate the first letter of each word in a cell .For example - Input Output Johnson & Johnson J & J Procter & Gamble P & G Boston Consulting Group B C G Try this udf Function con_1stletter(str1 As String) Dim arr1, i As...
  9. A

    Navigate through all the worksheet and Press Ctrl + Home Using VBA

    @ sgmpatnaik - Thanks
  10. A

    UDF to find Latitude and Longitude of any address using MapQuest API and VBA

    If you want to find the Latitude and Longitude of any address using MapQuest . Try this UDF- To know more about MapQuest API visit - http://open.mapquestapi.com/geocoding/ Function lat_lon_mapquest(a_t As String, c_t As String, s_t As String, co_t As String, z_t As String) Dim sURL As String...
  11. A

    UDF to concatenate non blank cells in a range

    @shrivallabha -Thanks
  12. A

    Navigate through all the worksheet and Press Ctrl + Home Using VBA

    Exit Sub - It was by mistake i i tried to remove it but I don't know the way to edit
  13. A

    Navigate through all the worksheet and Press Ctrl + Home Using VBA

    @NARAYANK991 ,shrivallabha ---- Thanks I missed that part :( @ianb - Try this updated one Sub goto_first_cell_in_each_worksheet() Dim wk As Worksheet For Each wk In ThisWorkbook.Worksheets If wk.Visible = xlSheetVisible Then wk.Select If ActiveWindow.SplitRow = 0 And ActiveWindow.SplitColumn...
  14. A

    UDF to concatenate non blank cells in a range

    If you want to concatenate non blank cells in a range. Function concatenate_nonblanks(irng As Range, spl As String) Dim cell As Range Dim rsl As String For Each cell In irng If cell <> vbNullString Then rsl = rsl & spl & cell End If Next concatenate_nonblanks = Right(rsl, Len(rsl) -...
  15. A

    Navigate through all the worksheet and Press Ctrl + Home Using VBA

    @Ian -Its working fine at my place. I am using Excel 2007 Version. Try wk.Activate or wk.select
See more
Back
Top