sayın leventm kodunuzu yazdım ama
1- A4 hücresinde bulunması gereken veriyi A3'e, A4 hücresinde bulunması gereken veriyi A3'e taşıyor.
2- User Form açıkken neden veriyi hemen silmediği anlayamadım.
3- Son iki kayıtı seçip bul diyorum bulmuyor
2. Sorunun cevabı
Application.ScreenUpdating = False
False değerini "True" yapın.
3.Soru da ise son iki kayıtı nasıl seçmek istiyorsunuz
1.Soruya uğraşıyorum
[vb:1:874bb93c96]Private Sub cmdbul_Click()
Dim bak As Range
For Each bak In Range("C4:C" & [C65536].End(3).Row)
If StrConv(bak.Value, vbUpperCase) = StrConv(cbAd.Value, vbUpperCase) Then
bak.Select
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub
Private Sub cmdsil_Click()
Application.Calculation = xlCalculationManual
Dim say As Integer
Dim i As Integer
Dim bos As Range
For Each bos In Range("C4:C" & [C65536].End(3).Row)
If cbAd.Value = "" Or bos = "" Or ActiveCell = "" Then
MsgBox "Ã?nce aradığınız personeli BUL ile bulmalısınız"
Exit Sub
End If
Next bos
'Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 11).Address(False, False)).Delete Shift:=xlUp
Rows(ActiveCell.Row).Delete Shift:=xlUp
say = WorksheetFunction.CountA(Range("c4:c65000"))
For i = 1 To say
Cells(i + 1, 1) = i
Next i
cbAd = ""
cbAd.RowSource = "sayfa1!c4:c" & [b65536].End(xlUp).Row
MsgBox "Personel Kaydı Silindi", , "KAYIT"
End Sub
Private Sub UserForm_Initialize()
cbAd.RowSource = "sayfa1!c4:c" & [b65536].End(xlUp).Row
End Sub
[/vb:1:874bb93c96]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.