Is there any way through VBA that I can check whether the date in cell A2 is Monday or not.
Also the code should allow me to continue if its Monday else should promt a message saying that its not Monday and whether the user still wants to continue. If no it should terminate if yes the next part of the code should continue.
I have to enter date into cells. It is being written from the lists of paper, where for date is entered only year (e.g. 1987), but I have to enter it into excel with day and month (the program working with data only recognizes this form; eg 01.01.1987).
I was thinking of writing a conditional formatting, to remind if I will forget to write 01.01. before year.
I prepared formula like this (to check for the dots):
=IF(AND(MID(AD2;3;1)=".";MID(AD2;6;1)=".");1;0)
But it is not working, because the function recognizes general formatting of cell instead of date formatting (28491 instead of 01.01.1987).
I have two excel 2010 files that I want to run this on. Each one has about 10+ worksheets in them. I am looking to have a vba script that will look at columns D and E starting at row 4 and check if they are expiring in the next month or have already expired (before today's date). Then it would return a text file that will say which worksheet it is on, the row and column, and what date is in that cell.
View 9 Replies View RelatedI have been trying to write a script that when a workbook is opened it promts you if you want to archrive old data.
If the use selects yes the script will run and checks all dates in column AG8:AG60 on status worksheet if it matches that criteria(older than 30days from today, and it is underlined) then it copys and paste all the data in that row from "A" to " AI" to the next available row in the archive sheet in the same workbook.
This is what I have but since i dont quite understand VB that well i cant find where my mistake is.
Private Sub Workbook_Open()
Dim iReply As Integer
iReply = MsgBox(Prompt:="Do you wish to archive old Data now?", _
Buttons:=vbYesNo, Title:="Remove Old Data")
If iReply = vbYes Then
MsgBox "I will know run chkdates"
Run "ChkDates()"
ElseIf iReply = vbNo Then
Exit Sub
Else
Exit Sub
End If
End Sub ............................
I have a tracking sheet that is used to show where a specific project is within the lifecycle and would like to automatically set a summary value depending on the last data entry within a range of cells in a row and also set it to RAG status depending on the value.....
View 2 Replies View RelatedI have a spreadsheet with 2 columns of values. I need to check that the two columns have the same values, however the last digit of the values will differ every time, in the first column the value will always be a 3 and in the 2nd column it will always be a 0. Unfortunately the amount of digits before the last, differs from 6 to 9 so its not as easy to do a trim. Example
Column 1 Column 2
11111113 11111110
222222223 222222220
4444444443 4444444440
I need to check that the first digits (no mater how many) are all the same except the last digit.
Programmatically speaking, any way of checking whether an arbitrary cell is part of a named range (that is, short of looping through an entire book's named ranges checking for intersections)? (It can be assumed that all the named ranges consist only of one cell).
View 6 Replies View RelatedI am trying to check the cells in column C for a defined set of rows and if it is blank change it to astericks.
Current is the row selected when the macro begins
LastRow is the last row with data (in column A)
For i = Current To LastRow
If Range("C" & i).Value = "" Then Range("C" & i).Value = "***"
Next i
I am using VBA to indent the values in a range of cells.
However, I would like my code to check if the label has already been indented, to prevent it from being indented further.
I want to run some macros based on the value of an input cell, but only if the input is a number (ie. it is not a letter or other character).
View 6 Replies View RelatedI have a cell in Excel having a boolean value and want to use a macro to check if it is true. Something like this:
View 3 Replies View RelatedI want to reformat some data, arranged as follows, and ignore blank cells
Date1 Time1 blank Time2
Date2 blank Time3
to
Date1 Time2
Date1 Time2
Date2 Time3
Code being used, currently writes out lines where a Date exists, but Time cell is blank, what do I need to modify in the code below, to ensure blank times are not written out
Sub test()
counter = 2
For i = 1 To Range("A65536").End(xlUp).Row
For j = 2 To Cells(i, 256).End(xlToLeft).Column
Sheets("Sheet2").Cells(counter, 1).Value = Cells(i, 1).Value
Sheets("Sheet2").Cells(counter, 2).Value = Cells(i, j).Value
counter = counter + 1
Next j
Next i
End Sub
Problem Designing "new customer" form, a textbox(forename) in the
form has the Control source of "B3" (an empty space in my Customer
database). When the form is run and the forname is typed in the box, it
fair enough appears in the Database sheet (in B3).
However, then when opening the form again and typing over the forename
just inserted it will ofcourse overwrite it (B3 is replaced). Any ideas how i can input
code into the sub linked to the textbox so that it checks the control
source and moves down if the source is empty(code checks B3 for text, moves to B4) then the next one (B4 is checked, moved to B5).
Dim topCel As Range, bottomCel As Range, _
sourceRange As Range, targetRange As Range
Set topCel = Range("B2")
Set bottomCel = Range("B65536").End(xlUp)
If topCel.Row > bottomCel.Row Then End
Set sourceRange = Range(topCel, bottomCel)
Set targetRange = Range("B3")
I am trying to build a user form to find out the customers who purchase more than $1,000 during a certain period. The userform has two inputs:
One is to select the data range of customer information. Assume all customer information are in the cell A2: H10, how shall I write the error checking code if the user selects the range which is out of (A2:H10)? message box would be " You selection include invalid data, please check"..
The other input is called " Get data past this data", and I can enter a date in the following cell ( txtDate). Regarding the error checking, I am thinking to use IsDate() function to make sure it is a valid date. Will be there be any other error checking you will recommend?
I'm trying to validate the data entered into a series of cells each cell can contain a different set of data but the value N/A is also permitted. For example:
Cell A1 could contain a date from 2013-01-01 thru 2013-12-01 but the value N/A is also valid
Cell A2 could contain a decimal from 0.01 thru 302502.23 but the value N/A is also valid
Cell A3 could contain an integer from 3 thru to 9000 but the value N/A is also valid
When the acceptable values are entered then I want to be able to carry on otherwise I want to pop up with an error.
I have a master sheet that has 3500ish names on it, and another sheet that I'll need to drop in a list of about 1000 names. What I need on the master is a way to check the dropped in data, find duplicated names, and flag them up.
Now, I believe what I did last time was have a true/false method of telling me if they're on both sheets, then use an IF formula to instead make Trues into "yes" and Falses into "no". However, I can't for the life of me figure out how I had it previously checking both sheets and confirming/denying if they're on both sheets or only appear once.
i have a problem counting the number of characters in each cell in column "A" in a sheet and checking if number of characters in a cell exceeds 5 characters.
View 10 Replies View Relatedi have a problem counting the number of characters in each cell in column "A" in a sheet and checking if number of characters in a cell exceeds 5 characters.
View 8 Replies View RelatedIs there a way of checking for duplicates in a range of cells using one cell only for the code? Return does not have to include what value is a duplicate - only true or false. This opposed to using multiple cell and COUNTIF or a pivot table.
View 5 Replies View Relatedi don`t know how to make this in VBA
But please allow me to explain, if I have numbers in Cell F9 I want image to be displayed as (X <---- which it means wrong) on G9 and message to be appear in H9 says only words are allowed. In case, cell value are words; I want it to show image <---- which it means right) and the message to be say correct. And if cell is empty I want it to show image (!) and the cell beside it the message should say (Please Fill up).
I want to apply this to words instead of numbers as well.
I have a report that includes data broken up by several headings. Instead of showing the heading and the data below it, I would prefer that the heading was included in every subsequent row that it related to (and the heading be removed).
All the headings are in italic non bold format.
All the data is in standard format (no bold / italics / underline).
The only data in the sheet is as above, and there are no gaps in the data. A heading will relate to all the data directly below it until there is a new heading.
I am writing a macro that will allow me to copy all the data in a set range (A2 and below) after checking that B1 contains the text "Year_id".
Right now, I am able to copy all the information, and paste it onto "Sheet 4". I am unable to code for the part where the macro would check for the text. The code that I have (for copying-pasting the date) is below.
Any code that would check the information in B1 into this macro code below:
Code:
Sub Copy_Allinfo()
Dim Sht As Worksheet
Dim Rng As Range
For Each Sht In Sheets
If Sht.Name = "Sheet4" Then
[Code] ........
in writing a loop that will check a number of cells to see if it is emtpy, if it is not, then run the macro. If the cells are not empty it will copy the data in that row and paste it to another sheet and delete that line. If it hits a cell that is empty, i want it to skip that row and move on to the next row.
here is the macro that moves the data.
Sub movedata()
Range("A1:H1").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Range("A1").Select
Sheets("Sheet2").Select
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("A1").Select
Sheets("Sheet1").Select
End Sub
I need to have a single cell tell me (either by returning a certain word or colour) if any cell within a range of cells (a)(all within the same column) contain the same text as another cell thats located somewhere within a different range of cells (b)(again within thesame column).
View 2 Replies View RelatedI have the following columns that return cover period dates.
Start of Cover PeriodEnd of Cover Period01-Nov-0631-Jan-0701-Jul-0831-May-0901-Dec-0930-Jun-1001-Jan-1131-Dec-10
I however need a macro that will delete the cell contents if the "Start of Cover Period" (column AK) date is > than the "End of cover period" (column AL) date.
Thus it must compare ak2 with al2 and if ak2>al2 then clear both cells. if AK2
I am working on an Inventory Spreadsheet. I have need it to date time stamp that willpopulate a different cell /field when text are entered in a different cell/field and will not change all the previous dates entered on the spreadsheetevery time I re-open the spreadsheet. I formula I am using is =IF(E3<>"",IF(D15="",NOW(),D15),"")and it changes each time I open thesheet to do the inventory so I do not know the date of the last inventory. Iwant to capture the actual date that the inventory was completed in thesecond/different cell?
View 9 Replies View RelatedI have had a look via search for similar but I'm not good enough to recognise whether other threads bear any relation to my query.
I have a small spreadsheet with basic conditional formatting (my level!) where we record agency staff for eleven months service to enable us to ask them to take a four week break.
I want to add a formula or similar to automatically roll the date forward eleven months when we amend the re-commencement date on their return.
E.g. we type in A1 01/01/09, B1 updates to 30/11/09
Is this possible?
what will be the code if commandbutton1 is clicked, it will check if the text in the combobox is in the range A2:A10 in the worksheet, if not in the range it will display a message box that the text is not in the range :D
View 9 Replies View RelatedDid Microsoft do this for a reason. But it seems to me there is no built in formula to check weather a number is odd or even.
=isodd(A1) or =iseven(a1) would be nice.
curent if I have to do something like, which works but is a lot of effort.
=IF(A1/2=INT(A1/2),"Even","Odd")
On the attached example i am concatenating surname with the first letter of the forename. However, what i want to add into the formula is if the answer is a duplicate of another answer in a range that these duplicates are changed to surname and full forename.
Is this possible with a formula or would it need a bit of vba programming?