BUL VE DEÃÃÃTÃR
Arkadaşlar aşağıdaki kodu kullanarak sayfada kayıtlı verileri TextBoxlara almak ve değişiklik yaptıktan sonra tekrar kayıdetmek istiyorum istiyorum. Ama bir türlü yapamadım. Lütfen yardımcı olurmusunuz. Sevgilerimle, :hey:
Private Sub cmdbul_Click()
Sheets("sayfa3").Select
Dim bak As Range
For Each bak In Range("H1:H" & WorksheetFunction.CountA(Range("H1:H65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox8.Value, vbUpperCase) Then
bak.Select
TextBox1.Value= ActiveCell.Offset(0, 1).Value
TextBox2.Value= ActiveCell.Offset(0, 2).Value
TextBox3.Value= ActiveCell.Offset(0, 3).Value
TextBox4.Value= ActiveCell.Offset(0, 4).Value
TextBox5.Value= ActiveCell.Offset(0, 5).Value
TextBox6.Value= ActiveCell.Offset(0, 6).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub
Arkadaşlar aşağıdaki kodu kullanarak sayfada kayıtlı verileri TextBoxlara almak ve değişiklik yaptıktan sonra tekrar kayıdetmek istiyorum istiyorum. Ama bir türlü yapamadım. Lütfen yardımcı olurmusunuz. Sevgilerimle, :hey:
Private Sub cmdbul_Click()
Sheets("sayfa3").Select
Dim bak As Range
For Each bak In Range("H1:H" & WorksheetFunction.CountA(Range("H1:H65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox8.Value, vbUpperCase) Then
bak.Select
TextBox1.Value= ActiveCell.Offset(0, 1).Value
TextBox2.Value= ActiveCell.Offset(0, 2).Value
TextBox3.Value= ActiveCell.Offset(0, 3).Value
TextBox4.Value= ActiveCell.Offset(0, 4).Value
TextBox5.Value= ActiveCell.Offset(0, 5).Value
TextBox6.Value= ActiveCell.Offset(0, 6).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub