form

A

acemi23

Katılım
25 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
ofis2000
Private Sub cmdbul_Click()
Dim bak As Range
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
bak.Select
txtsira.Value = ActiveCell.Offset(0, -1).Value
txtBabaAdi.Value = ActiveCell.Offset(0, 1).Value
txtAnaAdi.Value = ActiveCell.Offset(0, 2).Value
txtDogumTarihi.Value = ActiveCell.Offset(0, 3).Value
txtTcKimlik.Value = ActiveCell.Offset(0, 4).Value
txtMahalle.Value = ActiveCell.Offset(0, 5).Value
txtCaddeSokak.Value = ActiveCell.Offset(0, 6).Value
txtKapiNo.Value = ActiveCell.Offset(0, 7).Value
txtEgitimDurumu.Value = ActiveCell.Offset(0, 8).Value
txtSosyalGuvence.Value = ActiveCell.Offset(0, 9).Value
txtYakacak.Value = ActiveCell.Offset(0, 10).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub

Private Sub cmdDegistir_Click()
Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
Next bos
If txtsira = "" Or cbAd = "" Or txtBabaAdi = "" Or txtAnaAdi = "" Or txtDogumTarihi = "" Or tckimlik = "" Or txtMahalle = "" Or txtCaddeSokak = "" Or txtKapiNo = "" Or txtEgitimDurumu = "" Or txtSosyalGuvence = "" Or txtYakacak Then
MsgBox "Adı Soyadı listesinden bir Kişi seçmelisiniz"
Else
ActiveCell = cbAd
ActiveCell.Offset(0, 1) = txtBabaAdi
ActiveCell.Offset(0, 2) = txtAnaAdi
ActiveCell.Offset(0, 3) = txtDogumTarihi
ActiveCell.Offset(0, 4) = txtTcKimlik
ActiveCell.Offset(0, 5) = txtMahalle
ActiveCell.Offset(0, 6) = txtCaddeSokak
ActiveCell.Offset(0, 7) = txtKapiNo
ActiveCell.Offset(0, 8) = txtEgitimDurumu
ActiveCell.Offset(0, 9) = txtSosyalGuvence
ActiveCell.Offset(0, 10) = txtYakacak

End If
Workbooks("BulSilDegistir_01.XLS").Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = "Veri!B2:B" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

Private Sub cmdEnBas_Click()
txtsira = Cells(2, 1)
cbAd = Cells(2, 2)
txtBabaAdi = Cells(2, 3)
txtAnaAdi = Cells(2, 4)
txtDogumTarihi = Cells(2, 5)
txtTcKimlik = Cells(2, 6)
txtMahalle = Cells(2, 7)
txtCaddeSokak = Cells(2, 8)
txtKapiNo = Cells(2, 9)
txtEgitimDurumu = Cells(2, 10)
txtSosyalGuvence = Cells(2, 11)
txtYakacak = Cells(2, 12)
End Sub

Private Sub cmdEnSon_Click()
Dim say As Integer
say = WorksheetFunction.CountA(Range("A1:A65000"))
txtsira = Cells(say, 1)
cbAd = Cells(say, 2)
txtBabaAdi = Cells(say, 3)
txtAnaAdi = Cells(say, 4)
txtDogumTarihi = Cells(say, 5)
txtTcKimlik = Cells(say, 6)
txtMahalle = Cells(say, 7)
txtCaddeSokak = Cells(say, 8)
txtKapiNo = Cells(say, 9)
txtEgitimDurumu = Cells(say, 10)
txtSosyalGuvence = Cells(say, 11)
txtYakacak = Cells(say, 12)
End Sub

Private Sub cmdGeri_Click()
If txtsira = 1 Then
Exit Sub
Else
txtsira = txtsira - 1
cbAd = Cells(txtsira + 1, 2)
txtBabaAdi = Cells(txtsira + 1, 3)
txtAnaAdi = Cells(txtsira + 1, 4)
txtDogumTarihi = Cells(txtsira + 1, 5)
txtTcKimlik = Cells(txtsira + 1, 6)
txtMahalle = Cells(txtsira + 1, 7)
txtCaddeSokak = Cells(txtsira + 1, 8)
txtKapiNo = Cells(txtsira + 1, 9)
txtEgitimDurumu = Cells(txtsira + 1, 10)
txtSosyalGuvence = Cells(txtsira + 1, 11)
txtYakacak = Cells(txtsira + 1, 12)
End If
End Sub

Private Sub cmdIleri_Click()
Dim say As Integer
say = WorksheetFunction.CountA(Range("A1:A65000"))
If txtsira = say Then
Exit Sub
Else
txtsira = txtsira + 1
cbAd = Cells(txtsira + 1, 2)
txtBabaAdi = Cells(txtsira + 1, 3)
txtAnaAdi = Cells(txtsira + 1, 4)
txtDogumTarihi = Cells(txtsira + 1, 5)
txtTcKimlik = Cells(txtsira + 1, 6)
txtMahalle = Cells(txtsira + 1, 7)
txtCaddeSokak = Cells(txtsira + 1, 8)
txtKapiNo = Cells(txtsira + 1, 9)
txtEgitimDurumu = Cells(txtsira + 1, 10)
txtSosyalGuvence = Cells(txtsira + 1, 11)
txtYakacak = Cells(txtsira + 1, 12)
End If
End Sub

Private Sub cmdkapat_Click()
Unload frmbulsil
End Sub

Private Sub cmdkaydet_Click()
Dim bak As Range
Dim say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = cbAd.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

say = WorksheetFunction.CountA(Range("B1:B65000"))
txtsira.Value = say

Cells(say + 1, 1).Value = txtsira.Value
Cells(say + 1, 2).Value = cbAd.Value
Cells(say + 1, 3).Value = txtBabaAdi.Value
Cells(say + 1, 4).Value = txtAnaAdi.Value
Cells(say + 1, 5).Value = txtDogumTarihi.Value
Cells(say + 1, 6).Value = txtTcKimlik.Value
Cells(say + 1, 7).Value = txtMahalle.Value
Cells(say + 1, 8).Value = txtCaddeSokak.Value
Cells(say + 1, 9).Value = txtKapiNo.Value
Cells(say + 1, 10).Value = txtEgitimDurumu.Value
Cells(say + 1, 11).Value = txtSosyalGuvence.Value
Cells(say + 1, 12).Value = txtYakacak.Value

Workbooks("BulSilDegistir_01.XLS").Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = "Veri!B2:B" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

Private Sub cmdsil_Click()
Dim say As Integer
Dim i As Integer
Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
Next bos
Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 2).Address(False, False)).Delete Shift:=xlUp
say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To say
Cells(i + 1, 1) = i
Next i
Workbooks("BulSilDegistir_01.XLS").Save
MsgBox "Veriniz Silindi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = "Veri!B2:B" & say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

Private Sub cmdtemizle_Click()
cbAd.Value = ""
txtBabaAdi.Value = ""
txtAnaAdi.Value = ""
txtDogumTarihi.Value = ""
txtTcKimlik.Value = ""
txtMahalle.Value = ""
txtCaddeSokak.Value = ""
txtKapiNo.Value = ""
txtEgitimDurumu.Value = ""
txtSosyalGuvence.Value = ""
txtYakacak.Value = ""
cbAd.SetFocus
End Sub

Private Sub txtAnaAdi_Change()
txtAnaAdi.Value = Format(txtAnaAdi, "###,###")
End Sub

Private Sub txtAnaAdi_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
KeyAscii = 0
Beep
End If
End Sub

Private Sub UserForm_Initialize()
Dim say As Integer
Sheets("Veri").Select
txtsira.Locked = True
If Range("B2") = "" Then
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbAd.RowSource = "Veri!B2:B" & say + 1
Else
say = WorksheetFunction.CountA(Range("B1:B65000"))
cbAd.RowSource = "Veri!B2:B" & say
End If
txtsira.Value = say
cbAd.SetFocus
End Sub

arkadaşlar bu kodlar doğrultusunda bir form yaptım fakat error 424 hata mesajı alıyorum debug a basıncada otomatik olarak modüle sayfası açılıyo ordaki kod sarı yanıyo yardımcı olursanız sevinirim.
 
M

Mahmut Kök

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
sarı yanan kod satırını belirtir misiniz? Yani hangi satır sarı yanıyor..
 
A

acemi23

Katılım
25 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
ofis2000
modüle

Mrb Form aça basınca hata 424 run time mesajı veriyo o pencerede bulunan debug a basınca modül sayfasında bulunan frmbulsil.show sarı yanıyo
 
M

Mahmut Kök

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
Açılmasını istediğiniz userform'un adı "formbulsil" mi? İsmi kontrol edin ve komutu modül sayfasına değil de thisworkbook yazan sayfaya yazmayı deneyin.

userform.show

komutunu da deneyin.
 
A

acemi23

Katılım
25 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
ofis2000
problemi çözdüm

Mesleki Problemi Alpi nin sayesinde çözdüm. Sorun yok şu anda.
Ayrıca Şimdi user form Üzerinde cmd düğmesi oluşturdum Buna tıklayınca 20 çalışma sayfasından birne gitmek istiyorum bunu hangi kodlarla yapabilirim acaba
 
A

alpi

Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Sayın Acemi istediğiniz şekilde düzenlenmiş dosyanız ektedir
 
A

acemi23

Katılım
25 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
ofis2000
değiştiremiyorum

merhaba Arkadaşlar kayıtlı bir ismi değiştiremiyorum başta ad soyad ile bulmalısınız ardından veriniz değiştirildi diyo fakat veri değişmiyo.

Private Sub cmdDegistir_Click()
Dim bos As Range
Dim Say As Integer

For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
Next bos
If txtsira.Text = "" Or cbAd.Text = "" Or txtSoyadı.Text = "" Or txtAnaAdı.Text = "" Or txtbabaadı.Text = "" Or txtDoğumTarihi.Text = "" Or txtTcKimlikNo.Text = "" Or txtSiteAdı.Text = "" Or txtCaddeSokak.Text = "" Or txtkapıNo.Text = "" Or TxtDaireNo.Text = "" Or txtEğitimDurumu.Text = "" Or txtSosyalGüvence.Text = "" Or txtYakacak.Text = "" Or txtTelno.Text = "" Or txtMahalle.Text = "" Then
MsgBox "Adı Soyadı listesinden bir Kişi seçmelisiniz"
Else
ActiveCell = cbAd
ActiveCell.Offset(0, 1) = txtSoyadı
ActiveCell.Offset(0, 2) = txtAnaAdı
ActiveCell.Offset(0, 3) = txtbabaadı
ActiveCell.Offset(0, 4) = txtDoğumTarihi
ActiveCell.Offset(0, 5) = txtTcKimlikNo
ActiveCell.Offset(0, 6) = txtSiteAdı
ActiveCell.Offset(0, 7) = txtCaddeSokak
ActiveCell.Offset(0, 8) = txtkapıNo
ActiveCell.Offset(0, 9) = TxtDaireNo
ActiveCell.Offset(0, 10) = txtEğitimDurumu
ActiveCell.Offset(0, 11) = txtSosyalGüvence
ActiveCell.Offset(0, 12) = txtYakacak
ActiveCell.Offset(0, 13) = txtTelno
ActiveCell.Offset(0, 14) = txtMahalle

End If
ThisWorkbook.Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
cmdtemizle_Click
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub
 
A

acemi23

Katılım
25 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
ofis2000
Sorun

Arkada&#351;lar bu program su koyvermeye ba&#351;lad&#305;. Ayn&#305; isim ve soyisimden ikinci bi kay&#305;t yapam&#305;yorum.Ve de&#287;i&#351;tiremiyorum bi de&#287;i&#351;iyo bi de&#287;i&#351;miyor
 
A

acemi23

Katılım
25 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
ofis2000
Option Explicit

Private Sub cbSokak_Change()
Dim Say As Integer
ThisWorkbook.Sheets(cbSokak.Text).Select
cbAd.RowSource = ""
If Not Range("B2") = "" Then
Say = WorksheetFunction.CountA(Range("B1:B65000"))
cbAd.RowSource = ActiveSheet.Name & "!B2:B" & Say
End If
txtsira.Value = Say
cbAd.SetFocus
End Sub

Private Sub cmdDegistir_Click()
Dim bos As Range
Dim Say As Integer

For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
Next bos
If txtsira.Text = "" Or cbAd.Text = "" Or txtSoyadı.Text = "" Or txtAnaAdı.Text = "" Or txtbabaadı.Text = "" Or txtDoğumTarihi.Text = "" Or txtTcKimlikNo.Text = "" Or txtSiteAdı.Text = "" Or txtCaddeSokak.Text = "" Or txtkapıNo.Text = "" Or TxtDaireNo.Text = "" Or txtEğitimDurumu.Text = "" Or txtSosyalGüvence.Text = "" Or txtYakacak.Text = "" Or txtTelno.Text = "" Or txtMahalle.Text = "" Then
MsgBox "Adı Soyadı listesinden bir Kişi seçmelisiniz"
Else
ActiveCell = cbAd
ActiveCell.Offset(0, 1) = txtSoyadı
ActiveCell.Offset(0, 2) = txtAnaAdı
ActiveCell.Offset(0, 3) = txtbabaadı
ActiveCell.Offset(0, 4) = txtDoğumTarihi
ActiveCell.Offset(0, 5) = txtTcKimlikNo
ActiveCell.Offset(0, 6) = txtSiteAdı
ActiveCell.Offset(0, 7) = txtCaddeSokak
ActiveCell.Offset(0, 8) = txtkapıNo
ActiveCell.Offset(0, 9) = TxtDaireNo
ActiveCell.Offset(0, 10) = txtEğitimDurumu
ActiveCell.Offset(0, 11) = txtSosyalGüvence
ActiveCell.Offset(0, 12) = txtYakacak
ActiveCell.Offset(0, 13) = txtTelno
ActiveCell.Offset(0, 14) = txtMahalle

End If
ThisWorkbook.Save
MsgBox "Veriniz değiştirildi", , "KAYIT"
cmdtemizle_Click
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub
Private Sub cmdEnBas_Click()
txtsira = Cells(2, 1)
cbAd = Cells(2, 2)
txtSoyadı = Cells(2, 3)
txtAnaAdı = Cells(2, 4)
txtbabaadı = Cells(2, 5)
txtDoğumTarihi = Cells(2, 6)
txtTcKimlikNo = Cells(2, 7)
txtSiteAdı = Cells(2, 8)
txtCaddeSokak = Cells(2, 9)
txtkapıNo = Cells(2, 10)
TxtDaireNo = Cells(2, 11)
txtEğitimDurumu = Cells(2, 12)
txtSosyalGüvence = Cells(2, 13)
txtYakacak = Cells(2, 14)
txtTelno = Cells(2, 15)
txtMahalle = Cells(2, 16)
End Sub

Private Sub cmdEnSon_Click()
Dim Say As Integer
Say = WorksheetFunction.CountA(Range("A1:A65000"))
txtsira = Cells(Say, 1)
cbAd = Cells(Say, 2)
txtSoyadı = Cells(Say, 3)
txtAnaAdı = Cells(Say, 4)
txtbabaadı = Cells(Say, 5)
txtDoğumTarihi = Cells(Say, 6)
txtTcKimlikNo = Cells(Say, 7)
txtSiteAdı = Cells(Say, 8)
txtCaddeSokak = Cells(Say, 9)
txtkapıNo = Cells(Say, 10)
TxtDaireNo = Cells(Say, 11)
txtEğitimDurumu = Cells(Say, 12)
txtSosyalGüvence = Cells(Say, 13)
txtYakacak = Cells(Say, 14)
txtTelno = Cells(Say, 15)
txtMahalle = Cells(Say, 16)
End Sub

Private Sub cmdGeri_Click()
If txtsira = 1 Then
Exit Sub
Else
txtsira = txtsira - 1
cbAd.ListIndex = txtsira.Value - 1
txtSoyadı = Cells(txtsira + 1, 3)
txtAnaAdı = Cells(txtsira + 1, 4)
txtbabaadı = Cells(txtsira + 1, 5)
txtDoğumTarihi = Cells(txtsira + 1, 6)
txtTcKimlikNo = Cells(txtsira + 1, 7)
txtSiteAdı = Cells(txtsira + 1, 8)
txtCaddeSokak = Cells(txtsira + 1, 9)
txtkapıNo = Cells(txtsira + 1, 10)
TxtDaireNo = Cells(txtsira + 1, 11)
txtEğitimDurumu = Cells(txtsira + 1, 12)
txtSosyalGüvence = Cells(txtsira + 1, 13)
txtYakacak = Cells(txtsira + 1, 14)
txtTelno = Cells(txtsira + 1, 15)
txtMahalle = Cells(txtsira + 1, 16)
End If
End Sub

Private Sub cmdIleri_Click()
Dim Say As Integer
Say = WorksheetFunction.CountA(Range("A1:A65000"))
If txtsira = Say Then
Exit Sub
Else
txtsira = txtsira + 1
cbAd = Cells(txtsira + 1, 2)
txtSoyadı = Cells(txtsira + 1, 3)
txtAnaAdı = Cells(txtsira + 1, 4)
txtbabaadı = Cells(txtsira + 1, 5)
txtDoğumTarihi = Cells(txtsira + 1, 6)
txtTcKimlikNo = Cells(txtsira + 1, 7)
txtSiteAdı = Cells(txtsira + 1, 8)
txtCaddeSokak = Cells(txtsira + 1, 9)
txtkapıNo = Cells(txtsira + 1, 10)
TxtDaireNo = Cells(txtsira + 1, 11)
txtEğitimDurumu = Cells(txtsira + 1, 12)
txtSosyalGüvence = Cells(txtsira + 1, 13)
txtYakacak = Cells(txtsira + 1, 14)
txtTelno = Cells(txtsira + 1, 15)
txtMahalle = Cells(txtsira + 1, 16)
End If
End Sub

Private Sub cmdkapat_Click()
Unload frmbulsil
End Sub

Private Sub cmdkaydet_Click()
Dim bak As Range
Dim Say As Integer
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A65000")))
If bak.Value = cbAd.Value Then
MsgBox "Bu Kayıt numarası bulundu."
Exit Sub
End If
Next bak
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

Say = WorksheetFunction.CountA(Range("B1:B65000"))
txtsira.Value = Say

Cells(Say + 1, 1).Value = txtsira.Value
Cells(Say + 1, 2).Value = cbAd.Value
Cells(Say + 1, 3).Value = txtSoyadı.Value
Cells(Say + 1, 4).Value = txtAnaAdı.Value
Cells(Say + 1, 5).Value = txtbabaadı.Value
Cells(Say + 1, 6).Value = txtDoğumTarihi.Value
Cells(Say + 1, 7).Value = txtTcKimlikNo.Value
Cells(Say + 1, 8).Value = txtSiteAdı.Value
Cells(Say + 1, 9).Value = txtCaddeSokak.Value
Cells(Say + 1, 10).Value = txtkapıNo.Value
Cells(Say + 1, 11).Value = TxtDaireNo.Value
Cells(Say + 1, 12).Value = txtEğitimDurumu.Value
Cells(Say + 1, 13).Value = txtSosyalGüvence.Value
Cells(Say + 1, 14).Value = txtYakacak.Value
Cells(Say + 1, 15).Value = txtTelno.Value
Cells(Say + 1, 16).Value = txtMahalle.Value
ThisWorkbook.Save
MsgBox "Verileriniz Kaydedildi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = ActiveSheet.Name & "!B2:B" & Say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

Private Sub cmdsil_Click()

Dim Say As Integer
Dim i As Integer
Dim bos As Range
For Each bos In Range("B2:B" & WorksheetFunction.CountA(Range("B2:B65000")))
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Önce aradığınız veriyi BUL ile bulmalısınız"
Exit Sub
End If
Next bos
'Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 2).Address(False, False)).Delete Shift:=xlUp
Rows(ActiveCell.Row).Delete Shift:=xlUp
Say = WorksheetFunction.CountA(Range("A2:A65000"))
For i = 1 To Say
Cells(i + 1, 1) = i
Next i
ThisWorkbook.Save
MsgBox "Veriniz Silindi", , "KAYIT"
cmdtemizle_Click
cbAd.RowSource = ActiveSheet.Name & "!B2:B" & Say + 1
txtsira.Value = WorksheetFunction.Count(Range("A1:A65000")) + 1
End Sub

Private Sub cmdtemizle_Click()
cbAd.Value = ""
txtSoyadı.Value = ""
txtAnaAdı.Value = ""
txtbabaadı.Value = ""
txtbabaadı.Value = ""
txtbabaadı.Value = ""
txtDoğumTarihi.Value = ""
txtTcKimlikNo.Value = ""
txtSiteAdı.Value = ""
txtCaddeSokak.Value = ""
txtkapıNo.Value = ""
TxtDaireNo.Value = ""
txtEğitimDurumu.Value = ""
txtSosyalGüvence.Value = ""
txtYakacak.Value = ""
txtTelno.Value = ""
txtMahalle.Value = ""
cbAd.SetFocus
End Sub

Private Sub UserForm_Initialize()
Dim Say As Integer
Dim i As Integer
Sheets("Veri").Select
txtsira.Locked = True
If Not Range("B2") = "" Then
Say = WorksheetFunction.CountA(Range("B1:B65000"))
cbAd.RowSource = "Veri!B2:B" & Say
End If
txtsira.Value = Say
cbAd.SetFocus
i = ThisWorkbook.Sheets.Count
For Say = 1 To i
cbSokak.AddItem ThisWorkbook.Sheets(Say).Name
Next
End Sub
Private Sub cmdbul_Click()
Dim bak As Range
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
bak.Select
Sub Bul(Sutün As String, TXT As Object)
If TXT = "" Then
MsgBox "Lütfen aramak istediğiniz metni yazın..."
Exit Sub
End If
Dim bak As Range
For Each bak In Range(Sutün & "1:" & Sutün & WorksheetFunction.CountA(Range(Sutün & "1:" & Sutün & "65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TXT.Value, vbUpperCase) Then
Cells(bak.Row, 2).Select
txtsira.Value = ActiveCell.Offset(0, -1).Value
cbAd.Value = ActiveCell.Offset(0, 0).Value
txtSoyadı.Value = ActiveCell.Offset(0, 1).Value
txtAnaAdı.Value = ActiveCell.Offset(0, 2).Value
txtbabaadı.Value = ActiveCell.Offset(0, 3).Value
txtDoğumTarihi.Value = ActiveCell.Offset(0, 4).Value
txtTcKimlikNo.Value = ActiveCell.Offset(0, 5).Value
txtSiteAdı.Value = ActiveCell.Offset(0, 6).Value
txtCaddeSokak.Value = ActiveCell.Offset(0, 7).Value
txtkapıNo.Value = ActiveCell.Offset(0, 8).Value
TxtDaireNo.Value = ActiveCell.Offset(0, 9).Value
txtEğitimDurumu.Value = ActiveCell.Offset(0, 10).Value
txtSosyalGüvence.Value = ActiveCell.Offset(0, 11).Value
txtYakacak.Value = ActiveCell.Offset(0, 12).Value
txtTelno.Value = ActiveCell.Offset(0, 13).Value
txtMahalle.Value = ActiveCell.Offset(0, 14).Value
Exit Sub
End If
Next bak
MsgBox "Bulunamadı"
End Sub


Private Sub cmdAdıB_Click()
Bul "B", cbAd
End Sub

Private Sub cmdanaAdıD_Click()
Bul "D", txtAnaAdı
End Sub

Private Sub cmdBabaAdıE_Click()
Bul "E", txtbabaadı
End Sub

Private Sub cmdCaddeSokakI_Click()
Bul "I", txtCaddeSokak
End Sub

Private Sub cmdSoyadıC_Click()
Bul "C", txtSoyadı
End Sub

Private Sub cmdTcG_Click()
Bul "G", txtTcKimlikNo
End Sub




kodalr burada değişiklik yapamıyorum vede aynı isim yada soyisim fakat diğer bilgileri farklı olan yeni kayıt yapamıyorum.
 
A

acemi23

Katılım
25 Kasım 2006
Mesajlar
13
Excel Vers. ve Dili
ofis2000
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
MsgBox "Bu isimde bir kaydınız bulundu"
Exit Sub
End If
Next bak

bunu silip sayfanın en altınada end sub yazınca problem kalkmış oldu
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst