Combining Code..?
Jun 11, 2009I have two different bits of code as follows:
View 3 Replies
ADVERTISEMENT
Combining Two Lines Of Code
Jun 14, 2007I have two lines of code which I want to consolidate into 1. for example
Sheets("Snapshot").Select
Range("A1").Select
I've tried combining but get errors.
can they be combined
Convert Formula To Macro Code (combining Data From Two Cells)
Jul 28, 2009I received assistance from NBVC for combining data from two cells. Post http://www.excelforum.com/showthread.php?p=2135144. I need to convert the formula into macro code. I thought I would be able to convert it on my own, but running into some troubles with run time errors. Here is the Excel formula, which is working fine.
View 5 Replies View Related2002 Code V 97 Code: Add A Small Workbook Open Event Code Which Works For Me But Debugs For The Others
Jan 27, 2009I use excel 2002 but some of my office are on 97, i want to add a small workbook open event code which works for me but debugs for the others?? The code is basically, go to a tab, on that tab and that range sort..
View 2 Replies View RelatedCracked Vb Code: Prevent People From Accesing The Code I Protected The Code Blocking It From Visualization
Feb 8, 2007I've developed a little software using Excel Macros & VB. To prevent people from accesing the code I protected the code blocking it from visualization. It seems not enough as an acquaintance of a friend cracked it in 25 minutes. Or so he says. So I'd like to know if there is a better way to protect the font code.
View 8 Replies View RelatedCombining IF, AND, OR.....
Jan 7, 2009I have some code where I use and statements, as follows:
View 4 Replies View RelatedCombining IF And IS
Jan 14, 2007I want to see if a goal has been met and get a "Yes" or "No" so I wrote
=If(A1>=A2),"Yes","No"
But on months not worked where goal and production both equal 0 then I am getting a return of Yes. How can I say is A1 >= to A2, but if both are 0 return N/A?
Combining AND And OR
Apr 20, 2009I am having problems combining AND and OR into a single statement. To start I have a statement =IF(AND(B978="P",R978=0,S978=0),"processed",""). If B=P and R=blank and S=blank then display PROCEED else make blank.
What I want to do is check if S is blank or "N" but when I try to add an OR I get error messages regarding missings )'s =IF(AND(B978="P",R978=0,OR(S978=0,S978="N"),"processed","").
Combining Two VBA Together
Oct 11, 2012I have two vba the first one records the date & time of a cell change in column a and places this in column b
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Target.Offset(0, 1) = Date & " " & Time
End If
End Sub
The second one is a function to get the User logged in to windows.
Function UNameWindows() As String
UNameWindows = Environ("USERNAME")
End Function
What I really could do with is a way of incorporating the user name in the first function so it records date, time and user?
Combining First & Last Name
Sep 20, 2006I have two seperate columns, First Name (Column B) and Last Name (Column C). Is there a way a macro can combine the two into one cell Last Name, First Name.
View 3 Replies View RelatedUDF - Combining VLookups
Dec 17, 2012I am trying to write a UDF function where I lookup if a value is on a range on different sheet. I would like to be able to write what I want the result to be in the function. I also hard coded that the function need 3 range and 3 results, but I know it is possible the make the number of component vary depending on what the user writes. I would like my function to do that.
Here is what I have written so far :
VB:
Function find_para2(var As String, rng As Range, result1 As String, rng2 As Range, result2 As String, rng3 As Range, result3 As String)
If WorksheetFunction.IsNA(WorksheetFunction.VLookup(var, rng.Address, 1, False)) = False Then
find_para = find_para & result1 & ", "
[Code] .....
Combining If And Lookup
Jan 31, 2009I need to find a formula to show the time allowed for each person, now they recomend combining 'if' with 'lookup'. now I may be having a blonde moment but I have tried to figure it out for a while now and i am stuck.
View 14 Replies View RelatedCombining Two Columns Into One
Feb 27, 2009Trying to combine Column A (First Name) with Column B (Last Name) Probably very simple.!
View 2 Replies View RelatedCombining Several Rows In One
Jan 16, 2014I have a big amount of data and want to consolidate it.
I have identical text in Columns 1,3 and 4, but the text in Column 2 is different for all.
How do I make 1 row instead of 3 with Column 2 consolidated?
See the attachment : Excel_list.xlsx
Combining Records Together
Oct 25, 2008I have a problem in excel that is very urgent to resolve. I have a table that contains duplicate records e.g two people living at same address. I want to merge those records whose address field value is same. Find attached an excel sheet that contains the exact data and the exact output that I want. I know it requires VBA coding.
View 4 Replies View RelatedCombining =REPT And =INT
Oct 29, 2008ok - I have numbers that need to be converted to 12-digit numbers with leading zeros if they are less than twelve digits. for example, 1234567 would turn into 000001234567 to have 12 digits. to do this, i use:
=rept(0,12-LEN(A1))&A1
additionally, i need to strip off the last three digits and replace them with three zeros. my example would now become 000001234000. assuming the result of my first formula (above) is in cell B1, i would use:
=INT(B1/1000)&"000"
Is there a way to combine these two functions into one formula to make this conversion process more painless? Or is there another formula/function I can use that I haven't thought of or do not know?
Combining IF Statements With Max Value?
Nov 26, 2011I'm having a mental block here. I need the below statement to have a max value of (B14*B4) in the instance where
(B17-B19)*0.7 exceeds (B14*B4),
IF(B17-B19
Combining 2 Macros Into 1
Mar 25, 2013I got 2 macros that I want to run in one go. So to explain:
Here is the data of Sheet1 before the macro is run:
A
B
C
D
E
[Code]....
Keep in mind, when Macro2 is run it puts the data on Column W then X then Y etc as soon as the Column reaches 20 it moves on to the next one.
So my question is:
Is there anyway to combine both macros to just run it once instead of running it individually?
Combining 2 Codes Into 1
Jun 9, 2013Just starting to learn VBA. I have the 2 following codes.Can they be combined into 1 code.I have 2 buttons one say hide rows and the other button says unhide rows....can 1 button be used and when the rows are visible the button says hide rows and when the rows are hidden the button says unhide rows
Sub hiderows()
ThisWorkbook.Sheets("sheet1").Rows("3:12").Hidden = True
End Sub
Sub unhiderows()
ThisWorkbook.Sheets("sheet1").Rows("3:12").Hidden = False
End Sub
Combining Two Subs Into One
May 20, 2014I have two subs which I've been trying to combine into one. Essentially all that is changing is the slicer name and range value.
Here's what I have:
Code:
Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)
Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.SlicerCaches("Slicer_Project_Type3")
Dim sItem As Excel.SlicerItem
Dim myString As String
For Each sItem In cache.SlicerItems
If sItem.Selected = True Then
myString = myString & "," & sItem.Name
[code].....
But it's erroring out on me.
Combining 2 VBA Formulas Into 1?
Jul 22, 2014how to combine these two codes into one?
Code:
Sub DelTemp()
Dim LR As Long, i As Long
Dim pt As PivotTable
[Code].....
Combining Two Macros To Run As One
Jan 12, 2007I have two macros that I need to run as one and I am not sure how to call the second macro from within the first. I'm sure it's easy...If you know how... Thank you in advance.
--------------------------------------
macro 1
Sub PrintUsedRange()
'
Dim ws As Worksheet
'
For Each ws In Worksheets
Application.CutCopyMode = False
ws.PageSetup.PrintArea = ws.UsedRange.Address
With ws.PageSetup
.Zoom = False
.CenterHorizontally = True
.Orientation = xlPortrait
.FitToPagesWide = False
.FitToPagesTall = 1
End With
Next ws
ActiveWorkbook.PrintOut............
VBA Combining Worksheets ...
Aug 21, 2007Four worksheets (A,B,C,D) all begin with row2 and end with the last non-blank cell.
What VBA code would merge the information from the four worksheets to Worksheet E?
Combining COUNTIF, RIGHT, <
Jan 10, 2008Excel 2007
I am trying to count how many cells have the last 2 digits of 84 or less. I tried this formula, but it is not working.
=COUNTIF(RIGHT(H4:H129,2),"
Combining Multpile IFs
Jul 15, 2008Individually these formulas work - is there anyway I can combine them into one formula in one cell so the will look at the month and then perform SUM function?
=IF(I$2="apr",SUM(SUMIF('Raw Data'!$A$1:$A$64773,$A$1,'Raw Data'!D1:D64773),SUMIF('Raw Data'!$A$1:$A$64773,$A$74,'Raw Data'!D1:D64773),SUMIF('Raw Data'!$A$1:$A$64773,$A$75,'Raw Data'!D1:D64773),SUMIF('Raw Data'!$A$1:$A$64773,$A$76,'Raw Data'!D1:D64773),SUMIF('Raw Data'!$A$1:$A$64773,$A$77,'Raw Data'!D1:D64773),SUMIF('Raw Data'!$A$1:$A$64773,$A$78,'Raw Data'!D1:D64773)),"X")
Etc for all 12 months?
Combining Columns
Aug 28, 2008I have monthly reports that come to us from a Data Warehouse. They vary in size(row length). The problem is that the information in one column actually belongs in the next column (i.e. C to D). As this information in Column C is just an "offset" from Column D there is no issue with overwriting any data in column D. Manually, I could copy the columm and Paste Special, Skip Blanks, to column D.
I've been trying to do this in code as some reports can be fairly lengthy: As there are some blank rows, I've inserted this FinalRow procedure, to provide the size of each report:
FinalRow = ActiveSheet.UsedRange.Rows.Count + _
ActiveSheet.UsedRange.Rows(1).Row - 1
However, in trying to use the FinalRow value in a "Copy the contents from Column C....Cells(20,3 to FinalRow, 3) and then PasteSpecial to Column D (Operation:=xlNone, SkipBlanks:=True) has not been productive. It keeps producing a number of Errors, in every way that I have tried to make this work.
Combining 3 Macros
Sep 26, 2008I would like to combine the following 3 macros into one macro. Try as I might, I can not figure out how to do it?
Sub DeleteEmptyRows()
Dim Counter
Dim i As Integer
Counter = 5000
ActiveCell.Select
For i = 1 To Counter
If ActiveCell = "" Then
Selection.EntireRow.Delete
Counter = Counter - 1
Else
ActiveCell.Offset(1, 0).Select
End If...................................
Combining 3 Or If Then Statements
Sep 29, 2008I am trying to combine all 3 of these statements in a formula and the syntax seems to keep tripping me up:
=IF(AND(G27=" ", M23=0), " ")
=IF(AND(G28=" ", M23>0), F28+$M$23, " ")
=IF(G29=" ", " ", IF(G29>0, M23>0, G29+M23))
Basically, If M23 = 0, I need the cell to remain blank. But if M23>0 then the 2nd and 3rd formulas need to apply.
Combining Two Or More Cells
Sep 28, 2009I know a simple formula would 'almost' do what i want...but i was hoping for a simple feature....
i have several text cells that i want to combine into one cell.....
so a formula like =A1&B1&C1.... would work fine....but is there anyway to present this data a little fancier? for example separating each cell entry after a "break" or something....
Combining The Rows
Jan 19, 2007I've attached a spreadsheet with a simplified example of my situation. Notes appear at the far right to explain my desired result. I've read through lots of posts on the forum but haven't yet found anything to mimic.
I'm building a calendar to display promotion activity by week for multiple customers and multiple products. The source data only lists one event per row, so the current result is not as concise I know it could be. I end up with twleve different rows for customers with activity each month on the same product, where I'd like to see just one row with all activity for the year.
Can anyone assist with either VBA or a formulaic solution? I've tried a few things with if/and statements followed by a concatenation of previous rows, but this seems like it will not have the intelligence to calculate only rows that match, I keep coming up short. Can OFFEST be used in some way?