I have a spreadsheet of device names and IP addresses. I want to be able to click on an IP address and have it automatically invoke A SSH program ( putty.exe ) to automatically login to the device.
View 1 Replies
create a formula or script that will convert "Decimal Degrees" to "Degrees and Decimal Minutes"?
Here is a formula that converts Decimal Degrees to Degrees-Minutes-Seconds. However, I need it converted to Decimal Degrees.
Assuming your number is A1, try the following
=INT(A1)&CHAR(186)&" "&INT((A1-INT(A1))*60)&CHAR(145)&" "&ROUND((((+A1-INT(A1))*60)-INT((+A1-INT(A1))*60)),2)*60&CHAR(145)
Latitude and Longitude Formats
Format Example Usage Details
Decimal Degrees 35.73972222 GIS Applications The degrees are listed as the integer portion of the number. Any minutes and seconds are converted to their decimal equivalent and added to the degrees. Since there are 60 minutes in a degree, you divide minutes by 60. Since there are 60 seconds in a minute or 3600 seconds in a degree, you divide seconds by 3600. No hemisphere is listed. The northern and eastern hemispheres are considered positive numbers and the southern and western hemispheres are considered negative numbers.
Degrees Minutes Seconds 35° 44' 23" N The Layperson The degrees are listed as the integer portion of the number. Any minutes and seconds are converted to their decimal equivalent and added to the degrees. Since there are 60 minutes in a degree, you divide minutes by 60. Since there are 60 seconds in a minute or 3600 seconds in a degree, you divide seconds by 3600. Usually the hemisphere is listed after the number.
Degrees and Decimal Minutes 35 44.38333 N GPS Devices The degrees are typically listed by themselves. The minutes and seconds are listed in decimal format with the minutes being the integer portion and the seconds being the fractional portion of the number. Any seconds are divided by 60 to be added to the minutes in this format. Usually the hemisphere is listed after the number.
I have a VBScript that pulls SNMP data from some devices. It uses two external EXE's called "SNMPGET.EXE" & "SNMPWALK.EXE". When the script runs, it pulls specific information from our SNMP devices (in this case, I am pulling temperature values from Netboz Devices). The script looks like this :
View 2 Replies View RelatedI work in IT Service company and we need to calculate our workload based on a number of devices in our scope.
Say, somebody wants to add 300 Windows Servers to our service desk. We know that each Win Server would need 1 Person on duty to manage. So ideally we would just multiply 1*300 and get the amount of people we need.
Problem is that because the service is quite similar for each of these servers, we dont really need a dedicated person for each device so I want to make every additional device consume 20% less workload than the previous one.
In our case it would be:
1 Server = 1 Person
2 Servers = 1.8 People
3 Servers ~ 2.5 People
Attach below are 2 sample file and inside it consist of device,grouping and lb1,tb1,ab1. How do I use excel formulae based on 2 condition and set from vlookup with 2 condition file to vlookup with 2 condition 1 file like a vlookup.
View 11 Replies View RelatedI have attached an example of what I am trying to achieve. I am looking to have a photo [jpeg] embedded into a cell so that when I call the cell up in a match formula it will call up the photo. I tried a couple of VB codes I found on the web but cannot get this to work.
View 4 Replies View RelatedI have a monthly task where I collect raw data, and make up various charts in PowerPoint.
I have been making the charts in PowerPoint as previously, the file size of the .ppt was too large as it was embedding the Excel sheets into the PowerPoint. Is there any way I can set up sheets in Excel so that I can update them every month and then run a macro so that it updates the graphs automatically (without the embedding)?
I think copying them over as a JPG might work but is there any other way? I have no idea about the code needed, and I'm using Office 2003.
Is it possible to create a hyperlink for a cell to display a textbox that enables the user to input a specific cell value that will autofilter a worksheet to pull up only the rows that is related to that value?
View 5 Replies View RelatedIs it possible that i can execute a Unix C-shell script named "get_summary" and after executing it, it will generate a file named xxx.asc ?
I have added on a statement :
A.writeline "get_summary" 'To execute a script
but i can;t seem to get the csh script to run. Pls help. Thanks again in advance
Dim userinput As Variant
userinput = "xxx.asc"
Set fs = CreateObject("Scripting.FileSystemObject")
Set A = fs.CreateTextFile("c:script.txt", True)
A.writeline "open 10.10.10.10"
A.writeline "xxx" 'username
A.writeline "xxxxxx" 'password
A.writeline "cd /export/home/tae/scripts" 'directory on FTP site
A.writeline "get_summary" 'To execute a script
A.writeline "ascii"
A.writeline "get " & userinput 'file to be uploaded
A.writeline "quit"
A.Close
I'm looking to link/embed a summary sheet from one work book to be displayed in another. When i update this summary sheet i wish for it to update the linked work book.
View 7 Replies View RelatedI have created a VB User form in Excel. I have a value in Cell A1. On clicking the cell, the user form has to be invoked. I do not find a way to do this using HYPERLINK function. If I use a label in that cell, I am able to implement it. But I may want to sort the excel cells and in that case the label idea will not work out!!!!
View 3 Replies View RelatedI have a code that looks fetches all names of the worksheets in a workbook and lists in a master sheet.
[Code
Sub Button1_Click()
Dim ws As Worksheet
Dim x As Integer
Dim lr As Long
x = 2
lr = Worksheets("Totaliser").Range("A1").End(xlDown).Row
Worksheets("Totaliser").Range("A2:A" & lr).Clear
[code].....
This works fine collecting all of the named sheets but is there a way of me invoking a 2nd procedure to count the number of rows within each worksheet that contain line items which are updated at the beginning of each month. Placing them into the next column (B) to the right of the sheet names.
All worksheets contain a header Row (1) so the count function would if at all possible count from the 2nd Row to the end.
I have tried different lines of code but just get errors.
The code above places the first sheet into cell A2 and then down respectively
I am new to excel macro. Want to invoke a page and click on submit button. Getting "Object doesnt support this property or method" error on the line "Subm.Click"
My code is,
Sub Macro1()
Dim IE As Object
Dim URL As String
Dim Subm As Object
URL = Range("B3")
[Code] .........
I am trying to make a macro that will embed images into a worksheet for my company. I researched online and put one together from stuff I've seen posted but when I email the file, the receiver can not see the image. I believe it is because "inserting" a picture only inserts a link to the picture but not the actual picture. Is there a way to embed the picture using the same macro without the sender having to send the picture and the worksheet?
Sub photo1()
'
' photo1 Macro
'
'
Application.ScreenUpdating = False
'varible Picture1 is inserted down below - ***change both***
Picture1 = Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
'edit "("Picture,*.*")" section to add or chanve visible file types
[Code] .........
I want to format my spreadsheet title so it reads number of reports for june 2006
="number of reports for MM YYYY"
So far all i get is -
="number of reports for 6 2006"
using my code which is
="number of reports for "&$BD$2&" 2006"
I'm trying to put the "Find" Function inside my worksheet to make it easier for the end user. How would I do this? See worksheet for example.
View 2 Replies View RelatedI want to Hide a range of rows (16:18 in this example) if "no" is in a range
of cells and Unhide the same range of rows if "yes" is in the same range of
cells. The "Hide", "Unhide" macros (below) work if I select one from the Run
Macro list, of course. But, how can I call for it to run from an "IF"
function. I know this statement is wrong, but it may help you know what I am
looking for: =IF (A1:A15="no",Run Hide,IF (A1:A15="yes",Run Unhide),"")
Sub Hide()
Rows("16:18").Select
Selection.EntireRow.Hidden = True
End Sub
___________________
Sub Unhide()
Rows("16:18").Select
Selection.EntireRow.Hidden = False
End Sub
I recorded a print macro which prints to my default printer, others will be using this spreadsheet so I really need it to print to the same network printer. The printer address and name is: ironyan-fileBI44
How do I incorporate this into my code?
[Code] .....
Is it possible to retrieve the network name of the local workstation and if so how?
View 2 Replies View RelatedWe have a form that is completed by our employees and emailed to a central group email address that up to 8 employees within our team can access. When one of our 8 team members open the file sent they need to add comments to it and then save it in a central directory on one of our network drives.
Now the problem I have is that we all have the network drive mapped to a different letter.
Is there a way that I can have a macro (see below for current macro that does not work) save to a network path and not a drive letter.
I have a command button in a spreadsheet with the following code attached to it
View 4 Replies View RelatedAs above i have a macro which opens a workbook which is on a network drive. This works fine for my multiple users...however i have discovered that if they do not have the drived mapped with the same drive letter at the start...it will throw up an error advsing that the file does not exist. Is there any way to by pass this.
Ex - "TestFile.xls"
File is stored in "E:NetworkTeam1Testfile.xls"
However, some users have access to this file and it is mapped as E:, but some users have been mapped as F: The advisors who have been mapped as F: cannot access the file. Is the VBA/Macro smart enough to bypass the drive letter and just search the rest of the past...NetworkTeam1Testfile.xls".
I have code below that works well most of the time. One of the cases below will not work. It insists on requiring a name and password.
(note: it is the only Windows 2000 operating systems)
I want to enter this in my case line to automatically add the username and password.
Let's say the username is: "dave" and the password is: "happy"
How can I add this to this part of the code?
Case "DJ"
strfilename = "\DAVEJONESDavesProposals" & strfilename
Sub Save_and_SaveSalesman()
Dim strPath As String, strPath2 As String, CurrPath As String
Dim WB1 As Workbook
Dim WB2 As Workbook
I have written a function (with the help of the good folk on this wonderful message board) that is able to check whether a given spreadsheet is currently being used by someone at my work. There are potentially multiple users for the workbooks that my system needs to access. FYI, I work in a bank so we have a pretty good network.
The code for my function, as well as the TestOpen(-) function that it uses, is below.
Ideally, if a workbook my system needs is currently being used on someone else's computer (Case=1 in Select statement, then Err0) I would like to be able to have a userID returned to me so that I know who I need to call to shut the model.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Function Open_Selected_Drone__EXEC(fs, fileLocation, fileToOpen, testOnly)
Application.ScreenUpdating = False
myName = ActiveWorkbook.Name
Application.StatusBar = "Checking availability of " & fileToOpen
iOpen = TestOpen(fileLocation & "" & fileToOpen)
Select Case iOpen
Case 0: ' the file has been found and is not in use
rv = "not in use"
If Not testOnly Then Workbooks.Open Filename:=fileLocation & fileToOpen, WriteResPassword:="j"
The old version of this message board used to have an "insert code" button. I cant see it anymore. Am I simply meant to paste code into this message box now?
I'm trying to call a sub in an exce. file that resides on our network drive so that multiple users can access the programs that I develop and I can get VBA to open the file but I can't get it to open the sub titled "DCU". I keep getting the following error.
Cannot run the macro DCU. The macro may not be available in this workbook or all macros may be disabled.
Here is my code that errors.
Option Explicit
Sub DESCRIPTION_CLEANER_UPPER()
Application.Visible = True
Workbooks.Open Filename:= _
"\Cansvp01grp_01fCommonCommon-PartsPrcngMacrosMacros.xls"
Application.Run "DCU"
End Sub
Is there a way to test for an active default network printer?
In my module the code sets the paper size and a few other printer settings, if my default network printer is down or offline the code fails.
If I could test for active default printer I could remove this error.
We have created a spreadsheet that needs to be protected as it is viewed by several users. We would like, if possible, to update this daily with as little human intervention as possible.
Can we use VBE and the on worksheet open event to unlock the password protection, update the sheet and then lock it again? I know that you can read who opens the sheet using code similar to the following but don't know whether the password protection can be "unlocked" utilising this method.
I have 2 workbooks, one containing one worksheet that acts as a Template a second that has some code attached to a button that uses the Template to create new worksheets based on the Template. The problem I have is that when I run the code over a network I always get a read only worksheet created. I need it to be readwrite. I have used sharing on the Folder where the 2 workbooks are located so it accessable over a network. There is no problem when I run the code on a standalone machine.
Private Sub CommandButton1_Click()
Dim tClient
Dim tAddress
Dim tPhone
Dim tItem
Dim cOriginalLoan
Dim cAgreedInst
tClient = Client
tAddress = Address
tPhone = Phone
tItem = Itm
cOriginalLoan = loan
cAgreedInst = Inst
Sheets("swbrd").Select
PathName = Range("A196").Value 'Here is where the full path to the Template is found.................
I wrote a macro that runs perfect when started from my pc, but if started from a different ps which is logged into the same network it doesn't run, also the macro is stored on the server. I have a code in the private section of the workbook:
Private Sub Workbook_Open()
Call FINAL
End Sub
then the macro 'FINAL' is stored in the 'Modules' section and starts with:
Sub FINAL()
'this part opens the Edit/Links dialog from which the user has to choose the relevant model
Dim Which_financial_model_contains_the_data As String
ActiveWorkbook.ChangeLink Name:= _
"T:DEALSSSalsa (Project)Financial modelsProject Salsa Model - BASED ON SPONSOR CASE - b - 20061214.xls" _
, NewName:= _
"Which_financial_model_contains_the_data" _
, Type:=xlExcelLinks
when I open a file, called "A", I want it to automatically open another file, which is shared on the network, called "B". I've tried using the "IsFileOpen" routine and a few other sets of code that I've found on the internet but none of them solve my problem.
If "B" isn't open on any computer and I open "A", there is no problem, and if "B" is already open on my computer when I open "A" again, there is no problem, but if "B" isn't open on my computer and is open on somebody else computer, "B" won't open on mine when I open "A", the code assumes that because "B" is open on someone elses computer, "B" is already open on mine.
