I would like to “ping” each computer ip address to check if it is online or offline and then write the result in Column C.
There needs to be no limit to how many ip addresses the script can ping.
I have a local area network with a couple of hundred computers which share one internet connection. Each user has a CPE (customer premise equipment) with an assigned (by me) IP. This CPE connets to the users equipment via CAT5. My responsibility is to provide internet. Sometimes users call and say their comupter cannot access the internet. I need a quick way to see if the problem lies with my network or if the problem is with the customer's computer. It seems to me that if I could open my spreedsheet with all the network connections and user data and simply ping their IP I would see if the problem is with my equipment or the users.
Column A of my spreedsheet has the actual IP addresses: 192.168.1.1 thru 192.168.1.254 and 10.0.0.1 thru 10.0.0.254 but not all are currently being used. Each row has distinct user account information. I have created a shortcut, named it PING106.bat and listed the target as %windir%system32ping.exe 192.168.1.106 which I can click on and it runs. Next I inserted a hyperlink in A:107 and it does work (it brings up a DOS screen and pings 192.168.1.106 three times then closes the DOS screen)... But there must be a better way. I don't want to create hundreds of shortcuts and insert hyperlinks to specific cells one at a time. It would be nice if I could click on a cell which contains an IP and know if that particular IP is up and reachable on my LAN.
So I have an Excel Table that consists of data from a Ping utility (we're having a lot of connection issues on our DSL line), every 5-10 seconds the program pings various websites like google, yahoo, etc. and logs the ping time.
I'd like to make a chart or graph that shows the average ping per Hour (or 30 minutes, or whatever) for all these sites combined, basically take an hour of pings, find the average of all or just the pings from one IP, plot.
Table is
ColA = Date Time (8/20/2013 15:57)
ColB = IP Address (173.252.110.27)
ColC = Ping (123)
ColD = Result (Succeeded/Failed)
ColD = DNS (facebook.com, it's a vlookup from a table of IPs and their DNS address)
Is it possible to get the location of the result cell of a lookup result. For example, instead of showing the cell value it shows the cell address of the results of a lookup. You see I have this Summary Report of a payroll system. Everyone doesn't need to pay social charges, except two people, "person1" and "person2". What I want to do is to first look at the names in the report to see if one of those people are listed in the summary(this can be done by lookup, I think). Then go to a different column on the same row as the person. So, for example, "person1" is in a14, then the macro will select the cell say... g14.
View 6 Replies View RelatedI have a combobox that returns me the names that are in a spreadsheet.
I need a return label, the index (address of that cell that the combobox returned), how do I do that?
I am using VLOOKUP to find the size of a cam to be installed in a tablet press, based on the product code it will be running.
The array has two columns: (W) Product Code, (X) Cam Size.
Array: W4:X437
The user selects the Product Code from a drop-down list in cell E5.
The resulting Cam Size is displayed in cell E7. The VLOOKUP works fine.
=IFERROR(VLOOKUP(E5,W4:X437,2,FALSE),"")
Occasionally, the cam size has to be updated. The user would then select a new cam size from a drop-down list in cell E9.
I have a "Update Cam Size" command button.
What I need to happen is for the value in E9 to replace the value in the array that is displayed in E7. Obviously, I have to know the location of the cell in the array, but I can't figure that part out. I've tried ADDRESS and MATCH functions, but it comes back with "#N/A" Value not available error.
=ADDRESS(MATCH(E7,W4:X437,0),2)
If the total is >= to x but =(I10*0.9),"Over 90% spent",IF((M10+T10+AA10+AH10+AO10+AV10+BC10+BJ10)>=(I10*0.8)&(M10+T10+AA10+AH10+AO10+AV10+BC10+BJ10)
View 3 Replies View RelatedI want to pull the file location of a hyperlink to populate a image control in a form. I have 150 names, each with pictures. So I need to do a index,match or vlook up within the VBA and make the result the active cell. From there I know how to pull the file location out. Just need to know how to make the address of a index match result in vba.
View 5 Replies View RelatedHow do you use the result of the "Address" function as ranges for other formulas?
I have 2 cells A1 and A2, each containing an "Address" function to find the start cell and end cell of a range.
A1 shows the result "$J$6" and A2 "$AB$6". These are working fine:
A1: =ADDRESS(ROW($A6),MATCH(HLOOKUP('cleaned up'!$I$2,pivot03!$2:$2,1,FALSE),$2:$2,0),1)
A2: =ADDRESS(ROW($A6),MATCH(HLOOKUP('cleaned up'!$I$5,pivot03!$2:$2,1,FALSE),$2:$2,0),1)
I want to get the average of this range using cells A1 and A2, but Excel treats the formula as an error: =Average(A1:A2) shows the error #DIV/0!
Going back one step and putting the formulas within cells A1 and A2 into the average formula doesn't work at all with a colon:.....................
I am trying to open a workbook with
Workbook.Open filename:="xxxxx"
The address in the xxxx is something like this "G:AnimalMammalZZZZGorillayyyy.xls"
The ZZZZZ portion is the result of an InputBox.
What is the syntax for placing the result of that InputBox in the middle of the address?
Assume the following list of addresses are all in separate cells of a single column (A1-A4). I just need the formula to extract the street addresses, and then a separate formula to extract the zip codes.
5430-44 PASCHALL AVENUE PHILADELPHIA, PA 19143 OPA/BRT#: 884350845
4010 MARPLE STREET PHILADELPHIA, PA 19136 OPA/BRT#: 651087200
2618 SOUTH HOWARD STREET PHILADELPHIA, PA 19148 OPA/BRT#: 391251216
5737 WOODCREST AVENUE PHILADELPHIA, PA 19131 OPA/BRT#: 522155600
I'm trying to work out some code that will take the contents of a cell (either alias or IP name), carry out a ping operation and return the result into the worksheet in the next columns to the right.
I've searched this site and found something similar that returns the result of the ping to a MSGBOX but this isn't quite what I want.
The endgame is to have a For/Next loop for a list of IP addresses in (say) A1:A10 and have the results pasted into columns B, C and so on, with each line of the ping result pasted into subsequent columns.
I want to create a excel file with VBA code that ping's the IP's from column A, give a response to column B (OK or NOT OK) and in column C gives the last "OK" ping date and time. Something like:
Code:
A B C
194.154.200.10 OK 14/04/2013 13:10
194.154.200.11 NOT OK 14/04/2013 13:00
194.154.200.12 OK 14/04/2013 13:10
The ping process should be a continuous loop.
What I found this far involved text files and I don't want that.
When I drag my VLOOKUP formula down a column in Excel 2010, the return value copies the formula result from the original VLOOKUP formula result. For example, if the first VLOOKUP returns a value of 0.5, I expect to see 0.5 or 1 in the cell below that one. However, I get 0.5 which is not the expected result for the cell below.
When, I click the fx on the cells below, the expected return values appear in the formula result. After I click OK, the expected formula results updates and now appears in the cell.
I'm not sure what is causing this issue. My computer was updated recently from an old machine to a new one. I have never experienced this issue before.
I have a question, that could be answered by the experts in this forum. Question: I need to write the letter "E" in the second column (B) when I find that any cell in a row is in orange color (color 44). The code I wrote:
View 3 Replies View RelatedI am having a problem using data from my combobox to find the cell on the worksheet and write to the adjacent cell.
Worksheet name is Fleet
ComboBox Name is ComboBox7
TextBox name is TextBox3
CommandButton1
I would like to be able to take the text from ComboBox7, find this text in Col A of worksheet Fleet and write the Value of TextBox3 in the adjacent cell in Col B. when
the CommandButton1 is pressed.
we have one excel sheet. I want to write or edited data in specific cell. For example anybody can write in coloum : C1, c2, c3, c4, k6 and m6 (highlighted in green colour) and remaining all cell range protcted no one can change data. Also they didn't know formula which i m writing in others cell for example fom l6 to l33 or n6 to n33. We are attach file for ur ready ref to know easily.
View 2 Replies View RelatedI have one cell that contains a function. Sometimes I want to change the value in the cell because the value is used in another function in the sheet.
The problem is that I want the function to reapear in the cell when I press the deletebutton.
Exampel:
1. Cell A1 contains this function.
=Sumproduct((part_number>100)*(Price>10);Stockvalue)
This returns a value that is used in other cells in the sheet.
2. Now I want to try what happens in the other cells if the value in cell A1 is changed.
I select cell A1 and writes the new value that I want to test.
3. If I want the function back I simply should select cell A1 again and press delete.
4. A VBA macro now writes the original formula back into Cell A1.
I have just started VBA for the first time in Excel 2007. I have spent 2-3 hours trying to write text to a cell and I do not understand why it is not working. I have reduced the operation to the simplest form that I can find, now using the following
View 3 Replies View RelatedI found this thread ,
http://www.excelforum.com/excel-prog...in-a-cell.html
on the forum site which involves
saving a file by value in a cell.
I want to change the code so that it saves that name by
a cell value + "_BOM"
Sometimes I want to have the abbility to quickly write cell data to a textfile. This is an effort:
Code:
Function Write_To_File(strMessage As String) As Boolean
'strMessage is a data in a cell
Log strMessage
[Code].....
Basically I want just one function that returns True for a succesfull write and False in case of an error. Now I have one function and one sub.
I would like to write a Macro that does not use Cell Names eg(A22). Instead, I would like to navigate around by using R1C1 reference cells or maybe GoTo fuction.
I am trying to write a Macro that Copies Cells from Sheet 1 and Pastes that information in another worksheet 10 rows below previously pasted information. I don't want to use Cell names in the Macro as it will paste the information in the same spot each time.
if there is an Excel function out there that will copy over the contents of one cell into another by what is typed in another cell. Did that make sense?
Lets say that I have info in
(A1) John (B1) Smith (C1)X (D1)
Now I want to be able to copy over A1 & B1 to another part of the spreadsheet/workbook if I were to type the words "leave" into D1.
So basically it would look something like this...
(A1)John (B1)Smith (C1)X (D1)leave (want info to go here---->) (M4)John (N4)Smith (O4)currently on leave
And then have it automatically add the names below the one in M4-O4. so it would add names in M5-O5, M6-O6, etc
I have this spread sheet that has over 1000 names on it & it would help out alot if I could just use a function that could copy the information to another part of the spreadsheet or another workbook.
I know that I can use the filter, but I may want to have this stuff on another worksheet alltogether.
Also, if this is possible, is there a way that it can be automatically removed if I were to delete the word "leave" from the cell?
i have wrote the following code snipped:
Sheets(2).Activate
Sheets(2).Range("D8").Value = Application.WorksheetFunction.Subtotal(109, Sheet(4).Range("BJ3:BJ" & b)) + Application.WorksheetFunction.Subtotal(109, Sheet(3).Range("BJ4:BJ" & a))
The debugger said: That "Sheet" is not allowed in the subtotal-function. because i would like to calculate two subtotals in two sheets an write the sum in another sheet
I am trying to write/print a cell value in a text document but am having problems (I know what the problem IS, just can't find a solution).
Right, so my code is as follows
In my spreadsheet, I want a macro to write date and time everytime the user change a cell with a list validation. On the table, the E column contains the status of each row. I want to know since when the status is that.
View 4 Replies View RelatedI have a userform with a checkbox. If the box is checked, I would likke to write "Option One" to cell A1 in Sheet1 when the Close button is clicked. I can't get the code correct for this. The workbook is attached.
View 2 Replies View RelatedI have a spreadsheet. In this sheet the data is added daily so one column is increased everyday. The rows may also be increased. What I am trying to do is to sum the data in each row for a range of first cell in the row to the last non empty cell in that row and this has to be done for all the rows. So I thought the for loop would be useful for such requirement and I tried to write the following code. But unable to write the sum formula in the last empty cell in a row and I get the value error. The code is as follows.....
Sub sum_on_LastEmptyCell()
'find the last empty row in column A
lrow = ThisWorkbook.Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
'find the last empty column in a row
[Code] ........
Though one of my friend told that it can be done with "with and end with block but I am not aware of with and end with block.
It would be better if you tell me that how can I put the sum formula in my code. How can I use variables which return the row number and the column number in the sum range within the For loop because I want to put If Else condition for the calculations within the For loop i.e. if certain condition is true then I want this calculation to take place otherwise do something else. Moreover it will be easier for me to understand. Because I can use different formula based on different cells as well. Is there any way to do this?
I have a SS with 700 rows. 2 columns (Col K and L) may or may not contain text in their cells. If the cells do have text, I want to check for the presence of keywords which could be anywhere within the text, and if I find match write the matching word in Column I. Example: I want to seach for the following strings Loaned, injured, suspended etc ... in the range the K4-K700. Lets say Cell K50 contains the text Injured - broken bones. As the word injured is a match I want to write the word injured to cell I50 In addition if Cell K50 has text and Cell L50 does not, i want to put the text "NEW" in I50, and the reverse if Cell L50 has text and Cell K50 does not i want to put the text "recovered" in I 50. Following formula (in each cell in Col I) does this job currently. Can't figure out how to redo this in VBA, and wondering if checking the 700 rows will cause Vba to be slower.
=IF(OR(TEXT(LEFT(OFFSET(I22,0,2,1,1),6),"DDDDDD")="Loaned",TEXT(LEFT(OFFSET(I22,0,2,1,1),6),"DDDDDD")="Transf"),
"Loaned",
IF(ISNUMBER(SEARCH("susp",OFFSET(I22,0,2,1,1))),
"Suspended",
IF(AND(ISBLANK(OFFSET(I22,0,2,1,1)),ISBLANK(OFFSET(I22,0,3,1,1))),
"",
IF(ISTEXT(OFFSET(I22,0,2,1,1))=ISTEXT(OFFSET(I22,0,3,1,1)),
"Ongoing",
IF(ISTEXT(OFFSET(I22,0,2,1,1))=TRUE,
IF(ISTEXT(OFFSET(I22,0,3,1,1))=FALSE,
"New"),
"Recovered")))))
I am struggling to find a macro which can look at a name in column 'BT' and search it in the address book of Outlook to then place the email address of that person in column 'ED'
There are 35,000+ people in the address book and there may be over 5 email addresses for one name, so is there any way a message can appear for the user to select which email address is correct if there is more than 1 contact for that name?