satır silme

[elvis]

arkadaşlar aşağıda yazmış olduğum kod ile arama bulma yaptıktan sonra satır silme işlemini yapabiliyorum ancak bu kod satır numarasına göre işlem yapıyor . benim istediğim; a sütununda bulunan rakamlardan ilgili olanı bulup, bulduğu satırı silmesi. Örneğin; a1, a2 ve a3 satırında sırayla 2,3 ve 4 numaraları yazılı. bu kod çalıştığı zaman 3 numaralı hücreyi satırıyla birlikte silmek istediğim zaman, a2 satırına gelmesi gerekirken a3 satırına gelip o satırı siliyor. bu kodda değişiklik yapabilir misiniz? excel'in satır numarasını dikkate almayıp, hücredeki numarayı dikkate alması sağlanabilir mi?

sat = TextBox1
Range("a" & sat).Select
TextBox2.Value = ActiveCell.Offset(0, 0).Value
If TextBox1 <> TextBox2 Then
MsgBox "Böyle bir kayda rastlanılmadı!"
Unload UserForm4
End If
Exit Sub
If MsgBox("Silmek istiyor musunuz?", vbYesNo, "Uyarı") = vbYes Then
Range("a" & sat & ":z" & sat).Delete
End If

 

[baydeniro]

Silinecek satırın numarası veya bilgisi hangi hücrede yazılı olacak ?

 

[kulomer46]

kodlar&#305; a&#351;a&#287;&#305;daki &#351;ekilde de&#287;i&#351;tirdim..
sat = TextBox1
Range("a" & sat).Select
TextBox2.Value = ActiveCell.Offset(0, 0).Value
If TextBox1 <> TextBox2 Then
MsgBox "B&#246;yle bir kayda rastlan&#305;lmad&#305;!"
Unload UserForm4
End If
Exit Sub
For i = 1 To Cells(65500, 1).End(xlUp).Row
If Cells(i, 1) = sat Then
If MsgBox("Silmek istiyor musunuz?", vbYesNo, "Uyar&#305;") = vbYes Then
Range("a" & i & ":z" & i).Delete
End If
End
End If
Next

 

[elvis]

Te&#351;ekk&#252;r ederim. Eme&#287;inize sa&#287;l&#305;k. &#350;imdi oldu.