Posts by jamilm

    Re: Outlook to export the detail of outlook email to excel - OPEN TO DEVELOPERS

    Quote from Wigi;665538


    Another possibility is that 20 USD is not appropriate for the task.
    I leave that decision up to you, I do not want to force you in any direction.

    just to to share here that S M C Oracle Expert has provided the solution for this and is accepted by me and payment made and confirmed. (i get to call him Champion)

    10% already paid Transaction ID: 08456030S48485548

    20$ USD for imporving the below code . basically the below code is exporting the email information to a excel workbook.

    Code pasted below only exports the data to excel. what i aim the desired code to do is the following

    once the data is exported in excel then in excelsheet each Subject to be considered as a task and basically what i want to measure regularly that that until the each subject flag status is completed from the time that an email for a subject was received, whether it is flaged or not. it shall show the gap of the working hours between the time the subject email received and the last communicated email from the following 7 email account.

    [email protected]
    [email protected]
    [email protected]
    [email protected]
    [email protected]
    [email protected]
    "[email protected]"[/email]

    now, working hours is from 9:00AM to 5:00PM everyday excluding saturday and sundays which are weekends. also if there would be possiblity to add code so that i could manually put some ad hoc holidays.

    so basically the macro to export only per subject and based on the last communicated email with its flag status and and sender name/address indicate the working hour it took from the time received and the last communicated email from any of the above mentioned email accounts.

    i hope that i have explained this well. otherwise, please feel free to ask, if it is not clear.

    Dear Gurus,

    i have posted the question in the following link, however did not get a solution, grateful if you take a look into my vba code.

    am using excel vba with word object library to create a memo from the ranges in excel cells.

    now i am typing some texts and when i moved from my first typetext to the second with type paragraph then there is a considerablly big space between first line and the second line. i can remove that via word document manually "Line and Paragraph Spacing" on the dropdown "Remove Space After Paragraph" however i am trying to perform the same manual thing through the VBA code. i searched through Google and i found in some forums that either .Paragraphs.SpaceBefore = 0 or .Paragraphs.SpaceAfter = 0 which work, however i tried and still did not work. i do not know where to put the .Paragraphs.SpaceAfter = 0 either before the second text or after it. any help would be appreciated.

    P.S when i use record macro to check how macro is recording the code. unfortunately recording macro does not record any code for "Line and Paragraph Spacing" on the dropdown "Remove Space After Paragraph".

    With WordApp .Documents.Add With .Selection.TypeText Text:="Project Advances and Project Expenses".TypeParagraph.TypeText Text:="Project Budget & Project Cash"

    link posted in another forum. attached below…-spacebefore-%3D-0-a.html

    Re: Formula SUMPRODUCT

    Perfect. time to pay you. pm me your paypal ID

    Quote from S M C;651445

    OK, here's the code. You need to alter the FormulaA and FormulaB reference to what you need.

    Re: Formula SUMPRODUCT

    yes. i do not need the pivot table. that was just for reference.

    i now tried with this code and it gets stuck on the last line

    Sub FillinFormula()
    FinalCol = Worksheets("Expenditure_Details").Cells(1, Columns.Count).End(xlToLeft).Column
    FinalRow = Worksheets("Expenditure_Details").Cells(Rows.Count, 1).End(xlUp).Row
    Nexcol = FinalCol + 1
    Worksheets("Expenditure_Details").Cells(2, Nexcol).FormulaR1C1 = "=IF(SUMIFS(DEEMED_ACCRUAL_COL,PO_ID,RC[-17],DATA_SLICE,RC[-9])>0,DEEMED_ACCRUAL_COL,0)"
    Worksheets("Expenditure_Details").Cells(2, NextCol).AutoFill Destination:=Worksheets("Expenditure_Details").Cells(2, FinalRow)
    End Sub

    Quote from S M C;651433

    Also, from the sample file, I assume you don't need the pivot table (that was just for reference I believe?)

    Re: Formula SUMPRODUCT

    Thanks SMC.

    this is good, but i have lots of files and manual entering the Expenditure_Details!BQ2 the drag down formula will be too much work.

    may i ask you to fix my VBA code to prepapulate the formula in the Expenditure_Details!BQ2?

    i have written the following code to enter automatically the formula in my column BQ, my vba does not give error but it does not enter the formula there.

    Sub FillinFormula()
    Dim lastRow As Long
    lastRow = Sheets("Expenditure_Details").Cells(Rows.Count, "BQ").End(xlUp).Row
    For I = lastRow To 1
    Sheets("Expenditure_Details").Cells(1, 39).FormulaR1C1 = "IF(SUMIFS(DEEMED_ACCRUAL_COL,PO_ID,RC[-17],DATA_SLICE,RC[-9])>0,DEEMED_ACCRUAL_COL,0)"
    End Sub

    Re: Formula SUMPRODUCT

    Quote from S M C;651303

    Doable I would say. I can work with your file tomorrow. Late night here. If that's late for you, other developers can look at this.

    thanks SMC

    Take your time. i will wait for another 12 hours.