Makroyla Sayfa OluŞturmak

[yavuz_tekeli_]

MÜŞterİ İsİmlerİnİn Lİste Halİnde KaydedİldİĞİ Bİr Sayfada Butona Tiklanarak O İsİmlere Aİt Sayfalarin OluŞturulmasi SaĞlanabİlİr Mİ

 

[Recep İpek]

Aşağıdaki kodları ilgili sayfanın VBE bölümüne kopyalayınız.

A kolonundaki isimlere çift tıkladığınızda seçtiğiniz isimde sayfa oluşacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Intersect(Target, [a2:a100]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Dim ssayi As Long
Dim sayfaadi As String

ssayi = Worksheets.Count
sayfaadi = Target.Value

For Each sec In Worksheets
If sayfaadi = sec.Name Then
MsgBox "Bu Kişinin Sayfası Mevcut."
Target.Offset(1, 0).Select
Exit Sub
End If
Next

Worksheets.Add After:=Worksheets(ssayi)
Worksheets(ssayi + 1).Name = sayfaadi
Sheets(1).Select
Target.Offset(1, 0).Select
End Sub

 

[herguder]

sayın rpek ellerinize sağlık peki sayfadaki (isimlerin olduğu) bilgileri de yeni açılay sayfaya nasıl kopyalarız.

 

[Recep İpek]

Seçtiğiniz ismi mi?Yoksa tüm isimleri mi?

 

[herguder]

Gönderdiğim dosyada sayfa2 yi aynen yeni adla açılan sayfaya almasını istemiştim.

 

[AS3434]

Dosyanız Ekte.

 

[herguder]

hocam ellerinize sağlık

 

[AS3434]

Sn. hergüder
Dosyada izah ettiğim gibi Açılan Mesaj penceresinde AS3434 yazan yere kopyalama yapacağınız sayfa adını yazın. AS3434 diye bir sayfanız olmadığından hata veriyor.