Thread: Excel help!
View Single Post
Old 29-03-2004, 00:22   #6
ntl customer
Inactive
 
Join Date: Jun 2003
Services: Weddings, christenings, barmitzvahs and funerals.
Posts: 860
ntl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond reputentl customer has a reputation beyond repute
Re: Excel help!
Code:
Sub copyandpaste()
'
' copyandpaste Macro
' Macro recorded 14/03/2004 by (removed)'

'
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("B6").Select
    Sheets("Student_form").Select
    Range("B3").Select
    Sheets("Student_form").Select
    Range("B5").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("C6").Select
    Sheets("Student_form").Select
    Range("B7").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("D6").Select
    Sheets("Student_form").Select
    Range("B9").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("E6").Select
    Sheets("Student_form").Select
    Range("B11").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("F6").Select
    Sheets("Student_form").Select
    Range("B13").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("G6").Select
    Sheets("Student_form").Select
    Range("B15").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("H6").Select
    Sheets("Student_form").Select
    Range("B17").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("I6").Select
    Sheets("Student_form").Select
    Range("B19").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("J6").Select
    Sheets("Student_form").Select
    Range("B21").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    ActiveSheet.Paste
    Range("K6").Select
    Sheets("Student_form").Select
    Range("B23").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("L6").Select
    Sheets("Student_form").Select
    Range("B25").Select
    Application.CutCopyMode = False
    Selection.copy
    Sheets("Student_database").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub
Well here is the macro code.

Where would I need to insert this loop, and what would I need to type?
ntl customer is offline   Reply With Quote