programer
Altın Üye
- Katılım
- 26 Mayıs 2005
- Mesajlar
- 604
- Excel Vers. ve Dili
- Office 2022 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 16-03-2025
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
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