Makro İle Eklediğim Sayfanın Ensonda Olması

[programer]

Makro Ýle Eklediğim Sayfanın Ensonda Olması

Aşağıdaki kodu kullamıyorum sayfa ismini ComboBox1 den alıyor ama kaydet dediğimde sayfayı sona atmıyor bunun için ne yapmam gerekli


Private Sub CommandButton1_Click()
Worksheets("M_List").Activate
Dim t As Range
If ComboBox1 = "" Then
MsgBox "MÜÞTERİ ADI BOÞ BIRAKILAMAZ..."
Exit Sub
End If
For Each t In Range("B2:B" & WorksheetFunction.CountA(Worksheets("M_List").[b1:b65000]))
If t = ComboBox1.Text Then
MsgBox "Bu Müşteriye ait Kayıt Bulundu Aynı Müşteriyi Tekrar Kaydedemezsiniz...", , "D İ K K A T"
Exit Sub
End If
Next t
tt = WorksheetFunction.CountA(Worksheets("M_List").[a1:a60000]) + 1
Worksheets("M_List").Cells(tt, "a").Value = tt - 1
tt = WorksheetFunction.CountA(Worksheets("M_List").[a1:a65000])
Worksheets("M_List").Cells(tt, "b").Value = ComboBox1.Value

Worksheets.Add.Name = ComboBox1.Value
Unload Me
End Sub

 

[Kemal Demir]

Private Sub CommandButton1_Click()
Worksheets("M_List").Activate
Dim t As Range
If ComboBox1 = "" Then
MsgBox "MÜÞTERİ ADI BOÞ BIRAKILAMAZ..."
Exit Sub
End If
For Each t In Range("B2:B" & WorksheetFunction.CountA(Worksheets("M_List").[b1:b65000]))
If t = ComboBox1.Text Then
MsgBox "Bu Müşteriye ait Kayıt Bulundu Aynı Müşteriyi Tekrar Kaydedemezsiniz...", , "D İ K K A T"
Exit Sub
End If
Next t
tt = WorksheetFunction.CountA(Worksheets("M_List").[a1:a60000]) + 1
Worksheets("M_List").Cells(tt, "a").Value = tt - 1
tt = WorksheetFunction.CountA(Worksheets("M_List").[a1:a65000])
Worksheets("M_List").Cells(tt, "b").Value = ComboBox1.Value
Sheets.Add , After:=Sheets(Sheets.Count)
ActiveSheet.Name = Combobox1.value
Unload Me
End Sub

Kırmızı İle yazılan kodda acılan sayfayı enson kısma atar

 

[programer]

sayfayı sona ekliyor ama benim ComboBox ta verdiğim isimden farklı bi sayfa daha oluşturuyor yani iki sayfa aynı ada yapıyor

 

[programer]

Yardımlarınız için çok teşekkür ederim sorun çözüldü kodu aşağıdaki gibi değiştirdim

Private Sub CommandButton1_Click()
Worksheets("M_List").Activate
Dim t As Range
If ComboBox1 = "" Then
MsgBox "MÜÞTERİ ADI BOÞ BIRAKILAMAZ..."
Exit Sub
End If
For Each t In Range("B2:B" & WorksheetFunction.CountA(Worksheets("M_List").[b1:b65000]))
If t = ComboBox1.Text Then
MsgBox "Bu Müşteriye ait Kayıt Bulundu Aynı Müşteriyi Tekrar Kaydedemezsiniz...", , "D İ K K A T"
Exit Sub
End If
Next t
tt = WorksheetFunction.CountA(Worksheets("M_List").[a1:a60000]) + 1
Worksheets("M_List").Cells(tt, "a").Value = tt - 1
tt = WorksheetFunction.CountA(Worksheets("M_List").[a1:a65000])
Worksheets("M_List").Cells(tt, "b").Value = ComboBox1.Value
Sheets.Add , after:=Sheets(Sheets.Count)
ActiveSheet.Name = ComboBox1.ValueUnload Me
End Sub

 

[programer]

Arkadaşlar bi şey daha rica edebilirmiyim yukarıdaki kodu sayfa eklemek için kullanıyorum yalnız şöyle birşey olabilirmi aynı isimde bi sayfa daha varsa bize uyarı versin kod aşağıda


Private Sub CommandButton1_Click()
Dim t As Range
If ComboBox1 = "" Then
MsgBox "MÜÞTERİ ADI BOÞ BIRAKILAMAZ..."
Exit Sub
End If
For Each t In Range
If t = ComboBox1.Text Then
MsgBox "Bu Müşteriye ait Kayıt Bulundu Aynı Müşteriyi Tekrar Kaydedemezsiniz...", , "D İ K K A T"
Exit Sub
End If
Next t
Sheets.Add , after:=Sheets(Sheets.Count)
ActiveSheet.Name = ComboBox1.Value
Unload Me
End Sub

 

[dost]

Merhaba,

İnceleyiniz