BUL VE DEĞİŞTİR

[Ongun]

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

 

[isakarakus]

bac.select satırını silin,
activecell yerine bak nesnesini kullanın
örn:
TextBox1.Value= bak.Offset(0, 1).Value

gibi

 

[Ongun]

Sayın isakarakus, ellerinize sağlık, çok teşekkür ederim. Saygılarımla. :mutlu: