Range:=.Selection.Range, NumRows:=1, numColumns:=11, DefaultTableBehavior:=1, AutoFitBehavior:=0 Selection.MoveLeft unit:=2, Count:=2, Extend:=1 Selection.TypeText Text:="COURSE OUTCOMES" Selection.TypeText Text:="Generated By:" & vbTab & Application.UserName RecordsRecordingOutcomes = Application.CountA(Sheets("RecordingOutcomes").Range("A1:E101").SpecialCells(xlCellTypeConstants))Īpplication.StatusBar = "Processing Records" Set DataRecordingOutcomes = Sheets("RecordingOutcomes").Range("A2:K101") Set WordApp = CreateObject("Word.Application") SaveAsName = ThisWorkbook.Path & "\Report.Doc" ' Attribute variables for "RecordingOutcomes" worksheet
#FAKTURAMA TUTORIAL IN ENGLISH HOW TO#
A search of the internet did not reveal how to resolve the problem.Īny help overcoming this error and generally getting the code to work properly would be greatly appreciated. The code works for "inserted text", but throws an error (5690) when it finds any text marked as deleted text. Selection.Paste 'paste the cut text into the comment box Range:=Selection.Range 'insert a comment box at cursor location The main part of the code is as follows (excluding error handling etc etc): The purpose of the code is to restore the document to its pre-edited state, but retain the revisions as comments for review only by other users. if found, select and cut each revisions into a comment box Search the document for "track changes" (the revisions)Ģ. I have written some code for a macro for Word 2010 which is required to:ġ. Is it possible to have three options in a frame that include an option for Not Known, dtpicker or textbox for YYYY only? I have toyed with various ideas such as asking user by way of message box what information they have and different userforms being loaded according to answers and one userform with option buttons loading the text/listbox or dtpicker according to option selected. With regard to the test date this can either be selected from a calendar (full date) OR the year only in which case the date will default to 31st December of the chosen year or, not known. So, I need a userform where the DOB is either selected from say a calendar or, not known.
#FAKTURAMA TUTORIAL IN ENGLISH DRIVER#
The dates will also be evaluated to establish if a) the driver is a 'Young Driver' under 21 or under 25 and b) if he/she has less than one or two years experience (this is relative to the insurance company concerned).
Quite often this information is not available at the time and I need to explain to the user why this information is required so, I need to have options for these dates.
I have now reached the state where I need the user to select dates, one for the driver's date of birth and one for the date he/she passed his test. Depending on the information input, the 'template' is populated and gives advice accordingly. It is in the form of a 'template' in Excel where users are asked to input information either by message boxes or userforms. The project is a tutorial for people in work to understand the basic requirements to deal with a commercial motor claim. I cannot seem to get the variables used on userforms to hold values throughout the program after the userform has been closed and I am still unsure how to use Select Case instead of numerous elseif's, but that is another story). The more I work on the project and the more I learn the more I realise that I have only just hit the tip of the iceberg!ĭisliking workarounds I have had to use them in some instances (e.g. I am still working on the project started over a year ago in order to learn VBA. I was wondering if it's possible to tell it this? When I go to the connection properties, and click on the Parameter's button, I choose the optionįor the parameter, I ultimately would like to have it get the value of a cell that's from a fixed column at the last row where data was entered. ORDER BY Shipping.ShippingId, Shipping.M_IDĪs you can see, the were clause contains a parameter. SELECT Shipping.ShippingId, Shipping.name, Shipping.cust_num, _num, Shipping.cust_seq, Shipping.end_user_type, Shipping.Uf_Territory, _line, em, scription, Shipping.qty_ordered, Shipping.qty_shippped, Shipping.price, Shipping.DueDate, Shipping.ShipDate, Shipping.product_code, Shipping.avg_u_cost, Shipping.family_code, m_code, Shipping.UF_Color, Shipping.Uf_Feet, Shipping.Uf_ProductType, Shipping.Uf_Item_Product1, Shipping.Uf_Item_Product2, Shipping.Uf_Group, Shipping.Uf_ProductId, Shipping.Revenue, Shipping.ship_date, Shipping.COGS, Shipping.p_m_t_code, Shipping.Feet, Shipping.Ft_Qty, Shipping.month, Shipping.year, Shipping.M_ID, Shipping.quarter, Shipping.week