Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to change database format.
I want this macro to, after it have inserted the colmns and added the formula
(see below) to 1. copy range A1 to E1 to every row where the word "Header" is in colmn F. 2. Then copy paste the whole sheet as values. (This I can do) 3. Then the range now standing left of "header" must be copied to the empy cells beneath each heading. Range A1:E1 must be coppied to A2:E2 but range A3:E3 must be coppied to A4:E5 and so on. But this is not set I am trying to rewrite a database export in a readble sortable format, but my konledge of VB is limited. Please help Sub Macro1() ' ' Macro1 Macro ' Macro recorded 09/12/2005 by Nadia ' ' Columns("A:E").Select Selection.Insert Shift:=xlToRight Range("A1").Select ActiveCell.FormulaR1C1 = "=RC[6]" Range("B1").Select ActiveCell.FormulaR1C1 = "=RC[8]" Range("C1").Select ActiveCell.FormulaR1C1 = "=RC[8]" Range("D1").Select ActiveCell.FormulaR1C1 = "=RC[8]" Range("E1").Select ActiveCell.FormulaR1C1 = "=RC[8]" Range("A2").Select Dim LastRow As Long Dim row_index As Long Application.ScreenUpdating = False LastRow = ActiveSheet.Cells(Rows.Count, "F").End(xlUp).Row For row_index = LastRow - 1 To 2 Step -1 If Cells(row_index, "F").Value = "Header" Then Rows(1).Copy Destination:=Rows(row_index + 1) End If Next Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change the row/column format in a macro to beyond letters? | Excel Discussion (Misc queries) | |||
Macro to change time format.... | Excel Worksheet Functions | |||
Macro to Change Changing Date Format Data to Text | Excel Discussion (Misc queries) | |||
Moved database, how do I change link to the database in excel | Excel Discussion (Misc queries) | |||
Need macro to change date from yyyymmdd format to mm/dd/yyyy forma | Excel Programming |