BYSERTTAS
Altın Üye
- Katılım
- 9 Ekim 2012
- Mesajlar
- 136
- Excel Vers. ve Dili
- Excel Vers. ve Dili Ofis 2021 TR 32 Bit
- Altın Üyelik Bitiş Tarihi
- 06-01-2025
Merhabalar Değerli Üstadlar.
bir konuda yardıma ihtiyacım var. şöyleki :
ListBox Satırını Secince O Satırda Bulunan Id Numarası İle 4-5 sayfadan kaydı silmem gerekiyor. Sayfalarımın ilk 7 satırı sabit kalacak silinmeyecek. Aşagıdaki kodu uyarlamaya çalıştım. kod çalışıyor. fakat bazı sayfalarda Başlık satırlarını siliyor.Arşiv, Puantaj,TekBordro,BBordro,BankaListesi,Disket Sayfalarında Bulunan Id Numarsının Olduğu Satırları Silecek. Diğer Sayfalar ve ve Tüm Sayfaların ilk 7 satırı silinmeycek şekilde Düzeltme yapmanızı istirham ediyorum. Şimdiden Teşekkürler..
Kullanmaya Çalıştığım Kod Şu Şekilde:
Dim Sayfa As Worksheet
Dim BulunanSatır As Long
If ListBox1.ListIndex < 0 Then
MsgBox "Lütfen önce silmek istediğiniz kayıd listeden seçiniz."
Exit Sub
Else
On Error Resume Next
For Each Sayfa In ThisWorkbook.Worksheets
Select Case Sayfa.Name
Case "Parametreler", "Bilgiler", "PuaSablon", "TekBSablon", "CoklubSablon", "BNK", "DisketSablon", "GecıcıSayfa", "PrsListeSablon"
Case Else
BulunanSatır = Sayfa.Range("Au:Au").Find(what:=ListBox1.List(ListBox1.ListIndex, 46), lookat:=xlWhole).Row
Sayfa.Rows(BulunanSatır).Delete
End Select
Next
ListBox1.RemoveItem ListBox1.ListIndex
MsgBox "Kayıt silinmiştir."
End If
End Sub
bir konuda yardıma ihtiyacım var. şöyleki :
ListBox Satırını Secince O Satırda Bulunan Id Numarası İle 4-5 sayfadan kaydı silmem gerekiyor. Sayfalarımın ilk 7 satırı sabit kalacak silinmeyecek. Aşagıdaki kodu uyarlamaya çalıştım. kod çalışıyor. fakat bazı sayfalarda Başlık satırlarını siliyor.Arşiv, Puantaj,TekBordro,BBordro,BankaListesi,Disket Sayfalarında Bulunan Id Numarsının Olduğu Satırları Silecek. Diğer Sayfalar ve ve Tüm Sayfaların ilk 7 satırı silinmeycek şekilde Düzeltme yapmanızı istirham ediyorum. Şimdiden Teşekkürler..
Kullanmaya Çalıştığım Kod Şu Şekilde:
Dim Sayfa As Worksheet
Dim BulunanSatır As Long
If ListBox1.ListIndex < 0 Then
MsgBox "Lütfen önce silmek istediğiniz kayıd listeden seçiniz."
Exit Sub
Else
On Error Resume Next
For Each Sayfa In ThisWorkbook.Worksheets
Select Case Sayfa.Name
Case "Parametreler", "Bilgiler", "PuaSablon", "TekBSablon", "CoklubSablon", "BNK", "DisketSablon", "GecıcıSayfa", "PrsListeSablon"
Case Else
BulunanSatır = Sayfa.Range("Au:Au").Find(what:=ListBox1.List(ListBox1.ListIndex, 46), lookat:=xlWhole).Row
Sayfa.Rows(BulunanSatır).Delete
End Select
Next
ListBox1.RemoveItem ListBox1.ListIndex
MsgBox "Kayıt silinmiştir."
End If
End Sub