Userforma Getirilen veriyi Değiştirme

[Alideveci09]

Kolay gelsin arkadaşlar örnek dosyada userforma tc numarasını girerek veri getiriyorum. burada tarama tarihleri olanlar değişmeyecek sadece boş texbootlara veri girilip tekrar kayıt edilecek. liste yaklaşık olarak 5000 kişi. aynı zaman da userform üzerinden tc no girilerek kişinin tarama tarihlerini de öğreniyoruz. kişi bilgileri ve tarama tarihlerini pdf olarak önizlememiz mümkün müdür. teşekkürler

http://s3.dosya.tc/server8/u5gsf1/liste_tarama.rar.html

 

[Alideveci09]

Konu Hakkında bilgisi olan arkadaşlardan yardım bekliyorum

 

[Alideveci09]

yardım

Kaydet butonuna aşağıdaki kodu uydurdum ama bütün sütunu değiştiriyor sadece sadece tcno uyan kişiyi nasıl değiştirebilirim

Private Sub CommandButton2_Click()
ThisWorkbook.Activate
Sheets("GENEL LİSTE").Select
Dim sat As Integer
'*****listbox seçili değilse uyar
If tcno.Text < 0 Then
MsgBox "Önce bir isim seçmelisiniz", vbInformation
Exit Sub
End If
a = Cells(tcno.Text + 2, 2)
'*****değişecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "b").End(xlUp).Row
Sheets("GENEL LİSTE").Cells(sat, "e") = telefon.Text
Next
MsgBox "DEĞİŞTİRME İŞLEMİ YAPILMIŞTIR.", vbInformation
End Sub

 

[Alideveci09]

yardım

yardımlarınızı bekliyorum arkadaşlar

 

[Alideveci09]

arkadaşlar sayfada seçili olan satırın değişeceği döngü kodu olsa gerisini yapabilecek gibiyim .....

 

[PLİNT]

Merhaba
Yukarıdaki kodlara aşağıdaki kırmızı ekler yeterli gibi görünüyor
"a" tanımlaması ek kodlar yoksa gereksiz,

Private Sub CommandButton2_Click()
ThisWorkbook.Activate
Sheets("GENEL LİSTE").Select
Dim sat As Integer
'*****listbox seçili değilse uyar
If tcno.Text < 0 Then
MsgBox "Önce bir isim seçmelisiniz", vbInformation
Exit Sub
End If
[COLOR="Blue"]'a = Cells(tcno.Text + 2, 2)[/COLOR]
'*****değişecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "b").End(xlUp).Row
[COLOR="Red"]If tcno.Text = Cells(sat, "B").Text Then[/COLOR]
Sheets("GENEL LİSTE").Cells(sat, "e") = telefon.Text
[COLOR="Red"]Exit For '***Aynı "tc no" lu başka yoksa döngüden çıksın
End If[/COLOR]
Next
MsgBox "DEĞİŞTİRME İŞLEMİ YAPILMIŞTIR.", vbInformation
End Sub

 

[Alideveci09]

Merhaba
Yukarıdaki kodlara aşağıdaki kırmızı ekler yaterli gibi görünüyor
"a" tanımlaması ek kodlar yoksa gereksiz,

Private Sub CommandButton2_Click()
ThisWorkbook.Activate
Sheets("GENEL LİSTE").Select
Dim sat As Integer
'*****listbox seçili değilse uyar
If tcno.Text < 0 Then
MsgBox "Önce bir isim seçmelisiniz", vbInformation
Exit Sub
End If
[COLOR="Blue"]'a = Cells(tcno.Text + 2, 2)[/COLOR]
'*****değişecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "b").End(xlUp).Row
[COLOR="Red"]If tcno.Text = Cells(sat, "B").Text Then[/COLOR]
Sheets("GENEL LİSTE").Cells(sat, "e") = telefon.Text
[COLOR="Red"]Exit For '***Aynı "tc no" lu başka yoksa döngüden çıksın
End If[/COLOR]
Next
MsgBox "DEĞİŞTİRME İŞLEMİ YAPILMIŞTIR.", vbInformation
End Sub

Tam isabet olmuş teşekkürler hocam
Sheets("GENEL LİSTE").Cells(sat, "e") = telefon.Text
altına diğer hücreleri de ekledim mi tamamdır . kaç gündür işin içinden çıkamıyordum teşekkürler..

 

[Alideveci09]

teşekkürler

Arkadaşlar dosya tamamdır. en son halini de buraya yüklüyorum bence arşivinizde bulunsun. çalışmalarınıza da uyarlayarak kullanabilirsiniz. herkese kolay gelsin.
teşekkürler.



http://s3.dosya.tc/server8/y3xm84/tarama.rar.html