Worksheets
Hi
If I have the following macro running in worksheet 1. Option Explicit Sub RCA() ActiveSheet.UsedRange If Range("A1").Value = "" Then Range("A1").Value = InputBox("Enter starting value") Else Range("A1").SpecialCells (xlCellTypeLastCell).Offset(1, 0).Value = Application.WorksheetFunction.Max(Range("A:A")) + 1 End If End Sub How can I adjust the macro to run in worksheet 2 & 3. If I want worksheet 2 to start with PCI1 then PCI2 and so on and then worksheet 3 to start with PCICR1 then PCICR2. Thanks Mark |
Hi,
Not sure what you mean by PCI1, PCI2 etc but you can qualify ranges with workbook and worksheet references like this Thisworkbook.Sheets(1).Range("A1")... Also, what are you trying to do with the line ActiveSheet.UsedRange It won't do anything in this case.. Hth OJ |
Hi
I am new to all this. What I am trying to achieve is this. To open a workbook with three worksheets, the all worksheets will have the following headings in A1(Batch No), B1(Date Sent), C1(Amount) & D1(Date Paid). In worksheet one when you click the command button I would like to generate a numeric number which would appear in A2, then if I require a further number this time when I click the command button the next number would appear in A2. In sheet 2 I would like the same to happen except the batch number in cell A2, A3, A4 etc need to start with the ref PCI followed by the first number for example (PCI1, PCI2, PCI3 and so on). I would like the same thing to happen in sheet 3 however the ref in cell A2 A3, A4 etc need to start with the ref PCICR followed by the first number for example (PCICR1, PCICR2, PCICR3 and so on). Hope you can understand this thanks for your help. -----Original Message----- Hi, Not sure what you mean by PCI1, PCI2 etc but you can qualify ranges with workbook and worksheet references like this Thisworkbook.Sheets(1).Range("A1")... Also, what are you trying to do with the line ActiveSheet.UsedRange It won't do anything in this case.. Hth OJ . |
All times are GMT +1. The time now is 01:14 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com