Hello experts,

The following procedure allows me to insert date in active slide.

I would like to insert date + time like this 29/03/2020 14:22:26

Sub Insert_Date()
    Dim oSld As Slide
    Dim oSh As Shape
    On Error Resume Next ' add your own error handling
    Set oSld = ActiveWindow.View.Slide
    Set oTextRange = oSld.Shapes.AddTextbox(msoTextOrientationHorizontal, _
    515, 0, 250, 400).TextFrame.TextRange
        With oTextRange
            .Font.Color = RGB(255, 0, 0)
            .Text = "Update date: "
            .InsertDateTime ppDateTimeddmmyy, True
        End With
End Sub

Select all Open in new window

Thank you in advance for your help.

I have a spreadsheet where I have multiple rows of different data where I would like to consolidate and summarize on a single line for each ID.  It would be great to have some sort of macro that can take the data from the source tab and generate the data in the output tab (see attached spreadsheet).
ee_help.xlsx

Fix Win10 VBA Excel 365 loop / variable logic for conditional format.
If the row is a Total row and either (current month and current %, prior month and prior %, current ytd and current ytd%)  are higher than standard, highlight entire row
In test example line 34 should highlight, but none other

 I tried a few things with the conditional formatting variables and this compiles, but something is not working.
previous versions have highlighted every total row and the below one does not highlight any.
lastrow appears working, logic for is it is a total line  appears working.
cr (current row is probably working

Sub ConFormat()

Dim LastRow As Double
Dim myCell As Range

Dim cr As Long
' sv - startvar  sp startperc
Dim sv As Range
Dim sp As Range
' Set sv = Range("F2")
' Set sp = Range("G2")
Set sv = Sheets("Chk").Range("$F$2")
Set sp = Sheets("Chk").Range("$G$2")
cr = ActiveCell.Row
LastRow = Cells(Rows.Count, 3).End(xlUp).Row

For Each myCell In Range("C11:C" & LastRow)
    If Left(myCell.Value, 5) = "Total" Then
'   If OR(AND(ABS(F & cr)>sv,ABS(G & cr)>sp), AND(ABS(J & cr)>sv,ABS(K & cr)>sp), AND(ABS(O & cr)>sv,ABS(P & cr)>sp)) Then
' If (Abs(F & cr) > sv And Abs(G & cr) > sp) Or (Abs(J & cr) > sv And Abs(K & cr) > sp) Or (Abs(O & cr) > sv And Abs(P & cr) > sp) Then
     
      myCell.EntireRow.Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
 "=OR(AND(ABS(F & cr)>sv,ABS(G & cr)>sp), AND(ABS(J & cr)>sv,ABS(K & …

After running a macro to query a database that changes daily, I get two worksheets with formatted reports that may randomly vary between 10 and 15 rows each day.  

I would like to copy the rows from Sheet1, and paste it below the last row of data on Sheet2, leaving a blank row between the two reports.  I would add this code at the end of the macro to generate the merged report.
Example-of-Merged-Reports.xlsx

Is it possible to Trim the first 4 characters & the second last from the Json string below, the idea here is to remain with pure json, so that if I fail to iterate it , then I can have it printed and posted to the table manually.(Characters not required are  ]    j  and 4c)
Below is the Ms Access VBA code that takes it to text file , but not fully cleaned up.

Text file Export VBA

n = FreeFile()
    Open "C:\Users\chris.hankwembo\Desktop\Leader\test.txt" For Output As #n
    Print #n, strData
    Close #n

Select all Open in new window

Json String

 ]    j{
   "PosVendor": "Nector Prime Accounting Solutions",
   "PosSoftwareVersion": "2.0.0.1",
   "PosModel": "Cap-2017",
   "PosSerialNumber": "100100001829",
   "IssueTime": "20200326115321",
   "TransactionType": 0,
   "PaymentMode": 0,
   "SaleType": 0,
   "LocalPurchaseOrder": "",
   "Cashier": "Admin Manager",
   "BuyerTPIN": "",
   "BuyerName": "",
   "BuyerTaxAccountName": "",
   "BuyerAddress": "",
   "BuyerTel": "",
   "OriginalInvoiceCode": "",
   "OriginalInvoiceNumber": "",
   "Memo": "",
   "Items": [
      {
         "ItemId": 1,
         "Description": "Cleaning Materials",
         "BarCode": 19,
         "Quantity": 1,
         "UnitPrice": 56,
         "Discount": 0,
         "TaxLabels": [
            "A"
         ],
         "TotalAmount": 64.96,
         "IsTaxInclusive": true,
         "RRP": 0
      }
   ]
}4c

Select all Open in new window

display a prior month value in a query for a field.
In  this  Table:   dbo_QCS_CRS_SCORE
Example data:
JANUARY =  33.4
FEBRUARY =  98.2
MARCH  =    96.3


I have the fields JANUARY TO DECEMBER AS FIELD NAMES. IN "dbo_QCS_CRS_SCORE"
i WOULD LIKE TO ADD THIS TO THE QUERY BELOW AND SHOW THE  PRIOR MONTH SCORE.

so say this is March I need to display February field.
When April 1st is here. I need to display March field ?

SELECT [EMPLOYEE_FIRST_NAME] & " " & [EMPLOYEE_LAST_NAME] AS NAME, QCS_CRS_EMPLOYEE_DIRECTORY.user_id, QCS_CRS_EMPLOYEE_DIRECTORY.EMPLOYEE_STATUS, dbo_QCS_CRS_SCORE.YTD_AVG
FROM QCS_CRS_EMPLOYEE_DIRECTORY INNER JOIN dbo_QCS_CRS_SCORE ON QCS_CRS_EMPLOYEE_DIRECTORY.user_id = dbo_QCS_CRS_SCORE.RACFID
WHERE (((QCS_CRS_EMPLOYEE_DIRECTORY.TITLE_DESCRIPTION) In ('On-Site Specialist','Desktop Specialist','Reference Analyst')))
ORDER BY [EMPLOYEE_FIRST_NAME] & " " & [EMPLOYEE_LAST_NAME];

Select all Open in new window

Thanks
fordraiders

I have a worksheet that runs a macro to copy the data from one sheet ("WAV_Activity_Recap") to another ("Impact") if the values in column E + F do not exist in the WAV_Activity_Recap sheet. All works fine. My issue is I only want to copy the highlighted columns on the WAV_Activity_Recap worksheet to the Impact sheet (I do not need the extra columns on the Impact sheet).

Again, the macro works fine for copying if all the columns counts are the same.

Suggestions?
ImpactXfer.xlsm

Hi,

Would like to know how to check whether an Excel workbook is currently opened or not by using Excel VBA?  I'm now using Office 2013.  Thanks

Cheers
Stanley

Experts,

I am trying to combine the below in an unbound field on a report.
Maybe its better to do it by VBA?  
Not sure which way is easier.

thank you...

In English:
If tblLetterOfCredit.PaidInFullYN = True then "Paid In Full", if not then Dsum but only if tblPayments.PaymentDate is not null (meaning there is a date entered)

--------------------------------------
If tblLetterOfCredit.PaidInFullYN = True then "Paid in Full"
Else:

If is not null [PaymentDate] then Dsum [Amount].  How to add Is Not Nulll to below?
=iif(DLookUp("[PaymentDate]","tblPayments","[LCID] = " & [LetterOfCreditID]
dsum("[Amount]","tblPayments","[LCID] = " & [LetterOfCreditID]

I have an Excel Add-In that has a macro which can be started using a shortcut key.  I have added another module in the add-in, copied the existing macro, and modified it to perform a different function.  How do I add a shortcut key to this new macro that is different from the one used for the original macro.

Hello experts,

Following the question: Question 29176080
which allows me to keep and remove text based on character. I need some help to add to my add-in to be able to swiftly use the procedure on a daily basis.

-Reference procedure to be added in the add-in located at: EE29176080.xlsm
-Reference add-in LD-add-in.xlsm

It should be added at: Keep_Remove_Text_Based_On_Char

Located at:

If you have questions, please contact me.

Thank you in advance for your help.
LD-add-in.xlsm
EE29176080.xlsm

I have an Access program that uses Azure for some tables.  Currently, I simply put customer information into a table (name, address, purchase, very basic stuff) and then our users can go to a website and see that information (I used ASPRunner.net to build what I needed because I have no clue how to do it otherwise).

This was fine but now my client would like to run a report from the Access program, save it in PDF format, and have that available to the customer.  How would I do this?  I read something about BLOB storage but I have never done anything like that.

I finished building the code in Access that will allow the system to create the PDF file and save it in a folder on their local server.