Is there a way to use cmd prompt via vba?
I would like to run "HOSTNAME" and have that displayed as msgbox text.
I am hoping its fairly simple and diverse so I can just change the cmd code to suit.
E.g.
Code:
private sub gethost()
dim host as long
host = (CMDRUN) "HOSTNAME"
msgbox "your host name is " & host
There must be a way so would like to see but I am struggling to get results on search engines.
I have 4 columns in a worksheet.
A B C D
number type date name
I am using an input box to enter the value of column D. After the value of column D is entered, I want a message box that displays the corresponding data in column A and B. with the vba coding?
I have a excel worksheet that contains hostnames in column a. I want to run the dos cmd "tracert "hostname from column a", then, import the IP address from the cmd results in column b of my worksheet.
View 2 Replies View Relatedhow to add in a text box prompt that will modify code?
View 4 Replies View RelatedI have created a workbook that mostly works with VBA codes. Within the code I have ensured that certain worksheets remain hidden. However, I have also written a macro to access what I called the ADMIN worksheet, which has several commands enabling updates and troubleshooting. Long story short, I would ideally like to prevent users from accessing that worksheet. I have already created a prompt (Msgbox) asking the user if he/she wishes to proceed with the macro but I would prefer being able to have a password prompt to run the macro.
View 4 Replies View RelatedI need a MsgBox that will prompt for a Yes or No response. If you answer Yes run the code below if you answer no just stop and leave me in the current sheet.
View 10 Replies View Relatedwhen sending an email in code from Excel through Outlook, the following Microsoft Office Outlook dialog appears during code execution in Office releases since 2002:
A Program is trying to automatically send e-mail on your behalf.
Do you want to allow this?
If this is unexpected, it may be a virus and you should choose "No".
Two buttons: [Yes] [No]
Question
Has anyone used or developed code that bypasses this prompt, and if so, would you please post an example of your code here. What I would like is a macro in VBA and / or API that you know from your own first-hand experience has worked for you, that emails an Excel attachment from Excel, using Outlook (not Outlook Express) as the email client, which bypasses the above prompt.....................
I have used the following Macro that deletes the Macro code. It then saves the file and quits excel.
*************************************
Sub removeAllCode()
Dim awi
Dim awcl As Integer
Dim count As Integer
Dim i As Integer 'loop counter
On Error Resume Next
count = ActiveWorkbook.VBProject.VBComponents.count
For i = 1 To count
Set awi = ActiveWorkbook.VBProject.VBComponents.Item(i)
awcl = awi.CodeModule.CountOfLines
awi.CodeModule.DeleteLines 1, awcl
Next i
Set awi = Nothing
ThisWorkbook.Save
Application.Quit
End Sub
*************************************
However when I open the Excel File, I still get the Macro Prompt. I have checked in Macro list as well as in VB Editor and no Macro code exists
If I have the file manually (or do a save as) and then reopen the file, I no longer get the Macro prompt.
I have tried various examples listed in different forums/sites but nothing works.
I have code to open another workbook and run a specific macro. I plan to then take that and copy it over to my workbook.
The problem I am encountering is when I run this macro, at the end of the code, a form/msg pops up stating it is complete. This then automatically stops my code from running (from my original workbook). How do I close this form in order to keep my code running?
I've got results in row 3 - 16 386 and sometimes these results are exactly the same in some rows. What I now would need is row AB to display only one of each result and row AH to display how many percentages of the time this particular result appears.
View 14 Replies View RelatedI have a count for each site for certain cloumn headers.
But i want to collate these so that if there is a 1 in the column the it will output it with the column header. But there are 10 column headers and I would like to get a result that has all the columns with 1 in.
eg:
a b c d e f g h i j k l m n o p q (Organic Suites) (Inorganic Suites)
sitea 1 0 1 0 1 1 0 1 0 1 1 1 0 0 0 0 (O1 O3 O5 O6 O8 OS) (I1 I2)
I want to sum a column and then display the result but in the same cell put some text:-.....
View 4 Replies View RelatedI have a formula in A1 that I would like to execute from A2. I want the A1 to display the formula (so no "="), but I would like cell A2 to execute the formula in A1.
If A1 contains: "SUM(1+2)", how can I get A2 to display "3" without reproducing the formula?
A1: SUM(1+2)
A2: ????
I suppose I'm looking for something like this:
A2: ==A1
But, of course, that doesn't work.
If I do this it gets close:
A2: ="="&A1
But that returns "=SUM(1+2)" instead of executing the formula.
Basically, in the "Thisworkbook" code , i have some code in the Workbook_BeforeClose section. Currently , it autosaves the workbook in a folder i have specified.
However, i need to add some code.I want to check that a certain cell has a value in it before the user closes the workbook, and if the cell is empty, show a messagebox asking him to enter a value.
I know how to get a messagebox to pop up, the only thing is once the user clicks the OK button,
i need the rest of the code execution to pause, allowing him to make the change then if he clicks the "X" (top right of the screen) to close the file or application, the filesave dialog appears and he can then save the document.
how to go about this because at the moment when user clicks ok, the messagebox just disappears and filesave dialog appears and he doesn't have a chance to edit the cell.
creating a .Find code to search a range on a sheet and then display each result seperately in a msgbox. An inputbox will be the value .find searches the range for.
the msgbox needs to be a vbyesno
VB:
'SEARCH CODE
Dim myItem As String, myRNG As Range, NewLoc As String
Dim Found As Range [code].....
I am using the below formula to find the latest date (column N) based on fund (column G) and Vendor (column O) reference. How can I find (column I) where the balance of that payment is? I know there are formulas like INDIRECT RC[-1] but how to add them to my formula.
{=MAX(IF(Payments!G:G=B4,IF(Payments!O:O=C4,Payments!N:N)))}
Hopefully you will be able to help again. Is it possible to do a vlookup that references data on other tabs within the worksheet so that the result of the formula is in the cell not the formula.
So if my vlookup was =vlookup(a2,$a$1:$b$12,3,0) and the result was john smith i want just john smith in the cell. I know about copy and paste values but i was looking for a more automatic way. One that doesn't need intervention.
I have a formula on cell A1, if the result of this: =SUM(COUNTIF(F:F;M40);COUNTIF(M:M;M40)) is equal to 1, I want the cell to display the word OK.
I have tryed this but it didn't work:
=IF((SUM(COUNTIF(F:F;M40);COUNTIF(M:M;M40)))=1;"ok";"error")
I have 15*2,14*2,14.5 in cell A1 and would like this to be computed and its result (i.e 72.5) displayed in cell A2. See below for clearer picture:
A1 A2
15*2,14*2,14.5 72.5
i have a routine which loops through a range looking for past dates and when it finds one display the result in a message box in my testbook i only use 25 rows but it gets annoying having to click ok for every find....is it possible to collect all results and display them in the message box at one time?
Private Sub Workbook_Open()
Dim Mycell
Dim Rng
Set Rng = Sheets("Sheet1").Range("B1:B25")
For Each Mycell In Rng
If Mycell.Value < Date Then
MsgBox Mycell.Offset(0, -1).Value & " Is Overdue By " & Date - Mycell.Value & " Days, Take Action Now!", vbOKOnly, "Tasks Overdue"
End If
Next Mycell
End Sub
Sub startup
Dim numwords As Integer
numwords = WorksheetFunction. CountA("H5:H64")
Range("H1").Select
Selection.FormulaR1C1 = numwords
I have a quick question regarding this simple code thats been drviing me nuts. There x distinct pieces of Data in the range speciifed, but when i run this code, the reply posted in cell H1 is 1, instead of x.
Eventually the code will be built to check if the result is odd or even and then add an entry into the first blank cell if the result is odd.
I am trying to display a message box for the user if there is "agency" in cell o8 but nothing in p8... I tried the following code but it doesnt work..
If Range("o8").Value = "Agency" And Range("p8").Value = "" Then
MsgBox "Please provide name of agency in cell p8"
Sheet9.Shapes("cross").Visible = True
Else
I am trying to find a way to display text that is the product of a concatenate function in a defined cell, but not to have the function itself in that cell. Basically, I want to have the below function in cell A1. I want to add a command to it to take the result and display it in cell A2.
=CONCATENATE(C5,"_",'Attachment 3-A'!C9:E9,"_",IF(C5="","",IF(C6="MPL",IF(VLOOKUP(C5,MPL!B:F,5,FALSE)="Lease","Lease_Contributable",
IF(VLOOKUP(C5,MPL!B:F,5,FALSE)="Pre-Lease","Managed_Pre-Lease",
IF(VLOOKUP(C5,MPL!B:F,5,FALSE)="Non-Contributable","Managed_Non-Contributable","Error"))),
IF(VLOOKUP(C5,Sale!B:F,5,FALSE)="Assignable","Lease_Assignable","Managed_Non-Assignable"))))
The reason for this is that I need the cell to be selectable (it is generating a file name that needs to be selected and copied), but I don't want the code behind it to be seen. I can't find a way to make the cell selectable AND hide the formula from being seen when the cell is selected. This is because our people keep copying the formula rather than the resulting text.
I was hoping for something like a DISPLAYIN(target) function, but it doesn't seem to exist.
Excel 2003.
I have been struggling for an hour how to hide a number to text macro in a way that only macro result is displayed in a cell.
(I have one 2-3 years old xls, where I have managed with task, but now can't figure out how and how to unhide the macro
Can it be password protected somehow?
I entered a simple formula in a cell =B14*B16 but it won't calculate. The cell only displays the formula and not the result. tell me what I did wrong. I've attached a sample.
View 2 Replies View RelatedI am trying to display the result of a custom VBA function as a label on a userform. The function is called and takes arguments from three text boxes on the userform. I attached it to the exit parameter. (This may be part of the problem; I'm not sure).
There seem to be two problems, first all the text boxes don't always contain data, but because the arguments are not optional, I get a type mismatch error when the code runs (I tried switching some of them to optional, but it didn't help as you can see from my 'commented code).
The other problem is that even when all the arguments seem to be met (i.e. the text boxes all have data), I still get a compile error that the argument is not optional. This only happens if I try and pass the result to some aspect of the userform. As you can see from the last coded line in the custom function, if I assign it to a range on the worksheet, it functions fine.
Private Sub txtStartDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim StartDate As Date
Dim EndDate As Date
If IsDate(Me.txtStartDate.Value) Then
StartDate = Me.txtStartDate.Value
Me.txtStartDate.Value = Format(StartDate, "m/d/yyyy")
Else: MsgBox "Please enter a date"
End If.............
I want to make a formula based on 2 times ex: 10:07:00 and 10:09:00. This formula should display "intime" if the diference between both is under 20 minutes, "outime" if the diference is above 20 minutes and it should display "error" if the time is under 0 minutes (this will only happen when someone makes a mistake typing in the time. For example 10:37:00 and 10:36:00)
View 3 Replies View RelatedI have a pivot table and perhaps that isnt the best way to do this. (Sample attached). Ultimately I need to display two columns only:
Application (ColA) Business (ColC)
There are three columns of data.
Applications (ColA) Usage(ColB) Business (ColC)
There are multiple instances of the same application in ColA, ColB has usage =true or blank and ColC has multiple instances of the same business.
Based on the count of Application in ColA, and the count of Usage =True, I need to return the Business with the MAX count.
Note: the usage cannot be a filter, it must be a count.
I Want to fetch a data as below.
ITEM RESULT
M&C_ES_F_55+_Phase1 <55>
M&C_BR_F_18-34_Phase1 <18-34>
M&C_ES_F_35-54_Phase1 <35-54>
Likewise there are many line items, wherein i want the Age should be searched in ITEM column and should be displayed in the RESULT column.
* I don't want to Use text to column method, is it possible to use IF condition along with Search formula.
Currently I am working on a data entry form for CRM database using Excel. Now i am stuck at filtering and displaying the data from the spread sheet to the user form.
There are three text boxes to key in the filter criteria and a button which will filter the data from the spreadsheet based on the criteria in the three text boxes. Then the whole row where the filtered data resides will be displayed on text boxes on the user form.