The attached file receives information from another program in cells A2:D2. It then carries out a copy/pastespecial, and then does a copy insert. The script is supposed to update when new data enters the cell, however it keep adding an additional null line. Does anyone know why this is or how to fix it?
View 2 Replies
I have some data in Cell A1 and B1, I want that data in combined in one cell but in diffetent lines.. For example if i have 123 in A1 and 456 in B1, I need it to show the result as below in C2
123
456
1) I work with dozen's of tabs within workbooks, adding rows (that are numbered) etc. When I'm done and want to save the file, I usually go through this routine to make sure I'm at the top of each page before closing the file:
Ctrl-Home, Ctrl-Page Up, Ctrl-Home, Ctrl-Page Up ...through all tabs.
2) I also have to "add" all the extra line numbers (by dragging the last number I had in "row A", and filling down). I need to add the newly added rows to the "print area". Any easy way to do that?
I have a really strange issue on one machine. The end-user gets Excel reports emailed to him. When he opens certain ones, there is an extra space (almost a line without borders) on certain rows. This only happens on some of the files he receives
AND
This behavior is only on his system. On all other recipients' machines the spreadsheets do not have the extra space on some rows. It does not matter if he opens the attachment within Outlook or saves and opens in Excel from the save location.
I have tried resetting the defaults and that does not work.
=IF(SUM(Q4)=0,"",MAX(0,G4-MAX(F4,Q4))/7) - to calculate number of days for year
=IF(SUM(TODAY()>G4),(G4-MAX(F4,Q4))/7,SUM(TODAY()-MAX(F4,Q4))/7) - to calculate number of days year to date
I am using this condition to calculate the length of a service which falls with in a specific review period, eg
Service starts 1 Feb 09 and finishes 30 April 09
The review period is 1 Mar 09 and finishes 31 May 09.
I would need to measure the number of days that fall within the review period, which would be 1 Mar 09 - 30 April 09
At the moment I am missing a condition which identifies whether to subtract from 'service end date' or 'review end date'.
I have recently started working on a model built by some one else and I need to add a extra row to model. The Model has lot of macros on every page. So i need to know how adding an extra row is going to affect the macros.
I understand the main problem would be that the references in the macro wont get updated which might lead the macro to malfunction.
Whats the best way to analyze which macros are getting effected.
I have a table of postcodes and I need to import them into a bespoke application. The aaplication requires them to have extra spaces depending on the postcode i.e.
BS35 2JW - this is fine because it has the maximum amount of characters 8
BS1 2JW - I need to add 1 space
B1 2JW - I need to add 2 spaces
I'm using =CONCATENATE() to create Html code.
HTML Code:
=CONCATENATE("<img class=",""""&"alignleft size-medium"&""""," ","title=",""""&D6&""""," ","src=",""""&
"http://www."&E6&"/images/"&C6&""""," ","alt=",""""&F6&""""," />")
The code looks good in the cell:
HTML Code:
<img class="alignleft size-medium" title="Image title here" src=
"http://www.mywebsite.com/images/image_name.jpg" alt="Image alt here" />
But when I copy/paste onto a txt file, its adding an extra (unnecessary) Quotation mark (see code below)
HTML Code:
<img class=""alignleft size-medium"" title=""Image title here"" src=
""http://www.mywebsite.com/images/image_name.jpg"" alt=""Image alt here"" />
i am trying to remove some duplicates in a sequence and add new cells for missing ones
View 9 Replies View RelatedI am trying to recreate the screen grab that I have copied and pasted in (purple bar chart). I am to create the bar chart, but I am unsure how to create the dotted line which is the national average.
View 3 Replies View RelatedI would like to insert a line if a cell contains something. I get it to work in a macro with this:
Code:
Sub insert()
If ActiveCell.Value = "*" Then
ActiveCell.Offset(1).EntireRow.insert
End If
End Sub
But if i want it to do this in sheet change it doing nothing
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Value = "*" Then
ActiveCell.Offset(1).EntireRow.insert
End If
End Sub
I use the Subtotal function to sum several columns during the subtotal function. I dont think I can run a subtotal doing the sums and counts. Is there any way to add the number 0f rows in each subtotal? Count? I'm not sure how to go to each blank row (subtotal line) and count/add the number 0f rows in that subtotal?
View 4 Replies View RelatedI need to add extra text line in textbox by Toggle Button or checkbox. The problem my extra line every time I select it makes extra lines
View 5 Replies View RelatedI need to be able to paste information into excel and then get excel to read the characters to 50 and then move the other info to another line and do the same command again until it has read all the data and put it in lines of 50.
View 9 Replies View RelatedI'm just trying to add the "=" operator to the below "" operators, as this line of code presently doesn't account for any numeric matches, of which I have plenty, and DO need to account for! Gosh, might someone here know how to integrate such a thing into this code?
If Range("I3") Temp Then Range("I1") = Temp
See the code below. It works fine but in the report that gets printed off, it doesn't display grid lines and line numbers .
[Code] .........
I am looking for a time saver macro,pretty easy to make i guess,as the theory is not difficult...but i am too newbie to make it. So i have an xls that has like 20k lines on Column A!And i have to seperate the numbers. I count the first 4 digits and I have to do it by adding a cell between them.
Example :
27289802
27289902
27289915
27289915
(add a null line)
27290202
27290302
27290316..................
I want to a horizontal line in a chart. There are only two figures with me. One I want to display as a column chart. The other as a horizontal line chart. (I can use both excel 2003 or 2010, whichever is suitable)
View 2 Replies View RelatedI am using the following macro to set print area which I found on the net. I am trying to modify it as I would also like to place a border line on the bottom row but cant find anything to assist me despite searching through several threads.
Dim myrange As String
With ActiveSheet.Range("A:A")
myrange = .Find(What:="*", After:=.Range("A1"), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Address
End With
ActiveSheet.PageSetup.PrintArea = "$K$1:" & myrange
End Sub
I am currently working on an excel file in which we track progress through the use of an autoshape line. Everytime the progress needs to be changed the line must manually be resized. I am using buttons with macros and trying to add a certain length to the line. So far I have been using the following
Sub line()
ActiveSheet.Shapes("AutoShape 80").Select
Selection.ShapeRange.IncrementLeft 28.5
End Sub
This code resizes the line by adding a percentage of the line length to the line. I want to be able to add the same length everytime.
I have a 97-2003 spreadsheet with approximately 22,000 lines of seperate companies. I need to know how to insert a blank line between the company names. I have been using the "Right Click - Insert" method but soon realized there must be 2000 different companies. The Company Name column is A.
View 7 Replies View RelatedI have written the following code which will use "U10" to divide by 12, & put the results on "H10.S10" if "U10 is not empty.
The results work fine except that if I delete the value in "U10", the formula "= sum($U$10/12)" will remain in H10.S10, if there any way that this formula do not remain in H10.S10?
Because this code should work from row 10 to row 47, like to ask how to write in short vba code instead of repeating the code with the need to change the row number?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("U10").value <> "" Then _
Range("H10.S10").value = "=sum($U$10/12)"
End Sub
Is it possible to have two Worksheet_SelectionChange events for the same worksheet if so how. If not what options do i have?
View 3 Replies View RelatedI found this code on one of my many searches, that works great.
(can't remember where I got it or who wrote it, (My deepest apoligies to the author))
Public pRule
Sub butRulerToggle_Click()
pRule = Not pRule
Selection.Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If pRule Then
For Each aCell In ActiveSheet.UsedRange
If aCell.Interior.ColorIndex = 27 Then aCell.Interior.ColorIndex = xlNone
Next
On Error Resume Next
For Each aCell In Application.Intersect(ActiveCell.EntireRow.Cells, ActiveSheet.UsedRange)
If aCell.Interior.ColorIndex = xlNone Then aCell.Interior.ColorIndex = 27
Next
End If
End Sub
My question:
This works in a sheet module. How can I put it in the This Workbook module so it works on all sheets.
By the way, what this does is highlight the whole row on a clik of a cell, leaving any color formating that was initially there alone.
Very useful if you are looking at say A10 and then want to look at Z10 without losing focus on the row.
I have popped the code below in the worksheet and it will not work on my machine (Vista + Office 2003). However, it works fine on my colleagues machine (XP + 2003).
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 4 Then GoTo usevalue
On Error Resume Next 'MUST reenable events...
Application.EnableEvents = False
ActiveCell.Offset(1, 1 - Target.Column).Select
Application.EnableEvents = True
usevalue:
ActiveCell.Copy 'Put value into clipboard (marching ants)
ActiveCell.Interior.ColorIndex = 36
End Sub
I have tried different code from different web sources on different fresh files. This includes the Worksheet_Activate() function.
My macro security setting are low.
Worksheet_SelectionChange(ByVal Target As Range)
from executiing each time i like to execute
Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
I have this code that will update column "AW8:AW60" when a date is entered into"z8:z60" if column"c8:c60" equals 4. It works great if the c column doesnt change if it does it doesnt recaluate. What I need it to do is if the number in "c8:c60" changes it recaulates.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim msgg As String
Dim msgg2 As String
Dim NewDate1 As Date
Dim c1 As Range
If Not Intersect(Target, Range("z8:z60")) Is Nothing Then
msgg = InputBox("Please Enter A Date..." & vbLf & vbLf & "(MM/DD/YY)")
If msgg = vbNullString Or Not IsDate(msgg) Then
MsgBox "You Did Not Enter Date!", vbCritical
With Target
I want to add a user-form on a chart, which will have check-boxes that will allow me to select series(lines) that I want see and compare in a chart. Currently my line chart has 24 series (Lines) which makes the chart very difficult to view and looks very busy. How do I add list of check-boxes that will allow me to select one or multiple lines that I want to see at a time?
View 2 Replies View RelatedWhen the next empty cell in column A is selected, add a formula in the same row, column H. I'm not sure on how to hard code this and used the offset instead. So maybe instead of offsetting, i should/could change the references? However, as it is, it also adds the formla in column H when column G is selected and data is entered. I cant recreate this with any other column though.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A5:A65000")) Is Nothing Then
If ActiveCell.Offset(-1, 0) = " r " Then
If ActiveCell.Offset(0, 7) = "" Then
ActiveCell.Offset(0, 7).Formula = "=if(RC[-1]="""","""",RC[-1]+120)"
Exit Sub
End If
End If
If ActiveCell.Offset(-1, 0) = "" Then
MsgBox "Please select the next empty cell/row!"
Exit Sub
End If
If ActiveCell.Offset(0, 7) = "" Then
ActiveCell.Offset(0, 7).Formula = "=if(RC[-1]="""","""",RC[-1]+120)"
End If
End If
End Sub
I have some code which enables new comments to be added when a user double clicks a cell, but I want to restrict this to a specific range B5:B125. How do I change the code to reflect this, and add the current Date to new comments added. Here is the first section of the code which sets the range etc...
Option Explicit
Public oldRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
Dim rng As Range
Set rng = Target(1, 1)
oldRange.Comment.Visible = False
With rng
If Not .Comment Is Nothing Then
If .Comment.Visible = False Then
.Comment.Visible = True
Else
.Comment.Visible = False
End If
End If
End With
Set oldRange = Target(1, 1)
End Sub....
