I need a macro code that will edit cells containing links similar to this one "[URL]..." by adding "/current" at the end of them. There shouldn't be any space in between. There are over a thousand of them, and I think this would save me time,
View 9 RepliesI have an excel file, where there is a section "Additional Requirements". This section is repeated like 20-25 times in the sheet and has a group of merged cells below it to enter data as shown in the picture. Issue is that majority of these "Additional Requirements" are not filled by the user. Hence maybe only 3 or 4 are filled and I have to manually delete the rest. I tried the code below, but it doesn't do anything.Running the macro just jumps the cells slowly downwards the sheet. Maybe if the macro runs 10-15 times it reads the whole code and then moves on to the next row.8-1-2014 12-43-27 PM.png What I'm trying to achieve is:
1. for the macro to find "Additional Requirements"
2. Then check the Merged cell below it (thus the offset)
3. If this cell is blank, select this cell and the cell containing "Additional Requirements"
4. Delete entire rows of these cells/delete the selection (entirerow.delete). (I read somewhere to set a variable as selection and clear it, hence ive included in the unreadable code. This wasn't working either)
put around 2000 image products into a near cells based on my currently codes.
For example i have:
A1: 0102-2000
A2: 0102-2001
A3: 0103-2002
etc..
And i have a folder with all images products looks like 0102-2000-523532523.jpg, 0102-2001-43252352.jpg, 0103-2002-5654754754745.jpg
How can i put with a macro code all these images near the above cells?
I have been working on some codes recently. As one of my code creates a word file using some values from excel. All I want is, is there any way i can create a word document a normal word document and than copy the material in vba including the codes such as font, bold, size everything?
View 4 Replies View RelatedIs there anyway I can get Cell Data to go over to a VBA variable in Word .. Ive tried googling but not coming up with much...
For example.. I have a cell with the number 10 in it... Id like that to get sent over and be assigned to a string variable "Attended" in word....
I have a column (10,000+) of customers. Some are schools. i need to know which are schools. if the customer is a school the cell contains the work "school" or "academy" or ""sch". Text-to-column cant work becasue the word could be anywhere in the cell. I need a fast way to do this. is there a simple code to find this and return the result in the adjacent cell?
View 9 Replies View RelatedI have this one query though in regards to loops.
I am trying to create a macro that can take the average of the the first 24 cells within a sheet, place the answer onto a cell in the next sheet (e.g. sheet2 in cell A1), then go back to the previous sheet, take the average of the next 24 cells within the sheet and paste the average of this new set in A2. I want to create a loop that will do this 365 times.
I have only managed to create the following code, however its only obtainning the average for the first set of 24 cells starting from B6 in sheet 1. I dont know how to use offsets that well....
VB:
Sub Oval1_Click()
For i = 1 To 365
Sheets("H1 - Riser Turret pressure").Select
Range("B4").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(Sheet1!R[2]C:R[25]C)"
Range("B4").Offset(1, 0).Select
Next i
End Sub
I wrote this code inside the excel spreadsheet itself. The code sits in BA1 to BA2000. I would then copy and paste this code to a VB module, then run it. As the data changes, the SchemeColor number changes. My question... is there a way to run write a macro in VB and have it use the code in cells BA1 to BA2000 so that I do not have to copy and paste it into the VB Module and run it? Manually running it is ok with me, but I do not want to copy and paste the code into VB each and every time.
Here is my code:
Sub Macro2_()
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(1).Select
[Code].....
I have an excel spread sheet with the page title "Main". I would like to add a macro by pushing a button and a window pops up. It will have 4 columns or 4 questions. The first question will ask what is the date? You enter date, next question asks, What is the fundamental? You enter the fundamental. Next question is what is your name? you enter name and next question is enter what you need fixed. Once you enter that and press finished, the data is then place in the spreadsheet. All rows shift down 1 spot. B2 answer is posted in B2, question 2 answer is placed in C2, question 3 answer is placed in D2 and question 4 is answered in E2.
Each time someone presses the NEW ENTRY button this window pops up asking these 4 questions. The answers are then posted in cells B2 through E2 after shifting the entire page down 1 row.
how can i do the following using VBA
making each cell in column A added to each cell in column B and the result will be in the column C
for example
c1=A1+B1
c2=A2+B2
c3=A3+B3
... etc
i know i can do that simply without vba code but I just want to use this method to implement more complex formulas .
I have codes (of three, four, or five digits) in Column A,names in column B, and names in column G.
The names in Column B and Column G are the same ones, but not in the same order, and they do not repeat exactly the same (e.g. I can have "Peter" in A10 and "Peter Jr." in A62, but not "Peter" and "Peter" again.
Each code belongs only to one name and never appears twice.
In K I want a formula that does the following:
K1: if the name in G1 is found anywhere in Column A, then bring the code that belongs to that name in G1.
(E.g.: If I have "Peter" in G1, and then "Peter" is found in B16 with the code "100" in A16, I want the code "100" of the A16, to come to K1).
I've attached a sample workbook in which there are 3 macro-buttons.
The buttons will paste a shape in the active cell. So this means the buttons themselves could be deleted and replaced with a shape.
Since locking and then protecting the cells disables the macros, how can I amend the code to make sure the buttons' cells are protected from the copying and pasting macros? Or, how do I ensure that the macros only work in A1 - E5?
I need a macro code to add and rename sheets as per data given in column "A".
ie if column A has
SBC
DFG
UY
IKJ
4 new sheets to be created with name given above (Column A). PS:- the data given in column A will not be limited to 4 rows, it ll be > or < 4.
I want to create a macro that saves my file this way:
in a folder named after B2
and
as a file named after B4n.
I am trying to have the formula =( SUMIF(S2:S125,">0",S2:S125))/(COUNTIF(S2:S125,">0")) Put into cells through vba. What I did to get the formula is typed it into an excel cell to find the average of a group of cells that do contain blank cells. The formula brought out the proper results. So all I did is put the formula into vba and changed the appropriate parts. The range will not be the same of course, but there is what I have.
ActiveCell.Formula = "=(SUMIF(" & ActiveCell.Offset(orow + 2, 0).Address & ":" & ActiveCell.Offset(-1, 0).Address & ","">0""" & "," & ActiveCell.Offset(orow + 2, 0).Address & ":" & ActiveCell.Offset(-1, 0).Address & "))/(COUNTIF(" & ActiveCell.Offset(orow + 2, 0).Address & ":" & ActiveCell.Offset(-1, 0).Address & ","">0""" & "))"
When I show a msgbox for ActiveCell.Formula (Msgbox activecell.formula), it shows me the formula as above - =(SUMIF(S2:S125,">0",S2:S125))/(COUNTIF(S2:S125,">0")) Except instead of the s:ranges, it shows $L2:$L125 (which is correct). The quotes do show up around the criteria in both the sumif and countif. I keep receiving an error. I put a msgbox err.description & ", " err.number dialog in. The error comes up as ", 0" (no quotes).
I have an excel sheet which has a macro which captures the current time in a cell with the formula =now(). What I am looking for is that once a user runs a macro and the time is inserted into that cell then that cell should be locked and cannot be changed then. If this can be done by any formula / function or VBA.
View 2 Replies View RelatedI am trying to write a code in VBA to collect data from several weekly workbooks, and list them up in a monthly workbook.
These weekly workbooks change names depending on the week, for example, we have:
Report week 1.xls
Report week 2.xls
Report week 3.xls
Report week 4.xls
Each report has the same layout, so the data I want will be in the same cells. However, as the report names change as the weeks in the year go on, I can't write the code for weeks 1-4 as they will not work with week 5 onwards!
I have found out how to chose a file of my choice using:
Sub GetImportFileName()
Dim FInfo As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
' Set up list of file filters
FInfo = "All Files (*.*),*.*"
' Display *.* by default
FilterIndex = 5 ......................
I have an excel program that is supposed to count word instances in a word document. I can't seem to find the right declaration for a word document.
For example to declare a workbook in excel its
Dim wb As Work Book
I've tried
Dim doc As Word.Document
'or
Dim doc As Word.Application
as shown in some of the forum posts, but an error user-type not defined keeps displaying.
I 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 RelatedI have the following code attached to a userform. It works perfectly (for what I need) although I know it may not be perfectly written. However it does seem to take for ever to execute considering it's just filling some cells on different worksheets. Have I missed something out or got it tied up doing something that takes a long time. If it's just a fact of life that it takes this time then I can live with it.
Private Sub UserForm_Activate()
Dim wsCB As Worksheet, wsLL As Worksheet, wsBond As Worksheet
Dim rngFound As Range
Set wsCB = Sheets("Current Bonds")
Set wsLL = Sheets("Landlords")
Set wsBond = Sheets("Bond")
TenancyStartTxt = Format(TenancyStartTxt, "dd-mmm-yy")
RnwlDteTx = Format(RnwlDteTx, "dd-mmm-yy")
Application. ScreenUpdating = False
10 MyBond = Application.InputBox("Bond number for renewal?", "Bond Number")
strFindMe = MyBond
With wsCB
Set rngData = .Range("c13:c490").......................
I'm trying to set a cell on one sheet to be equal to the product of two cells on another sheet. The problem is that one of the cells on the other page is dependent on the variable T. This is what I've got and it's giving me errors
Worksheets("Output").Range("K14").Formula = "Worksheets("Calcs").Range("D17")*worksheets("Calcs").Range("D17").Offset(10+T,0)"
When I record a macro it gives me this, but again, I need the last cell in terms of "T"
ActiveCell.FormulaR1C1 = "=Calcs!R[3]C[-7]*Calcs!R[14]C[-7]"
I have been automating reports that will be generated in word documents for every company. The baseline is that I have a excel sheet which contain the data inputs and a word template document (template with bookmarks). I have written a macro that generate the reports when the user clicks the button but found that there some reports that generates empty bookmarks since there is no data for the corresponding bookmark. I have uploaded the excel sheets that has the full data and the setup sheets. The setup sheet has the Column Number, Bookmark Name, Description. The data sheet has the data values and the code info sheet has the name of the template doc and the name of the destination folder where the reports will be generated and stored. My requirement is to delete the empty bookmark from the report named "Blackberry". where to write the macro for deleting the empty bookmarks and its sentences (whether its in excel book or word template doc)?
View 3 Replies View RelatedIf possible could someone please tell me why the below code is not calling the normal.doc macro "testy" and any solutions.
The code opens a new document, pastes the text from the clipboard and then fails to run the wanted macro.
Consider this procedure to execute a MS Word mailmerge from within Excel:
Code:
Option Explicit
Dim objword As Object
Dim odoc As Object
Dim odoc2 As Object
Dim wdsendtonewdocument As Object
Dim mypath As String
Sub merge()
[Code] ........
The application hangs on the line in red. The file name (worksheets("Frontpage").Range("B15")) exists. It hangs with periodic dialogues "Microsoft Office is waiting for another application to complete an OLE action."
I end up having to go into task manager to close the word application before I can regain Excel control again.
i need a code to open a specific word document, copy table from word into excel with a link so when the word document is changed so is the excel doc
Junior Fit Softstyle T-Shirt
Antique Cherry Red
Junior Fit Softstyle T-Shirt
Antique Cherry Red
Softstyle T-Shirt
Antique Heliconia
Softstyle T-Shirt
Antique Heliconia
Softstyle T-Shirt
Antique Heliconia
This is column a and b. Looking at b I am looking for a formula that will pull the first capital letter out of each word like ACR to create color codes.
I have a file with over 20,000 rows that contain a date (Mon~Sun), What I need to do is remove every day that contains Mon~Sat and only keep Sun, this is the code that I have come up with and is working.
Code:
Dim c As Range
Dim SrchRng
Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A" & Lastrow).End(xlUp))3
[Code]....
I'm trying to get certain Excel cells (varies by column and row) to populate different areas in a Word document. I've tried using both Word bookmarks and form fields and have defined the Excel names with the Word bookmark names as well as using Word's generic terms (Field1, Field2, etc.) with no luck. The VBA code I'm using now is for word forms and will open the Word document but seems to delete the form fields. I don't know if I'm not coding the cells correctly or what.
Sub CreateProposal()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = CreateObject("Word.Application")
' Open word document
[Code] ........
I currently have this code that allows me to print a word document on one of my drives with the click of a button in excel. I need to modify it because one of the files I want to print as well is a pdf file. how to modify it so I can do that?
Set appWrd = CreateObject("Word.Application")
Set docOpen = appWrd.Documents.Open("F:groupsdeptservCDTISA.doc")
docOpen.PrintOut
docOpen.Close
appWrd.Quit
I have many worksheets which ends with the word " data". Is there a way to delete all the data sheets at one go through VBA code.
View 3 Replies View Related