Userformda belirli hücreleri silme

[sedat2161]

Hayırlı sabahlar arkadaşlar. Ekteki dosyamda bulunan Userformdaki listboxta arama yaptıktan sonra bulduğum kişinin K-W aralığındaki bilgileri silmem gerekiyor yardımcı olursanız çok memnun olurum.

 

[hmtstc]

hocam dosyanız çok karışık. kendiniz yapmanız daha iyi gibi.

bulduğunuzda satırı eşleştirmeniz gerekiyor öncelikle.

örneğin tc no eşleşiyorsa

set alan = sheets("BİLGİ").range("B1:B1000")
aranan = textbox3 ' ben rastgele textbox3 yazdım, artık tc nereye yazılıysa.

satır = application.worksheetfunction.match(aranan,alan,0)

formülü ile satırını bulursunuz

sonra

range(cells(satır,11),cells(satır,23)).clearcontents

olarak yazabilirsiniz.

 

[sedat2161]

hocam dosyanız çok karışık. kendiniz yapmanız daha iyi gibi.

bulduğunuzda satırı eşleştirmeniz gerekiyor öncelikle.

örneğin tc no eşleşiyorsa

set alan = sheets("BİLGİ").range("B1:B1000")
aranan = textbox3 ' ben rastgele textbox3 yazdım, artık tc nereye yazılıysa.

satır = application.worksheetfunction.match(aranan,alan,0)

formülü ile satırını bulursunuz

sonra

range(cells(satır,11),cells(satır,23)).clearcontents

olarak yazabilirsiniz.

Hocam ilginiz için çok teşekkür ederim. İnanın o kadar bilgim yok. Dosyamda sizin gibi forumdaki arkadaşlar sağ olsunlar yardımcı oldular. Sona doğru yaklaştım. Yardımcı olacak olan arkadaşlar varsa çok memnun olurum.

 

[hmtstc]

inceleyin bakalım hocam,

hangi ara ne işlem yaptığınızı bilmeden yazdım inşallah aksilik çıkmaz.

 

[sedat2161]

inceleyin bakalım hocam,

hangi ara ne işlem yaptığınızı bilmeden yazdım inşallah aksilik çıkmaz.

Hocam ilginiz için teşekkür ederim. İlk yaptığımda oldu sandım ama TC ad soyad girdiğimde sorun çıktı. 1. Şahıstan deneme yapabilirsiniz.

 

[hmtstc]

hocam ben sizin kişisel bilgileri nasıl getirdiğinizi anlamadım. o yüzden şöyle anlatayım. kay2 diye bir textbox var. orada tc no yazıyor. o tcnoyu BİLGİ sayfasında bulup satırın ilgili yerini sildiriyorum.
ad soyad adres tel vs hiç biri ile ilgilenmiyorum.

 

[hmtstc]

sadece 1. satırda yapıyor, bakıyorum şimdi

 

[hmtstc]

kodu değiştirin lütfen,

Private Sub CommandButton25_Click()
Dim tcno As Double
Dim alan As Range

tcno = SEDAT.kay2
Set bilgi = Sheets("BİLGİ")
Set alan = bilgi.Range("B1:B" & bilgi.Cells(Rows.Count, 2).End(3).Row)
satır = Application.WorksheetFunction.Match(tcno, alan, 0)
bilgi.Select
Range(Cells(satır, 11), Cells(satır, 23)).ClearContents
MsgBox "Temizlendi"
End Sub

 

[sedat2161]

kodu değiştirin lütfen,

Private Sub CommandButton25_Click()
Dim tcno As Double
Dim alan As Range

tcno = SEDAT.kay2
Set bilgi = Sheets("BİLGİ")
Set alan = bilgi.Range("B1:B" & bilgi.Cells(Rows.Count, 2).End(3).Row)
satır = Application.WorksheetFunction.Match(tcno, alan, 0)
bilgi.Select
Range(Cells(satır, 11), Cells(satır, 23)).ClearContents
MsgBox "Temizlendi"
End Sub

Hocam kodu değiştirdim bu şekil uyarı veriyor

 

[hmtstc]

Private Sub CommandButton25_Click()
Dim tcno As Double
Dim alan As Range

tcno = SEDAT.kay2
Set bilgi = Sheets("BİLGİ")
Set alan = bilgi.Range("B1:B1000")
satır = Application.WorksheetFunction.Match(tcno, alan, 0)
bilgi.Select
Range(Cells(satır, 11), Cells(satır, 23)).ClearContents
MsgBox "Temizlendi"
End Sub

B1000 ile denemeiştim bende çalışmıştı

 

[sedat2161]

Private Sub CommandButton25_Click()
Dim tcno As Double
Dim alan As Range

tcno = SEDAT.kay2
Set bilgi = Sheets("BİLGİ")
Set alan = bilgi.Range("B1:B1000")
satır = Application.WorksheetFunction.Match(tcno, alan, 0)
bilgi.Select
Range(Cells(satır, 11), Cells(satır, 23)).ClearContents
MsgBox "Temizlendi"
End Sub

B1000 ile denemeiştim bende çalışmıştı

Private Sub CommandButton25_Click()
Dim tcno As Double
Dim alan As Range

Hocam ilginiz için çok teşekkür ederim. Emeğinize sağlık.