MODÜLDEKİ KODLAMA

[zulfuernek]

kaydet modulünde aşağıdaki gibi kodlar ekledim.
eklediğim kodları butonda aktif edemedim. nasıl yapabilirim. bi eksik mi yapıyorum acaba.

modüldeki kodlar:


Sub KAYDET()
On Error Resume Next
Dim S1 As Worksheet
Set S1 = Sheets(MÜŞTERİNO_TEXTBOX.Text)
If S1 Is Nothing Then
Sheets.Add After:=Sheets(Sheets.Count) 'textbox 1 ismiyle yeni sheet açar
Sheets(Sheets.Count).Name = MÜŞTERİNO_TEXTBOX.Text 'textbox 1 ismiyle yeni sheet açar
End Sub

butondaki kodlar:

CommandButton6_Click()
Call KAYDET
ENd Sub

 

[ÖmerBey]

Merhaba,
Kaydet modülüyle Kaydet başlıklı kod isim olarak çakışır. Farklı isimler vermeyi deneyiniz. Ya da Call Kaydet.Kaydet şeklinde modül adıyla çağırınız.