Convert Time Column to Text

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ Excel Programming
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Limit open dialog to certain directory I'm trying to understand how to use the open windows dialog command to open a certain directory - BUT limit the user to only selecting files to open out of that directory. Possible? Tag: Convert Time Column to Text Tag: 968823
  - 2
    - Pass a variable to a different sub I have a 2 command buttons on a userform. cmbCalculate and cmbAddToQuote. cmbCalculate has code that confirms all textboxes have data before calculating a price. cmbAddToQuote adds the price to a worksheet. How can I pass a variable value from cmbCalculate code to cmbAddToQuote code. Here is what I have for an example. I want to stop Sub cmbAddToQuote_Click() if the variable StopCode = True. IS this possible? Public Sub cmbCalculate_Click() Dim StopCode as Boolean If textbox1 = "" Then MsgBox "Try Again." StopCode = True Exit Sub End If End Sub Private Sub cmbAddToQuote_Click() Call cmbCalculate_Click If StopCode = True Then Exit Sub '.....additional code End Sub Thanks in Advance, Ryan Tag: Convert Time Column to Text Tag: 968815
  - 3
    - Check Data Validation status via a macro Since I cannot run a macro to query cell(s) for Conditional Formatting results, can I query for Data Validation results? I have 40+ sheets in my workbook and I would like to set the Sheet Tab colors to indicate whether a sheet has out of limit data in any cell on the sheet. Thank you for your help. Tag: Convert Time Column to Text Tag: 968814
  - 4
    - Is the array empty? Hi I am using a macro to load an array with data from excel. This is time series data. As I loop through all the years and months, there are some months that don't exist in a specific year (eg for 2005, the data starts from April, whereas my array loops over all months). So when I look up this array in the local variables, each element of the array shows up as EMPTY. this causes a problem cos at the end of all this, I'm trying to do : worksheetfunction.average(array) and it fails when I the array is empty. Is there anyway to determine if the array is empty, cos then I can use an if statement to circumvent. I've tried using lbound, ubound, isempty etc etc...nothing seems to be working. Suggestions are deeply appreciated. Thanks Chet Tag: Convert Time Column to Text Tag: 968812
  - 5
    - Copy from on eworkbook to another Hi, I have two columns which copy to the new book rounded to the nearest dollar. None of the other columns are doing this. It should be to 2 decimal places. CAMDepMade is long Sub NuSaveCAMDepMade(TenRow, CAMDepMade) 'Created 3/13/2008 by Karen Hoagland Debug.Print "Starting NuSaveCAMDepMade " & Application.ScreenUpdating With MainPagepg 'save CAM Deposits Made With .Cells(TenRow, 14) If CAMDepMade = 0 Then .HorizontalAlignment = xlRight .WrapText = False .NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" .Value = CAMDepMade End If If .Value <> CAMDepMade Then .HorizontalAlignment = xlRight .WrapText = False .NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)" .Value = CAMDepMade End If End With End With End Sub -- Thanks for your help. Karen53 Tag: Convert Time Column to Text Tag: 968809
  - 6
    - Workbooks property For the life of me I can not remember how to add a variable name to a file path. I have converted a file from text to xls and have saved it as myfile - date in mmddyy I have tried workbooks("myfile-"&date).close savechanges:=false. but it does not like that. Tag: Convert Time Column to Text Tag: 968793
  - 7
    - array dimensioning In C++ one can expand or decrease the dimension an array. Can the same thing be done in VBA? -- Thanks for your help Tag: Convert Time Column to Text Tag: 968792
  - 8
    - Detecting a change in a cell Hi all, I'm fairly new to VBA programming. I'm using Excel 2003. I need to know when a particular cell (it's actually a single cell "range" called MYRANGE) has changed. When I detect the change, I need to see if the new numeric value in that cell is not zero; if it's non-zero then I need to activate some code. Unfortunately that cell is changed via a formula - so using Worksheet_Change is apparently not going to work. That is, Worksheet_Change doesn't get triggered for cells of this type. I tried using .OnTimer to repeatedly check the value of that cell, but I couldn't get it to work very well. It seems like there has got to be an easy way to trigger some code to activate when a cell has changed (even for a cell that changes via a formula). Thanks for any help! -Brad Tag: Convert Time Column to Text Tag: 968775
  - 9
    - Do while loop I am trying to excercise a loop. I have a series of copy and paste commands that I want to exercise if cells(i,1) is any of 9 text values (Cos, DL, MRB, Swap, Finishing, DST2,Fin-T,Pre-T,Trap). Is there an easy way to do those either than 9 "IF" statements? Thanks, Mike. Tag: Convert Time Column to Text Tag: 968772
  - 10
    - How to know if cell has name How can I test a cell for a Name, "activecell.name". In my code below, it will generate an error if a cell is clicked that has no ".Name". (Option Explicit assumed) '====== Sub x() 'Begin Registry setting 'Notes: '100% active on all cells clicked sSpecLastWs = ActiveSheet.Name SaveSetting appname:="ADM_Spec_Index", section:="WorkSheetNames", _ Key:="sSpecLastWs", setting:=sSpecLastWs sSpecLastCell = ActiveCell.Name 'FAILS HERE SaveSetting appname:="ADM_Spec_Index", section:="WorkSheetNames", _ Key:="sSpecLastCell", setting:=sSpecLastCell 'End Registry setting End Sub '====== -- Regards VBA.Newb.Confused XP Pro Office 2007 Tag: Convert Time Column to Text Tag: 968771
  - 11
    - Return cell(s) Conditional Formatting Status via a macro Using a macro, I would like to read the Conditional Formatting status of cells so that I can, for example: color a sheets tab red if any cells on the sheet are out of range based on their conditional format status. Attached is code that I thought would do the trick. It works if I manually set the cells to colors 3 or 45, but always returns -4142 if cell colors are set via Conditional Formatting. Sub Sheet1_ColorCellsTest() Dim redcells As Integer Dim orangecells As Integer redcells = 0 orangecells = 0 For Each c In Worksheets("Sheet1").Range("D7,E12:E44").Cells Select Case c.FormatConditions(1) Case 3 '3 red redcells = redcells + 1 Case 45 '45 orange orangecells = orangecells + 1 Case Else 'Not red or orange redcells = redcells orangecells = orangecells End Select Next If redcells > 0 Then Sheets("Sheet1").Tab.ColorIndex = 3 'If any red, make tab red 3, done Else If orangecells > 0 Then Sheets("Sheet1").Tab.ColorIndex = 45 'Or if any orange, make tabe orange 45, done Else Sheets("Sheet1").Tab.ColorIndex = 50 'Else if any No color, make tab green 50, done End If End If End Sub Tag: Convert Time Column to Text Tag: 968770
  - 12
    - Excel Macro Help I need to process an Excel file. I want to run a macro. The macro will not know how many rows are in the file. The column A has a date time stamp for each row. Column E has the value N, L, or R. The rows will start with Ns. Than the rows will have L or Rs. The last rows will have Ns. When the rows start to have L or Rs. I need to grab the date time and when the N begin again I need the date time so I can calculate the total time and add up the number of L and Rs. Here is a short example. 1/1/2008 10:10 N 1/1/2008 10:11 N 1/1/2008 10:12 N 1/1/2008 10:13 L 1/1/2008 10:14 R 1/1/2008 10:15 L 1/1/2008 10:16 N 1/1/2008 10:17 N Total there are 2 L and 1 R and time is 4 min. If this is not the right place for this please direct me to the correct place. Point me in the right direction to find help. Thank you for your assistance. Tag: Convert Time Column to Text Tag: 968769
  - 13
    - Pass a Variable from one sub to another sub I have two command buttons in a userform; cmbCalculate & cmbAddToQuote. cmbCalculate when clicked calculates a price. cmbAddToQuote adds the price to the worksheet. In order to calculate a price the user must enter all valid information into the userform, if not a message box prompts them what to do and the sub exits. My problem is what if the user clicks the cmbAddToQuote button before a price is generated. I want to calculate the price and exit the entire sub if not all information is entered. But this code does not work why? Public Sub cmbCalculate_Click() Dim ExitEntireSub as Boolean If textbox1 = "" Then MsgBox "You must enter Information in TextBox1." ExitEntireSub = True Exit Sub End If End Sub Private Sub cmbAddToQuote_Click() Call cmbCalculate_Click If ExitEntireSub = True Then Exit Sub 'code to add information onto worksheet End Sub Tag: Convert Time Column to Text Tag: 968756
  - 14
    - Drop Down Menu Options? Need a PRO Big thanks to groups user huntermcg for this find. I have entered this into my "ThisWorkbook" - Private Sub Workbook_Open() Dim sh As Object On Error Resume Next Application.CommandBars("Navigate XL-Dennis").Delete Application.CommandBars("Navigate Sheets").Delete On Error GoTo 0 With Application.CommandBars.Add("Navigate Sheets", , False, True) With .Controls.Add(msoControlButton) .TooltipText = "Move Back" .FaceId = 1017 .OnAction = "Move_Back" .BeginGroup = True End With With .Controls.Add(msoControlDropdown) For Each sh In ThisWorkbook.Sheets .AddItem sh.Name Next sh .TooltipText = "SheetNavigate" .OnAction = "Sheet_Navigate" End With With .Controls.Add(msoControlButton) .TooltipText = "Move next" .FaceId = 1018 .OnAction = "Move_Next" End With .Protection = msoBarNoCustomize .Position = msoBarFloating .Visible = True End With End Sub and then I entered this into a module - Private Sub Sheet_Navigate() Dim stActiveSheet As String With CommandBars.ActionControl stActiveSheet = .List(.ListIndex) ThisWorkbook.Sheets(stActiveSheet).Activate End With End Sub Private Sub Move_Back() On Error Resume Next ActiveSheet.Previous.Select End Sub Private Sub Move_Next() On Error Resume Next ActiveSheet.Next.Select End Sub This created a neat little drop down menu for sheet navigation. (thanks to Bob Phillips for the code at http://www.excelforum.com/newreply.php?do=newreply&noquote=1&p=1358771) QUESTION - I've applied this to a project of mine and it works great. Although with my project I have a workbook with over 250 sheets :-) Is their a way to limit the amount of sheets displayed in the drop down box? also if the above is possible... Is their a way to have different set of sheets displayed for each worksheet? For example, on "sheet 1", the drop down only displays sheets 2-5. Upon the users arrival to sheet 4, the drop down menu displays sheets 30-50. Thanks for the help in advance. Tag: Convert Time Column to Text Tag: 968752
  - 15
    - Close X button on Usser Form Hi Gentleman. I have a form that has the blue title bar along with the "X" in the upper right corner. I am having trouble finding the code or process of eliminating the "X" so the user will have only once choice to close the form through the Close button created in the form. Any suggestions would be highly appriciated to get be through this hurdle. Thanks! -- SBR Tag: Convert Time Column to Text Tag: 968750
  - 16
    - Select First Row of Active Column Hi, It's always funny how the most basic problems are the hardest to figure out. I need a macro to go to the first row of a colum when a user selects a cell below. For example, if I have selected cell D9, or D12, or D1000, I need it to go to cell D1. Or, if I have selected cell E9, E12, or E1000 I need it to go to E1. Thanks for your help, Derrick Tag: Convert Time Column to Text Tag: 968747
  - 17
    - Sumif with multiple columns in sum_range Hello, I have a set of data that has a label in column A the sales in column B, C & D: Column A Column B Column C Joel 500 677 Joel 575 752 Joel 650 827 Claudia 725 902 Tarzan 800 968 I'd like to run SUMIF where the "Range" is column A, the "Criteria" is Joel, and the "Sum_Range" is B:C but when I use SUMIF(A:A,"Joel",B:C) I only get the sum of column B which is 1,725. Can someone hook me up with a formula that can sum both column B & C in this situation. Thanks, in advance Daniel Tag: Convert Time Column to Text Tag: 968745
  - 18
    - File URL Path I need help on how to get the URL path for an active file that is stored in an eRoom. I'm trying to generate a link to the file to include in an email. When I use the Visual Basic command ActiveWorkbook.Path I get C:\...\ApplicationData\eRoom\eRoomClient... What I want is https://e6.xxx.com/eRoom/extranet4/xxxx/0_1ab23 like you get when you right click the file on the eRoom page. Any ideas ? -- Thanks, Nancy Tag: Convert Time Column to Text Tag: 968739
  - 19
    - Filename macro and a little more? The following works for me: Sub SaveAuto() Dim fname Dim fpath fpath = "C:\Documents and Settings\Ken\Desktop\" fname = Format(Now, "MDD_hhmm") ActiveWorkbook.SaveAs fpath & fname End Sub But in addition to the result of the date code, I would like the filename result to contain a prefix using the contents of a partcular cell of the original workbook (3 letters that represents a customer code) which would allow us to sort the files saved by customer in the saved directory. Can this be done Tag: Convert Time Column to Text Tag: 968737
  - 20
    - If statement formulas I have two sheets in a workbook. One called Availability, and the other called schedule. The availability tells what time my employees are available to work and it look like this: A1 B1 C1 Name Start End Tom 6 AM 2 PM Jason 9 AM 5 PM John 1 PM 9 Pm Susan 8 AM 4 PM In the schedule sheet look similar to availability sheet accept it has one more column that will if I schedule an employee that will have a time conflict with availablity sheet. Look like this. A1 B1 C1 D1 E1 F1 Name Start End Jason 8AM 5 PM Not available before 9 am Susan 8 AM 6 PM Not Available after 4 pm John 6 Am 12 PM Only available from 1pm to 9 pm Tom 6 AM 2 PM Notice I added three more column. One tell a statement such as "Not Available Before", "Not Available After", and "Only Available From". The other two column tell if Column D has a statement such as "Not Available before", then column E specify the time that particular employee not available before what time. Similary, with "Not Available after" column E specify the time that particular employee not available after. Similary, if column D statement says the time is out of range or "Only Availbable From", specify the start time in E column and end time in F column. If time is within range then don't do anything or display blank. Notice the names of my employees in shedule sheet are not in order with the name of my employees in the availability sheet. I probably need vlookup formulas as well? What formulas do I put in cells of Column D, E, F the get the deserve effect from above? Thanks Tag: Convert Time Column to Text Tag: 968713
  - 21
    - function for looking up text hi, don't know what's wrong with this function. it shall take the value of a cell and via select case look, whats in it and write into the active cell a certain text. Function PreTimeSlotsConv18(PreSlot18) Select Case PreSlot18 Case "Slot 1" PreTimeSlotsConv18 = "17:35" Case "Slot 2" PreTimeSlotsConv18 = "17:20" Case "Slot3" PreTimeSlotsConv18 = "17:05" End Select End Function cheers Tag: Convert Time Column to Text Tag: 968712
  - 22
    - Programmatically Halt Macro and Open VB Editor I have an IF statement in a macro. If one branch is selected, I would like to halt (not end) macro execution and open up the VB editor window. What code would I use to accomplish this?...TIA, Ron Tag: Convert Time Column to Text Tag: 968710
  - 23
    - I am new to VBE. How can I create a for loop without typing it into Let's say I have a column with the number 1-100. I want to scan thru each number until I hit the number 70. Is there a graphical way to do this or must I know how the VBA syntax and type it in the code? Tag: Convert Time Column to Text Tag: 968701
  - 24
    - AutoFit Row Size with Merged Cells I need to add text from a Userform Textbox to a worksheet. Sometimes the textbox may conatin a few sentences. I would like my code to put the textbox text into the merged cells, wrap the text to fit, and automatically adjust the row height. Is it possible to do this or is there an easier way? The text has to be contained between Col.C and Col.E. Sub AutoFitText() With ActiveCell 'ActiveCell = Range("B10") in this case '.....I have additional code here .Offset(30, 1).Value = " â?¢ Comments: " & tbxComments With Range(.Offset(30, 1), .Offset(30, 3)) .Merge .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter .WrapText = True .Rows.EntireRow.AutoFit End With '.....I have additional code here as well End With Thanks in Advance, Ryan Tag: Convert Time Column to Text Tag: 968697
  - 25
    - creating a macro to find a cell value and return a statement in a Hi Can someone please help me create a macro to search an Excel worksheet(in column B) for a cell value("42285") and return a statement("European Trade") in column "E". The data can always change and the rows of data can be up to 3,000 rows. I have the below code but it needs alot of work. Dim rowCount As Integer rowCount = ActiveSheet.UsedRange.Rows.Count Dim i As Integer For i = 1 To rowCount Range("B" & i).Select If ActiveCell.Value = "42285" Then GoTo loopAgain Else ActiveCell.Offset(0, 4) = Sheets("Sheet1").ActiveCell.Offset(6, 4) ' write code to do whatever(return your activecell.offset value) End If loopAgain: Next i End Sub Thank You Peter Tag: Convert Time Column to Text Tag: 968695
- Next
  - 1
    - VBA Code needed to AUTOMATE VALIDATION selections and then PRINT EACH I have searched the blogs and cannot seem to locate anything related to my challenge. I know you guys are gurus when It comes to things like this. I have a worksheet that tracks employee productivity for each cost center with a region. My excel worksheet contains three validation dropdowns that use the "indirect" function with various named ranges that link these dropdowns . So for instance lets say that the first dropdown relates to a region, the second relates to a cost center (there can be many cost centers in a region), and the third is a worker in that cost center (there can be many workers in a cost center). So, lets say that I select Northwest Region =E0 10001 (Cost Center) =E0 and Jim Stu, John Doe, Bob Doe, and Jane Done can all be selected from this cost center individually which changes the productivity data for each worker. Drop Down 1 (region) --> Drop Down 2 (cost center) -> Drop Down 3 (Worker) Range1 =3D Region Range2 =3D (indirect function from cell in Range 1) Range3 =3D (indirect function from cell in Range 2) What I would like to do is automate the printing process of the workers within a selected cost center using these already defined ranges. So for example in the example above I want to print all four names dynamically if some one decides that they would like to print all of the workers in ANY cost center. I am looking for the VBA code for this endeavor. Is this feat possible without having to select each and every worker within that cost center? Also, to take it a step further, is it possible to select all workers from every cost center and print all cost centers at once? Tag: Convert Time Column to Text Tag: 968694
  - 2
    - Userforms fill screen whatever resolution Hi, I am designing a system that I want to look like it is not an Excel spreadsheet. I would therefore like the UserForms to fill the screen. I can do this manually but if somebody else has a different screen resolution it doesn't fit right. Is there a way of doing this automatically? Can you use an if to determine screen resolution? Thanks in advance for any help you can offer. JohnP Tag: Convert Time Column to Text Tag: 968693
  - 3
    - Text with link I have date in cell a1 with dd-mmm-yy format. On the same sheet, I have another cell with "Allocation for " & A1 The result gives me Allocation for 39512 Required result is Allocation for 05-Mar-08 I dont understand why excel is unhappy with my format of dd-mmm-yy Any ideas? Regards, Madiya Tag: Convert Time Column to Text Tag: 968691
  - 4
    - Include hyperlink in email message I have a macro that generates user files, populates shared directories with them, and I use a Ron de Bruin routine to send an Outlook message to inform each user of the file existence. I would prefer to send the user a hyperlink to the file, but my attempts just send plain text. Can anyone point me to sample code that does this, or does my question belong in the Outlook group? -- Al C Tag: Convert Time Column to Text Tag: 968687
  - 5
    - Loop and append to different worksheets I posted this previously but I have discovered a few more things about it and still need some help. I need help making this macro loop through more than one worksheet. And I need to make sure that the information appends correctly. Or I need a different Macro that will do that. I have looked at http://www.contextures.com/excelfiles.html and unfortunately the macros there did not quite do what I need. I have anywhere from one to 16 different worksheets with no duplicate information. It is all in the same format, the worksheet names will differ from month to month. What I need to do is create new worksheets based on the information from a column. Column K could have anywhere from 1 to 6 different values A, B, C, D, E, or F. I need a seperate worksheet with all the rows containing the A's, all the B's, etc. This macro works great on one worksheet. I have tried a few things to make it work on more than one but I have had no luck and I know there are a lot of people here with much more experiance than I have. Thank you for any help you can provide. From a post by Bernie Deitrick: Sub ExportDatabaseToSeparateFiles() 'Export is based on the value in the desired column Dim myCell As Range Dim mySht As Worksheet Dim myName As String Dim myArea As Range Dim myShtName As String Dim KeyCol As Integer myShtName = ActiveSheet.Name KeyCol = InputBox("What column # within database to use as key?") Set myArea = ActiveCell.CurrentRegion.Columns(KeyCol).Offset(0, 0).Cells Set myArea = myArea.Resize(myArea.Rows.Count - 1, 1) For Each myCell In myArea On Error GoTo NoSheet myName = Worksheets(myCell.Value).Name GoTo SheetExists: NoSheet: Set mySht = Worksheets.Add(before:=Worksheets(1)) mySht.Name = myCell.Value With myCell.CurrentRegion .AutoFilter Field:=KeyCol, Criteria1:=myCell.Value .SpecialCells(xlCellTypeVisible).Copy _ mySht.Range("A1") mySht.Cells.EntireColumn.AutoFit .AutoFilter End With Resume SheetExists: Next myCell 'Optional section to export the sheets to separate files 'For Each mySht In ActiveWorkbook.Worksheets 'If mySht.Name = myShtName Then 'Exit Sub 'Else 'mySht.Move 'ActiveWorkbook.SaveAs "Workbook " & ActiveSheet.Name & ".xls" 'ActiveWorkbook.Close 'End If 'Next mySht End Sub Tag: Convert Time Column to Text Tag: 968686
  - 6
    - charts source data series copying Hey all, I have a chart that is linked to a data page within an XL workbook. There is a main data page where I can have 5 or 6 column of data. There is another data page called "Map1 Data" where I can select two columns of data to compare. I then have a chart called "Map1" that gets updated "Chart_Activate" based on what columns are chosen. Once I am happy with the columns I am comparing is there a way to copy and paste the chart into another worksheet with just the data (and no lins to "Map1 Data" so that the chart no longer get updated if I change the columns that I am comparing in the "Map1 Data" worksheet? Thanks in advance, Lance Tag: Convert Time Column to Text Tag: 968685
  - 7
    - Excel Macro works in 2000 but not in 2003 - HELP! All, I have a Macro that throws error 1004 on the ShowAllData method. This Macro will work on 2000 but not 2003. Below is the code. Any help would be greatly appreciated. I copied the start of the macro down to the error part. Does this have anything to do with ActiveSheet??? Sub Macro_Filter() ' Beginning here updates the BP340.RES sheet for BP340/RES Dim foundcell As Range Application.DisplayAlerts = False Sheets("BP340.RES").Activate ActiveSheet.UsedRange.Select FirstRow = Selection.Rows.Count SELECTROWS = "A3:N" & FirstRow Range(SELECTROWS).Select Selection.Delete Sheets("FY").Select If ActiveSheet.Protect Then ActiveSheet.Unprotect End If Range("A1").Select On Error GoTo ErrHndlr1 Selection.AutoFilter Field:=7, Criteria1:="BP340" Selection.AutoFilter Field:=8, Criteria1:="RES" ActiveSheet.UsedRange.Select LastRow = Selection.Rows.Count Selection.Range("A2:N" & LastRow).Select Selection.Copy Sheets("BP340.RES").Activate Range("A3").Select ActiveSheet.Paste ErrHndlr1: Sheets("BP340.RES").Activate Columns("G").Find("", after:=[G2]).Select Set CurrentSelection = Application.ActiveCell CurrentSelection.Value = "Grand Total:" With ActiveCell .Font.Bold = True .Font.Name = "Arial" .Font.Size = 10 End With Selection.EntireRow.Insert Set CurrentSelection = Application.ActiveCell CurrentSelection.Value = "BP340 Total:" With ActiveCell .Font.Bold = True .Font.Name = "Arial" .Font.Size = 10 End With Selection.EntireRow.Insert K = 3 Do Until Range("G" & K).Value = "" Range("G" & K).Select K = K + 1 Loop mystr = Trim(Str(K)) Range("J" & mystr + 1).Formula = "=sum(J3:J" & mystr & ")" TotSpent1 = Range("J" & mystr + 1).Value Range("J" & mystr + 2).Formula = "=sum(J2:J" & mystr & ")" Sheets("FY").Select Range("A1").Select If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData End If Tag: Convert Time Column to Text Tag: 968682
  - 8
    - VBA Grouping Rectangle/Text Boxes Hey all, I am trying to label a couple of text boxes that are grouped together within a rectangle. ActiveChart.Shapes("Group 29").Select Selection.ShapeRange.Ungroup.Select ActiveChart.PlotArea.Select ActiveChart.Shapes("Group 28").Select Selection.ShapeRange.Ungroup.Select ActiveChart.PlotArea.Select ActiveChart.Shapes("Text Box 17").Select Selection.Characters.Text = Sheets(Idx + 1).Range("D16") ActiveChart.Shapes("Text Box 18").Select Selection.Characters.Text = Sheets(Idx + 1).Range("E16") Selection.ShapeRange.Regroup.Select ActiveChart.Shapes("Rectangle 13").Select Selection.ShapeRange.Regroup.Select Unfortunately, the GROUP ID changes each time I regroup so that what says "Group 29" now becomes "Group 30"? Any work around for this? Lance Tag: Convert Time Column to Text Tag: 968679
  - 9
    - Offshore Data Entry Is The Only Way To Increase Your Business Offshore Data Entry provides data entry, data capture, dataentry services, large volume data processing and data conversion services through offshore facilities in India. Offshore data entry also provides form data entry, data capture, HTML/SGML coding, image scanning, file conversion with low cost, high quality,99.98% accuracy and time bound. Data Conversion Services offer cost effective data conversion projects, Outsourcing Data Conversion, advantages of data entry conversion services at offshore data entry in India. Outsourcing your data entry services to help in effectively managing your business by eliminating risks, reducing costs, and boost up your business growth, so you concentrate on your core business. Do visit us at http://www.offshoredataentry.com, to know more about our Offshore Data Entry Services and avail our services at affordable rates. E-mail Us: info@offshoredataentry.com Voice (India): +91-794-000 3000 Fax: +91-794-000 3002. Voice (USA): 1-402-210-2896, 1-402-210-2093 Fax (USA) : 1-775-205-3143. Tag: Convert Time Column to Text Tag: 968676
  - 10
    - How can I do this.. I have a formula, ='G:\Salaries\[01a Salaries Apr07.xls]Data'!smithj, that pulls data from a separate workbook and works fine. But I would like to make this formula copyable across rows and columns. I have cells with the different dates (as text) across the top of my sheet and the different names (as text) down the side. Any suggestions? Thanks Richard Tag: Convert Time Column to Text Tag: 968670
  - 11
    - error in exel when i am opening execl a tab appears that-"please wait while windows configurs Microsoft Office Professional Edition 2003"after that it says that "Installation Error File not found","original Installation Source Required:"I HA DTYER IN ALL WAY, PLEASE HELP ME i WANT MY EXCEL OFFICE, AND ALSO I WANT TO KNOW WHAT HAPPEND TO MY EXEL.. -- life is too short enjoy it... Tag: Convert Time Column to Text Tag: 968665
  - 12
    - EXCEL Statement help Hello, can anyone help me please!!?? I have a cell named "% Compete" and columns named Week 1, Week 2, Week 3, Week 4 and so on up to week 28 When the user types in week 1, 50% and then 60% in week 2 I need the cell "% complete" to automatically update each time the user inputs the % complete. Please help!! Tag: Convert Time Column to Text Tag: 968661
  - 13
    - Excel macros The questions are probably simple: 1 - can I create a macro that - after pointing (clicking, double clicking) to e.g. B5 carries the pointer to e.g. W23? 2 -I'd like macro "waiting" after ActiveSheet.Pictures.Insert( _ (something like "Browse"). My macro inserts always the same picture. Thank you for the hint... Tag: Convert Time Column to Text Tag: 968657
  - 14
    - #NAME? on correct formula Hi, I want to enter a formula into a cell using VBA but while the formula is sound it leaves "#NAME?" in the cell until you manually click into and out of it. Is there anything I can do to stop this? ActiveCell.FormulaR1C1 = "=ROUND(VLOOKUP(R[3]C,'Part Time'!A:H,8,FALSE)*52/1.5,0)" Also, how do I fix a reference in R1C1 format? The formula below has apostraphes around the usual excel range but that needs to be fixed. any ideas? ActiveCell.FormulaR1C1 = "=IF(R[-4]C=""Full-time"",""N/A"",R[-2]C-SUMIF(B8:B5000,""Monday"",R[3]C:R[8000]C)/7.5*VLOOKUP(R[1]C,'Part Time'!A:H,3)-SUMIF(B8:B5000,""Tuesday"",R[3]C:R[8000]C)/7.5*VLOOKUP(R[1]C,'Part Time'!A:H,4)-SUMIF(B8:B5000,""Wednesday"",R[3]C:R[8000]C)/7.5*VLOOKUP(R[1]C,'Part Time'!A:H,5)-SUMIF(B8:B5000,""Thursday"",R[3]C:R[8000]C)/7.5*VLOOKUP(R[1]C,'Part Time'!A:H,6)-SUMIF(B8:B5000,""Friday"",R[3]C:R[8000]C)/7.5*VLOOKUP(R[1]C,'Part Time'!A:H,7))" Thanks in advance for any help you can offer. JohnP Tag: Convert Time Column to Text Tag: 968656
  - 15
    - one combobox affecting another Hi, I have 2 comboboxes ("Business" and "Name"). When Business is selected I would like Name to populate with all the names on the sheet that is named Business. I have tried the following code but get an error message saying that Name is an invalid qualifier. Can you change one comobox with another or is my code just flawed? Private Sub Business_Change() Sheets("" & Business).Select Range("E7").Activate While ActiveCell <> "" Name.AddItem ActiveCell.Value ActiveCell.Offset(0, 1).Activate Wend End Sub Thanks for any help you can offer. JohnP Tag: Convert Time Column to Text Tag: 968655
  - 16
    - Test a cell for a comment presence from within a macro form 2007 I would like to completely control cell comments from a macro form. I am unable to determine if a cell does not have a comment or does have one. How do you relate the comment of each cell in a row of cells to its comment object. Comment index numbers do not seem to carry any relationship with them outside the object. Tag: Convert Time Column to Text Tag: 968648
  - 17
    - Does VBA shortcut "or" statements? Thanks. *** Tag: Convert Time Column to Text Tag: 968647
  - 18
    - OUT OF STACK SPACE ERROR I get an error everytime I run this. I need to find a way to avoid the error but still keep my program running. can anyone help me plz? Dim sngtime sub test() Range("A11").select Application.run "test.xls!sheet1.test" sngtime = timer + 1.5 do while timer < sngtime doevents loop application.run "test.xls!sheet1.test" end sub Tag: Convert Time Column to Text Tag: 968644
  - 19
    - Need formula to calculate the average number of consecutive cells Hello! I have a column in Excel consisting of 1's and 0's. I need to calculate the average size of consecutive cells (groups of cells) containing 1's. For example, the average size of consecutive cells containing the number 1 in the following array is 3 (i.e., (2+4+3+3)/4 = 3): 1100111100000011100011100000 Can someone *please* suggest a formula to do this? Thanks in advance! Ilford Tag: Convert Time Column to Text Tag: 968639
  - 20
    - Loop to copy rows down I need some sort of loop rRoutine which will copy the current row down 1 row at a time until it reaches row 4000 Tag: Convert Time Column to Text Tag: 968636
  - 21
    - Splitting decimals I need to split a figure with a decimal value of 2 places, into 2 seperate cells. EG I have a figure of 1.56 in cell a1 and I want to split it into A2 and A3 A2 will hold the number before the decimal point and A3 will hold the number after the decimal point. Thanks Tag: Convert Time Column to Text Tag: 968633
  - 22
    - convert second word in range to Proper when first variable length - Hi - thanks for having a look I have 1 column of names: D (in a many column worksheet) with initials and surname in upper case e.g. AB PATTERSON or A PATTERSON and I want the surname only (not initials) as proper. Also there is the case of two people e.g. AB PATTERSON & B BANJO and hyphenated names - e.g. AB PATTERSON-POET How can I have a function or VBA asertain where the surname/s start and convert. Hope someone can help Cheers Peta Tag: Convert Time Column to Text Tag: 968627
  - 23
    - select the range with the cell's position is a variable. can anyone tell me how to select a range which will keep changing? for eg: Sub select_range() Dim abc As Range Dim a As Integer Dim b As Integer a = 2 + 2 b = 2 abc = Range("ab") abc.Select End Sub How to modify the code if i wish to make the a, b as a variable? Tag: Convert Time Column to Text Tag: 968623
  - 24
    - DECLARE VARIABLES PROBLEM HI ALL I have this macro whitch copy antire row from one wbook to another If a value is >=x ;it works with 1 workbook : PART 1 OF TOPIC ! Option Explicit Sub Copy_Ranges() Dim FromWks As Worksheet Dim DestWks As Worksheet Dim NextRow As Long Dim myCell As Range Dim myRng As Range Set FromWks = Workbooks("YTA1.xls").Worksheets("sheet1") Set DestWks = Workbooks("R1.xls").Worksheets("sheet1") With FromWks Set myRng = .Range("BD91", .Cells(.Rows.Count, "BD").End(xlUp)) End With For Each myCell In myRng.Cells If myCell.Value <= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy _ Destination:=.Cells(NextRow, "A") End With End If Next myCell End Sub PART 2 OF TOPIC . I change this macro for loop in 3 steps ; the macro becomed so : Option Explicit Sub Copy_Ranges() Dim FromWks As Worksheet Dim DestWks As Worksheet Dim NextRow As Long Dim myCell As Range Dim myRng1 As Range Dim myRng2 As Range Dim myRng3 As Range Set FromWks = Workbooks("Registru1.xls").Worksheets("1") Set DestWks = Workbooks("R1.xls").Worksheets("1") With FromWks Set myRng1 = .Range("BD91:BD22000") End With With FromWks Set myRng2 = .Range("BD22001:BD44000") End With With FromWks Set myRng3 = .Range("BD44001:BD65536") End With Sheets("1").Select Range("B91:B7000").Select Selection.AutoFill Destination:=Range("B91:BB7000"), Type:=xlFillDefault Range("B7001:B14000").Select Selection.AutoFill Destination:=Range("B7001:BB14000"), Type:=xlFillDefault Range("B14001:B22000").Select Selection.AutoFill Destination:=Range("B14001:BB22000"), Type:=xlFillDefault For Each myCell In myRng1.Cells If myCell.Value >=33 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .cells(nextrow,"A").pastespecial paste:=xlpastevalues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C91:BB22005").Select Selection.ClearContents Sheets("1").Select Range("B22001:B29000").Select Selection.AutoFill Destination:=Range("B22001:BB29000"), Type:=xlFillDefault Range("B29001:B36000").Select Selection.AutoFill Destination:=Range("B29001:BB36000"), Type:=xlFillDefault Range("B36001:B44000").Select Selection.AutoFill Destination:=Range("B36001:BB44000"), Type:=xlFillDefault For Each myCell In myRng2.Cells If myCell.Value >=33 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .cells(nextrow,"A").pastespecial paste:=xlpastevalues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C22001:BB44005").Select Selection.ClearContents Sheets("1").Select Range("B44001:B51000").Select Selection.AutoFill Destination:=Range("B44001:BB51000"), Type:=xlFillDefault Range("B51001:B58000").Select Selection.AutoFill Destination:=Range("B51001:BB58000"), Type:=xlFillDefault Range("B58001:B65536").Select Selection.AutoFill Destination:=Range("B58001:BB65536"), Type:=xlFillDefault For Each myCell In myRng3.Cells If myCell.Value >=33 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .cells(nextrow,"A").pastespecial paste:=xlpastevalues End With End If Next myCell End Sub PART 3 OF TOPIC . For open 3 workbook this macro and work with them , I ' ve done this changes : Option Explicit Sub Copy_Ranges() Dim FromWks1 As Worksheet Dim FromWks2 As Worksheet Dim FromWks3 As Worksheet Dim DestWks As Worksheet Dim NextRow As Long Dim myCell As Range Dim myRng1 As Range Dim myRng2 As Range Dim myRng3 As Range Workbooks.Open ("D:\WAVE\YTA1.xls") Set FromWks1 = Workbooks("YTA1.xls").Worksheets("1") Set DestWks = Workbooks("R1.xls").Worksheets("1") With FromWks1 Set myRng1 = .Range("BD91:BD22000") End With With FromWks1 Set myRng2 = .Range("BD22001:BD44000") End With With FromWks1 Set myRng3 = .Range("BD44001:BD65536") End With Sheets("1").Select Range("B91:B7000").Select Selection.AutoFill Destination:=Range("B91:BB7000"), Type:=xlFillDefault Range("B7001:B14000").Select Selection.AutoFill Destination:=Range("B7001:BB14000"), Type:=xlFillDefault Range("B14001:B22000").Select Selection.AutoFill Destination:=Range("B14001:BB22000"), Type:=xlFillDefault For Each myCell In myRng1.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C91:BB22005").Select Selection.ClearContents Sheets("1").Select Range("B22001:B29000").Select Selection.AutoFill Destination:=Range("B22001:BB29000"), Type:=xlFillDefault Range("B29001:B36000").Select Selection.AutoFill Destination:=Range("B29001:BB36000"), Type:=xlFillDefault Range("B36001:B44000").Select Selection.AutoFill Destination:=Range("B36001:BB44000"), Type:=xlFillDefault For Each myCell In myRng2.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C22001:BB44005").Select Selection.ClearContents Sheets("1").Select Range("B44001:B51000").Select Selection.AutoFill Destination:=Range("B44001:BB51000"), Type:=xlFillDefault Range("B51001:B58000").Select Selection.AutoFill Destination:=Range("B51001:BB58000"), Type:=xlFillDefault Range("B58001:B65536").Select Selection.AutoFill Destination:=Range("B58001:BB65536"), Type:=xlFillDefault For Each myCell In myRng3.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C44001:BB65536").Select Selection.ClearContents Workbooks("YTA1.xls").Close SaveChanges:=False Workbooks.Open ("D:\WAVE\YTA2.xls") Set FromWks2 = Workbooks("YTA2.xls").Worksheets("1") With FromWks2 Set myRng1 = .Range("BD91:BD22000") End With With FromWks2 Set myRng2 = .Range("BD22001:BD44000") End With With FromWks2 Set myRng3 = .Range("BD44001:BD65536") End With Sheets("1").Select Range("B91:B7000").Select Selection.AutoFill Destination:=Range("B91:BB7000"), Type:=xlFillDefault Range("B7001:B14000").Select Selection.AutoFill Destination:=Range("B7001:BB14000"), Type:=xlFillDefault Range("B14001:B22000").Select Selection.AutoFill Destination:=Range("B14001:BB22000"), Type:=xlFillDefault For Each myCell In myRng1.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C91:BB22005").Select Selection.ClearContents Sheets("1").Select Range("B22001:B29000").Select Selection.AutoFill Destination:=Range("B22001:BB29000"), Type:=xlFillDefault Range("B29001:B36000").Select Selection.AutoFill Destination:=Range("B29001:BB36000"), Type:=xlFillDefault Range("B36001:B44000").Select Selection.AutoFill Destination:=Range("B36001:BB44000"), Type:=xlFillDefault For Each myCell In myRng2.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C22001:BB44005").Select Selection.ClearContents Sheets("1").Select Range("B44001:B51000").Select Selection.AutoFill Destination:=Range("B44001:BB51000"), Type:=xlFillDefault Range("B51001:B58000").Select Selection.AutoFill Destination:=Range("B51001:BB58000"), Type:=xlFillDefault Range("B58001:B65536").Select Selection.AutoFill Destination:=Range("B58001:BB65536"), Type:=xlFillDefault For Each myCell In myRng3.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C44001:BB65536").Select Selection.ClearContents Workbooks("YTA2.xls").Close SaveChanges:=False Workbooks.Open ("D:\WAVE\YTA3.xls") Set FromWks3 = Workbooks("YTA3.xls").Worksheets("1") With FromWks3 Set myRng1 = .Range("BD91:BD22000") End With With FromWks3 Set myRng2 = .Range("BD22001:BD44000") End With With FromWks3 Set myRng3 = .Range("BD44001:BD65536") End With Sheets("1").Select Range("B91:B7000").Select Selection.AutoFill Destination:=Range("B91:BB7000"), Type:=xlFillDefault Range("B7001:B14000").Select Selection.AutoFill Destination:=Range("B7001:BB14000"), Type:=xlFillDefault Range("B14001:B22000").Select Selection.AutoFill Destination:=Range("B14001:BB22000"), Type:=xlFillDefault For Each myCell In myRng1.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C91:BB22005").Select Selection.ClearContents Sheets("1").Select Range("B22001:B29000").Select Selection.AutoFill Destination:=Range("B22001:BB29000"), Type:=xlFillDefault Range("B29001:B36000").Select Selection.AutoFill Destination:=Range("B29001:BB36000"), Type:=xlFillDefault Range("B36001:B44000").Select Selection.AutoFill Destination:=Range("B36001:BB44000"), Type:=xlFillDefault For Each myCell In myRng2.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C22001:BB44005").Select Selection.ClearContents Sheets("1").Select Range("B44001:B51000").Select Selection.AutoFill Destination:=Range("B44001:BB51000"), Type:=xlFillDefault Range("B51001:B58000").Select Selection.AutoFill Destination:=Range("B51001:BB58000"), Type:=xlFillDefault Range("B58001:B65536").Select Selection.AutoFill Destination:=Range("B58001:BB65536"), Type:=xlFillDefault For Each myCell In myRng3.Cells If myCell.Value >= 32 Then With DestWks NextRow = .Cells(.Rows.Count, "BD").End(xlUp).Row + 1 myCell.EntireRow.Copy .Cells(NextRow, "A").PasteSpecial Paste:=xlPasteValues End With End If Next myCell Application.CutCopyMode = False Sheets("1").Select Range("C44001:BB65536").Select Selection.ClearContents Workbooks("YTA3.xls").Close SaveChanges:=False End Sub PART 4 OF TOPIC . I want to work with 10 workbooks in one macro . Name of this workbooks is from YTA1 to YTA10 . MY PROBLEM IS : HOW CAN I declare the variables for all workbooks ?THE ONLY PROBLEM IS TO DECLARE VARIABLES IN THIS MACRO ! Please don't impresionate for the big size of this macro , only problem is to declare variables for the 10 workbooks and them Rng1 , Rng2 and Rng3 ! ! Something I write wrong , because after first workbook the macro don't work with speed !! It copy entire row in the other workbook very slow ! (ps:I have 231 workbooks , named from YTA1 to YTA231, but I think it cann't be posible to work with all them in one only macro [ a macro cann't be bigger of 64 kb ! ]) Any sugestion will be wellkome ! Many thanks Tag: Convert Time Column to Text Tag: 968611
  - 25
    - F11 Crashes Excel In the spreadsheet I'm developing the F11 key is causing concern, especially if pressed. (Or, when someone presses it...!) You either get (after Excel struggles a bit) - Excel cannot complete this task with available resources. Choose less data or close other applications. Or the much worse - Microsoft Excel has encountered a problem and needs to close. We are sorry for the inconvenience. This happens on every computer (tested = 4), not just mine. I've no idea what F11 is meant to do - but can it be disabled? Thanks - Kirk Tag: Convert Time Column to Text Tag: 968610

I have a spreadsheet that contains Artist, Song and Length of Song info that
was created by a music collection software. EXAMPLE CELLS 1 shows the cell's
actual values and EXAMPLE CELLS 2 shows how it looks.

I'm looking for a way to actually convert all of the song length values in
Column C so they are text data type and look exactly like Column C values in
EXAMPLE CELLS 2.

So basically, Song 1 in cell C1 would be 03:50 and would mean 3 minutes and
50 seconds.

Is there a way to do this witha formula or does this require vba code?

** EXAMPLE CELLS 1 ***************

A B C
-----------------------------------------------
1 Artist1 Song1 12:03:50 AM
2 Artist2 Song2 12:03:42 AM
3 Artist3 Song3 12:04:02 AM

** EXAMPLE CELLS ***************

A B C
-----------------------------------------------
1 Artist1 Song1 03:50
2 Artist2 Song2 03:42
3 Artist3 Song3 04:02

Top

Re: Convert Time Column to Text by Rick

Rick
Fri Mar 14 19:26:33 CDT 2008

Select those time cells; right-click and select Format Cells; click on the
Number tab; select Custom from the Category list; and put mm:ss in the Type
field; click OK.

Rick

"scott" <sbailey@mileslumber.com> wrote in message
news:OQ1zqtihIHA.1944@TK2MSFTNGP02.phx.gbl...
>I have a spreadsheet that contains Artist, Song and Length of Song info
>that was created by a music collection software. EXAMPLE CELLS 1 shows the
>cell's actual values and EXAMPLE CELLS 2 shows how it looks.
>
> I'm looking for a way to actually convert all of the song length values in
> Column C so they are text data type and look exactly like Column C values
> in EXAMPLE CELLS 2.
>
> So basically, Song 1 in cell C1 would be 03:50 and would mean 3 minutes
> and 50 seconds.
>
> Is there a way to do this witha formula or does this require vba code?
>
>
>
> ** EXAMPLE CELLS 1 ***************
>
> A B C
> -----------------------------------------------
> 1 Artist1 Song1 12:03:50 AM
> 2 Artist2 Song2 12:03:42 AM
> 3 Artist3 Song3 12:04:02 AM
>
>
> ** EXAMPLE CELLS ***************
>
> A B C
> -----------------------------------------------
> 1 Artist1 Song1 03:50
> 2 Artist2 Song2 03:42
> 3 Artist3 Song3 04:02
>
>

Top