If - Then Add One Year Extension
Jan 8, 2014Based on a certain customer agreement code in excel, "YES-N", then I need to add one year onto the date listed on the renew date column.
I need the result in cell 'AP'.
Based on a certain customer agreement code in excel, "YES-N", then I need to add one year onto the date listed on the renew date column.
I need the result in cell 'AP'.
I have two combo boxes: One for entering the Year, and one for the month. I can produce a message if the user leaves either box blank but I want a message to apear it the user selects a year AND month less than the current year (iYear) and current month (iMonth). I therefore need an AND statement between the two criteria but i dont know how to do it.
'....First Checks the Comboboxes arent blank then below Checks a future month/year secection is chosen
ElseIf YearBox.Value = iYear & iMonthbox < iMonth Then
MsgBox ("You may not enter Data before the current Month")
Else '...... Run main code here
Looking for a formula to compare current year values to previous year values. For example, if the current year has values for the month of January through March (100, 100 and 150), current year value will be 350 and the previous year value will be 975 (i.e. 300+275+400). The aim here is to make the previous year months summation equal to the present (or current) values. As new values are entered for the current year, the previous year's values will have to change to reflect the new month's value entered for the current year.
Month 2012 2013
Jan 300 100
Feb 275 100
Mar 400 150
April 650
May 454
June 800
July 500
Aug 375
Sep 525
Oct. 300
Nov 410
Dec 510
Sample file is attached : Comparison_Years.2011.xls‎
I am working on a budget for myself and want it to have running dates so the first data column will have the current month. I was able to succeed with this using the EOMONTH function followed by EDATE functions in the following cells, I then have these columns filled using a nested VLOOKUP MATCH function pair.
The problem I run into is with the months that extend into the next year, in my data table I have month by month listed started on 01/01/2014 ending 12/01/2014 but as soon as the month is no longer January the last column in my budget cannot find the information needed due to it looking for 2015. so what I would like to know is if there is a way to make the data table change the year to the following year after today is beyond that month, so for example on March 1 2014 both January and February would be changed to 2015.
Attached is an example : Budget Example.xlsx‎
I have dates in my column “A”, for example (A1 cell =22-Mar-1971), (A2 cell=30-Dec-1965). Now my requirement is in B column date and month from A column and year should take current year. Output in B column (B1 cell =22-Mar-2009), (B2 cell=30-Dec-2009)
View 3 Replies View RelatedI have just received an eMail from my accountant and here file name extension is .xlsx. I have never seen this before. Can someone tell me why the x on the end of the extension? . Also, when it opens, a Message Box is displayed: File Conversion in process.
View 4 Replies View Relatedchange extension in vba
i am a positive rookie and i need help.
i know a little programming but i understand it even i dont write anything.
i know is wrong what i write here but i express my idea on how i want it to be.
I am trying to do an IF statement, if the activecell's value is equal to this current year, do nothing and if its not the current year, to offset one column to the right and insert a blank column, then copy the whole column to the left and replace it with the new blank column.
View 1 Replies View Relatedi have the following table of information
Year DOB
7 01.09.96 -31.08.97
8 01.09.95 -31.08.96
9 01.09.94 -31.08.95
10 01.09.93 -31.08.94
11 01.09.92 -31.08.93
and a list of dates i need to look up the date to see which year it falls in and return the year
DATE function won't return TODAY()'s year in the "year" slot.
Is there a way convert, for example, 2/8/1963 to 2/8/2009 without using Concatenate?
I know that in order to draw a chart where a data line for a certain period is compared with the same period the previous year, one should have the 2 sets of data of different year side by side columnwise. However, is there a way where I could still churn out the same line chart when the data is all on a single column?
View 9 Replies View RelatedI have a sheet I am working on that was given to me by a supplier and for example the cell in A1 is '2008_world_soccer'. How do I add '.jar' to the end of the filename bearing in mind the filenames are not the same length in each cell. So it would then read '2008_world_soccer.jar' or ''2008_world_soccer_GB_test.jar' etc. Any ideas that would saving me having to edit and type .jar at the end everytime for over a thousand records?
View 3 Replies View RelatedI am thinking of an extension. Every time it finds a empty row where it pastes in. Is it possbile to insert as many rows as the range object is before we paste in the range?
Ex: If the source sheet has 10 rows that's going to be pasted into the destination sheet. I want first to insert 10 rows into destination sheet at "*" and then paste in the 10 rows from the source sheet.
I have been able to successfully code a new email message one little thing I can't figure out is adding 77 plus their extension txtphone.
View 3 Replies View RelatedI have a list of file names in an excel sheet. The requirement is to find the extension of each file in the next column. For example
file name 123.456.789.jpg
extension jpg
file name 123.abcd.789.xlam
extension xlam
is there a worksheet function equal to InStrRev in vba?
How to Extract Extension from String?
Ex.
"testing.xls" to "testing"
"testing123.html" to "testing 123"
I am having an issue getting rid of the ".xls" when my workbooks save automoatically. Here is the code i am using: ActiveWorkbook.SaveAs (ActiveWorkbook. Name & "_" & NextMonth). The program works great except it will save as something like "Example.xls_Jan07". THe only problem is that ".xls" in there is driving me crazy. All i want is Example_Jan07. Anyway of doing this?
View 3 Replies View RelatedI've tried the solution to get around the 3 criterial limit for Conditional Formatting provided at http://www.ozgrid.com/VBA/excel-cond...ting-limit.htm. It works fine for values or text that are entered in the cells, but does not work for a value or text in the cell as a result of a function in that cell. What modifications to the VBA statement needs to be made to make Conditional Formatting work based on function results?
View 7 Replies View Relatedlook at the tab "Publisher sumif summary" and at the "Q" column. There is already a formula in place which returns a number from column B in the "Publisher Control Sheet".
If you look at Column B in the "publisher control sheet", you can see that for some of the companies in column A there is no number. Instead, there is a number in Column C where there is no number for column B.
The problem at the moment is that I don't know how to get the data from Column C factored into the equation, which I will describe below
Essentially, i need the formula in the Q column of the "Publisher sumif summary" to return "((Column M number (impressions) /1000)* Column C number) with the column C number coming from the "Publisher control sheet" tab. It needs to only do this where there is no number in column B, and how to add this function!
this query has now took a peculiar twist in the fact that my boss now wants to change the goalposts
here is a thread with the code in
[url]
I clicked on something and now my original (one) workbook has opened as two
workbooks with the above listed extensions. If I do something in one, it
will appear in the other. If I close out and re- open the workbook from it's
original state, they still appear. I clicked too fast or hit something and
now I can't get it back to original form.
I opened a file, by file I mean a "file" with no extension that has commas separating it.
So I recorded a macro to open up the file and this works fine.
How do I close it? I tried
wk1 = ThisWorkbook.Name 'Main Worksheet
...
Workbooks(wk1).Activate
ActiveWindow.Close
But the problem is that "wk1" is not set equal to the name, probably because the file is not an excel file, it has no extension.
I need a VBA script which only opens the file with the highest extension.
The files are test.aa1, test.aa2 and test.aa3. This can go up to 5. In this case the filoe test.aa3 should be opened.
is it possible to choose $[file] in custom header area but only have the file name, before the xls extension print?
Also, is it possible to have the file name print in all caps? (or would the file have to be named in all caps?)
creating a macro that will inport file exention which has WK4 , i have lotus notes at work i have exported email file to drive U: , i require a macro to pick this file up and export to Sheet Group_Mailbox. The range is A9
View 9 Replies View RelatedI have a few thousand files that all have the extension of .kdm.kdm. I need to change them all to .kdm.xml. All of the files are in a single directory on my hard drive. I know there's a way to do this in VBA that's simple, but I can't seem to locate it in any of the books I have....
View 2 Replies View RelatedI took this code from another post and modified it slightly to look in my directory "C:cherylpostal" and list the names of all the files contained. I then have them displayed in a combo box. They are all CSV files, but I would really like them to appear without the .CSV extension. For example, my COQ4 file appears as COQ4.CSV but I would like it to just display COQ4. I can't seem to make it work however.
Sub Macro1()
Dim rngOut As Range
Dim strPath As String
Dim strFile As String
Set rngOut = Range("F1")
strPath = "C:cherylpostal"
strFile = Dir(strPath & "*.*")
If strFile = "" Then
MsgBox "No files matching criteria can be found in " & strPath, vbExclamation
Exit Sub
End If
Do While strFile <> ""
rngOut = strFile
Set rngOut = rngOut.Offset(1, 0)
strFile = Dir
Loop
End Sub
I want to develop a macro for getting filename without extension and seperating the value into two variables.
Requirement:
I have a folder with 3 subfolders inside.
Each subfolder has few files in it.
I will give main folder as input and it should check all subfolders/main folder for files and take that files and modify as shown in below example:
Example of one file: TEST-123_REV00.pdf
Here TEST-123 is the document name
REV00 is the revision of the document
pdf is as usual the extension.
Now my requirement is to prepare an output file with all these files in a text file.
The output is in this format..
Document Name | Revision Name.
Apparently my program quits after i try to open an excel file. If you open the file manually you get an error upon opening the file...something like this:
"File you are tyring to open is in a different format than specified by the file extension".
The problem is i am using an excel macro using VBA and once the file is opened the VBA execution quits.
The excel file turns out to be an xml file which excel can open the file and have the VBA continue running if i RENAME the file with an "xlsx" extension. The problem is that i cant ask the user to rename the file.........how do i get VBA to open the file without an issue?
I have a column that looks like this, beginning on C10:
Code:
File Name
2316-17-312A.xrdml
2316-17-312B.xrdml
2316-17-312C.xrdml
[Code].....
I want to copy the extension of each file to a new column (File Type). How might I go about this?