Müşteri Takip

[mudurad]

müşteri takip prog. çözemediğim bir yer var arkadaşlarım, abilerim yeni kayıt yaptığımda anasayfa daki listede eklediğim kişinin isminin otomatik olarak yazmasını ve köprü kurmasını istiyorum, ilginize teşekkürler

 

[Ferhat Pazarçevirdi]

Merhabalar

Kodu aşağıdaki gibi değiştiriniz.

Sub Kopyala()
Dim i As Integer
Dim kopya As String
kopya = InputBox("Müşterinin Adını Giriniz", _
                 "Yeni Sayfa Ad", _
                 "MÜŞTERİ ADI SOYADI")
If kopya = Empty Then Exit Sub
For i = 1 To Sheets.Count
    If Sheets(i).Name = kopya Then
       MsgBox "Bu isimde zaten bir sayfa var", vbCritical, "MÜKERRER SAYFA"
       Exit Sub
    End If
Next i
Sheets("YENİ").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = kopya
[B1].Value = ActiveSheet.Name
Sheets("ANA SAYFA").Hyperlinks.Add _
                                  Anchor:=Sheets("ANA SAYFA").Range("A65536").End(xlUp).Offset(1, 0), _
                                  Address:="", _
                                  SubAddress:=kopya & "!A1", _
                                  TextToDisplay:=kopya
Sheets("ANA SAYFA").Range("A65536").End(xlUp).Offset(0, 1) = Time
Sayfa1.Select
End Sub

 

[mudurad]

FBC :dua2:
kafama takılan bir şey var uzmanım bu çalışma sayfaları bildiğim kadarıyla 256 mış, bu müşteriler çoğaldığında o zaman napıcam kara kara düşünüyom. Bilgilerini paylaştığın için sonsuz teşekkürler, sayende çok güzel bir program oluşturduk, herşey için teşekkür ederim, eline ,emeğine sağlık ...

 

[Ferhat Pazarçevirdi]

Merhabalar,

Bu tip dosyalar, küçük projeler için üretilmiştir. Dediğinizde haklısınız, Excel 2003 için, sheet sınırı, 256 adettir (2007'yi bilemiyorum).

Ama zararın neresinden dönerseniz dönün, kardır ... Verilerinizi sheet veya tablo düzeninde değil de, LİSTE (veya VERİTABANI) mantığıyla biriktirir ve buna uygun bir yapı tasarlanırsa, sınırları kaldırabilirsiniz.

Kısacası, böyle bir sınırlama tereddütünüz varsa, proje silbaştan ele alınmalı ....

 

[mudurad]

bilgiler için teşekkürler FBC .