I managed to write my script with pretty much the info I could find on the forums (yes!) but I need to write my data to the last row. Columns A - D of the last row will be populated with the content of my variables. This little snipped gives me the first empty row:
View 5 Replies
I want to write the following worksheet function in VBA. In cell B1 : =IF(OR(A1={1,2,3,4,5,6,7,8,9,0}),"Yes","No").
View 3 Replies View RelatedHow do I write a sub to prevent all changes to a worksheet?
This is part of my thinking in covering all possible mishaps that could occur when working with sheet movement. If I could somehow introduce an active protection on either my Sheets(1) or Sheets("Main"), then I could prevent accidental writing to or removal of said sheet.
I want to know how to make a spreadsheet automatically control the zoom of a worksheet depending on the size of the screen it is opened on. For example, if it is opened on a screen of a certain size then it will set the zoom to 80% so the worksheet will show only a certain section. I want my worksheets to look the same on even the larger screens and not show the unused rows and columns around the section I am wanting to highlight.
In a previous thread I was told I might need to write an API to help me with achieving this. First of all, what is an API? Secondly, how do I go about writing one?
I have two userforms. The 1st is called “add a facility” and the second is called “Edit Facility”.
The first userform works pretty well. It places all the data in the right columns in the first empty row at the end of the table. Then the “sort” procedure places the “new” facility data in the right category. Everything is good there. Here's the code.
Private Sub CmndInput_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Facilities")
' find first empty row in database
iRow = ws. Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
'check for a Facility
If Trim(Me.TextFacility.Value) = "" Then
Me.TextFacility.SetFocus
MsgBox "Please enter a Facility"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.ListBox1.Value
ws.Cells(iRow, 5).Value = Me.TextFacility.Value
ws.Cells(iRow, 4).Value = Me.ListBox2.Value
ws.Cells(iRow, 6).Value = Me.TextType.Value
ws.Cells(iRow, 7).Value = Me.ListBox3.Value
ws.Cells(iRow, 12).Value = Me.TextConstneed.Value
ws.Cells(iRow, 16).Value = Me.TextPREAPP.Value
ws.Cells(iRow, 17).Value = Me.TextPreapsub.Value
ws.Cells(iRow, 3).Value = Me.TextDescription.Value
ws.Cells(iRow, 8).Value = Me.ListBox4.Value
ws.Cells(iRow, 9).Value = Me.ListBox5.Value
ws.Cells(iRow, 2).Value = Me.txtRefnum.Value
ws.Cells(iRow, 21).Value = Me.txtappdate.Value
ws.Cells(iRow, 24).Value = Me.ListBox6.Value
ws.Cells(iRow, 20).Value = Me.txtsubdate.Value
ws.Cells(iRow, 10).Value = Me.ListBox7.Value
' SORT Macro...
how to write a macro, which in turn write some VBA code in a worksheet?
View 4 Replies View RelatedI'm trying to protect a worksheet with a password using macro.
View 9 Replies View RelatedI am trying to write the contents of a worksheet to a notepad file. Also, the worksheet has some hidden columns.
I am trying to write a macro that will insert a formula directly into the cells in column M of my worksheet.
The worksheet has about 3400 rows. When I run the macro it does not adjust the cell reference in the formula so I am getting the same value in all 3400 rows.
I am using the following ....
I have two combo boxes which are named as AREA and BRANCHES. AREA makes me choose from Math, Science, History. The result of AREA populates BRANCHES. example: if I choose Math in AREA, BRANCHES will make me choose from Algebra, Calculus, Trigonometry.
Based from the choice made, all the data that I will put in my userform will go to the corresponding worksheet. example: if I choose Math in AREA and Algebra in BRANCHES, my data will go to a worksheet which has a name of MathAlgebra. If I choose Math in AREA and Calculus in BRANCHES, my data will go to a worksheet which has a name of MathCalulus
Given a named range ,e.g., "myRange" how do I know the worksheet name it belongs to?
View 4 Replies View RelatedI am having trouble writing a macro that checks the value of an option button to change a string accordingly. The ActiveMonth variable is used to copy information across from one work sheet to another, with the worksheet depending on which of the option buttons is selected.
Static ActiveMonth As String
I have written a small piece of code that handles clicks on buttons on an excel spread sheet. When a button is pressed, i need to know the row number where the button resides in.
I have searched and read about this issue on several forums, and they all indicate that i need to use something like
application.caller.topleftcell.row
to get the row number and
application.caller.topleftcell.column
to get the column number.
However, when i use the row variant, it ALWAYS returns row number 1. When i use the column variant, it returns the column number it is actually in.
i have added the full code that is creating the buttons below, and also the part that displayes the rownumber that is incorrect.
Private Sub Workbook_Open()
Dim name
Dim time As Integer
time = InputBox("Typ the hour you are checking" & vbCrLf & "eg: 7, 10, 13, 14, 15, 16, 17, 18, 19", "Which Check")
When I click on a commandbutton20 on sheet1 it moves the user from sheet1 to sheet2, hides some columns & formats the height of a row in a range of cells I will refer to as Area X. On sheet 2 I have a target condition that if the user clicks on any part of Area X it move the cursor to cell C8. What I want to accomplish is that if commandbutton20 in clicked, the target condition is suspended. otherwise the target condition works. The code I wrote is as follows. What happens when I press F5 to execute it... a macro window pops up.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1:x3,e4:x6")) Is Nothing Then
If Worksheets(1).CommandButton20_Click() = True Then
Exit Sub
Else: Range("c8").Select
End If
End If
End Sub
I'm wondering if an if then else function can be written for the problem that I'm having? Or is there a better way to accomplish this? I've detailed my problem within the example attached.
View 3 Replies View RelatedI have a question, that could be answered by the experts in this forum. Question: I need to write the letter "E" in the second column (B) when I find that any cell in a row is in orange color (color 44). The code I wrote:
View 3 Replies View RelatedI basicaly need to look down column Q8 to Q52 for the falue "C19"
If that value is present - Then I need to look up the value of associated
with what is in its respective cell in column O8 to O52.
Then add them all together.
I have the formula that follows and it works, however it is huge. I have to repeat the IF,Vlookup 44 times. Just wondering if there is a better way.
Here is the formula I am using.
=SUM((IF(Q8="C19",(VLOOKUP(O8,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q9="C19",(VLOOKUP(O9,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q10="C19",(VLOOKUP(O10,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q11="C19",(VLOOKUP(O11,clusterequipmentvalues,2,FALSE)),0)),
(IF(Q12="C19",(VLOOKUP(O12,clusterequipmentvalues,2,FALSE)),0)),
.... all the way to C52.
I have a checkbox that hides a range of columns when deselected and unhides the range when checked. I also want the code to write a value (1) to a cell when hidden and change the value to another value (0) when unhidden.
The range is hidden and unhidden perfectly, but the value "1" is written and doesn't change regardless of whether it is hidden/unhidden. (the value flicks momentarily to "0" when unchecking).
Code:
Private Sub cbTermPrev1_Click()
If cbTermPrev1.Value = True Then Range("Term_Prev1").EntireColumn.Hidden = False
Range("HiddenValPrev1").Value = 0
If cbTermPrev1.Value = False Then Range("Term_Prev1").EntireColumn.Hidden = True
Range("HiddenValPrev1").Value = 1
End Sub
Write a formula with a cap of 125%
A
B
C
D
1
x
y
z
2
Commission
1000
1000
500
[Code] .......
How to write the formula to know how much commission with be paid out for x,y,z?
Excel is a new program for me sorry to say it but i have been try to figure out how to write a schedule on it and tally the hours for each employee i have them set up in rows right now and i hope i can keep it that way but i am tired of add hours up for each employee every week i'm sure it is really easy but can some one let me in no the little secret
View 9 Replies View RelatedI recived the small job of making a template for my company for travel. I had spare time so I added in a feature so they can just e-mail it to the approite person from clicking a command button intead of taking the time to click the built in excel e-mail function and typing the addresse.
Anyway, this from tells the person who it is being e-mail to, what flights to book.
I have differnt command buttons to bring up differnt airline webpages, bascially a hyperlink but in command button form. Is there a way, just because i have time, to take the flying dates from excel, input them into the webpage which the command brings up, and search for the flights for that date, just by clicking a button in excel?
I am using excel VB for the little code I have
i have accumulated a lot of data on an excel sheet now i need to be able to run 2 reports that will spit out the data in a specific way but i have no clue but i have made a word document to show how i would like it to spit out
View 9 Replies View Relatedneed to write this forwula for excel 1000((value from cell)+.256)=(((x+.314)1000)+9)1.0625. I would like to plug in a value from a cell and find the comparative value x. I am comparing the airfregiht cost between two carriers that have different surcharges for fuel, secuirty, and tax. One has no security or tax.
View 4 Replies View RelatedI am having some trouble setting up an excel spreadsheet. I dont know alot about this kind of thing so if it comes out confusing i apologise.
what i need to do is the following:
1. I need to have a cell which holds a range of data for example between 7.5 and 7.99, then the next cell 8.0-8.49 etc. How would I go about doing this?
2. I then have 2 tables side by side. on the first table i want to be able to write a number in, say 7.6, and once i enter this number i need in the second table for it to have sorted which of the above fields it fits into. I know you can have colours for each field, and that is the way i would identify which data range it fell into.
I need to have the counter to count every row consecutively, but to write the consecutive number in the first cell in every fifth row.
F.e. A$1$ should have the number 1 but A$6$ should have the number 2 and so on.
I was given the code below which works for "sheet1",but when adapted it to write to sheet repairs as well, nothing writes to sheet "repairs", have tried different codes that works writing to 1 sheet , but am having trouble writing to both sheets from a macro,i know it can be done
[Code] .....
I have one cell that contains a function. Sometimes I want to change the value in the cell because the value is used in another function in the sheet.
The problem is that I want the function to reapear in the cell when I press the deletebutton.
Exampel:
1. Cell A1 contains this function.
=Sumproduct((part_number>100)*(Price>10);Stockvalue)
This returns a value that is used in other cells in the sheet.
2. Now I want to try what happens in the other cells if the value in cell A1 is changed.
I select cell A1 and writes the new value that I want to test.
3. If I want the function back I simply should select cell A1 again and press delete.
4. A VBA macro now writes the original formula back into Cell A1.
Is there a more convenient way to write something like this:
View 2 Replies View RelatedOk I have these ini files for a access control system. We have 40 different systems. All on different databases. that look like the following: ...
View 6 Replies View RelatedI'm trying to learn VBA programming (I started some years ago already, but felt it was a bit too difficult for me) and I would like to ask two (perhaps very basic) questions:
1 - Can someone give me a code which does the following : In A1 I have a string : "This is a test." I want it in rewritten in column C1-4 as follows :
C1 This
C2 is
C3 a
C4 test.
2 - A code which does the following : In A1 I have a word : "Testing"
I want it this word as split up in 1 character/cell as follows :
C1 T
C2 e
C3 s
C4 t
C5 i
C6 n
C7 g
