Posts by ashu1990

    Re: Make HTML table lines visible via vba

    have you tried my code and then use your code for extracting the data from mail it should do the trick try using debug mode go step by step and see if the strParameter comes with the data and so on...

    Re: Make HTML table lines visible via vba

    try this

    Re: Array with dates

    just use this and change the range as per your's :smile:

    For Each cell In Range("A2:A51")
    If Day(cell) < 15 Then
    cell.Offset(0, 1).Value = Format(DateAdd("m", -1, cell), "MMM")
    cell.Offset(0, 1).Value = Format(cell, "MMM")
    End If
    Next cell

    Re: Array with dates

    a = [{"01/18/2015", Jan; "01/19/2015", Jan]

    you have used "a" as array where as you are using "v" for output value?

    for each cell in WS.Range(WS.Range("A1"), WS.Cells(LR, 3)) 
            cell.EntireRow.Cells(Found.Column + 2).Value = IIf(IsError(v), "", v) 
     next cell

    Re: Loop which continues until the value in the cell is 0

    Didn't know your exact requirement but i think this should give you a way to acquire what you want

    Re: copy cells with number to the end of a column on another worksheet

    try this

    Re: Vba Function for a counter

    can't you match the details with a unique concanate of invoice number and amount and date with the main summary workbook from where you have to fetch the data and paste it into your workbook.

    Re: Vba Function for a counter

    hello rafdepet welcome to the forum...

    please use code tag's when ever posting code it will help the person to see the code more easier way its a # sign on the right hand corner of the quick reply..

    for your question you cannot store the number in function from where you can retrieve it as after your macro finishes the code it deletes all the variables stored into it, you can check the last invoice number where you store the data eg:- if you have the invoice number into a sheet in column "A" then use

    lst_number = range("A65536").end(xlup).value

    so no need of storing it in another cell or you can use a find method to see if the invoice number entered is already present eg:-

    hope this helps...

    Re: Open workbooks and save as csv

    it should be

    ActiveWorkbook.SaveAs Filename:= _ 
    (strP & "\YOURFILENAME.csv") _ 
    , FileFormat:=xlCSV, CreateBackup:=False

    ur using (strP & "\*.csv") where the filename should be present asuming ur strp has the full path name and "\FILENAME.csv" the * should be replaced by the filename