I have a worksheet with a series of checkboxes. I'd like to run a macro that would check SOME of them and then uncheck them.
I tried recording the macro first, but the recording did not recognize me checking the checkbox. I also tried writing a VBA script that would add a space (" ") to that checkbox and that seemed to work but not optimal for adding the check makrs back in.
in my work sheet I need to Hide & Unhide some text box By checking a checkbox it means if user mark the check box the text box will be appear & if uncheck it the text box will be hidden
View 11 Replies View Relatedmarried, widows, single checkbox is selected
macro solution
good work.
I have 3 checkboxes; when one is checked, a set/range of rows should be visible. Only 1 checkbox should be checked at a time.
If checkbox 18 is already checked, and checkbox 20 is then checked, I want the first checkbox unchecked and the rows for checkbox hidden.
I'm using the following code. It works great as long as I check and uncheck the same box before attempting to check another box. But if Checkbox18 is already checked with its rows showing, and I then check checkbox20, the checkbox20 sub runs and as I step through, it jumps to sub checkbox18.
How can I stop my subs from jumping from one to another?
Code:
Private Sub CheckBox18_Click()
If CheckBox18.Value = True Then
Worksheets("TRF").Rows("36:41").Hidden = False
Worksheets("TRF").Rows("42:64").Hidden = True
Worksheets("TRF").Rows("65:76").Hidden = True
CheckBox19.Value = False
[Code] .........
How can i hide and unhide one checkbox using another one? Can it be done using IF formula?
And also i am using this checkbox to function something else as TRUE/FALSE.
Is it possible that when you press a command button, that the first thing it does is to execute the code assigned to another command button (IE in another sub).
View 9 Replies View RelatedI have been using different keywords to find what I need. I have 3 checkboxes: cash, amex, other. I have a subtotal cell. When the appropriate checkbox is checked, the amount from the subtotal cell will auto go to the cell next to the checkbox. Is this VB?
View 6 Replies View RelatedI am playing around with the Forfiles command (being called from Excel via Shell)..
I can't for the life of me get it apply a second command (such as getting the file size of each file)..
For example:
VB:
Private Sub CommandButton1_Click()
Dim Z
Z = Split(CreateObject("wscript.shell").exec("cmd /c forfiles /P C:UsersapoDesktopTextFiles /S /M *.* /d
[Code]....
The end result being the filename and the filesize shown..
Excel 2007
I have this simple formula: =IF(SEARCH("ABC",BQ239,1)>0,"Found", "Not Found")
Instead of saying Not Found when the value is not in the cell BQ239 text string I get #VALUE! returned
how do I get it to say "Not Found"? I searching for a substring that can be anywhere in the string.
Is there any way to tell (from VBA) what GUI command is currently in progress or what the last command used was?
On a wish list perhaps: Application.LastCommand and/or Application.CurrentCommand
Let's say I'm in the "Sheet_Change" event and want to know what caused the change. Was the event triggered by "Delete", "Paste", "Keystrokes" ...
AutoCAD VBA has "Begin_Command (CommandName as String)" and "End_Command (CommandName as String)" events which I find very useful. Basically I'd like to emulate that to the greatest extent possible.
Application.Caller does not seem to work for the stated purpose. I've been searching for a workaround by means of reading the "Undo Stack". Numerous articles written by experts state that the undo stack is not accessible from VBA.
I've considered reading the text from the "Undo" button's caption but it just seems like such a hack ... not that this whole idea isn't a hack
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?
Is there a code in vba, that will return today's date (or the date of the week before, [today-7]) I need a vba code that will check a current cell - let say cell "A1", that contains a date( for exmpel: 12/7/09), and compare this date to the date last week, if the cell (A1)contains a date that is older then last week , then fill in A2 with "False", if the date in A1 is between the date of today and a week ago then fill A2 with "True". (For the exmple that I gave of course in A2 the value will be "False")
I have lots of rows of text data on sheet 1(Q2:AB139708), on sheet 2 I have a list of text (A2:A44). In sheet 1 I would like to display "1" in cell ap2 if any of the row from (Q2:AB2) contains text from the list on sheet 2(A2:A44), then I would copy this down to 139708.
View 9 Replies View RelatedI've got all the grades sorted out for the Principal, she is now looking for me to tally up all the students who got straight 'A' grades. I know there is going to be anotehr combination here but I'll start with the basics of straight 'A's
The screen below shows how the data is presented although I've slimmed down the headings to fit better.
How do I insert a formula to look at each row to see where based on the subjects taken, there are straight 'A's
************************************************************************>Microsoft Excel - Y13 & 14 Combined Worksheet.xls___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutZ6=
ABCDEFGHIJKLMNOPQRSTUVWXYZ1ArtArt*2BiologyBSChemistryD&TDramaEconomicsE.*LitFrenchGeographyHistoryH.*EconICTICT2IrishLatinMathematicsMaths*PureMusicPhysicsPoliticsPsychologyR.ESociologySpanish2********A****A**********A*3********AA*A*******A******4******A*C*****D****B******5***********B**********BAA*6*******C***D************BBSheet1*
[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
I only want then to be able to make entries between 07:45 and 08:45.
If TimeValue(Now()) > "0:745:00" And TimeValue(Now()) < "08:45:00" Then
code if OK
Else
code if not OK
MsgBox "TIME HAS EXPIRED .....SORRY."
End If
All it does is step the cursor down 1 cell from where it starts on the worksheet, rather than sorting through the defined range and then selecting the cell I want. I'm not sure why as I've used almost exactly the same code successfully on a different worksheet in the same workbook:
Dim mycheckrng as Range
myupdatedate = "04/06/2008"
Set mycheckrng = Range("D5:AR5")
For Each c In mycheckrng
If c.Value = myupdatedate Then
c.Select
End If
Next c
mycsdcdateref = ActiveCell
ActiveCell.Offset(1, 0).Select
Is there a way to check a value, that is a multiple of another value.
E.G.
say the user specifies a height of 225 and then specify laminations of 45
is there a way to check the value of 225 to ensure 45 divids into it perfectly??
and if it doesnt then gives an error message of some kind.
So if someone specifies height of 200 and lamination of 45 an error would show because 45 cant be divided into 200 perfectly.
I am just having trouble getting vba to recognize cell values. All I want it to do is if cell g2 = 5, then end sub, Else, continue. But I am so clueless that I cant even get it to recognize that what is in cell g2 is the number 5. I would think that I could just put,
If range(g & 2) = 5 Then
End Sub
Else
Resume
End If
I regularly check formula's in quotations to ensure they are working on the correct cells by cycling through each cell and pressing F2. Pressing F2 on a cell with a formula (in office 2003) draws boxes around each cell that is being referenced in the cell. This is very handy, but for large worksheets is time consuming to "F2" each cell. . . . can the F2 behaviour of highlighting cells be automated ? See attached screenshot.
View 5 Replies View RelatedI 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 am trying to compare 2 conditions to see if one or other is correct and if so out put ok if correct and wrong if incorrect i tried this formula but does not work.
IF(OR(AND(j3="UP",t3=1),(AND(j3="DOWN",t3=-1),"ok","wrong")
I want to have C9 populated with a budget type from H1, I1 or J1. How do I create the formula that checks which budget type the value in F9 is?
I am using excel very infrequently.
Screen Shot 2014-05-18 at 12.52.26.jpg
I 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.
I have a sheeet conditionally formatted so that if data is missing from certain cells, that cell turns 'red'. Is it possible to have cell A1 (for instance) report if there is a red cell anywhere on the sheet?
View 4 Replies View RelatedI've got two text boxes where users input the dates in specified format (dd/mm/yyyy). current validation checks whether one date is not earlier than the other one and it looks like this:
[Code] .....
However if they are equal which suits me I am still getting an error. don't need a calendar btw
Have created a small form with 5 checkboxes and a button on a worksheet. Want to check all checkboxes on the worksheet when the button is pressed.
However, I am getting "Run-time error '438': Object doesn't support this property or method". Enclosing the code for your reference.
[Code] .....
I am trying to check and see if column "A" has a certain number if it does not then keep going and if it does then find wich row in column "A" has that number then in the same row increase column "B" value by 1.
Dim rngPartNumber As Range
Dim Rws As Long
Dim R As Long
Set rngPartNumber = ActiveSheet.Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
Rws = rngPartNumber.Rows.Count + 1
For R = Rws To 2 Step -1
If Application.WorksheetFunction.CountA(Rows(R)) = compName Then Quantity = Quantity + 1
Next
I want add some code into a macro of mine which checks to see if J8 >20 and DA8 = "TRUE" then a msgbox appears saying "no auto margins".
View 2 Replies View Related