Aşağıdaki kayıt işleminin "cbfirmaadi" isimli comboboxta hangi sayfa adı(sheet) yazıyorsa oraya yapması lazım nasıl düzeltebilirim acaba.Yine aşağıda
say = WorksheetFunction.CountA(Range("B1:B65000")) kısmınında buna göre düzeltilmesi lazım.
Private Sub firmakaydet_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = cbfirmaadi.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
If cbfirmaadi.Value = "" Then
MsgBox "Bir isim girmelisiniz."
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("B1:B65000"))
txtfsira.Value = say
Cells(say + 1, 1).Value = cbfad.Value
Cells(say + 1, 2).Value = cburun.Value
Cells(say + 1, 3).Value = txttarih.Value
Cells(say + 1, 4).Value = txtmiktar.Value
Cells(say + 1, 5).Value = txtfiyat.Value
Cells(say + 1, 6).Value = txtosekli.Value
Workbooks("MTP12.XLS").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
firmatemizle_Click
End Sub
say = WorksheetFunction.CountA(Range("B1:B65000")) kısmınında buna göre düzeltilmesi lazım.
Private Sub firmakaydet_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = cbfirmaadi.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
If cbfirmaadi.Value = "" Then
MsgBox "Bir isim girmelisiniz."
Exit Sub
End If
Next bak
say = WorksheetFunction.CountA(Range("B1:B65000"))
txtfsira.Value = say
Cells(say + 1, 1).Value = cbfad.Value
Cells(say + 1, 2).Value = cburun.Value
Cells(say + 1, 3).Value = txttarih.Value
Cells(say + 1, 4).Value = txtmiktar.Value
Cells(say + 1, 5).Value = txtfiyat.Value
Cells(say + 1, 6).Value = txtosekli.Value
Workbooks("MTP12.XLS").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
firmatemizle_Click
End Sub