Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel worksheets auto-incremeting question
If you have time, I do need some help on an Excel issue. Let me describe what
I need to happen in Excel. I will build an Excel workbook with a number of specific worksheets. The first worksheet of the workbook will only be a place to enter or download information over and over. Each time new information is entered in the various cells, the old information should be overwritten. The various cells in the first work sheet relate to cells in the other worksheets in the workbook. What I need to happen is for these cells in the other worksheets to populate each time but to increment to the next available cell. In other words, there should be no overwriting of prior entries. I cannot figure out how to make this happen. I hope that I have explained my issue clearly. If not, please let me know. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel worksheets auto-incremeting question
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
CAN EXCEL AUTO DATE ADDED WORKSHEETS? | Excel Worksheet Functions | |||
excel auto jump worksheets when open | Excel Discussion (Misc queries) | |||
how do I auto name worksheets in Excel? | Excel Worksheet Functions | |||
VBA Excel Macro - One File Auto Create Multiple Excel Worksheets! | Excel Programming | |||
auto format 5 worksheets out of 6 when opening excel spreadsheet. | Excel Programming |