Macro
 

Hi

I am new to all this, so i will try and explain what I am
trying to achieve with this workbook.

I want to open a workbook with three worksheets, all
worksheets will have the following headings in A1(Batch
No), B1(Date Sent), C1(Amount) & D1(Date Paid).
In sheet 1 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.
I have the following macro running which works fine for
the first part of this problem.
Public Sub RCA()
If IsEmpty(Range("A2").Value) Then
Range("A2").Value = InputBox("Enter Starting
Value")
Else
Range("A" & Rows.Count).End(xlUp).Offset(1,
0).Value = _
Application.Max(Range("A:A")) + 1
End If
End Sub

How can I adapt the above macro or use another in order
to achieve the following in sheet 2 & 3.

In sheet 2 I would like the same to happen except the
batch number in cell A2, A3, A4 etc needs 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 any help.

i got this sorted thanks anyway
-----Original Message-----
Hi

I am new to all this, so i will try and explain what I
am
trying to achieve with this workbook.

I want to open a workbook with three worksheets, all
worksheets will have the following headings in A1(Batch
No), B1(Date Sent), C1(Amount) & D1(Date Paid).
In sheet 1 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.
I have the following macro running which works fine for
the first part of this problem.
Public Sub RCA()
If IsEmpty(Range("A2").Value) Then
Range("A2").Value = InputBox("Enter Starting
Value")
Else
Range("A" & Rows.Count).End(xlUp).Offset(1,
0).Value = _
Application.Max(Range("A:A")) + 1
End If
End Sub

How can I adapt the above macro or use another in order
to achieve the following in sheet 2 & 3.

In sheet 2 I would like the same to happen except the
batch number in cell A2, A3, A4 etc needs 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 any help.


.