Kod:
Select Case KeyCode
Case vbKeyF10
MsgBox "F10 tuşuna basıldığında gerçekleşmesi istenen eylem buraya yazılır"
End Select
Mevcut Excel çalışmamda Ana_Sayfada userformun keydown yordamına yazdığım KAYDET butonunun olay yordamı olan Kayıt ekleme kodları çalışmadı. F9 tuşuna bastığımda kayıt ekleme eyleminin gerçekleşmesi içi kodları nasıl revize etmem gerekir. Bilgi vermenizi Rica ederim.
Kod:
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyF9
If MsgBox("Girdiginiz veriler kaydedilecektir, Emin misiniz...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub
Dim Firma, YeniFirma
Firma = TextBox_FirmaAdi.Value
YeniFirma = IIf(Application.CountIf(Columns(2), Firma) > 0, 1, 0)
If YeniFirma > 0 And TextBox_FirmaAdi.Value <> "" Then
If MsgBox("Aynı Adla Yapılmış Firma Kaydı Bulundu...Kayıt Yapılsın mı...?", vbExclamation + vbYesNo, "Firma Tanımlama Formu") = vbNo Then Exit Sub
End If
' Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Ana_Sayfa")
'Alttaki kod eger A sütunu bossa son satir olarak 2 verir, 1 tane veri olsa dahi son satiri son dolunun bir alt satir no verir-----------------
If WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) = 0 Then
SonSatir = .Range("A" & Rows.Count).End(3).Row
ElseIf WorksheetFunction.CountA(.Range("A2:A" & Rows.Count)) > 0 Then
SonSatir = .Range("A" & Rows.Count).End(3).Row + 1
End If
.Cells(SonSatir, 1) = WorksheetFunction.Max(.Range("A2:A" & Rows.Count)) + 1
.Cells(SonSatir, 2) = TextBox_FirmaAdi.Value
.Cells(SonSatir, 3) = ComboBox_FirmaUnvani.Value
.Cells(SonSatir, 4) = TextBox_YetkiliKisi.Value
.Cells(SonSatir, 5) = TextBox_Telefon.Value
.Cells(SonSatir, 6) = TextBox_Gsm.Value
.Cells(SonSatir, 7) = TextBox_Email.Value
.Cells(SonSatir, 8) = TextBox_Adres.Value
.Cells(SonSatir, 9) = TextBox_Aciklama.Value
.Cells(SonSatir, 10) = ComboBox_Ilce.Value
.Cells(SonSatir, 11) = ComboBox_Sehir.Text
.Cells(SonSatir, 12) = ComboBox_Bolge.Value
.Cells(SonSatir, 13) = ComboBox_Temsilci.Value
.Cells(SonSatir, 14) = ComboBox_RouteDay.Value
.Cells(SonSatir, 15) = ComboBox_YetkiliBayilik.Value
checkboxKontrol SonSatir
.Cells(SonSatir, 26) = TextBox_Tarih.Value
.Cells(SonSatir, 27) = ComboBox_Kaynak.Value
.Cells(SonSatir, 28) = ComboBox_Ziyaret.Value
.Cells(SonSatir, 29) = ComboBox_Katalog.Value
' .Protect sifre
End With
Call checkboxKontrol(SonSatir)
Call temizle
TextBox_Tarih = Format(Date, "dd.mm.yyyy")
TextBox_Tarih.SetFocus
With TextBox_Tarih
.SelStart = 0
.SelLength = .TextLength
End With
'Application.ScreenUpdating = True
End Select
End Sub