Hi, i have the following code:
Sub Macro4()
'
' Macro4 Macro
' Macro recorded 2008-05-13 by Test
'
Selection.Copy
Sheets("Blad3").Select
Range("A8").Select
ActiveSheet.Paste
Sheets("Blad2").Select
Range("G10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad3").Select
Range("A8").Select
ActiveSheet.Paste
Sheets("Blad2").Select
Range("G11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad3").Select
Range("B8").Select
ActiveSheet.Paste
Sheets("Blad2").Select
Range("G12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad3").Select
Range("C8").Select
ActiveSheet.Paste
Sheets("Blad2").Select
Range("G13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad3").Select
Range("D8").Select
ActiveSheet.Paste
Sheets("Blad2").Select
Range("G14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad3").Select
Range("E8").Select
ActiveSheet.Paste
Sheets("Blad2").Select
Range("G15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad3").Select
Range("F8").Select
ActiveSheet.Paste
Sheets("Blad2").Select
Range("G16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Blad3").Select
Range("G8").Select
ActiveSheet.Paste
Range("H8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=Blad2!R[10]C[-1]"
Selection.Font.Bold = False
Range("I8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[12]C[-2]"
Selection.Font.Bold = False
Range("J8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[14]C[-3]"
Selection.Font.Bold = False
Range("K8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[16]C[-4]"
Selection.Font.Bold = False
Range("L8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[18]C[-5]"
Selection.Font.Bold = False
Range("M8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[20]C[-6]"
Selection.Font.Bold = False
Range("N8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[22]C[-7]"
Selection.Font.Bold = False
Range("O8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[24]C[-8]"
Selection.Font.Bold = False
Range("P8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[26]C[-9]"
Selection.Font.Bold = False
Range("Q8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[28]C[-10]"
Selection.Font.Bold = False
Range("R8").Select
ActiveCell.FormulaR1C1 = "=Blad2!R[30]C[-9]"
Selection.Font.Bold = False
Range("S8").Select
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("8:8").Select
Selection.Insert Shift:=xlDown
Sheets("Blad4").Select
End Sub
This code moves some information from sheet2 to sheet3. And then makes a break, so other members also can create their own member.
But my problem is, when one member registrates. The other gets HIS information in their fields. How do i avoid this?
I think this is because of the formula i'm using on sheet2, that i later on move
that formula to sheet3. Because then it's the same and everyone gets that info.
This is one of the formula that is moved: =Sheet2!G18
So how do i avoid this, and is there a smart method to avoid that other members ar affected by anothers information and that they do not have to get his/her info in their fields.
Bookmarks