Satır Sil

[Emsdmr]

Merhaba Arkadaşlar;

Userform2 de borç sil butonu ile listboxa alınmış hücrelerdeki veriyi siliyorum fakat sildiğim hücrelerin bazılarında kod var ve ben bu hücrelerin silinmesini istemiyorum bu hücreler (F2:F65536, G2:G65536, H2,ve J2) Ayrıca Bütün satırlaın 1'inci Hücreside silinmeyecek. Bu Silme İşlemi(A2:K2 arasında oluyor)
Yani A2:K2 arasında F2:F65536, G2:G65536, H2,ve J2 hariç diğer hücreler silinecek.
Kullandığım Kod Aşağıda
Yardımlarınızı Bekliyorum.

Dim sat As Integer
'*****listbox seçili değilse uyar
If ListBox1.ListIndex < 0 Then
MsgBox "Önce listeden silmek istediğiniz bir borcu seçiniz", vbInformation
Exit Sub: End If
'*****silinecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") Like ListBox1.Column(0) Then
Cells(sat, "a").EntireRow.Delete Shift:=xlUp
End If: Next

 

[halit3]

Merhaba Arkadaşlar;

Userform2 de borç sil butonu ile listboxa alınmış hücrelerdeki veriyi siliyorum fakat sildiğim hücrelerin bazılarında kod var ve ben bu hücrelerin silinmesini istemiyorum bu hücreler (F2:F65536, G2:G65536, H2,ve J2) Ayrıca Bütün satırlaın 1'inci Hücreside silinmeyecek. Bu Silme İşlemi(A2:K2 arasında oluyor)
Yani A2:K2 arasında F2:F65536, G2:G65536, H2,ve J2 hariç diğer hücreler silinecek.
Kullandığım Kod Aşağıda
Yardımlarınızı Bekliyorum.

Dim sat As Integer
'*****listbox seçili değilse uyar
If ListBox1.ListIndex < 0 Then
MsgBox "Önce listeden silmek istediğiniz bir borcu seçiniz", vbInformation
Exit Sub: End If
'*****silinecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") Like ListBox1.Column(0) Then
Cells(sat, "a").EntireRow.Delete Shift:=xlUp
End If: Next

bunu denermisin mavi renkli veriler olmazsa kırmızı renkli verileri kullan

Dim sat As Integer
If sat < 1 Then Exit Sub
'*****listbox seçili değilse uyar
If ListBox1.ListIndex < 0 Then
MsgBox "Önce listeden silmek istediğiniz bir borcu seçiniz", vbInformation
Exit Sub: End If
'*****silinecek verileri döngü ile kontrol et
For sat = 2 To Cells(65536, "a").End(xlUp).Row
If Cells(sat, "a") Like ListBox1.Column(0) Then
'Cells(sat, "a").EntireRow.Delete Shift:=xlUp
[COLOR=red]'Cells(sat, "a").Delete Shift:=xlUp
'Cells(sat, "b").Delete Shift:=xlUp
'Cells(sat, "c").Delete Shift:=xlUp
'Cells(sat, "d").Delete Shift:=xlUp
'Cells(sat, "e").Delete Shift:=xlUp
'Cells(sat, "ı").Delete Shift:=xlUp
'Cells(sat, "k").Delete Shift:=xlUp[/COLOR]
[COLOR=red][/COLOR]
[COLOR=blue][/COLOR]
 
[COLOR=blue]Cells(sat, "a").ClearContents
Cells(sat, "b").ClearContents
Cells(sat, "c").ClearContents
Cells(sat, "d").ClearContents
Cells(sat, "e").ClearContents
Cells(sat, "ı").ClearContents
Cells(sat, "k").ClearContents[/COLOR]
End If: Next

 

[Emsdmr]

sayın halit3
bu kodlarla hiçbir hücre içeriğini silemiyorum
kodları dediğiniz gibi denedim butona atadım fakat verileri silemedim

 

[Korhan Ayhan]

Selamlar,

Dosyanızın küçük bir örneğini ekleyip silmek istediğiniz ve silmek istemediğiniz alanları belirtirseniz yardım almanız kolaylaşacaktır.

 

[Emsdmr]

1- Ekli dosyanın userform2 içerisindeki combobox1 de seçili sayfa aktif oluyor listbox da seçili veri commandbutton ile siliniyor fakat silinmesini istediğim veriler A2:K65536 arası. Bu aralıkta F,G,Hve J Sütunları silinmesin (Yani İçeriğinde Kod taşıyan Hiç bir hücre Silinmesin)
2- İkinci olarak userform7 içerisinde textbox3 içerisine yazılan tarih, excel üzerine buton ile taşınırken 20.10.2009 yerine 20.01.1900 şeklinde bir tarih atıyor halbuki userform1 içerisinde de aynı kodları kullanmama rağmen userform7 de aynı kod işe yaramıyor.
Alaka gösteren bütün hocalarıma teşekkür ederim.

KOD:123

 

[halit3]

dosyayı bir kontrol ediniz

 

[Emsdmr]

sayın halit3 teşekkür ederim.
bütün mesele halledilmiş.
Fakat bir istirhamım daha olacak listbox silme işleminden sonra kendini yenileye bilirmi acaba ilk satır silindiğinde diğer satırlar yukarı kaysa

 

[halit3]

sayın halit3 teşekkür ederim.
bütün mesele halledilmiş.
Fakat bir istirhamım daha olacak listbox silme işleminden sonra kendini yenileye bilirmi acaba ilk satır silindiğinde diğer satırlar yukarı kaysa

önceki durumunda bu zaten vardı formüller silinmesin diyorsunuz satırda değerler silinince satır boş kalır satırın tamamını silerseniz satır boş kalmaz

iki sacanakten birini kullanmanız gerekiyor bana kalırsa önceki durumu iyiydi
oraya kayıt yaparken formülleride kayıt yapacaktı bitecekti

 

[Emsdmr]

sanıyorum bir şekilde idare edecem
teşekkür ederim ilginiz ve yardımınız için