Had a bit of code I was working on for a guy on here, and came across a problem while putting the finishing touches on it. It's since been solved by someone else, but for future reference...
View 13 Repliesexperienced coder (not VBA) and I'm having trouble with a simple statement. No idea why it was working before and moving it to it's own Sub screwed it all up.
Sub InitialMessage()
On Error GoTo BadEntry
SiteTotal = InputBox("Enter the number of approved sites *Must be an Integer > 0*")
BadEntry:
Entry = "Bad"
Msg = "An error occurred!" & vbNewLine
Msg = Msg & "Make sure you enter a valid value in all the prompted Message Boxes"
MsgBox Msg
Using this formula for a bank account,
=IF(SUM(C2-A1+B1)=C1, "match", "NO match")
down a column of about 3000 rows, yields only one cell with an unexpected and probably incorrect response in G2 with a "NO Match" - where the math is correct ?
A B C D
63.58 0.00 -54.97 match
64.57 0.00 8.61 NO match
128.21 0.0073.18 match
201.39
Details:
Attachment is included;
temp2.xlsx
in a bank account file, where "C2" is the previous balance, "C1" is the current balance, "A1" is any check written, "B1" is any deposit applied.
I'm getting a mismatch error on my If activecell.value > 5 Then portion of this code. I'm trying to say if the value in column AG is greater than 5 then create an email address from the first and last name. I've even made sure to copy and paste the formula results as values.
Code:
Sub CheckPFPDates()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim emails As String
Dim salution As String
Dim currenttime As Integer
[Code] ........
I usually create fairly simple macros using 'button' feature. However, now I'm using the 'CommandButton', as I had to make buttons highlighted once selected - So I have a choice of five options, whichever the user chooses that option background changes, the others stay grey...anyway, thats the fancy-editing done, but now when i enter a simple instruction - hide rows function - I get the error message "Select method of range class failed"
Here is the full code - like i say it works fine when its just the editing, but when i try to actually hide rows it doesn't work. - I will also add that the code is inside 'Microsoft Excel Objects' and further 'Sheet 1 (INDEX)' - not a module - I'm not sure if this is important.
Private Sub JackStart_click()
JackStart.BackColor = 32896
JackStart.ForeColor = 16777215
JackStart.Font.Bold = True
Majix.BackColor = 8421504
Majix.ForeColor = 0
Majix.Font.Bold = False
Sheets("Bank Reconciliation").Select
Rows("3:3").Select
Selection.EntireRow.Hidden = True
Sheets("INDEX").Select
Range("A1").Select
End Sub
I am trying to use FIND and an array formula to find the position of text in a range of cells (A2 and A3 in the example) which could be one of a number of options (C1:D1 here). But the array formula throws up the following error: "A value used in the formula is of the wrong data type". The simplest illustration of the problem is as follows. The formula in B2 is
Code:
{=FIND(($C$1:$D$1),A2)}
and $C$1:$D$1 contain REF and ATM respectively. [/CODE]
REF
ATM
203047 05AUG 08.55 OKEHAMPTON ATM
#VALUE!
CO-OP GROUP 380611 REF 191 7553375222 BCC
22
We see that B2 has a #VALUE! error - wrong data type. But for some reason B3 is ok returning 22!
I really don't know how to code a checkbox correctly. On the sheet, I have a form with CheckBox1 and Checkbox2. I would like Checkbox2 disabled until Checkbox1 is checked. Also, when Checkbox1 is checked, display Image1, otherwise Image1 is hidden. When CheckBox2 is enabled and checked, display Image2, otherwise Image2 is hidden. I know this is real beginner stuff, I'm still a rookie.
View 4 Replies View RelatedI have a rather large workbook (30 sheets, 10MB) that has one worksheet with many INDIRECT functions in it (pulling data from the same file, different tabs). I am working to put simple code into the workbook to protect and/or unprotect all worksheets. I have gotten code to work to both protect and unprotect all the sheets, but when I run the unprotect code (see below), and then I go to edit the workbook, data from the sheet with many "indirect" functions temporarily "overwrites" the data on the active sheet (this is fixed when I scroll my mouse over the effected cells). I am developing this workbook for other users, so I'd like to fix this before sending it off to them.
This problem does not happen until after I run the following .....
This very simple color code below worked before but now it gives "Application-defined or object-defined error". When I try it on a new workbook, it works fine.
Code:
Sub sdsdfsd()
Selection.Interior.Color = 65535
End Sub
I asked for a macro to delete the whole row if a duplicate customer number was found in column B. Sometimes, though, my column numbers change. So, logically thinking, I simply changed the criteria, but the macro ONLY seems to work if duplicate customer numbers are in column B only.
This code below won't work if the Customer Number is in column D instead of B even if the reference of B:B is changed to D:D, it doesn't carry the macro over.?
I'm currently trying to sum across a row only if certain text is present. So, if A1 has CT8 and A2 has 5 and A3 has CT5, I want to just sum the cells with CT in them. I've already worked out how to strip the CT from the numbers in the sum, but not how to specifically only sum if CT is present. And of course, the sheet uses other letter/number combinations that need to be separately summed.
I have been attempting to copy a date & time with a specific format from one sheet to another and add " before and after it in the same field. This is being done to create a specific csv format for date.
The Formula I am using on sheet3 is - =IF(Sheet1!A3="","",Sheet2!I3&Sheet1!G3&Sheet2!I3)
The Values I am using are below
Sheet1!G3 Format = yyyy-mm-dd hh:mm:ss
Sheet1!G3 = 2014-02-11 07:00:00
Sheet2!I3 = "
Formula Results = "40219.2916666667"
Intended Formula Results = "2014-02-11 07:00:00"
I have used a similar formula for other fields within the xlsx, and the only one I am having issues is with the date field. It keeps converting to a serial number when the calculation occurs and the copy and formatting occurs. Formula to get it to come out with the intended results?
(Excel 2007)
What I'm trying to create is a way to populate a quick inventory list with my bar-code scanner.
I've already learned that in order to have excel move to the next row each time a 12-digit SKU number is scanned, I'm going to have to utilize a userform text box.
My problem:
I don't even know how to begin coding the text box to accept a 12digit number, enter it into the next available blank cell (I'd like it to populate vertically) and then ready itself to accept the next available 12digit number.
My desired end-result:
My scanner is attached to a lengthy USB-Extension, so I can roam my store and quickly scan the inventory on display. For that reason, running back to my laptop and striking "Enter" each time makes the whole solution pretty useless.
Once finished, I'm assuming I could use excels count feature to tell me the quantity of the items I have on hand.
I am attempting to match data entered into two cells. The data input goes into Worksheet 1. In Column A Row 1 the user inputs data... Example: 5. Then in Column B Row 1 the user inputs separate data... Example: B. I would like the result returned to Column C Row 1. The lookup would be on a table in Worksheet 2.
Worksheet 2
A B C D E F G H I J K L M N O P
1 2 3 4 5 6 7 8
A Pig A Cat A Dog A Fish A Ox A Bat A Six A Pie
B Pie B Six B Bat B Ox B Fish B Dog B Cat B Pig
C Fish C Ox C Cat C Six C Dog C Pie C Pig C Bat
Therefore the Entry 5, then the entry B would Return: Fish
So it's a lookup and match Column A-P. Then using that match lookup Row 2-4 for the second match. Then Return the data from the cell next to it.
I have recorded 7 different macros and then combined them all into one macro to achieve one end result. I am not sure if you can just look at the codes to determine different ways to improve them or if you need the excel spreadsheet as well.
View 2 Replies View RelatedI"m attempting to generate a report to show the number of occurrences for a particular product within a calendar month.
Data is stored on the first sheet, output is populated on a separate sheet. Seems simple enough, but getting the "month" out of the date, whilst referring to another sheet seems to be the sticking point.
2014/03/24 14:34:17
Product1
2014/03/24 13:45:51
Product2
[Code]....
Basically it is another sports modelling experiment that I have had (I get the day off work and come up with things like this ), where I just had a curiosity to play out the last games for the top 3 teams in the English Premier League (just to see if I could get some percentages).
The attached, is just the values from one run of my model (I have taken the workings out to reduce the size and for other reasons).
Basically everything to the left of column K, is the model and I am happy with it (and I know goals have to be integers - this is basic);
This plays the games out, and feeds the data into the table at M36 (highlighted yellow), which feeds the data tables at M42 (highlighted green), which are counted to get percentages in the tables (highlighted yellow at M6).
I have put some example output from runs on the second worksheet (so you can see how it works - I like that it suggests Chelsea can win even though it won't be very likely )
Basically you can probably see the problem in cell O22. The percentage chance of finishing first should equal 100% when totalled (e.g. the sum of Liverpool, Chelsea and Man City finishing first, as it has to be one of them should equal 100%). I tracked this back to the fact that I had no way of splitting teams level on points. As a result I added Goal Difference to the model (crudely - e.g. decimal) and here's the question;
How would I go about using Goal Difference to break tie's effectively?
I am thinking I could do some kind of IF function in Q37 (and then have a tie-breaked rank in column R to feed the data tables), on the basis of if anything in N37 to N39 was equal but I am not sure how I would go about applying this.
Example Values_EPL.xlsx
copy or cut then paste - paste grayed out in excel 07 tried several popular fixes from the web without luck.
Tried: the Excel repair and diagnose tool
Tried: uninstall / reinstall Excel program as well
Tried: go into Hikey - user - software - Microsoft - excel - new - 32 binary and tried adding new rule
Tried: Close Excel.2. Go to C:Documents and Settings[userID]Application DataMicrosoftExcel3. Delete the XLB file.4. Open Excel (the XLB file will be recreated - like the normal.dot) ------> This one - I could not find the XLB file - looked everywhere.
Tried: Open excel hit alt-f11 (to get to the VBE) hit ctrl-g (to see the immediate window) type this and hit enter: application .command bars ("cell").reset Then back to excel to test it."
Basically in my sheet I have a table of various data, where an entrant can appear more than once. e.g.
ACBDC
AABDC
DBCCD
BCDAB
I want to make it so that if you type in an input cell (say cell G10) an entrant your interest in (i.e. A, B, C or D), then the corresponding entrants in the table will change font color to red and go bold.
I know this must be done by right clicking on the sheet and entering a code in "View code". I can't use conditional formatting because I've already used up all 3 conditions!
I am an undergraduate biology major working on a geometric morphometrics project. It is focusing on wing asymmetry, so I have data for the left and the right wings for a sample population of 30 individuals. The data from the software is exported as a spreadsheet with two rows of data for each individual, since each wing was calculated separately, and my mentor has asked me to average the data for subsequent analyses in another program.
I'd like to do this easily with an Excel formula, but when I try to do the averages I'm having a little trouble getting the formula to carry on correctly. I need it to average, say, E2:E3 then the next cell average E4:E5, but instead the only thing I can get it to do is average E2:E3 then the next cell do E3:E4. Which obviously doesn't work for me, since E3:E4 is data from two different individuals.
Is there a way I can do this for my data? One of my spreadsheets is a 60x32 matrix of landmark coordinates, so I'd really rather not try to do all the cells individually.
What does this code mean? I can't come up with any listing that includes it.
View 5 Replies View RelatedI am having trouble Stepping Into my VBA Code. The Macro itself is working fine (usually), but whenever I try to run through it step-by-step it creates an error near the beginning of my code. Here's the first few lines of my code.
Code:
Sub JLJ_DataEX()
'
' JLJ_DataEX Macro
' Extracts pertinent data from Joe Lamb Jr. Excel pasted property webpages
'
' Keyboard Shortcut: Ctrl+j
'Disable Alerts & Offscreening
[Code] .........
Within the workbook i have a variable declared as
Public ResultsSheet As String
in the workbookopen event I assign a value
ResultsSheet = "Search Results"
and in the Private Sub CommandButton1_Click()
I attempt to make the hidden sheet visible
Sheets(ResultsSheet).Visible = True
Now this works for eveyone except one person, when it fails with subscript out of range error 9.
If i email the workbook back to myself it all works fine
am using the code posted below and i get an Error code 424.
Dim i As Long
Dim Ans As Variant
Application. ScreenUpdating = False
If Not Intersect(Target, Range("E4:E7")) Is Nothing Then
If (Cells(i, "e").Value) > "0" Then
MsgBox "Calls In Queue " & Ans = ActiveCell.Offset(0, -1).Value
End If
End If
Application.ScreenUpdating = True
End Sub
I have made a simple spreadsheet with different values going down one column. I would like to randomly select any value in that column and have that value show up in another cell on the same spreadsheet. How do I do this?
View 2 Replies View RelatedIn one worksheet i have created the following code, which adds date to
specific column when data is entered in colum A.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Target.Offset(0, 10).Value = Now()
End If
End Sub
The problem is that when trying to delete a whole row, error message pops-up.
Run-time error '1004' Application-defined or object -defined error. When click "End" actually everthing is ok, the row has been deleted, but was just wondering what is causing that error.
I have the following code that opens a series of workbooks on a given day, However, if one of the workbooks has been renamed or is missing the code gives a "400" error and stops, is there a way of having the code retry the next workbook if it comes to an error?
View 2 Replies View RelatedI was modifying some code in a script and now every piece of code that was like this:
View 4 Replies View RelatedI would like to get some information when a vba code is in error.
Can we create a sub that we can refer to when a vba code is in error. Something as:
On Error goto "name of the sub"
In that sub, I would like to write in sheet1 , cell a1 the name of the sub in which the code is in error.
In cell a2, i would like to write the line in error in the VBA code.
finaly i would like to show a msgbox ("Contact your admin")
and then close the file
I im getting and else with out if complile error on the below code...
Sub test()
Dim a, rng As Range
Set rng = Range("a1:d100")
For Each a In rng
If a.Value = "" Then a.ActiveCell.Select
With Selection
.ColorIndex = 6
.Pattern = xl.Solid
End With