I cannot figure out the syntax for the life of me.
This should work...
Dim DatObj as Object
Set DatObj = CreateObject("MSFORMS.DataObject")
...but it does not.
Also, if it is not possible to late bind to this class,
I have some code that run on Excel 2003, and fail on Excel 2000. It happens on functions Left, Right, Mid and Trim. I've found that I must use in "Late Bindings".
If exist any convertion for above functions?
I have a form with 2 buttons and a frame. Inside the frame I have another button. I get a Type Error Message when I run the code and I don't understand why.
View 3 Replies View RelatedI have code that creates a row of controls on an MSForms.Userform at runtime.
I would like the user to be able to save these controls so that they are available the next time he opens the form. The user would be able to add or delete a row of controls and save them AND the values that he has set. This allows great flexibility for each session using the form.
The values aren't a real problem - I've been using the SaveSettings function for the design time controls values. The runtime controls are combobox, textbox, listbox, checkbox.
I don't want to design-time build the controls and just toggle the visible property (not a good solution for my app).
I have an incredibly simple question, for anyone who knows Excel well. I pre-apologize for the gaps in my knowledge, as I'm mostly self-taught.
I have an example spreadsheet I found on a thread here.
It has cells A1 and A2 bound to combo boxes.
I want to set up a worksheet pretty much exactly like this.
I know how to do a combo box as an external item on the page, but I want each cell in a certain column on each row to be a combo box.
I´m writting a macro. It works find until a certain point. When I want to change some outputs of the macro without changing the syntax, it display an error mesage while runing the macro. It says Else without If. Which is quite disturbing because the Else was not creating any problem before. Here is my macro before I changed the conditions (this one work nicely)
Sub Copy_Sheet_Beta()
Set wba = ActiveWorkbook
On Error Resume Next
If IsWorkbookOpened("Projekt.xls", "C:Documents and SettingsfrederikSkrivebordRedd Barna") Then
Workbooks("Projekt.xls").Activate 'In case open, just activate "Projekt"
Else
Workbooks.Open Filename:="C:Documents and SettingsfrederikSkrivebordRedd Barnaprojekt.xls"
End If
Set wb = Workbooks("Projekt.xls")
wb.Activate
If Not SheetExists(wba.ActiveSheet. Range("C1").Value) Then
MsgBox "overall doesn't exist!"
Else........................................
I have a workbook in which there is a sheet containing a table.
Excel 2002ABC123Specific Gravity6 Volt ValuesSOC40.0000.000Dead
51.1345.97010%61.1485.99020%71.1626.02030%81.1766.06040%91.1906.10050%101.1976.12055%
111.2046.14060%121.2116.16065%131.2186.18070%141.2256.20075%151.2336.23080%161.2416.26085%
171.2496.31290%181.2576.32095%191.2656.350100%SOC Chart
From another sheet I query this table using the LOOKUP function to obtain values from column C such as 25% 60% and so on. A typical query formula looks like this:
=LOOKUP(B2,'SOC Chart'!B4:'SOC Chart'!C19)
It would be nice if the fill color came along with the value.
I want to late coming and early going of employees. eg. office incoming time is 9 am and 5 mints late coming is allowed 9.05am . and outgoing time is 6pm i am not able to calculate late coming if outgoing is 5.30pm and if put formula =IF(E3>=6,0,6-E3) not working properly.
View 1 Replies View RelatedSee the attached spreadsheet and the comment boxes inserted containing my questions.
View 10 Replies View RelatedAll i want is to give solution for this time in and out.how to deduct late minutes to the salary of staff.
Date IN OUT
Thu 4/3/20149:1418:39
Sat 4/5/20149:0117:56
Sun 4/6/20148:5817:58
Mon 4/7/20149:1217:50
Tue 4/8/20149:1618:00
Wed 4/9/20149:0216:06
Thu 4/10/20149:1017:54
I have a very large spreadsheet with the following columns: WO# (number field); Start date (date format MM/DD/YYYY); Frequency (text); and craft (number). I am trying to have code that checks the frequency and if is "Monthly" or "Weekly" it just goes on to the next row; if it is "Annual", it adds 163 to the start date (start date needs to changed to a numeric field); if it is "Semi-annual", it adds 82 to the start date; if it is "Quarterly", it adds 45 to the start date; and so on, there about 20m different frequencies. After it adds the above value to the start date, I need to check if that number is less than today's date (the day I run the code). If it is, it needs to flagged as "LATE" and the whole row of info copied to another worksheet with LATE as the title and all the column headings and info copied to the worksheet. I hope this makes sense to someone because I am a beginner in Excel and even less informed when it comes to VBA. Any help would be greatly appreciated.
The way the process must work is that I need to check the frequency and if it is "Weekly" or "Monthly" , it is ignored and goes on to the next row. All other frequencies are cut in half, i.e., "Annual" is 183 days, "Semi-annual is 92 days", "Quarterly" is 45 days, "2-Year" is 365 days, and so on. This number needs to added to the scheduled start date (now formatted as a number, not a date, and checked to see if it is smaller than today's date (also a number). If it is, it is reported on the second worksheet (titled Late).
I’m developing an application that will be distributed amongst several clients all running different versions of Excel.
I am trying to employ Late Binding, but am runing into an issue with some string functions (like Mid, Right and UCase) and am getting a ‘Can’t find project or library’ error.
These functions work as expected in a blank project.
I'm working with data as displayed below. My objective is to create a table by Model with summed quantitiies in two columns representing On-Time and Late. On-Time is achieved when Date Shipped is on or before the Promised Date. I have included the required format to be achieved in the second example. I'm willing to work with macros or VBA for the solution. I just need guidance to learn how to accomplish this task.
CREATE TABLES LIKE BELOW?
----B---- -----C------ --D-- ----E-----
6 Promised Date Shipped Inspection
7 Date Mod #
8 11/30/07 11/01/07 780 15216
9 10/10/07 11/01/07 230 15174
10 11/20/07 11/07/07 665 16314
11 9/13/07 11/07/07 230 15008
12 12/10/07 11/08/07 780 14452
13 11/15/07 11/08/07 780 15233
14 12/18/07 11/12/07 665 15219
15 12/3/07 11/12/07 780 15224
16 10/14/07 11/12/07 230 15011
CREATE TABLES LIKE BELOW?
-N-- ---O--- -P--
7 Mod On Time Late
8 225
9 230
10 335
11 555
12 665
13 780
14 1120
So I have a date in cell A1 for example.
Now if cell B1 is either blank, or more than 6 days from the date in cell A1 I want it to turn red.
Tried with index & Match formula but it throws errors in few cases becoz Cell value are either stored in general or H:mm formats
For ex.
Cell value "05:07" has a custom format applied (hh:mm), and in the formula bar it is displayed as "05:07:00" which is not what we want. When I change the format to 'General' Excel converts the 'time' to decimal, eg "0.213194444444444".
When I manually enter 05:07 the problem is nearly resolved as it changes to 'general' without turning to decimal, but displays as 05:07:00. The formula converts it to decimal where it throws error.
I have a formula in Excel2003 that is working fine except for when D12 is blank. When D12 is blank I want the result to equal either zero or blank.
=IF(ISBLANK(E12),NOW()-D12,E12-D12)
I am putting together a simple table to display current week's data vs previous weeks. The current week's data is drawn from a status chart which changes frequently. The constant change is fine for 'Current' as I only want the current data displayed.
The problem I am having is calculating the number of late jobs that existed during the previous week.
The status log has a due date which is compared to the current date to determine 'on time' status for the current week.
Due dates are reissued regularly so I can't use
=COUNTIF(RANGE,WEEKNUM(NOW()-1)) to return data about last week from my status chart.
I have available a 'Movement Log' (in the workbook but a separate worksheet) which tracks the changes in the due date field, but I'm not sure how to integrate that data to calculate the # of jobs that were running late from the last week.
My thought is that I need to perform a count of the # of late based on a comparison of 'due date' to 'date of the last day of last week' with a way to insert the "old due date" from the movement log to replace what is shown in the status log if necessary.
Movement Log.JPG
Status Chart.JPG
I had a spreadsheet developed for me at work but the lad who developed it for me has subsequently left and I'll be honest I would not have any idea of macro's or some executables in excel. The only problem I'm having with this is it is not flagging item's as late unless they have gone over 2 months past the target date (would be ideally looking for 1 day past target date for it to flag late). Could anyone just have a quick look at this, I'm sure that this could be a quick fix but I would not have the relevant expertise for this. If someone can rectify the problem could you also just give me a quick explaination as to how this was done as I would like to have an idea myself and not have to continue to bug people with simple problems like this.
View 3 Replies View RelatedIm having problem with If/Then/Else Statements Not sure what the problem is. I have a text box a user inputs whatever in to create two new tabs one is the tab name then the next is tab completed. It isnt liking my syntax I have here.
View 7 Replies View Relatedif I copy and Add it created a new workbook not the current on im in. What am I doing wrong?
View 5 Replies View RelatedGetting a syntax error which and I'm not sure what I've done wrong. This is the bit thats causing the problem:
View 2 Replies View Relatedtrying to write a formula in a VB to some cells:
View 3 Replies View Relatedwhat is wrong with this syntax:
View 2 Replies View RelatedI would like to have an email generated when a cell changes to a particular value. I've developed the macro to send the email with a saved attachment.
When I try to OJT-Engineer the text for the module, I can't get it to recognize the macro. It's a syntax issue, it seems.
What I need is for my module to initiate a macro when a cell changes to a value.
This is the code EXACTLY as it appears:
A theoretical question following an empiric result.
For the command “SendKeys”, for instance, take these two lines:
What is wrong with the syntax of this formula?:
COLUMNS(INDIRECT("AverageDemand!$A7:"&A$7))+4
I'm getting #REF errors and I can't work out why...
I have the following code that loops thru and puts the word 'TEST' in column J if column B has a TEXT value of '020'
----------------------------------------------------------------------------------
With Range("J1:J" & Lastrow)
.Clear
Range(.Cells(2), .Cells(.Count)).Formula = "=if((b2)=""020"",""TEST"","""")"
End With
----------------------------------------------------------------------------------
Questions
1) why do I need double quotes "" "" on every argument in the function? Is it because I'm working with TEXT data?
2)I want to use multiple ifs (ie if cell b2 equals '020' OR '030' then put the word 'TEST' in col J). How to change the syntax to do this?
I know this syntax isn't right.
I have a form and a combo box that I want ot fill the items in from cell F22.
Here is my
Sheets(PowerAnalysis.xls).Cells("F22").Value = ComboBox2.Text
What is the best way to get this done? I have searched here and on the web and I can't seem to find any straightforward answers.
I am trying to get the below autofilter working but to no avail, its just putting the text datStart and datEnd in the auto filter, not what I receive in the boxes, see bold line for line in question
Dim datStart, datEnd As Date
Dim strAgent As String
datStart = txtStart.Value
datEnd = txtEnd.Value
strAgent = txtAgent.Text
Range("A4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:=">datStart", Operator:=xlAnd, _
Criteria2:="<datEnd"
I thought I saw a thread where someone used AutoFilter as a one liner like
Range("VFILTER").AutoFilter 23, "True"
but for some reason this does not work. The filter is active, but it doesn't pay attention to the field or criteria part.