MACRO IS NOT WORKING AS IT SHOULD

J

jeannie v

Hi:

This Macro is almost working, but there is a slight glitsch......When the
person's data from Worksheet 2 to Worksheet 1 start paste in Range A4, only
the first line of data pastes to A4...the rest of the person's data pastes
down below in lines 42 down.....Any help would be greatly
appreciated..........

Sub LoginLogout()
'
'
Dim n As Integer, i As Integer
Dim rng As Range

Sheets("Agent Login-Logout").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
Sheets("Agent Login-Logout").Activate
If Cells(i, "A").Value = "Miller, Chris" Then
Range("A" & i & ":L" & i).Copy
Sheets("Christopher M").Activate
If Range("A4") = "" Then
Set rng = Worksheets("Christopher M").Range("A4")
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Else
Sheets("Christopher M").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row + 1
Set rng = Worksheets("Christopher M").Range("A" & n)
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End If
End If
Next i

End Sub
 
B

Billy Liddel

Jeanie, it seems to work for me, I've slightly modified the code but let me
know if it works.

Sub LoginLogout()
'
'
Dim n As Integer, i As Integer
Dim rng As Range
Application.ScreenUpdating = False
Sheets("Agent Login-Logout").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To n
Sheets("Agent Login-Logout").Activate
If Cells(i, "A").Value = "Miller, Chris" Then
Range("A" & i & ":L" & i).Copy
Sheets("Christopher M").Activate
If Range("A4") = "" Then
Set rng = Worksheets("Christopher M").Range("A4")
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues
Else
Sheets("Christopher M").Activate
n = Cells(Rows.Count, "A").End(xlUp).Row + 1
Set rng = Worksheets("Christopher M").Range("A" & n)
rng.Select
Selection.PasteSpecial Paste:=xlPasteValues
Cells(1, 1).Select
End If
End If
Next i
Application.CutCopyMode = False
Range("a1").Select
Application.ScreenUpdating = True
End Sub

Regards
Peter
 
J

jeannie v

Hi Peter: Thank you for helping me.....I still can't get it to work....I
must be doing something incredibly wrong....All I'm doing is copying and
pasting the macro you sent and it's just not working for me....If I sent you
my workbook, do you think you could see where I might be going wrong? If so,
how would I send it to you.

jeannie v
 
B

Billy Liddel

Jeannie

e-mail me at peter_athertonAThotmail.com and send the file as an attatchment.

do the obvious with the AT

Peter
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top