Is it possbile with the randbetween function to only randomate a number when a certin object is pressed? As at the moment, every button i press or drop down data i select it will randomate a number, which i dont want to happen.
View 2 Replies
I'm using the RANDBETWEEN(1,15) excel function to fill a range of cells with random numbers between 1 and 15, the problem is that each cell cannot be the same number than any other in that range, how exactly can i accomplish this?
I attached a file for a better example, if you hit F9 you can see that sometimes at least 2 cells share the same number...but I need it to be different on each one, and still be random.
i succed in query number of rows in excel file, but i can't make a query on certin column, or get the value of certin column, this is the code i have
View 2 Replies View RelatedI want to get number (going from 1 to 15 (for example)) when i click on commandbutton (on userform without textboxes, combos , etc, ..... except only one commandbutton)!
In other words, when i click on commandbutton, i want to get (on msgbox) number 1, then when i click again on commandbutton, i want to get number 2, then when i click on it third time, i want to get number three on msgbox window, and so on until i close userform!
If i want to make a macro button to run for a certain no. of time pressed, like for 100 times, then the button is disabled, how can this be done?
View 9 Replies View RelatedI have tried
random_result = WorksheetFunction.randbetween(0, 36)
But failed.
Whats the VBA equivalent?
how to use the =randbetween formula
I need random dates from 25 years ago to today
I am trying to use the formula below in a macro to produce the same result, but I am having trouble with the coding.
View 4 Replies View RelatedI am trying to generate random numbers between upper and lower limits (eg 120,140). The randbetween function in the help file is ideal....but when I use it it generates a #Name error.
(I am using Excel 2002 and have the analysis toolpak add in ticked).
I need the solution for the following:
1. Currently I have a randbetween() formula in cell B2.
2. Cell A1 = B2 (Every time the value in B2 changes so does the value in A1)
Instead, I want that every change in value in cell B2 is captured in progressive cells.
For example:
First iteration in cell B2, value is entered in A1.
Second change in value in B2, value is entered in A2, while value in A1 remains unchanged and so on and so forth.
This was my attempt, it says 'Object required'
Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, cancel As Boolean)
If Target.Column = 16 Then
Select Case Mid(Target.Text, 1, Worksheet.Function.Find("to", Target.Text, 1) - 2)
Case "CAS"
MsgBox ("Cashiers")
I do not know if this is possible in VBA, but I am hoping it is as it will make my life much easier.
Is it possible to say have a TextBox and a CommandButton, that does the following?
Public Sub Execute()
Dim ObjectName As String
Dim Object As Object
ObjectName = txtObject.Text
Set Object = ObjectName
Object.Execute
End Sub
Or to take it a step further:
Public Sub Execute()
Dim ObjectName As String
Dim FunctionName As String
Dim Object As Object
ObjectName = txtObject.Text
FunctionName = txtFunction.Text
Set Object = ObjectName
Object.FunctionName
End Sub
Are there any inbuilt functions that will create/reference an object based on a string containing the name of the object or function?
I will post my code and point out where the error occurs.
Sub GetProd()
'Averages Daily Production over the month
Dim WellRange, MonthRange As Range
Dim Month_ As Integer
TotWells = Sheets("R").Cells(1, 2)
TotMonths = Sheets("R").Cells(1, 4)
Month_ = Sheets("R").Cells(2, 4)
For Flag = 1 To TotWells
Set WellRange = DefineWellRange(Flag)
WellRange.Select <-----Used this To check If Range gets passed back properly.
For c = 1 To TotMonths
Set MonthRange = DefineMonthRange(Month_, (WellRange)) <---Error Here
Next c
Next Flag
End Sub ...
So the error occurs in the main "GetProd" Sub at the point when it calls the DefineMonthRange Function, its a 424 "Object Required" Error. Just before this is called I have a "WellRange.Select" which I was using to make sure that WellRange is in fact a range, and it does select the appropriate area.
So My question is of course, why I get an object error even though I am passing a range to a function which is expecting a range?
I'm creating a custom function to cut down on redundant code. However, in converting the code to a function so that it may be used in different instances, I'm getting an unexpected error when the code executes.
The error is:
Code:
Object doesn't support this property or method.
Here is my function:
Code:
Public Function chkClick(checkboxName As String, tabName As String, chartName As String, seriesNumber As Long)
Sheets(tabName).ChartObjects(chartName).Activate
If Sheets(tabName).checkboxName.Value = True Then
ActiveChart.FullSeriesCollection(seriesNumber).Select
[code]....
The function checks the status of the checkbox name passed to it. If it's checked, it will show a chart series. If it's not checked, it will hide the chart series. The error comes in referencing the "checkboxName".
How might I need to alter the code so that I can use the form control name as a variable? This is ultimately one of the key components of the function as each control has it's own name.
VBScript code snippet below is being used in an ASP page but the call to GetObject never attaches to a running instance of Excel. Since visible property is set to True, I can see the instances accumulate in the TaskBar each time the ASP page is called, so there are obviously instances to attach to.
Dim excelApp
Set excelApp = Server.GetObject(,"Excel.Application")
If (err <> 0) Then
Set excelApp = Server.CreateObject("Excel.Application")
End If
excelApp.UserControl = True
excelApp.Visible = True
excelApp = Nothing
GetObject errors out with the following error: Error - Number:429 Source:Microsoft VBScript runtime error Description:ActiveX component can't create object
how can I go about this?
View 9 Replies View RelatedI'm trying to get a macro to run in my worksheet anytime someone presses the Enter key. I've been trying to use Private Sub Worksheet_Change(ByVal Target As Range) and getting extremely frustrated. I’ve tried a bunch of things and nothing seems to work. This is my latest that doesn’t work.
View 5 Replies View RelatedI would like to detect when the user uses the "DELETE" key and would like to run a macro at the same time.
how to detect it and run a macro in VBA.
How could I detect if the CTRL (Control) or ALT key has been pressed. I want to execute a macro when either one is press over a given cell.
View 3 Replies View RelatedI have Sheet2 containing Supplier data in 2 columns - SupplierTAxCode and SupplierName (unsorted)
Sheet1 contains the Expenses section.
In Sheet1, column E6 to E1000, after inputting each SupplierTAxCode and pressing the RIGHT ARROW key, I would like to automatically get the SupplierName in column F6 to F1000 - from the corresponding data in Sheet2
In the event that the input in any of the cells in E6 to E1000 does not exist in SupplierTAxCode in Sheet2, would it be possible at the same time, to change the background color of the adjacent cell (SupplierName) in column F6 to F1000 at the same time - as a reminder to add those to the Supplier data in Sheet2 at a later date.
I could use Index Match and Conditional Formatting, but am concerned about the file sizes.
Onkey is used to make something when a key is pressed. There is a instruction to make something when any key is pressed?
View 4 Replies View RelatedI need to be able to run a macro called "Daily_Fuel_Line_Save2" when the enter key is pressed in any cell in the range A10:F10, but I still need to be able to use the tab key between the individual cells and change values in this range before starting the macro.
I already have the following code on the sheet which I would also like to keep.
[Code] .....
how to make a code so that it captures the event of pressing any key of the keyboard and triggers a macro.
I tried using OnKey method but the problem with this is I am getting stick to any particular button whichever i specify in the onkey method wheareas I want to keep it general for any button in the keyboard.
Also if anyone can suggest how can I use OnKey method to use the "S" key to launch a macro.
Private Sub ValidarCampos()
Dim r As Long
Dim c As Long
Dim s As Worksheet
'Set s = Active.Worksheet( Name)
Dim Error As String
' Dim ws As Worksheet
Dim ValorMensaje As Long
'Turn off Screen refresh
Application. ScreenUpdating = False
'Use Cells(Row, Column) for range adddress
r = ActiveCell.Row
c = ActiveCell.Column ..................................
How can I simultaneously with this code put data from textboxes to Active sheet and sheet "Izpisi". So when the button Add(dodaj) is pressed the data goes to active sheet and sheet ("Izpisi") at the same time
I have a table of data which contains company names, the number of high risk policies, number of low risk policies, and the percentage of high risk policies (compared to total policies).
What I want to do is for people to be able to select up to six of these companies and press a button that says 'create graph' and it creates a graph which shows the number of high risk and low risk in a stacked bar, and the percentage on a separate axis as a line. I know how to manually create this graph no problem, but to be able to dynamically create one from selected companies would be awesome.
To start with I have created six drop downs where you can select the company name as I image the macro will need to know which companies' data to look for in the source table.
planning a useform to collect data. My thought is to have a command button 1 when pressed will increase textboxA by a value of 1+
View 6 Replies View RelatedI have made an excel workbook detailing team performance that all of my team have access to and that requires updating once a day. The first person to access the workbook each day presses a Command Button that updates the workbook and inserts a time/date stamp. However, other members of the team go into the workbook and update it again the same day which then affects the data being reported.
I know i should probably just sack them for not being able to read the time and date but HR would not like that so is there a way to disable CommandButton1 (ActiveX) so that once it is pressed it is disables until the next day?
Why I receive a 400 error when the 'excel close' button is pressed in the attached sample.
View 2 Replies View RelatedI have a situation with a spreadsheet i'm working on.
Basically, when a button is pressed I want it to search for all rows which have a "yes" in an offload column (Column AS, on the sheet "Active") (So it can be yes or no).
If it finds a yes, I need it to move the whole row in to a new sheet called "inactive", then move the remaining results up.
I have taken and played about with a different VBA code, but i'm not sure it's even the right line!
Here is what I have :
Sub Refresh() ByVal Target As Range)
If Target.Column = 45 Then
If UCase(Target.Value) = "Yes" Then
Target.EntireRow.Copy Destination:=Sheets("Inactive"). _
Range("A" & Rows.Count).End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End If
End Sub
I want is when Enter is pressed on Range Name =Match then, Goto Cell U3
To clearify what i need is when enter is pressed on any Single Cell belonging to the Range given the name "Match" then, Goto Cell U3...
