Microsoft
Software
Hardware
Network
Question : Excel sheet auto insert data
Hi,
I have a excel which has data like this.
Srl No Seat No Ext No
1 HC-1F-24 8888
2 HC-1F-25 8889
3 HC-2F-29 8734
Colum A is the serial No Colum B is the seat no's of the users and colum 3 is the extension
1. What i want is srl no should change autromatically
2. Seat no is a fixed field and that particular seat no will have a fixed extension no.
So what i want is that if the seat no is change the related ext no where ever it is has to come to that cell next to the seat no.
I can have the seat and ext no's in a sheet if required so that the data can be pulled from there to the main sheet.
Regards
Sharath
Answer : Excel sheet auto insert data
It is inside the CASE SELECT stament in the VB Code. You should define your matching default extension and seat number in the CASE SELECT code. I created new sample with two sheets.
http://www.geocities.com/l
ittleantz7
7/ee/sampl
e2.xls
On AUTO EXT NUMBER sheet, you enter the seat number and the default EXT NUMBER will be filled up for you.
On AUTO SEATNUMBER sheet, you enter the ext number and the default SEAT NUMBER will be filled up for you.
Here is the code. Edit this in the VBA Editor as per your required numbering.
Function SeatNumber(Ext As Variant) As Variant
Select Case Ext
Case 1
SeatNumber = "SEAT-001"
Case 2
SeatNumber = "SEAT-002"
Case 3
SeatNumber = "SEAT-003"
Case 4
SeatNumber = "SEAT-004"
Case 5
SeatNumber = "SEAT-005"
Case 6
SeatNumber = "SEAT-006"
Case 7
SeatNumber = "SEAT-007"
Case 8
SeatNumber = "SEAT-008"
Case 9
SeatNumber = "SEAT-009"
Case 10
SeatNumber = "SEAT-010"
Case 11
SeatNumber = "SEAT-011"
Case 12
SeatNumber = "SEAT-012"
Case 13
SeatNumber = "SEAT-013"
Case 14
SeatNumber = "SEAT-014"
Case 15
SeatNumber = "SEAT-015"
Case 16
SeatNumber = "SEAT-016"
Case 17
SeatNumber = "SEAT-017"
Case 18
SeatNumber = "SEAT-018"
Case 19
SeatNumber = "SEAT-019"
Case 20
SeatNumber = "SEAT-020"
Case Else
SeatNumber = "NOT DEFINED"
End Select
End Function
==========CODE START==============
Function ExtNumber(Seat As Variant) As Variant
Select Case Seat
Case 1
ExtNumber = "Ext-001"
Case 2
ExtNumber = "Ext-002"
Case 3
ExtNumber = "Ext-003"
Case 4
ExtNumber = "Ext-004"
Case 5
ExtNumber = "Ext-005"
Case 6
ExtNumber = "Ext-006"
Case 7
ExtNumber = "Ext-007"
Case 8
ExtNumber = "Ext-008"
Case 9
ExtNumber = "Ext-009"
Case 10
ExtNumber = "Ext-010"
Case 11
ExtNumber = "Ext-011"
Case 12
ExtNumber = "Ext-012"
Case 13
ExtNumber = "Ext-013"
Case 14
ExtNumber = "Ext-014"
Case 15
ExtNumber = "Ext-015"
Case 16
ExtNumber = "Ext-016"
Case 17
ExtNumber = "Ext-017"
Case 18
ExtNumber = "Ext-018"
Case 19
ExtNumber = "Ext-019"
Case 20
ExtNumber = "Ext-020"
Case Else
ExtNumber = "NOT DEFINED"
End Select
End Function
=================CODE END==============
Regarding the serial number, ssaqibh is right, you can use the =row() function minus the rows on top of your starting point.
if you want your sheet to be neat try using this formula in your serial column
=IF(OR(ISBLANK(B2),B2="NOT
DEFINED"),"",ROW() - 1)
( assuming your starting point is A2)
you can immediately paste this formula all the way down. it will automatically fill itself the moment you enter your extension or seat number.
hope this helps..
Random Solutions
excel remove chars
Is Access a bit of a pig?
Remove permissions to create live meeting on OCS 2007 R2
Get Columnname of a matched value
MS Power Point 2007 stops runing
Only 60Hz Available, Even With Driver, Spec is 75. I Can Work Around That - Should I?
EBS 2008 Server Problem
How to determine why my MFC application requires Microsoft Office dlls to run ??????
How to createa a checkbox datatype column in a table in VBA code
Linq to Sql union with constant values