satır silmede hakkında

[damra2005]

ekli dosyada comboboxta yardıma ihiyacım var

 

[damra2005]

anladığım kadarıyla üstadlar çok meşgülsünüz

 

[Levent Menteşoğlu]

Comboboxa isimleri almak için aşağıdaki kodu userforma yazın.

[vb:1:5c8a3466de]Private Sub UserForm_Initialize()
For a = 4 To [b65536].End(xlUp).Row
cbAd.AddItem Cells(a, 3).Value
Next
End Sub
[/vb:1:5c8a3466de]

veya

[vb:1:5c8a3466de]
Private Sub UserForm_Initialize()
cbAd.RowSource = "sayfa1!c4:c" & [b65536].End(xlUp).Row
End Sub
[/vb:1:5c8a3466de]

 

[damra2005]

ekli dosyadaki sorunum. halen çösülmedi. üstadlar lütfen yardım edin acil

 

[damra2005]

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

üstad yardımların için teşekkürler

 

[Mahmut Bayram]

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

 

[damra2005]

Sayın Mahmut Bayram son üç kayıtı comboboxtan seçiyorum. bu diyorum ama msgboxtaki "aradığınız kayıt bulunamadı"uyarısı geliyor

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[veyselemre]

[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]