Home |
Search |
Today's Posts |
#1
|
|||
|
|||
problem with ref
I am new to all this, so i will try and explian what I am
trying to achieve with this workbook. i want to be able to open this workbook with three worksheets, and 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. |
#2
|
|||
|
|||
If you put your prefix in some out of the way cell (I'm using AA1, for the
first sheet this cell would be empty) then you could use the same routine of all worksheets: Sub EnterNextNumber() Dim LastCell As Range Dim NextNum As Long Dim Prefix As String Prefix = Range("AA1").Value Set LastCell = Range("A65536").End(xlUp) If LastCell.Row = 1 Then On Error Resume Next NextNum = InputBox("Enter Starting Value") If NextNum = 0 Then Exit Sub ''No entry, cancel or non-numeric... End If Else NextNum = Mid(LastCell.Value, Len(Prefix) + 1) + 1 End If LastCell.Offset(1).Value = Prefix & NextNum End Sub -- Jim Rech Excel MVP "Monty" wrote in message ... |I am new to all this, so i will try and explian what I am | trying to achieve with this workbook. | i want to be able to open this workbook with three | worksheets, and 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. | | |
#3
|
|||
|
|||
This works a treat thanks very much
Monty -----Original Message----- If you put your prefix in some out of the way cell (I'm using AA1, for the first sheet this cell would be empty) then you could use the same routine of all worksheets: Sub EnterNextNumber() Dim LastCell As Range Dim NextNum As Long Dim Prefix As String Prefix = Range("AA1").Value Set LastCell = Range("A65536").End(xlUp) If LastCell.Row = 1 Then On Error Resume Next NextNum = InputBox("Enter Starting Value") If NextNum = 0 Then Exit Sub ''No entry, cancel or non-numeric... End If Else NextNum = Mid(LastCell.Value, Len(Prefix) + 1) + 1 End If LastCell.Offset(1).Value = Prefix & NextNum End Sub -- Jim Rech Excel MVP "Monty" wrote in message ... |I am new to all this, so i will try and explian what I am | trying to achieve with this workbook. | i want to be able to open this workbook with three | worksheets, and 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. | | . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Problem with Array Formulas and ISNUMBER | Excel Worksheet Functions | |||
Freeze Pane problem in shared workbooks | Excel Discussion (Misc queries) | |||
Printing Problem | New Users to Excel | |||
Row Autofit problem Excel 2003 | Excel Discussion (Misc queries) | |||
Paper Tray selection Problem, | Excel Discussion (Misc queries) |