Stok ve müşteri programı

[ferhat028]

arkadaşlar ekteki dosyayala ilgili 2 sorunum var yardımcı olursanız sevinirim.
1.sorun=şablon sayfasındaki aldığı tarih bölümünde şimdi()formülünü kullandım ama müşteriye sayfa açınca doğal olarak şimdinin tarihini veriyor.ama bir gün sonra dönüp baktığımda yine şimdinin tarihini veriyor yani tarihi sabitlemek istiyorum.
2.sorunum=müşteri borcunu ödedikten sonra sayfasını siliyorum ama ona sattığım ürünlerde silindiği için depo bozuluyor.yani müşteri silinsin ama depo bozulmadan .
şimdiden yardımlarınız için teşekkürler.

 

[Levent Menteşoğlu]

Birinci sorunuz için MEKLE userformunda bulunan "Ekle" butonundaki kodu aşağıdaki ile değiştirin (kırmızı renkli satır ilave edilmiştir).

Private Sub CommandButton1_Click()
Dim SAYFA As Long
If TextBox1 = "" Then
MsgBox "Önce müşteri ismi girmelisiniz.!!", vbInformation
Exit Sub
End If
For SAYFA = 3 To Sheets.Count
If Sheets(SAYFA).Name = TextBox1.Value Then
MsgBox "Bu isimde Müşteri mevcut!!", vbInformation
Exit Sub
End If
Next
Sheets("SABLON").Visible = True
Sheets("SABLON").Copy AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = TextBox1.Value
[B3] = TextBox1.Value
[B][COLOR=red][b9] = Now[/COLOR][/B]
Sheets("SABLON").Visible = False
Unload Me
End Sub

İkinci sorunuz için bir neden bulamadım. Depo sayfanızda müşteri sayfalarına bağlı formüllerde göremedim.

 

[ferhat028]

tekrar merhaba

dün gönderdiğim dosya belki tam açılmaya bilir o yüzden ikinci kez gönderiyorum. yanlız leventm arkadaşın sayesinde tarih sorunu çözüldü.
2.sorun kaldı onun için yardım bekliyorum .bu arada leventm arkaaş çok teşekürler...