Error Code 400 When Creating Button For MapPoint
Aug 2, 2006
I am creating an excel file that has 2 buttons:
-1 that allows the user to select an image (works)
-1 that allows the user to select a MapPoint Map file (error 400)
The code below should be able to detail the problem.
Sub InsertImageOne()
Range("b5").Select
Application. ScreenUpdating = False
Picture1 = Application. GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
ActiveSheet.Pictures.Insert(Picture1).Select
Selection.ShapeRange.LockAspectRatio = False
Selection.ShapeRange.Height = 205
Selection.ShapeRange.Width = 344
Application.ScreenUpdating = True
End Sub
View 4 Replies
ADVERTISEMENT
Mar 2, 2007
I'm having trouble calling a subroutine from a command button. It's puzzling because I've set up buttons before and didn't have this trouble.
Here is my button
Private Sub EPConversionButton1_Click(ByVal target As Range)
Convert_Hrs_EP target
End Sub
And here is the subroutine.
Sub Convert_Hrs_EP(target As Range)
End Sub
There's nothing there yet, but I keep getting error messages regarding the transfer from the button code to the subroutine.
The message is: Procedure declaration does not match description of event or procedure having the same name. The Help file says this means that my procedure has the same name as an event, but does not have the same signature. But it's not so.
View 9 Replies
View Related
Feb 10, 2013
I am using this code that is working with Microsoft Mappoint 2010. It works fine but I like to add a condition that if szzip1 = szzip2, Worksheets("abc").Cells(12, 2) will equal 1. (Normally Mappoint result to such a search is 0) .
Dim oApp As MapPoint.Application
Set oApp = CreateObject("MapPoint.Application.NA.17")
oApp.Visible = True
Set objMap = oApp.NewMap
[Code .......
View 6 Replies
View Related
Aug 30, 2010
I'd like to be able to find a location on a map and have this location automatically fed to my spreadsheet. The location info I need is the Latitude/Longitude.
Seems like this would be a piece of cake with Mappoint? Is there an automatic way to do with with Google Earth?
View 1 Replies
View Related
Aug 13, 2014
How to create a button on the Ribbon (after you have created a group), and connect this button with a VBA code. So you can avoid going to developer->Macros->find the code and click run.
View 3 Replies
View Related
Nov 5, 2008
Is it possible to create a find button, so that a user can enter say the first two letters of a name and the vba finds and replaces the rest from a table and also add the telephone number in the box below it?
If there is more than one option to bring up a choice box asking the user to select between them.
I have attached a spreadsheet to show what I mean.
View 14 Replies
View Related
May 17, 2007
I have been given a workbook that contains say 10 sheets. The first sheet is a summary sheet that will contain a 'Print' button. The idea is that when the Print button is selected all the sheets that's have been filled out will be printed.
For example.
I have a workbook that has 10 sheets to fill out. The user has filled out 7 out of the 10 sheets and when selecting the Print button, I require only the 7 completed sheets to print.
I thought the best way to go about this was to look at 1 particular cell on each sheet. If the cell is blank, do not print the sheet, otherwise do so.
View 9 Replies
View Related
Jul 25, 2008
I want to be able to have a listbox on a sheet (whether this is already on the sheet or created by a macro I don't care), and have a button next to it. Once the list box has been filled in (with multiple selections) I want the user to press the button, the list box and button disappears and the items selected in the list box are placed into consecutive cells underneath each other.
First problem: To start with I have tried to create the listbox and button using VB
Sub lbtest()
Dim lb As Object, ButCon As Object
Set lb = Sheets("Sheet1").Shapes.AddFormControl(xlListBox, 100, 100, 150, 100)
lb.ControlFormat.MultiSelect = xlSimple
lb.ControlFormat.ListFillRange = "M1:M8"
Set ButCon = Sheets("Sheet1").Shapes.AddFormControl(xlButtonControl, 255, 100, 100, 25)
With ButCon
.OnAction = "Inactive"
.PrintObject = False
End With
View 9 Replies
View Related
May 29, 2007
Im trying to create a Forward button for each of the sheets in my Excel workbook, to make it easier for users to move from one tab to the next (without having to click on the tab- names in the bottom left corner of Excel). I know its very simple to start recording a macro and click on the next tab, and repeat this process for all the tabs in the spreadsheet. But what if you have a workbook with, say, 20 tabs would you have to record one macro to take you from Sheet 1 to Sheet 2, another to move you from Sheet 2 to Sheet 3, and so on all the way up to Sheet 20? This would be very time-consuming. Is there some VBA code which always moves you to the next available tab in the workbook? Or is there no alternative to recording a separate macro for each individual tab?
View 7 Replies
View Related
Apr 9, 2014
My sheet has a calculator that outputs a value based on inputs. I also have a pick list on top labeled Q1-Q4. Depending on which value is selected on the picklist, the input values will output a different amount. I want to create a button which allows me to take this output and save it in another cell under a heading Q1, Q2 etc. depending on which Q was selected in the original picklist. In essence I want a button that records each output onto the same sheet by by quarter(Q).
View 9 Replies
View Related
May 22, 2014
I have the following code:
[Code]......
Each macro is assigned to its own button, Clear and Restore. What I'm trying to do is make it so that the macro attached to the Restore button will not activiate unless the Clear macro attached to the Clear button is clicked first and visa versa. I can't see to find anthing quite like it in my research.
View 3 Replies
View Related
Feb 5, 2009
I am trying to create a uniform stock database for my company. Thus far, I have 2 worksheets. The first is a face sheet, for the user to interact with. This face sheet has a number of drop down menus on it allowing them to select "Type" and "Size" of the item they need. This information is then translated (by a hidden table) into an item code.
The second sheet contains a list of all the uniform items currently in stock. Each item has its individual code that correlates to the code the face sheet generates.
My question is regarding a search macro.
I want the user to be able to click a command button on the face sheet, labelled "search". This would then take the generated "Item Code" and search for it on the second worksheet. I am aware that it would be very easy for them to simply copy the code into "find" on the second sheet, however it needs to be as easy and quick to use as possible.
View 7 Replies
View Related
Dec 12, 2011
In MS Excel 2011 for Macintosh can I assign a macro to an object, such that if the user clicks the object it runs the macro? That is creating a button on the spreadsheet that will execute a macro.
View 2 Replies
View Related
Apr 16, 2006
Finally after 3 days of intensive studying VBA, my first add-in pack is ready to be installed in the office. I've got my custom form all ready, now all I need is to have excel create a custom button on the toolbar that calls up my custom form when clicked.
The idea of assigning a shortcut key doesn't really appeal to me. I'll be packaging it up in .xla format. Would be greatful if anyone can direct me on how to add a button to call up my form (only one form in fact).
View 2 Replies
View Related
Jun 9, 2014
sample pic.png
I have two spreadsheets of data I export regularly from an outside source. I want to consolidate the data from these two sheets into one large sheet with all the data in a more concise form bringing in only the data related to certain parts I am conducting analysis on. I have a list of these parts already. My first thought on how to do this would be to use the list in an entry for an input box and have that list be the index for a for loop in which i searched for a part code, copied the entire corresponding row, and pasted it back into the master sheet. I have gone through and tried to do this but I am running into problems because sometimes I have multiple rows of data that correspond to a single part number. I have attached a template of the way that the data should look in the master file with the multiple rows of details that correspond to just one part entry.
View 1 Replies
View Related
Feb 9, 2007
I have a relatively simple, though large, spreadsheet. I get the following in many of my cells: The Error Checking Options button is displayed and the cell itself. is marked with a small green triangle in the upper-left corner. When I click the button, the error type is displayed, followed by the following list of error-checking options:
information specific to the error type
Show Calculation Steps: demonstrates all steps leading to the error
Ignore Error: allows you to accept the formula as entered, without Excel displaying the Error Checking Options smart tag
Edit in Formula Bar: allows you to edit the formula that is generating the error in the Formula Bar
Error Checking Options: opens the Options dialog box, where you can select the rules governing error checking
Show Formula Auditing Toolbar: displays the Formula Auditing toolbar
When I check the formula it calculates correctly. What triggers this when there is no error, is there a way to prevent it from appearing in the worksheet?
View 2 Replies
View Related
Jan 24, 2014
I am trying to do the following
Unit Percentage Score Unit 1 Percent ScoreJohny SmithBetty Donovan
Unit 1 Operations & Algebraic Thinking2100.00%50.00%
Unit 1 Measurement & Data3100.00%66.67%
Unit 1 Geometry0#DIV/0!#DIV/0!
Unit 1 Number & Operations Base Ten16100.00%93.75%
1-I would like to create a type of link or button that would exist in the cell "Johny Smith" so that when a teacher clicks on that name excel would generate a graph or pie chart for the specific data associated with Johny and when a teacher clicks on Betty a different graph would pop up. I know teachers can just highlight the data and insert charts, but many of them don't know how to do that. I have been asked to make the process a one click function.
View 1 Replies
View Related
Apr 7, 2006
I am currently using the following formula:
=(H21*60)-IF(MID(H21,FIND(".",H21,1),5)>0,(MID(H21,FIND(".",H21,1),5)*60),"")+(MID(H21,FIND(".",H21,1),5))
However, I get the results of #VALUE!
In cell H21, the value is 27.00
How do I force excel to recognize the .00 in the formula?
View 11 Replies
View Related
Apr 20, 2008
if it is at all possible (and if so, how) to CREATE your own error message in Microsoft Excel.
Basicaly, I am wanting to create an error message if two cells' figures do not match up.
View 11 Replies
View Related
Apr 25, 2006
Needing to do a VLOOKUP on two criteria, I have set up a string using "&" to join together the contents of two cells. This is in a workbook with many identical worksheets. The string works for some of the sheets but in others, for reasons I simply cannot fathom, it is returning a #VALUE! error.
View 9 Replies
View Related
May 3, 2007
I searched the forum for an answer to my problem since I'm positive its a FAQ. Well I was right and many other users have asked a similiar question. My problem is this: I am looking to find the average of a set of numbers in column T that meets certain criteria. I was suggested by other user to use this function which finds me the total number. =SUMPRODUCT(--($E$1:$E$400="S"),--($H$1:$H$400=17),--($U$1:$U$400<>"BEBLT"),--($U$1:$U$400<>"NVLIV"),--($T$1:$T400 > 0),$T$1:$T$400)
I have tried inputing Count, Countif, Average in place of Sumproduct as well as Count enclosing the entire sumproduct function. Nothing seems to work for me. I have also tried using a SQL statement in my VBA to provide a count but it doesn't seem to produce the required result. The above function works like a charm for finding the sum, but I need to find the average of this number thus I am looking for the Count equivilant. I'm sure this is a simple problem and I'm still a rookie when it comes to functions in excel.
View 5 Replies
View Related
Apr 24, 2014
I need to create some vertical scatter plots ie where all the y values are in the same line, and also to put on the mean and standard deviation error bars, like the example I found below. I have managed to plot the scatter by giving all the y values in each group the same x value, but I don't know how to proceed.
View 4 Replies
View Related
Jul 22, 2014
In creating a macro and creating a pivot table as one of the first steps, I get this runtime error in visual basic:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"original working!R1C1:R1000C13", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Sheet4!R3C1", TableName:="PivotTable2" _
, DefaultVersion:=xlPivotTableVersion14
View 5 Replies
View Related
Jun 11, 2008
I am creating 10 pivot tables for data in one worksheet and putting them in a separate work sheet. i used the macro recorder but the cod eit worte stop at this line ...
View 9 Replies
View Related
Nov 3, 2007
I currently have a list of companies. I want to create a unique list of these companies which I can use for some irrelevant purpose. What i did was I started recording a macro in which I first deleted everything in the spreadsheet. Afterwards I copied the whole company list from another spreadsheet and pasted it as values into the new spreadsheet. Afterwards I made an advanced filter; list range being the companies and copied it into a new location after making sure I had said yes to unique only.
Here is the code itself:
View 9 Replies
View Related
Dec 5, 2007
Sub Increment()
Dim Lr As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row
If IsNumeric(Cells(Lr, "A")) Then
Cells(Lr + 1, "A").Value = Cells(Lr, "A").Value + 1
End If
End Sub
This adds 1 to the previous cell and displays in the next available cell.
How could I make it sao that when this number enters in the cell it hyperlinks automatically to the master file?
Before this button was introduced I used this:
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error GoTo Err_App_WorkbookBeforeSave
Dim hl As Hyperlink
For Each hl In Me.Hyperlinks
If Wb.FullName = hl.Address Then
Application.EnableEvents = False
Cancel = True..............
View 9 Replies
View Related
May 15, 2008
I have an lock button to lock a worksheet, and a unlock button to unlock the same worksheet.
The unlock button though gives me an error when I don t set the password correct or not at all.
My code is like that
Sub UnlockSheet()
'
' Unlock Sheet Makro
'
'
ActiveSheet.Unprotect
End Sub
I am sure that is very simple for you guys here but for me a problem I can not figure out yet why.
View 9 Replies
View Related
Feb 4, 2014
I have a workbook containing 2 sheets called ('EPM Extract' and 'Sheet B'). Column 'B' of the 'EPM Extract' sheet contains a list of Project IDs (numerical), and 'Sheet B' also contains a list of Project IDs (also in column B), plus all of the additional data I require.
Now, from the required cell within the 'EPM Extract' sheet, the normal Excel the code would read as =vlookup(B3,'Sheet B'!B5:W32,11,False), upon which I would drag down the code from that cell to all other required cells below. However, these are my issues:
* How do I even begin to write the code within VB, as I know that variables and arrays have to be set
* I need to apply the vlookup across 12 columns as I am bringing back 12 different results (i.e. I need to copy results from column counts 11 to 22 from 'Sheet B' to columns in 'EPM Extract' sheet.
*The amount of data in the sheets will vary each month, so I need to know how to apply the code only to the amount of rows in the 'EPM Extract' sheet, so some kind of R1C1xl.UP will need to be defined also.
View 9 Replies
View Related
Jan 29, 2008
I have a workbook with four worksheets named
FilteredData
FilteredDataFormat
array
arrayFormat
The two sheets named FilteredDataFormat and arrayFormat exist strictly to preserve headers , and column widths.
So that for convenience sake I can clear my data without specifying a range that excludes the headers.
I simple clear the contents of the 'FilteredData' and 'array' then copy and paste 'arrayFormat' and 'FilteredDataFormat'.
Sort of an unconventional and lazy approach but I see no reason why this will not work.
Here is my original code and what happens is that excel creates another workbook for some reason unknown to me
View 10 Replies
View Related
Oct 30, 2008
For some reason the following code creates a blank page everytime. Is there a way to have it not do this that I am not seeing?
View 2 Replies
View Related