İşyerinde görevim gereği evde bakım hizmeti alan hastaların ev ziyareti sonuçlarını excelde toparlamak için oluşturduğum userformda kayıt bul butonunda sorun yaşıyorum.Userformda özürlünün adı soyadı yazdığımda kayıt bul butonuna tıklayınca usrformda geri kalan bilgilerin otomatik tamamlanmasını istiyorum. Vba şifresi 142142 dir
Yeni kayıt ekleyince direkt a4 hücresine önceki kayıt yerine ekleniyor.a5 den başlayarak sıralı kayıt yapmıyor.Kodlardaki
Private Sub CommandButton1_Click()
Range("a4").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a5").Value = "" Then
Range("a4").Value = 1
Range("a4").Select
makrosundaki If Range("a5").Value = "" Then değerini a4 olarak değiştirdiğimde bu sorun çözülüyor.Yani sıra ile alt alta yeni kayıtları ekliyor.Ama bu seferde kayıt bul butonunda a4 den sonraki kayıtları bulmuyor.
Kayıt bul butonunun kodları ise şöyle:
Private Sub CommandButton2_Click() 'bul
For Each hucre In Range("b4:b" & WorksheetFunction.CountA(Range("b4:b65000")))
If StrConv(hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
hucre.Select
TextBox2.Text = Sheets("sayfa1").Range("c" & ComboBox1.ListIndex + 4)
TextBox3.Text = Sheets("sayfa1").Range("d" & ComboBox1.ListIndex + 4)
TextBox4.Text = Sheets("sayfa1").Range("e" & ComboBox1.ListIndex + 4)
TextBox5.Text = Sheets("sayfa1").Range("f" & ComboBox1.ListIndex + 4)
TextBox6.Text = Sheets("sayfa1").Range("g" & ComboBox1.ListIndex + 4)
TextBox7.Text = Sheets("sayfa1").Range("h" & ComboBox1.ListIndex + 4)
TextBox8.Text = Sheets("sayfa1").Range("ı" & ComboBox1.ListIndex + 4)
TextBox9.Text = Sheets("sayfa1").Range("j" & ComboBox1.ListIndex + 4)
TextBox10.Text = Sheets("sayfa1").Range("k" & ComboBox1.ListIndex + 4)
TextBox11.Text = Sheets("sayfa1").Range("l" & ComboBox1.ListIndex + 4)
End If
Next
End Sub
Yardımcı olabilecek arkadaşların yardımını bekliyorum.Vba şifresi 142142 dir
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]