Excel worksheets auto-incremeting question
Thanks, Dan, I'll definitely check it out and see if I can get that to work.
I appreciate it.
"dan dungan" wrote:
Hi Anne,
Do either of the followinng ideas help from December 2009?
I need a macro that will copy Cell C3 from one sheet and add it to
another sheet starting at A5. If A5 already has something in it then
use A6
Dan
Had a typo:
Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
If sh2.Range("A5") = "" Then
sh.Range("C3").Copy sh2.Range("A5")
Else
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End If
End Sub
"JLGWhiz" wrote in message
Sub dk()
Dim lr As Long, sh As Worksheet, sh2 As Worksheet
Set sh = Sheets("Sheet1")
Set sh2 = Sheets("Sheet2")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
If shw.Range("A5") = "" Then
sh.Range("C3").Copy sh2.Range("A5")
Else
sh.Range("C3").Copy sh2.Range("A" & lr+1)
End If
End Sub
Change the sheet names to suit.
6. Don Guillett
Newsgroups: microsoft.public.excel.programming
From: "Don Guillett"
Date: Tue, 22 Dec 2009 15:58:19 -0600
Local: Tues, Dec 22 2009 1:58 pm
Subject: Copy cell of one sheet to another sheet
Try this. Modify sheet name to suit
Sub copyc3toothersheet()
With Sheets("sheet14")
If Len(Application.Trim(.Range("a5"))) < 1 Then
lr = 5
Else
lr = .Cells(4, "a").End(xlDown).Row + 1
End If
'MsgBox lr
Range("c3").Copy .Cells(lr, "a")
End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
.
|