Formula For Mapping IP Addresses To Private Or Public Defined Spaces?
Dec 31, 2013
I have a macro that pulls specific data from a CSV, then I copy that extract to my master excel doc (setup by year), so I can put the data into pivot tables and charts. This is used to create "management" style reports.
This data has IP addresses in it. Both internal and external. Trying to find a formula that will look at Cell A, where the IP address is and input either External or Internal into column AA, based on the number.
Internal would be numbers between 10.0.0.0 and 10.255.255.255, 172.16.0.0 and 172.31.255.255, and 192.168.0.0 and 192.168.255.255. Anything not in those three ranges would show as External.
how is the best method to link up forms to "talk" to my modules? (aka set variables inside my module script)
the way i understand it with my C++ background, it seems like separate forms and modules act much like private declarations do inside class calls.
I know that in C++ i can declare a friend class to grant access to communication between classes... and i'm wondering if such a procedure is possible in VBA as well...
or to break it down for those not familiar with C++, quite simply, is there a method of code i can implement to have different user forms and modules to talk to eachother? as it seems that any variable declaration is all inclusive to that one object.
The only way i can think of passing variables is by having my code create a worksheet, paste variables one by one into cells, bounce to the destination module, and import those declarations one by one through the cell contents, and remove the sheet after use...
I know i can do it that way, but i really dont want to as that is pretty darn sloppy, and a mickey mouse way to tie my program together.
Where can I obtain some working examples or explanations as to what, where, when, why, and how these Public and Private Sub are correctly implemented? I see these code used extensively but not sure why it's there yet. A macro which uses a Private Sub is in one of my workbooks. Due the "progress" of things from here I now need to move to the next curios level of understanding Macro and VB coding.
I have Excel WB / Sheet with filled columns A (serial No.), B (name), C (e-mail adress), D (problem), E (solved / unsolved) and now I want that Excel automaticly sends e-mail notification to specific e-mail adress (column C) when its / his problem is solved (column E).
I'm trying to enter a series of formulas into a worksheet using vba. However, this code is giving me Run time error '1004', along with the description in the title. This is the first formula (they're all relatively similar).
I am trying to bring up a form after clicking the "ok" button on another form. Both forms are defined in my public sub, so basically, the module creates both forms, calls the first form, and hides the second form. Then the first form hides itself and shows the second form. However, when second form is defined using "dim", the first form can't find it to show it, and when I make the second form "public" in my public sub, I get the error that it is an invalid attribute or function.
Here is the code from my sub that applies to this error:
Code: Public Sub PutInEngine() Dim InputForm As New FrmInputs InputForm.Show
From what u can see here, its a massive formula.... but I am pretty sure that there is a shorter way to key in the formula
*Note* 'Team Schedule'!D5-D12 and 'Team Schedule'!H2-H4 are PH. disregard the 4.5 that is in the formula as it is used for other purposes. Every PH that has passed will credit a 1.5 into the cell.
basically I got 2 sheets - 'Sheet1' and 'Codes'. In sheet 1 I have many columns of info(irrelevant here), we focus on one Column N, there are codes in this column and depending on the code I need to enter an Asset Class in Column AG. The Sheet (Codes) - has 2 columns with the code(column A) and its corresponding asset class in Column B.
A lot of the codes belong to the same asset class so dont be confused if u see the same asset class category twice. I need the macro to copy the correct asset class value from Column B(Sheet 'Codes) to Column AG of Sheet1.
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = Chr(vbKeyA) Then If sngXFactor 1 Then sngXFactor = -1 sngYFactor = 0 End If ElseIf KeyAscii = Chr(vbKeyW) Then If sngYFactor -1 Then sngXFactor = 0 sngYFactor = -1 End If ElseIf KeyAscii = Chr(vbKeyD) Then If sngXFactor -1 Then sngXFactor = 1 sngYFactor = 0 End If ElseIf KeyAscii = Chr(vbKeyS) Then If sngYFactor 1 Then sngXFactor = 0 sngYFactor = -1 End If End If End Sub
That is what I have right now, basically I just want to map W, A, S, and D to change variables. What am I doing wrong?
Keep in mind that this is a userform and not an excel worksheet.
I am having trouble with eliminating spaces from the value I've generated from my formula.
The formula will take the first 4 characters from a list of names, and add to that a number and a year. (For instance: "Conniff" would become "conn_01_09").
My problem is if I have "Ag Services". "ag s_01_09" would be generated. How can I eliminate that space? The list of names is in one field.
The formula I used so far is: =CONCATENATE(MID(E2,1,4),"_",MID(F2,1,2),"_",MID(C2,3,2))
I tried TRIM and CLEAN, but couldn't get them to work right.
I am using the Formula of Index here as i have a sheet names with Details and mapping i have a company name for which i have to map the policy no from the details sheet. The Thing is i will not use Vlookup i need a formula of Index which maps the data from the backwards range. Attached a excel sheet.
I need to count a list of corporates claims settled as i have multiple Claims Status as outstanding, In process,Cheque prepared and Etc.
Basically i cannot use countif formula for the condition as it has only a range & criteria but here i have to check the list in the validation tab and map with the details in the side spread sheet given which are settled and count them so such criteria is so unknown to me to use .
I created a sort of FORM worksheet that uses lookups to pull a bunch of information (so the user does not have to key it all in,) and transfers it to a second worksheet (database worksheet), when the user clicks a "Submit" button.
The functionality is fine when used by one individual, but I am now going to have 9 different users working within this Shared file.
I seem to have worked out any of the other kinks related to the Shared file, but I'm having one problem that I should have foreseen.
The code below is looking for the next available empty row in the database sheet and copying the data there.
My problem is that the file is not updated in real-time, so if entries are submitted in a narrow time-frame, the data is fighting for the same row, and deleting one row-item or another.
My question is, is there a way to modify what I already wrote to fix this problem?
If not--the solution that I am thinking of is creating NINE separate worksheets and mapping the data into those individualy.
So... IF we have Sally, John, Scott, Dave, Jenn They each have their own worksheet.
From looking at the below, I am thinking the best option would be obviously mirroring the template for each user, and modifying this portion:
VB:
Option Explicit [U]Dim wsData As Worksheet [/U]Dim wsForm As Worksheet Dim wsPCD As Worksheet Dim rNextCl As Range Dim rNextC2 As Range
[Code]....
Will that work transitioning into the rest of the code? I'll assume that the above needs revised as I'm new to this all.
VB:
Option Explicit Dim wsData As Worksheet Dim wsForm As Worksheet Dim wsPCD As Worksheet Dim rNextCl As Range Dim rNextC2 As Range
I have a user whose links in his spreadsheets are in UNC format. He changes them to drive letter mappings, but when he opens the workbook again, the UNC format returns. how to change the links so that they remain as F: etc.. rather than \servernamesharename The user has MS Excel 2000 and Windows Xp Professional
Is there a fomula that can add trailing spaces. For example....I need a certain feild to be 11 Characters in length. So lets say in Column A, I have a bunch of different words:
House Bird Up Down Yes No
I would like to put a formula in column B that takes my original text and adds blank spaces to the end of it until it's 11 Characters. So "House" in Column A would be "House " in column B.
I am in need of 2 validation macros (formulas) to enter into the validation criteria formula box when creating a custom validation.
1. A formula that will generate an error if there is a space in the text entry. Example:060107_Halo3CG prev.mpg would be an invalid entry due to the space after CG.
2. The same formula as above but this one also needs a 50 character limit added to the criteria.
I need to clear a value in a cell(what ever may be the value) based on a condition in another cell and set it to blank. Ex: If cell A is blank and then i need make cell B also blank, if cell A has some value then i should not disturb B I need to do this using formula. I have tried the below, but no use, IF(AA1="",REPLACE(Y1,1,10,""))
I've found several posts about returning variable substrings that dealt with one or two spaces, but I have not been able to find anything that is for multiple spaces. The number of characters before the substring will remain constant.
For example:
Income from transmission agreement - 83 subs @ $0.44
In this case I need to extract: 83
Income from transmission agreement - 10,312 subs @ $0.50
Every AM I run a report that has ALL of our company order numbers from the 2 systems we use. I get those reports and put them into 2 columns. instead of manually inserting so they all match up, is there a way to do this automatically? ....
Trying to convert an Excel 2003 macro to work in Excel 2007.
The problem line is
Dim MyDataObject As DataObject
I suspect the problem is a Missing Reference, but I cannot figure out which one. I have the same ones (in 2007) as 2003 except for one which is not showing
Microsoft Forms 2.0 Object Library
Is this the one it needs? It is called something else in 2007?
The ones I do have ticked are
Visual Basic For Applications Microsoft Excel 12.0 Object Library OLE Automation Microsoft Office 12.0 Object Library Microsoft ADO Ext. 2.8 for DDL and Security Microsoft DAO 3.6 Object Library Microsoft ActiveX Data Objects 2.8 Library Microsoft Scripting Runtime Microsoft XML v2.6
the first time font.bold is set to true, it completes w/o error. The bolded line returns 'application defined or object defined error 1004'. Ive tried activating the new sheet immediately before setting bold (like the first time it gets set) but it still errors.
