Telephone Directory

[mianmazher]

Book2
	A	B	C	D
1	TelephoneIndex
2	A
3	B
4	C
5	D
6	E
7	F
8	G
9	H
10	I
11	J
12	K
13	L
14	M
15	N
16	O
17	P
18	Q
19	R
20	S
21	T
22	U
23	V
24	W
25	X
26	Y
27	Z
Index

Book2
	A	B	C	D	E	F
1	Name	Address	Phone1	Phone2	Mobile	EmailAddress
2
3
4
5
Data

I have the data in the Data sheet.

I have made 26 sheets starting A to Z

I have made a Index sheet


I want that upon entering the data in the Data Sheet is is autmatically copied in the Corresponding Letter specified Sheet.


Regards


Mian Mazher

 

[Guitarde]

Simple solution ...

In your contact list, add a column to get the first letter of the name.
= LEFT(A2,1)

Then add AutoFilter on the list, you can then filter the list to only the "A" or whatever letter you want.

There is no sens to duplicate the data on different sheets.

 

[mianmazher]

Still Waiting for Experts Solution


Regards

 

[mianmazher]

Experts Help Needed


Regards

 

[Todd Bardoni]

Hi mian. A few suggestions were given to you. What are your thoughts/problems with the given solutions?

It would be best if you acknowledged that others are giving solutions. If they are not useful to you, tell us why.

Coming up with a solution to your problem will take some brainstorming on everyone's part and we need to explore the ideas that are currently given.

-Todd

 

[TheBuGz]

Re: Telephone Directory / Address Book

Well Mian i am pasting a code For Macro Try This and tell me if it works

Sub Button1_Click()
'
' Button1_Click Macro
' Macro recorded 3/4/2004 by TheBuGz
'

Dim N As String

N = UCase(Left(Range("a2").Value, 1))
MsgBox (N)

Sheets("data").Activate
Range("A2:H2").Copy


For i = 2 To 27

    Sheets(i).Activate
    If ActiveSheet.Name = N Then
        ActiveSheet.Activate
        Range("A2").Select
            While Len(ActiveCell) > 0
                ActiveCell.Offset(1, 0).Activate
            Wend
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Sheets("data").Activate
        Range("A2:H2").ClearContents
        Exit Sub
        
        Else: Sheets(i + 1).Activate
                On Error GoTo err
        
    End If
    
Next i

err:
MsgBox (err.Description)
Application.CutCopyMode = False
Exit Sub


'
End Sub

Try it and tell me if it works "A2:H2" is the range in The First Sheet Named "Data" and the Rest Sheets are from A-Z, There u can create 26 Sheets.

 

[TheBuGz]

Dear Mian!!

U and others members can Download the file from this link

Edited by NPO:

Please provide the source code, not the file, thanks.

Regards,
Nate