adjust the following code so that my images are just a bit lower than "top aligned"? The code centers my images perfectly within the cells, but when you top align an image, it's just a hair too high and border formatting does not come out.
View 2 RepliesIve been trying to find a way of inserting a picture into a defined merged cell. Once I insert the pic I would like it to auto size/fit into the merged cells.
I have only managed to do this by either resizing the pic's first, or running a retro macro to resize the image. Just wondering if there was an easier way?
Is there a way to name pictures when I paste them into an excel spreadsheet? I have a macro that references picture names, but they are always Picture 22 or something random. Is there a way I can name them myself so they are a bit more logical?
View 3 Replies View RelatedI have a spreadsheet I've been using for some time with hundreds of VBA macros. For some unexplained reason, is has changed all my
Selection.Copy
to
selection.copy
which then interrupts the running of the macro as it can't decipher this command.
For example, on column X, if I type 20, bob or bobafett it type 2.0 instead but on column I if I type bob, it will type 3.0
they would all be edited manually
or even better, no matter where I type it on excel, it would go in the right column, like bob X, then it would change to 2.0 and go directly in the X column
I have got the following problem. I have got a table which looks like this:
=Time!A1
=Open!A1
=max!A1
=min!A1
=Close!A1
When I mark the selected cells and scroll down using the autofill option I get this:
=Time!A1
=Open!A1
=max!A1
=min!A1
=Close!A1
=Time!A6
=Open!A6
=max!A6
=min!A6
=Close!A6
Why does it give A6? I want A2 instead of A6 because I want to create a table from A1 to A500 but without these jumps from A1 to A6.
1 is a Master sheets with all prices of products etc etc.
2nd sheet is an update of all products that have changed in price.
There is a unique code for each product.
What i was hoping for is a way where on the second sheet the product (using the unique codes assigned to the product) is looked up on the master sheet and the NEW price on the 2nd sheet replaces the OLD price on the Master sheet?
I'm working on a time sheet, and to make it easier to enter time i created a macro that sets the auto correct to correct a "." to a ":", but when the workbook closes i want to run a macro that deletes the auto correct rule.
I have an workbook with pictures that are linked to external picture files, and they are placed in the workbook via macro. When I email the file to another computer and open it, the pics do not display and show an error:
The linked image cannot be displayed. The file may have been moved, renamed, or deleted, Verify that the link points to the correct file and location.
I would like to be able to save the workbook with the pictures in them (without having to archive them) so that I can open it and see them on another machine.
I have many shortcut words to make full name using Auto Correct option under Proofing
I am using this code to make force range in Uppercase
[Code] ....
But when i put a auto correction value in small case "ip" {like ( IP = IRFAN PAT )}
Then the cell value is going in uppercase "IP" but auto correction is not working
I want ..if i type in range "ip" result shoul be (" IRFAN PAT ") not "IP"
I have a macro which copies one cell into another on a different sheet, provided it has content.
I want to change it so that it copies to the different sheet but puts the value in the correct row of the other sheet.
For instance sheet 2, A1 =TEST, A2= TEST2, A3= TEST3
Sheet1. B7 = TEST2, A15= This is a test
I want the macro to copy the value in A15 and copy it to B2 on Sheet2, as this is the matching row
This is what I had originally:
VB:
If Range("A15") = "" Then
Exit Sub
Else
Range("A15").Select
Selection.Copy
[Code .....
I want to create a macro that will copy and paste a couple seperate collumns but the problem is that each month, and each invoice, contain a different amount of rows so I can't "record" a macro. Lets say I start on A4 which is the heading of Column D..below it are a bunch of records at the end of the records is a space. I need it to stop there. Then do the same for Column G, I, etc. I would like it to copy each column and paste in a new workbook.
View 9 Replies View Related1st: when a cell = claim* I need to remove formatting (pattern fill) and then need to recenter and reset font size.
2nd: CHAR(10) does not work for me in a range("A20).value=range("A20").value & date cell & " - " & additional info & CHAR(10)
Every time I copy and paste a small object "jpg" or "png" into a cell it defauts in the cell to the left and top edge s of the cell. I would like the object to be centered in the cell. I can drag the object to "Close to Center", but I have green and red go/no go dots in 120 cell going downward I would would really like to see them aligned.
View 7 Replies View RelatedI have a basic data table with KPI labels down one side and dates across the top. Using this data table as the series source, I create a number of charts below it with serialised names eg Chart0, Chart1, Chart2, etc. I am attempting to enable the KPI labels so that when a user clicks it, the spreadsheet will navigate to the appropriate chart. I place the name value for the chart object in the cell immediataly to the left of each KPI label (and hide it). This way I know which chart object below is related to which KPI label above. That part works.
I have a Worksheet_SelectionChange() event procedure attached to the charting worksheet. When a user clicks into one of the KPI labels, the event procedure fires and the appropriate chart is activated. The code is:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B5:B19")) Is Nothing Then
On Error Resume Next
chtObjName = Range(Target.Address).Offset(0, -1).Range("A1").Value
If Left(chtObjName, 5) = "Chart" Then
ActiveSheet.ChartObjects(chtObjName).Select
If Err.Number <> 0 Then
MsgBox "No such chart exists.", vbCritical, _
"Chart Not Found"
End If
End If
On Error Goto 0
End If
End Sub
I have searched high and low and cannot seem to find an answer. I have inserted an ActiveX button in a cell to run 3 macros when pressed. I cannot get the 4-letter name on the button to appear centered on the button, unless I make the button larger than the cell, which I do not want to do.
View 4 Replies View RelatedWhat is the syntax for centering in the screen whatever cell a value has been changed in or needs the users attention?
View 9 Replies View RelatedI am new to VBA & not sure of the full understanding of code copied from a workbook which worked on the same principle but with Monthly (12) tabs. I thought if modified to show weeks, the macro would be able to locate the current week tab & day/date within - but upon opening, the cell stops at WK19 & column O - rather than WK43, Column N (which changes daily).
Sub Auto_Open()
week(1) = "WK1"
week(2) = "WK2"
week(3) = "WK3"
week(4) = "WK4"
week(5) = "WK5"
week(6) = "WK6"
week(7) = "WK7"
week(8) = "WK8"
week(9) = "WK9"
week(10) = "WK10"
week(11) = "WK11"
week(12) = "WK12"
week(13) = "WK13"
week(14) = "WK14"
week(15) = "WK15"
week(16) = "WK16"
week(17) = "WK17"
week(18) = "WK18"
week(19) = "WK19"
week(20) = "WK20"
week(21) = "WK21"
week(22) = "WK22"
week(23) = "WK23"
week(24) = "WK24"......................................
I'm trying to create a formula that will added the correct amount in the correct cells, I have create a dunny sheet in trying to achieve this. If Cell B8:B11 = ABS or Dum that any points won should be added to Cell L8:L11 right now its adding it into K8:K11. If Cell B8:B11 = is Blank any player points should be added to cells K8:K11. I'm using this formula throughout cells K8:K28 =IF(J8>J25,1,IF(AND(J8<>0,J8=J25),0.5,0)) Any thing in red is incorrect anything in blue is what I'm trying to achieve.
View 4 Replies View RelatedWe receive about 20 sales files of several hundred lines of data each day from various agencies. I want to create a macro / VBA code which checks that the data submitted is correct so that we can upload it into our database without import errors and / or having to manually check each line of data.
I envisage something like an output report:
#####################
149 entries
Column A - Date - OK
Column B - Customer_Phone - Errors (Should be 11 digits)
Row 21 - Customer_Phone - Error (Not 11 digits)
Row 108 - Customer_Phone - Error (Contains letters)
Column C - Outcome - OK
Please correct and re-check.
#####################
I have a table with 3 columns of dates and then a column with Set # that I
feel in the box #.
I need to see how many items processed for each set per day.
Example:
[url]
The problem is that it counts the correct amount but not with the correct
dates.
The formula that I use is:
=SUMPRODUCT(--($I$3:$I$8<>"")*(($C$3:$C$8=39601)+AND($E$3:$E$8=39601)+AND($G$3:$G$8=39601)))
I am trying to create a macro to automatically copy and paste values from column M into column N.
Column M is a Concatenated formula, and I want people to be able to copy the result easily without having to do any copy+"paste values" themselves.
So I have the following:
Sub CopyFormulaResults()
Application.OnTime Now() + TimeValue("00:00:01"), "CopyFormulaResults"
Range("M3:M1000").Select
[Code]....
However, the macro only runs when I run the macro, not automatically every second like I want it too.
Is it possible to disable the auto filling, when copy/pasting formulas?
I have a range of formulas, which I want to copy/paste, and I want the pasted formulas to be the exact same as the copied.
Is this possible? I would prefer not having to use $ on all formulas.
I'm running Excel 2003 and I have a workbook with an Auto List in Column G. When I attempt to paste a row of data I get the following message.
The operation is not allowed. the operation is attempting to shift cells in a list on your worksheet.
To work around this, I have to convert the list to a range, copy the data and then reapply the Auto List.
Is there another way to work around this or will I have to create vba code or record a macro?
I have a working macro where I use a Forms Command Button w/ a Macro that copy/paste specific variables and range in the workbook to a pre-defined PowerPoint template file (in the same directory as the workbook file). See code below: Questions:
1) Is there a better script to reference a value in a cell value in Excel and Paste in PPT template?
2) Is there away to auto scale the copy range from Excel to PPt? Curently I have to manually adjust the height/width parameters.
I have a workbook with a number of worksheets which is used to produce the information for an estimate.
I then copy and paste different cells or group of cells into a word document to send to the customer.
Is there a Macro which could do this automatically
I've a workbook with a couple of worksheets in it, where one worksheet has a column of data where I want to link the data into a row on another worksheet, however I'm having challenges and really can't work it out.
I can drag the formula as it just copies to a row - I've tried transposing it but it goes to totally different cells which I don't know why.
I have the following code that copies only the visible cells in an auto filter...how could I modify this code to paste only the values and not the format?
.Range("a:a").AutoFilter Field:=1, Criteria1:="True"
.Range("b:d,g:r").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("Monthly Hours").Range("A1")
I am running a auto filter macro to I need to change it to only copy column A:B and past in column C:D in the sheet called "Diary". How to change my current macro to only select column A:B and paste it. It is currently pasting the entire row.
Here is the part of my code:
[Code] .....
I am looking for a macro that will copy the text-based contents of a random cell in the range B100:B135 to a callout text box. The name of the callout is Autoshape 13. The callout should be cleared before pasting the contents of the next random cell into it. This macro will be assigned to a button.
View 5 Replies View Related