Snasui Excel Forum

Code: Select all

Sub CopyToDB()

            Sheets("sheet1").Select
            RowEnd = Selection.End(xlDown).Row
            RowEnd = RowEnd + 1
            
                    Sheets("Sheet1").Select
                    Range("L3").Select
                    ColEnd = Selection.End(xlToRight).Column
                            
                            Sheets("database").Select
                            Sheets("database").Range("A2").Select
                            RowEndDB = RowEnd
                            RowEndDB = RowEndDB + 1


        For i = 12 To ColEnd

                
                Sheets("sheet1").Select
                Columns("K:K").Select
                Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
         
                       
                        Range("L2").Select
                        Selection.Copy
                        Range("K3").Select
                        ActiveSheet.Paste
                        Application.CutCopyMode = False
                        Selection.AutoFill Destination:=Range("K3:K7754"), Type:=xlFillCopy
                        'Range("K:K7754").Select
            
            
                            '
                            Sheets("sheet1").Select
                            Range("A3:L3").Select
                            Range(Selection, Selection.End(xlDown)).Select
                            Selection.Copy
                            
                            
                            Range("A" & RowEndDB).Select
                            Worksheets("Database").Paste
                        
                            
                                Sheets("Sheet1").Select
                                Columns("K:L").Select
                                Selection.Delete Shift:=xlToLeft
                                
       Next i
End Sub

Code: Select all

Sub CopyToDB()
    Sheets("sheet1").Select
    RowEnd = Range("a" & Rows.Count).End(xlUp).Row
    Set rDat1 = Range("a3:j" & RowEnd)
    Set rdateachmonth = Range("k3:k" & RowEnd)
    Set rAllMonth = Range("k2", Range("k2").End(xlToRight))
    Sheets("database").Select
    i = 0
    
    For Each r In rAllMonth
        rowend2 = Range("a" & Rows.Count).End(xlUp).Row + 1
        rDat1.Copy Range("a" & rowend2)
        r.Copy Range("a" & rowend2).End(xlToRight).Offset(, 1) _
            .Resize(rdateachmonth.Rows.Count, 1)
        rdateachmonth.Offset(, i).Copy Range("a" & rowend2).End(xlToRight) _
            .Offset(, 1)
        i = i + 1
    Next r
End Sub

Code: Select all

Sub CopyToDB()
            
            Sheets("sheet1").Select
            Sheets("sheet1").Range("A2").Select
            RowEnd = Selection.End(xlDown).Row
            'RowEnd = RowEnd
            
                    'Sheets("Sheet1").Select
                    Range("L2").Select
                    ColEnd = Selection.End(xlToRight).Column
                            
                            Sheets("database").Select
                            Rows("2:100000").Select
                            Selection.Delete Shift:=xlUp
                            RowEndDB = 2
                            
        For i = 12 To ColEnd

                Sheets("sheet1").Select
                Columns("K:K").Select
                Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
         
                        Range("L2").Select
                        Selection.Copy
                        Range("K3").Select
                        ActiveSheet.Paste
                        Application.CutCopyMode = False
                        Selection.AutoFill Destination:=Range("K3:K" & RowEnd), Type:=xlFillCopy
                        'Range("K3:K7754").Select

                            Sheets("sheet1").Select
                            Range("A3:L3").Select
                            Range(Selection, Selection.End(xlDown)).Select
                            Selection.Copy
                                 
                            Sheets("Database").Select
                            Range("A" & RowEndDB).Select
                            Worksheets("Database").Paste
                            Sheets("Database").Range("A1").Select
                            RowEndDB = Selection.End(xlDown).Row
                            RowEndDB = RowEndDB + 1
                            
                                Sheets("Sheet1").Select
                                Columns("K:L").Select
                                Selection.Delete Shift:=xlToLeft
                          
       Next i
End Sub