gemmalouise
12-11-2006, 03:47 AM
hello
i am trying to get my program so that if a certain cell displays the word "winner" that it copies that cell into another worksheet to save it has history, i have tried several ways of doing but i cant seem to get it to work, it would be great of anyone has any ideas of working this out.
here is my coding so far:
Range("A8:P13").Select
Selection.copy
Sheets("Winner Log").Select
Sheet3.Range("A4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Numbers").Select
Sheet1.Range("E23").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheet1.Range("A5:G5").Select
Selection.copy
Sheets("Winner Log").Select
Sheet3.Range("Q4:W4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Numbers").Select
Sheet1.Range("D25").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
thanks
i am trying to get my program so that if a certain cell displays the word "winner" that it copies that cell into another worksheet to save it has history, i have tried several ways of doing but i cant seem to get it to work, it would be great of anyone has any ideas of working this out.
here is my coding so far:
Range("A8:P13").Select
Selection.copy
Sheets("Winner Log").Select
Sheet3.Range("A4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Numbers").Select
Sheet1.Range("E23").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheet1.Range("A5:G5").Select
Selection.copy
Sheets("Winner Log").Select
Sheet3.Range("Q4:W4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheet3.Range("Q9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Numbers").Select
Sheet1.Range("D25").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
thanks