Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










VBA PasteSpecial Format & Values


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.


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
VBA For PasteSpecial Values ONLY?
I was wondering if there is some VBA code that I can put in my spreadsheet that would only allow Paste Special Values?

I want to make sure that the user can not simply cut and paste. If possible it would be nice if the user doesn't know what is going on all they need to know is that they can copy and paste.

Is there a seamless way to accomplish this?

View Replies!   View Related
PasteSpecial Format CSV From Recordset
Currently, my code involves making a connection to a db then run queries. Results from the queries goes to recordset & from the recordset copy to specified range in excel worksheet. I am trying to do an automation process.

The problem is that once the record is pasted in excel worksheet, the date column is not being recognised as date therefore excel function (vlookup) is not giving me the results in my report.

When i do a manual PasteSpecail as CSV into the worksheet from the query result, my report gets populated with data which is correct.

i've tried doing a pastespecial format:="CSV" but it doesnt work.

Is there any codes that i can use to copy from the recordset as a CSV format pastespecial??

Or any other ways that can be done?

View Replies!   View Related
Pastespecial Formulas & Formats Pastes Values
The problem: I am getting values when doing a pastespecial for formulas and formats.

Manually copying and doing a pastespecial with the mouse gives me the correct results. Below is code I got from the forum, "here", and am running in a test workbook.

Option Explicit
Sub Test2()

'
Dim rSource As Excel. Range
Dim rDestination As Excel.Range
Set rSource = ActiveSheet.Range("A1:C1")
Set rDestination = ActiveSheet.Range("A1").End(xlDown).Offset(1, 0)

rSource.Copy
rDestination.Select

Selection.PasteSpecial Paste:=xlPasteFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

Selection.PasteSpecial Paste:=xlPasteFormulas, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

Range("A1").Select

Application.CutCopyMode = False

valKill:
Set rSource = Nothing
Set rDestination = Nothing

Exit Sub

End Sub

Does anyone know why I am getting values? What do I need to do to make this paste only the formats and formulas?

View Replies!   View Related
VBA: Format Amts Into Text $ 9.99 Type Format
Need to create a set of aligned text amts from various cells...Tried Format but unable to get right combination...I've looked at many threads and most seem related to getting amt from text instead of reverse.

Cell may contain nothing or a monetary amt, negative or positive. Output needs to be in format of "$9,999.99-" or similar...with leading zeros suppressed but a min of "$ 0.00" showing, so that above/below amts with be decimal point aligned in a fixed font situation.

I've almost gotten my routine finsihed but this is last remaining obstacle.

View Replies!   View Related
Vba Code To Format Date In The Format Dd-mm-yy
I would like to format my cells containg date from any format to the format dd-mm-yy. I was doing this manually with the below function

=TEXT(YEAR(Q2),0)&"-"&(RIGHT("0"&TEXT(MONTH(Q2),0),2))&"-"&(RIGHT("0"&TEXT(DAY(Q2),0),2)).

I would like to automate this using vba. i tried a bit but doesn't get what i want. ultimately i want the date in text(dd-mm-yy) format.

View Replies!   View Related
Copy Pastespecial Loop
The following macros will:

I'm desperate for a copy paste macros that will:

1) Copy H3:H143 (141 rows) from "Sheet 1" and place this on "Sheet 2" on D4:D144 (141 rows)

2) Copy I:3:I143 (141 rows) from "Sheet 1" and place this on "Sheet 2" on I4:I144 (141 rows)

So, in essence, it will copy every single column across on "Sheet 1", but will paste every 5 columns on "Sheet 2" .

It will then loop 33 times to continually copy and paste across columns.

View Replies!   View Related
Copy PasteSpecial Not Working
I've just written a new Excel application which works fine when run on my local PC, and also when I save a copy on a central network server, and run it over the network.

However when another user who's testing it, runs it from the same network server, or on his local PC, the code trips out at the following line of ....

View Replies!   View Related
PasteSpecial Method Failed
I have a working macro that duplicates the active worksheet with values only. It basically cleans out formulas and data validation from the data. The code is:

View Replies!   View Related
Pastespecial Of Range Class Failed!
I wrote the following macro to copy some values from a master workbook to a new one. It works superb on my small test sheet but once I try to implement this on my big mastersheet I only get the "Pastespecial of range class failed" on the second pastespecial operation. Why does it work on my small test sheet and not my big master sheet?

Sub ReportGenerator()
Dim NewWorkbookFileName As String
NewWorkbookFileName = ActiveSheet.Name & " report" & " as of " & ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
'Debug.Print NewWorkbookFileName
Cells.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add xlWBATWorksheet
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("a1").Select
Application.GetSaveAsFilename (NewWorkbookFileName)
End Sub

View Replies!   View Related
Copy & PasteSpecial Failed Error
This is the code I have:

Range("A" & rr).Copy
Range(Cells(rr, 1), Cells(rr, 38)).Delete Shift:=xlUp
Range("A" & rr).Select
ActiveCell.PasteSpecial xlValues

this code, should, find a cell in row A, copy the contents, then delete the whole row, and place the contents in the cell it lands on after the deletion.

But i get a: 'PasteSpecial method of range class failed'

View Replies!   View Related
Pastespecial Method Of Range Class Failed
I have written some code to move data from one sheet to another. Since the from sheet has formulas, I use the PasteSpecial command. I have used code like this for years, and all the sudden, this starts breaking. And, here is the fun part, I run the code and it works sometimes. I never know when it will fail. It is so random. This is killing me. I have tried to create objRange object and assign them and it works sometime and fails others. Also, I tried adding the line Worksheets("Daily Dashboard"). Range ("C72").Select before the first PasteSpecial as to select the cell first before pasting. Then I get the "Select method of range class failed".
Lastly, I tried copying the code from behind a worksheet into a new module. The code is triggered by a button on the first worksheet. Still fails.

Private Sub cmdGetData_Click()
[Result1].Value = ""
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Worksheets("Calculation Sheet").Range("A39:A62").Copy
Worksheets("Daily Dashboard").Range("C72").PasteSpecial xlPasteValues
Worksheets("Calculation Sheet").Range("C39:C62").Copy
Worksheets("Daily Dashboard").Range("E72").PasteSpecial xlPasteValues

[Result1].Value = "Complete"
Application.Calculation = xlCalculationAutomatic
Sheets("Control Panel").Select
Application.ScreenUpdating = True
End Sub

View Replies!   View Related
Error :: PasteSpecial Method Of Range Class Failed
I found the following for something that I was searching for on the web.

Selection.Columns.PasteSpecial Paste:=8

My question is two fold, 1) What does the '8' mean? 2) Is there someplace that tells me what other numbers for PasteSpecial mean?

This solved a problem that I had when trying to do a PasteSpecial for Column Width. What I had been trying was the following:

Selection.PasteSpecial Paste:=xlColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

But I would get the error run time error '1004', PasteSpecial method of Range class failed.

View Replies!   View Related
PasteSpecial Error: Method Of Range Class Failed
Check Personnel Number in Data Tab with Personnel Numbers in Insert Tab. If they match copy that row from Insert Tab and paste it into the next available row in the Moves Tab.

Column Descriptions: Name, Age, Phone Number, Personnel Number, Notes

Worsheet Tabs: Data, Insert, Moves ....

View Replies!   View Related
Run-Time Error 1004 PasteSpecial Method
I am having trouble with a macro that is giving me the error Run-Time error 1004 (Paste Method of Worksheet Class Failed)

The code is

Sub getfile5()

Call getfile(2)

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

Windows("TRANS CHECKS CALENDAR.XLS").Activate
Sheets(2).Select
ActiveSheet.Paste
Range("A1").Select

' ie.Visible = False

Windows("TRANS CHECKS CALENDAR.XLS").Activate
Sheets("Main").Select
Range("A1").Select

End Sub

The macro is timing out on the ActiveSheet.Paste entry...The funny thing is that a number of us can get the macro to work and several of us are getting this error...I am thinking that it is a setting in excel that is causing this...

View Replies!   View Related
Runtime Error 1004 Pastespecial Method Of Range Class Failed
I am encountering this error when I try to run code I have written on my own machine. I am working with all unprotected sheets, and I am running Excel 2007. All of the sheet exist.

Here is my ....

View Replies!   View Related
Error 1004: Pastespecial Method Of Range Class Failed, Macro Works Sometimes
I have a macro that works by pasting formulas into cells and then pasting over them with the values produced by the formulas. It works fine for 500 iterations then crashes at this line:

View Replies!   View Related
Conditional Format IF Cell Is One Of Three Values
Cell 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 Replies!   View Related
Custom Format (insignificant Values)
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.

View Replies!   View Related
Conditional Format MAXIMUM Values
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 Replies!   View Related
Format Textboxes According To Cell Values
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 Replies!   View Related
Copy Format & Values Only To New Worksheet
This 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 Replies!   View Related
Conditional Format - Based On A Series Of Values
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".

View Replies!   View Related
VBA For Italic Format
I'm kind of new to the whole VBA stuff but I've got a feeling that what I need is possible using it:
I've got a file with lots of worksheets ("data entry", "Austria", "uk",... just as examples). On the Austria and UK sheets I've got names of companies in italics and I need them to become Regular (non-Italics) when I change the letter F into D in column E on "data entry" sheet.


View Replies!   View Related
Format Fucntion In VBA
I'm trying to use Format function in a Macro like this:

Format(2,"mmm")

In my idea, it should return "Feb", however I get "Jan"...

View Replies!   View Related
Conditional Format In VBA
Hi1Tasks23-Apr-09Inercona.Trial1
b.Trial2

Tasks23-Apr-09Enercona.Trial1b.Trial2

Disregard the First Table. I cant remove it. refer to the Second Table

This table is a Task Tracker. The Start Button Adds the Current Date in Enercon's Row C1 and the row below (C2) will automaticaly filled with color using Conditional Formating. My Question is how can I code a conditional format for Trail1 Rows. For example when Trail1 Cell is active then you click the start Button instead of Coloring D2 Cell it should Color D3 Cell.

Here is the Code in Start Button

Sub cmdStart_Click()
Dim i As Integer
Results = MsgBox("Are you working on " & ActiveCell.Value & " today ?", vbOKCancel, "")
If Results = vbOK Then

With Sheets("Sheet1")
i = .Cells(2, Columns.Count).End(xlToLeft).Column + 1
.Cells(2, i).Value = Now()
i = i + 1

End With
Else
Range("A1").Select
End If
End Sub
Regards,
Kevin

View Replies!   View Related
Compare Format In VBA
how to compare format in VBA

eg: I want to check if a particular cell has this format "MM/DD/YYYY hh:mm"


View Replies!   View Related
Format Cell Using VBA?
Is it possible to change the border and color of a cell using VBA?
Also I need to know how to change the cell's font to Bold.

View Replies!   View Related
VBA Convert Format
I have a spreadsheet that in various cells have numbers that have been been formated as text and have a leading zero and therefore displays the green flag in the corner of the cell. I want to change them to number format and clear the green flag.

using something like
Cells.ClearFormats
Cells.NumberFormat = "0.00"

doesn't seem to work. whist it shows the format as number it still leaves the green flag and the leading zero.

View Replies!   View Related
Conditionally Format First Cell Based On Values In The Row
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.......

View Replies!   View Related
Date Format Lost With Paste Special-Values
Using 26th January 2007 as an example

I have formatted a cell to show this as dd 26.

When I copy and paste it to another workbork where I needed it shown as a number it appears as 39108.

Is there an easy way to convert the Convert Date Format?

View Replies!   View Related
Format Cells Based On Values In Pivot Table
I have a pivot table and next to it I added some calculations which are based on data from the table. In my "real" file, the cells next to the PT are formatted with conditional formatting based on other values in the sheet (see attached sample file). What I now need to do is add borders to the cells in columns D:G only if the cells in B5 and downwards are not empty. I have tried doing it with conditional formatting but there are some other rules which contradict this setting.

The idea is to make the cells in columns D:G look like they are a natural extension on the PT. However, the table can grow or shrink (in length) and I want to see borders only around cells that are on the same rows as the data in column B (staring with B5). I think that whatever solution you can provide (if you can...) should be based a workbook_change event, because in my real file, the length of the table is changed whenever I select a different page of the PT.

View Replies!   View Related
Date Format In VBA Userform
I have created a user form with a date field which fills a spreadsheet cell. The spreadsheet cell is formatted to dd/mm/yy but the user form will always enter as mm/dd/yy. Does anyone know how to edit the VBA form to use the dd/mm/yy format.

View Replies!   View Related
Date Format In VBA Userforms
I have a spreadsheet with some data on it along with a button that activates a pop-up/form, which reads from a row of data and inputs it into specified textboxes on the form. All the data comes up nicely in the form, however it doesn't retain the formatting of the dates.

I have have a column title as "Issue Date", and the data in that column is dates. For example, the date would be written as follows in the actual cell "17Sep2009" (as per my custom formatting). However, when VBA reads it, and inputs it into the form, it displays it as numbers. In this case, it reads "17Sep2009" as "40073".

I also have a column that displays money info, so a cell would read "$10.00", however VBA reads it, and inputs it into the form as "10".

I can't change the formatting of the cell to text or anything, as the date formatting is beneficial to some other coding I have going on in the sheet.

I have the following code written to have VBA pull from the cells and display the info in the form:

View Replies!   View Related
VBA Data Label Format
I have a plot that shows the position of a drifting buoy in the ocean. I have created a second series that is just the most recent position of that buoy. Everyday, using VBA, I update the chart 2nd series to point to the location of the new lat and long. For this second series, which is only one point, I have data labels turned on. I replace the data label text with the date and time of that latest position. Here is my problem. I can not find a way to format the date. No matter what I try, it has the format mm/dd/yyyy hh:mm AM/PM. I really just want it to be a 24 hour clock (mm/dd/yy hhmm).

I have tried forcing the format of the variable date_of_latest_pos, I have tried changing the cell format that contains the actual date and time...

ActiveChart.SeriesCollection("Latest Position").ApplyDataLabels AutoText:=True, LegendKey:= False, ShowSeriesName:=True, ShowCategoryName:=False, ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.SeriesCollection("Latest Position").Points(1).DataLabel.Select
Selection.Characters.Text = date_of_latest_pos
Selection.AutoScaleFont = False
With Selection.Characters(Start:=1, Length:=23).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

View Replies!   View Related
Multiple Conditional Format Using VBA
Need multiple conditional format for more than 3 condition. I don't know how to write code in VBA.

View Replies!   View Related
FORMAT In VBA On User Forms
Excel 2003

VBA on user forms

View Replies!   View Related
Acheive A 0000 Format In VBA..
I want to acheive a 0000 format in VBA and cannot work it out. I want it for a user id, so it would be 0001, 0002, 0003, 0004 etc.

View Replies!   View Related
VBA Format Number With Leading Zero
I have the following script which is working fine execpt for its limited to running the loop 10 times. The macro is looking for files where the file extension could be anything between .P01 and .P99. Currently, the macro looks for file.P01 then file.P02 etc until it gets to file.P09 by increasing the value of 'i'. The trouble I am having is to get the variable 'i' to have a leading zero when the value is less than 10.

Sub rename_print_files()

Dim OldName, NewName
Dim i As Integer
Dim strResult, strOldName, strNewName As String

Range("E14").Activate ' set first file
Application.DisplayAlerts = False

View Replies!   View Related
Launching Another File Format From Vba
My company uses database software called Business Objects. At the moment few people are using the program and its reports as they can't find the key ones or workout how to run them correctly. As everyone is comfortable with excel. I am creating a series of forms to guide my users to the key reports. I like this method because it is very user friendly and I can add lots of descriptions. Unfortunately my programming knowledge is limited to excel so I can't write a standalone program as you might suggest I do.

The problem:
I want to launch the non-excel files using VBA. For example, a user will click on a "Customer" button to see a second form containing a list of customer reports. The user will then click on the button containing the name of the report they want to launch. I want the file to open. I tried using hyperlinks in an excel spreadsheet which works fine for opening the non-excel files, but it isnt nearly as user-friendly or interactive.

View Replies!   View Related
Transferring Print Format Info Via VBA
I am using VBA to copy and paste multiple sheets from one workbook to another. The workbook where the sheets are being pasted has no prior formatting. I want to transfer the *print* formats from the first to the second sheet via VBA. One key thing to note is that the print formats are constantly being changed in the first workbook. So I think I need code to "grab" the formats, then transfer them to the second workbook.

View Replies!   View Related
Open No Fixed Name (*.xls*) Format In VBA
I have open a workbook and copy the data from that workbook to another workbook.

Here the problem is workbook name is not fixed. How to oepn that workbook.
I used the belwo statement but giving error "no file name"

View Replies!   View Related
Displaying Sheet In Tabular Format Using Vba
display a sheet in the following format using excel vba ....

View Replies!   View Related
Number Format (4 Decimals Places) In VBA
I am having an issue with number format in my VBA code. The entire column of column D is format as ###.0000 (4 decimals places). There are certains cells which require zero decimal places. I am using the following bit of code, but it is not working correctly. It is still formatting the cell as 4 decimal places.

View Replies!   View Related
Format Second(Now) In Vba 2 Return Seconds In Tenths *
How do you format


Second(Now)

to display tenths, hundredths, or thousands of a second? Must be in code since it will never be applied to a cell.

View Replies!   View Related
Conditional Format (vba Loop Is The Answer)
i have 3 columns and hundreds of rows.... i first applied conditional format to the first row (A1, B1, C1) only. no problems so far as A1 has value '0' which is minimum and B1 is the highest value '200' and C1 is variable value between 200' and 0'. Im using icon sets in this one.... now i want the below rows to have the same conditional format.... how do i do that because when i select them all rows and columns and try to apply conditioanl formatting the outcome is not the same as i got previously in the first row...it somehow combines all the values rather working only on the individual row. i hope u get wat im tryin to say....

i come across a solution in my mind to give a loop in vba to do the conditional formatting each row seperately untill empty cell of column no. 4.... but doing this will obviously eat lot of memory in excel cause of each row will have a seperate conditional format.....

View Replies!   View Related
Setting Format Cell Accounting Using Vba
i am doing some calculations using vba in excel, i need to know how to set the cell format to 'accounting' in vba ?

View Replies!   View Related
Vba Give Format To A Cell- Specify A Type For It
Does anyone have any clue of a VBA function that gets a cell and Changes the type of its contense?

I have been using the Cstr function as in the next example but I dont get the result I want

hojaRES.Cells(i, 6) = CStr(hojaRES.Cells(i, 6))
If IsNumeric(hojaRES.Cells(i, 6)) Then
MsgBox "nothin changes :("
Exit For
End If
hojaRES.Cells(i, 6) = "0" & "34" & hojaRES.Cells(i, 6)

My problem is that i want to add 034 prefix to a telephone number, and as it treats the data as numeric; number 0 (before34) is deprecated

View Replies!   View Related
VBA Copy, Paste Rows And Format
I have been trying to set up this macro to copy and paste rows where a tick box is checked. The macro needs to transfer the row A:H over to sheet 2 then insent the data acording to property title either A, B, C etc. into formated tables which then feed into a bar and pie chart. I have tried posting this question up in sections hoping that i could get the bits of code i need and then work out how to do the macro but I have had no luck since my VBA skills are poor. I have attached the file

Private Sub CommandButton1_Click()
Dim lRow As Long, lRow1 As Long, lRow2 As Long
Dim Target As Range
Dim vTemp As Variant
Dim WS2 As Worksheet
Set WS2 = Sheets("Sheet2")
lRow = WS2.UsedRange.Row + WS2.UsedRange.Rows.Count
For Each Target In Range("I1", Cells(Rows.Count, "I").End(xlUp).Address).SpecialCells(xlCellTypeConstants)
vTemp = Target.Value
If VarType(vTemp) = vbBoolean Then
If vTemp = True Then
vTemp = "*"
On Error Resume Next
vTemp = WorksheetFunction.Match(" Total*", Range("A" & Target.Row, "A" & Rows.Count), 0).....................

View Replies!   View Related
Format Time From Cell In VBA Code
I am trying to insert data from an excel sheet to a sql database. Everything works okay but the Time value. In the Excel sheet it is '12:09 PM' and when it is read with 'cl. Offset(0, 6).Value' it turns it into '0.50625'. Is there a way to format it so it can be inserted as a datetime?

Dim cl As Range
For Each cl In Range("A1:A12")
stSql = "INSERT INTO GasData (Delivery,OpenPrice,High,Low,Last,Change,Time) VALUES ('" & _
cl.Value & "','" & _
cl.Offset(0, 1).Value & "','" & _
cl.Offset(0, 2).Value & "','" & _
cl.Offset(0, 3).Value & "','" & _
cl.Offset(0, 4).Value & "','" & _
cl.Offset(0, 5).Value & "','" & _
cl.Offset(0, 6).Value & "')"
cn.Execute stSql
Next

View Replies!   View Related
Copyright 2005-08 www.BigResource.com, All rights reserved