vba function

Hi, I'm trying to use this code to get the monitor resolution to resize a userform, but when I compile it, I get a GetSystemMetrics32 sub or function not defined. Option Explicit 'Function to get screen resolution Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" Alias...

Hello, Does anyone know if it's possible to use a dynamic message for an InputBox that is called on versus hard coded into the Procedure? I understand how to customize an InputBox; one of my examples here: getNum = InputBox("Enter number of rows to insert", _ "Insert Rows at end of...

Hello, I'm trying to figure out a way to prompt a user to input a number and to be able to use that input with a different sub procedure. My reasoning is that I want to reuse this User Prompt in different scenarios instead of baking it into several sub procedures. For example, I have a sub...

Hi I have a cell (Let just say A1) which include both numbers and text. For example: 12x24Z I want a user defined function, which give me the position of the last number in that cell. In this case the position for number 4 (position = 5). I think I find a solution with the standard Excel...

I want to create a VBA function to calculate the rank, like that Function CALCULATERANKING(score As Double, list As Range) As Integer Dim row As Integer Dim column As Integer CalculateRanking = 1 For row = 1 To list.Rows.count If list.Cells(row, 1).Value > score Then...

Hi Everyone I have been creating a macro in excel that will pull information from an excel sheet and insert into a word document. After much trial and error I have managed to get it to insert all the information I want but I am now stuck on changing the formatting of what is inserted. After...

I have this function: Function student() student = Range("'" + Range("B1").Value + "student'!" + Application.ThisCell.Address).Value End Function I use this function in worksheet1. The value in B1 gives the name of another worksheet, let's say ws2. I need to pick up the value in that other...

<tbody> Reference Result of Formula Dog 1 Dog 1 Cat 2 Cat 2 Cat 2 Horse 1 Sheep 2 Sheep 2 </tbody> Hi, I’m hoping someone can help me with writing a VBA code to create a function that converts a formula I use to an easier function, using existing Excel...

Hello All, If some come can point me to right resources I would appreciate it. My problem is that I would like to create function =QC() that returns "Good" or "Bad". And I would use it to check all "code numbers" if they have less then 6 character to return text "Bad" next to a cell. If...

Hi, I need a non-invasive custom VBA "what-if" scenario function as follows: WHATIF(Output_Cell, Cell1, Value1, Cell2, Value2, ...) This would give the hypothetical value of the output cell if each of the given input Cells 1 to X were changed to the respective scenario values 1 to X, but...

Hi, I need a non-invasive custom VBA solver/goalseek function as follows: SOLVE(Output_Cell, Target_Value, Input_Cell) This would give the hypothetical value of the input cell that would give the target value in the output cell, but without actually changing the value in the input cell. It...

Hello, I am wondering if there is a simple Excel Worksheet Function (or less ideally, a custom VBA-defined Function) which can automatically return the date last modified, i.e., when the document was last updated/modified, recalculated and/or saved? Thanks for any tips. K.

Hi there, Is there any way of adding intellisense to my VBA functions ? Some of the functions I write have quite a few parameters to them, and it'd be nice to be prompted about which parameters need to be passed to the function which order. As it stands, I'm constantly having to refer...

I have writen this code to give Multiple Output from a Function but its All the Values as zero, Sub Trial()Dim X As Double, Y As Double Dim LlByL As Double, BbByB As Double Dim Trail1 As Double For X = 0.1 To 1 Step 0.1 For Y = 0.1 To 1 Step 0.1 Trial1 = Case2(X, Y, LlByL, BbByB)...

{=MIN(IF(($B$2:$B$65536="A")*($C$2:$C$65536=1),$A3:$A65336))} I currently have the above function on an excel sheet, I was wondering if anyone had a function to calculate the MIN via VBA instead? For all intents and purposes the sheet i'm looping through looks like: Date Str1...

I apologize for posting this again. This is an update of an issue I posted yesterday. I forgot to add a tag to that post and Could not see how to update it. Hope someone can help with this...it is beyond bizzare. I watched this several times now. n = the number of columns of data. When n=4...

I made an Excel function that converts a large string of numbers into their numeric word names. I am offering it to the community as free public domain. It has many parameters to control the desired output. You can choose USA or European names with a simple parameter change. English names are...

Hi, I have searched the net for a solution but found non. My goal is to write a function that I can use anywhere in a work book. The function gets a project number (integer) & returns the last Bill number of the project as a string. this will save me using the DB functions (they are not...

I am trying to define some calculations for various rental review profiles in a real estate cashflow. The problems being that there are to many variables and as such I want to create functions in VBA to cater for them. Example 1: - Fixed% review with a cap, collar and ratchet (little...

VBA Newbie here. Please forgive any protocall mistakes: I currently use the following to test for files to exist after running a batch to copy them from various locations on a network. Works well allows wildcards in path, file name and extension. Private Function IsFileTrue(fDriveFolder...