activecell

[camdanperim]

proğramda plaka bul kısmını kullandıktan sonra yeni bir kayıt girmek istediğimizde kaydı son dolu satırı 1 artırıp eklemiyor. onun yerine plaka bul kısmındaki aktif hücreye yazıyor. sorunun çözümünde yardımcı olursanız sevinirim

 

[Korhan Ayhan]

Selamlar,

Kayıt işlemi yapan butonunuza ait kodu aşağıdaki şekilde değiştirip denermisiniz.Yapılan değişiklik kırmızı renkle belirtilmiştir.

Private Sub CommandButton1_Click() 'kaydet
If TextBox1.Text <> "" Then
    
        If yeni_mi = True Then
            
            'For i = 2 To Sheets("veri").Range("A65536").End(xlUp).Row
                
            'Next i
            
            With Sheets("veri")
                Son_Dolu_Satir = .Range("A65536").End(xlUp).Row
                Bos_Satir = Son_Dolu_Satir + 1
                .Range("A" & Bos_Satir).Value = _
                            Application.WorksheetFunction.Max(.Range("A:A")) + 1
                
                .Range("c" & Bos_Satir).Value = TextBox1.Text
                .Range("d" & Bos_Satir).Value = TextBox3.Text
                .Range("e" & Bos_Satir).Value = TextBox4.Text
                .Range("b" & Bos_Satir).Value = ComboBox1.Text
      
            End With
        
        Else
            Degistirilecek_Satir = ActiveCell.Row
            With Sheets("veri")
                .Range("c" & Degistirilecek_Satir).Value = TextBox1.Text
                .Range("d" & Degistirilecek_Satir).Value = TextBox3.Text
                .Range("e" & Degistirilecek_Satir).Value = TextBox4.Text
                .Range("b" & Degistirilecek_Satir).Value = ComboBox1.Text
            End With
            [COLOR=red]yeni_mi = True[/COLOR]
            End If
 TextBox1.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox1.Text = ""
bul.Text = ""
ListBox1.Clear
Else
MsgBox "LÜTFEN SİPARİŞ NO GİRİNİZ"
End If
End Sub