Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
MACRO IS NOT WORKING AS IT SHOULD
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 -- jeannie v |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro not working | Excel Discussion (Misc queries) | |||
Macro not working at year end | Excel Discussion (Misc queries) | |||
macro not working | Excel Discussion (Misc queries) | |||
Insert Row macro not working | Excel Discussion (Misc queries) | |||
"Compare2Lists" Macro Not working | Excel Discussion (Misc queries) |