My problem is that i am copying values from one sheet like: 1355,588846 and 456,23589 and storing them in a array. When i want to display the array in another sheet the values come out like 1355588846 and 45623589. So in the first sheet excel recorgnises the comma as a decimal number and in the other sheet as a thousand separator. How can i change this?
My code is:
[Code] .....
I have a sheet called "interface" which people can input the date in cell A2.
The autofilter in sheet"originaldata" will filter the data according to the date in cell A2 in sheet "interface"
However, when i input the date 01 Aug 2009, the filter will give me 08 Jan 2009
VB:
Sub Date_filter()
Dim Inputdate As Date
Sheets("interface").Activate
Inputdate = Format(Sheets("interface").Range("A2").Value, "dd mmm yyyy")
[Code] ....
I'm exporting a csv file from a membership database with the attendance of members. With a macro i open the file and copy the contend to excel. With the macro the column for the date has *randomly* wrong formats. Example the date in column B:
Aasia Tallah19-03-2009 19:33
Aasia Tallah17/03/09 7:49 pm
Aasia Tallah15/03/09 7:53 pm
Aasia Tallah14/03/09 6:34 pm
Aasia Tallah03-12-2009 20:05
Aasia Tallah03-11-2009 19:56
Aasia Tallah03-10-2009 19:54
I try to change the format of the column, but that does not work. Rows 2,3 and 4 seem to be text but they are not. If i access the edit bar for example the 17th of march and store without changing anything, it changes to the format of the first row. That is how i want it. If i copy the column by hand, every thing is fine.
All of the following i tryed:
- format date column of the csv before copying... failed
- copy special with only pasting values... failed
- preformat the column i paste the date to... failed
- delete the sheet i paste to and create a new one... failed
- copy the macro to a new workbook... failed
I have cobbled together (borrowing from examples I have found online because I don't know VBA) a form which inserts a date into a spreadsheet.
The trouble I have is that this date field is in USA date format and I need UK.
If I enter 03/01/2009 into the form, it appears in the spreadsheet as 01/03/2009. I have formatted these cells to display the month only and because of the way it was entered, the next column displays MAR instead of JAN.
Can I validate the input value in a form?
Using the text to columns option on a comma separated file in csv format leads to the right preview in the text to columns wizard.
The column titled "ATTIC: Zone ..." shows the desired format in the preview window. Please look at the screenshot 1.jpg.
After pushing the finish button to obtain the result the number format gets suddenly changed and differs from the preview.
Again check for the "ATTIC: Zone ..." column as reference: 2.jpg
Is there a menu where one can look up, or specify how to format data to force the right comma placement? What settings might be wrong?
I have a VBA subroutine that builds a list of dates in an array and then copies this to the worksheet using worksheetfunction.transpose. The array is two dimensional and therefore uses the variant data type.
This works fine in Excel 2002. In Excel 2003 the array is fine until the Transpose function is used, at this point they are changed from dd/mm/yyyy to mm/dd/yyyy. This means that some dates are changed (eg: 01/Mar/2008 becomes 03/Jan/2008) and some are written as strings (eg: 17/Mar/2008 becomes the string "17/03/2008" and cannot be operated on as a date).
I'm aware that there was a hotfix to deal with a similar issue regarding recalculation but this is on Excel 2003 SP3 which should already have that hotfix in place.
I have reduced my code down to a basic demonstration showing the problem. This assumes the worksheet contains some dates in "A2:A32". I have also attached the workbook containing this code.
VB:
Private Sub CommandButton1_Click()
Dim a() As Variant, c As Integer
Redim a(1 To 31)
For c = 1 To 31
a(c) = Cells(1 + c, 1)
Next c
Range("D2:D32") = WorksheetFunction.Transpose(a)
End Sub
I have fixed this problem by looping through each element of the array and writing them individually in to cells but this is far slower so I'd like to know if there is a better solution than that.
I have a rowfilter on the location (so i can view who took the test by location nad whether or not they passed) - the only problem is that when it selects by location - it chooses the correct name, personellnum, location row but it then picks the test values ABOVE that row - not below it - so It is choosing the complete wrong values to go with the associated person -
View 14 Replies View RelatedI work with a team of users that are continually publishing reports in Word that contain charts and graphs copy and pasted from Excel into Word 2010.
We have a custom script that leverages a PDF engine to automatically convert .doc files to .PDF files that we distribute electronically to our clients. This all works great, but only if all my users select 'paste special' and Enhanced Metafile Format when adding their excel charts into our reports. Most of these people aren't tech savvy, and I'm havin ga hell of a time getting them to follow this workflow and am hoping there's a way in Office 2010 to select the default paste from excel into word when the content is a chart.
It seems like the default paste from excel is an embedded chart/graph that you can then further manipulate each component of the chart in Word; the default doesnt' paste an actual image. I am assuming the pdf renderer is using a lower resolution .PNG version of the image and when these are scaled for print and or pdf, they look like crap.
Is htere anyway I can automatically change the default paste format for the chart from excel into word to be an EMF/EMV (enhanced metafile?) Either thorugh the registry or some other saveable setting?
The below code is supposed to delete data on the last sheet of the workbook HeadsetOutTimeMay.xls however for some reason it is deleting the data on HeadsetOutTime.xls What am I doing wrong?
View 8 Replies View Relatedwith a macro. I am looking to copy row 2 to the last row and past the copied rows directly below the copied contents.
View 9 Replies View RelatedI have 4 text boxes in a user form where user type numbers. At the end i have another text box(yellow one) that adds these numbers using this code.
[Code]....
In another text box(grey one) user types another number. Then using this code
[Code] .....
I try to add the values of the two previous text boxes. I get wrong result when i use decimals numbers and i can not understand what is wrong.
Attached File : add text boxes.xlsm
I want to copy a csv file into a excel, but not all values will be copy into the Excel. Watch out for my code:
Private Sub ImportiereCSVDatei()
Dim wbTarget As Workbook
Dim wbSource As Workbook
[Code]....
dh. Zeros and values after the Column "Stand_NACH" will not be represented in the excel but the header will allways displayed
i have some columns which contain the IF function and so it returns me a value in each cell. Is there any way to copy only the values AND insert shift down the copied cells onto somehwere else?
View 3 Replies View RelatedI want cell B4 on sheet 3, to show the value of cell B4 on sheet one ... only if there is a value in B4 on sheet one then i want the rest of row 4 to be copied to sheet 3 also.
HOWEVER if the value in cell B4 sheet 1 is BLANK/EMPTY then i want the full row to be over looked and the next row to be checked (B5 all the way to B30)
Once B4-30 on Sheet 1 has been checked and only the rows showing a data/value have been copied to sheet 3, i then want the same process to start again on sheet 2 - Again only the rows showing data/values to be copied.
Below is code I have attempted. I am learning VBA and have gathered this code from the internet and this forum. I have data that is in columns B to E and from row 7 down. I want this VBA code to run when data is copied/pasted in these cells. Where the last values stop will vary so I just want to be sure this code is executed after all the data is pasted in these cells. The data will be pasted at one time. When the user removes the data from these cells, I do not want the code to run.
Private Sub Worksheet_Change(ByVal Target As Range)
'Do nothing if less than four cells are changed or content deleted
If Target.Cells.Count < 4 Or IsEmpty(Target) Then Exit Sub
[Code].....
i try to paste in active cell copied range.
I mean that i do follow:
- i select range of cell - mostly range of column f.e. A2:A500
- i click/select on any free cell (f.e. B1)
- then i run macro
i expected it paste unique values (text or number)
this dont work
i dont know how defined the range
I am trying to copy a range from one sheet and paste in another sheet via VBA.
Sheets("RECAP CURRENT YEAR").Select
Range("E:E").Copy
Sheets("FORECAST").Activate
ActiveSheet.Paste Destination:=Range("IV1").End(xlToLeft).Offset(0, 1)
Range("A1").Select
Column E has formulas (=SumB3:D3) nothing more then that. I get a #REF after the paste into the FORCAST sheet.
I would like to Paste Values and Formats.
I tried changing the code to this, with different variations:
Sheets("RECAP CURRENT YEAR").Select
Range("E:E").Copy
Sheets("FORECAST").Activate
ActiveSheet.PasteSpecial Paste:=xlPasteFormats, xlPasteValues _
Destination:=Range("IV1").End(xlToLeft).Offset(0, 1)
Range("A1").Select
But keep comming up with errors.
I have a long list of users and the hours they have accumulated over the past year of use. I have used a Conditional Format to find the top 10 users. I want to create a chart of just those 10 users so I was hoping there is a way to pull the value and cell of the users name by only pulling the cell values that show up in green.
Is there a way to have excel basically find the formatted cells and list the values? Or are there other ways to list just the top 10? These top 10 users is dynamic and can change throughout the year so the top 10 now, may not be the top 10 tomorrow.
Here is my entire excel spreadsheet... its to hard to split up since there is so much data being pulled from the HoursChart for the year tab.
Top 10 users.xlsx
Click on "Top 10 users" Tab, there you can see I have all the users listed and their hours from the sheet prior. I also have a condtional format in place on hte values.... I need a way to either pull those values into another cell or I need to chart only the cells that have the conditional format... however I need the names and the departments along with them.
Is it possible to apply a Conditional Format to the MAX Value in each Column and color the appropriate Name in ONE SHOT !? What I mean is - selecting range A2:D9 and applying a C.F. I managed to achieve that by applying two different Conditional Formats. Three separate conditions for Col. A and one condition for the remaining 3 columns (B,C,D).
View 3 Replies View RelatedThis code works great except I would like it to copy the format and values only (no formulas) to additional worksheets that are named based on a cell value. What's missing?
View 6 Replies View RelatedCell D8 contains many different account codes. When entering into this sheet, if D8 is filled using account code 4010.12, 4010.17, or 1190.1000, then I want Cell J8 to turn a different color, flagging that cell so they know they have to fill that cell in J8, otherwise that cell will remain blank.
View 2 Replies View RelatedI have a worksheet containing several tables of number values. I want to be able to take any table of values, change them to a different format, and do it using only an event trigger.
So if I have a table of integers, the next entry in that table will change everything to the new format.
Code:
Sub Worksheet_Change(ByVal Target As Range)
'Changes selected cells to MOT operation number format
If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub
'Error trap
[Code]....
how to change values in the worksheet from the beginning. What I want is to know how to change values of an existing workbook using only VBA code.
How do I change the code below so that it copy paste only the value and not the format or formula or anything else...
Code:
With Sheets("Rules")
.Cells(rw, col).Copy _
Destination:=Sheets("Entry").Range(.Cells(1, col).Value)
Application.CutCopyMode = False
I am currently using this format to display numbers within a pivot table (this put's in a comma and removes any decimal place):
_(* #,##0_);[Red]_(* (#,##0);_(* "-"??_);_(@_)
Scenario1-If the cell evaluated is 0>1 the cell displays: 0 (a black 0)
Scenario2-If the cell evaluated is 01 are insignificant and I would like them to remain as a black - so as not to draw attention to them while evaluating data within the PT.
Does anyone know of a way to display a black - in all three scenarios above short of editing the original data?
I was hoping there was a way to do this via the custom format option or within the pivot table as the data that produces the PT should remain untouched.
I've got a UserForm that contains 31 TextBoxes ( Named Text1, Text2, Text3 ... Text31). I want to format the Textboxes depending on the values stored in a Sheet - these values are stored in the first 31 rows of the Sheet and each row coresponds to only one TextBox. I need to know whether there is a way for the code to recognize that the values for the first row influance the format of the first TextBox (TextBox1), the second row influences TextBox2 and so on and so forth. The code should then set a range and assign each of the 31 rows to each of the 31 Buttons. Therefore the question - can a part of the name of a TextBox become a variable and be mached with the coresponding Row Number?
View 2 Replies View RelatedI am using a For Each Next to cycle through a list of names, check certain conditions and then will be adding a further lookup (instead of Result = Result+1), but all I get is #Value!
Function maxbarometer(Name As String, Round As Integer, NameList As Variant, RoundRange As Range, RoundRangeTwo As Range)
Dim Roundname As String
Dim Result As Double
Dim NameColRound As Integer
Dim ListObject As Variant
Roundname = "Round " & Round
NameColRound = Application.WorksheetFunction.Match(Name, RoundRange, 0)
For Each ListObject In NameList
If ListObject.Value = Name Then
Result = Result
ElseIf Application.WorksheetFunction.VLookup(ListObject.Value, RoundRange2, NameColRound, False) = Roundname Then
Result = Result + 1
End If
Next
maxbarometer = Result
End Function
In Excel I have a field which requires as 14-char alphanumerical value such as AB1D520DGFSF12
I would like Excel to format it as
AB1D5.20DG.FS.F12
How can I achieve this?
I'm trying to format the color of a certain cell, if two values match.
A1=100
B1="Choose"
I want to format B1 to color RED, if A1=any number, and B1="Choose".
B1 contains list-data where you can chose from different values.
So if A1 contains a value, and B1 has not been set a different value than "Choose", format B1 to RED. Which would indicate that you have to set a value for the rest of the worksheet to work.
i've been trying for teh last two days to figuire out a way to conditionally format the first cell in a row to turn a certain color based on the values of several independant cells in that row, as opposed to monitoring the whole row. I have tried numerous IF, AND, OR, formulas to no avail. The cell obviously also needs to ignore blank cells...Can this be done?
Basically I want the first cell to turn yellow if dates in certain cells are within 90 days of today, and turn red if within 30 days of today.......
what I am trying to do:
I have a workbook with 2 sheets.
Sheet "A" has a column called "FILEPATH" that contains the complete path to a file (eg. "C:mystuffdocumentsdocA.pdf"). There are about 3500 rows of filepaths on this sheet.
Sheet "B" has a column called "DELETED FILES" that contains a list of deleted filenames (eg. docA.pdf, docC.pdf, etc.), one filename in each cell.
I want to highlight the rows on Sheet "A" that contain a path to a file that is listed as deleted on Sheet "B".
