Aynı anda iki sütundaki değeri silme

[seddur]

Dim Bul As Range
Set Bul = Sheets("Sayfa1").Range("A:N").Find(TextBox2.text)
If Bul Is Nothing Then
MsgBox "Silmek istediğiniz veri bulunamadı."
ElseIf MsgBox("Bu veriyi gerçekten silmek istiyor musunuz?", vbYesNo) = vbYes Then
Sheets("Sayfa1").Range(Bul.Address & "b" & Bul.Row).Delete xlUp
TextBox2.text = ""
MsgBox "Veri silindi."
End If

Yukardaki kod ile sayfadaki aranan değeri (Ürün cinsi Bulunan sütun)siliyorum ancak yan sütununda bulunan (Fiyat sütunu) değeride aynı anda silmek istiyorum.Nasıl yapabilirim.Sayfadaki veriler "A" sütununda "ürün cinsi "B" sütununda fiyatı, "C" sütununda Ürün cinsi "D" sütununda fiyatı şeklinde devam ederek gidiyor.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sheets("Sayfa1").Columns(Bul.Column).Resize(, 2).Delete xlUp

.

 

[seddur]

Kod seçili değerin bulunduğu tüm sütunu siliyor.Bizim yapmak istediğimiz örneğin seçilmiş bulunan "A" ve "B" sütunu 5. satırındaki hücre değerlerini aynı anda silmek.

 

[YUSUF44]

Sheets("Sayfa1").Bul.Resize(, 2).Delete xlUp

Şeklinde olabilir mi?

 

[seddur]

olmadı bu kodda hata veriyor

 

[YUSUF44]

Dosya olmadan çözüm bulmak iğneyle kuyu kazmak gibi.

 

[seddur]

Açılan userformdaki Textbox2 ye girilen değer ( Ürün cinsi) ile veri tabanından (Sayfa1 den) Ürün cinsi ve fiyatı aynı anda silinmek isteniyor.

 

[seddur]

Kaydet ve değiştir butonları güncel değil dikkate almayın

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub Sil_Click()
    Dim Bul As Range
    Set Bul = Sheets("Sayfa1").Range("A:N").Find(TextBox2.text)
    If Bul Is Nothing Then
        MsgBox "Silmek istediğiniz veri bulunamadı."
    ElseIf MsgBox("Bu veriyi gerçekten silmek istiyor musunuz?", vbYesNo) = vbYes Then
        Unload Me
        a = Bul.Row
        b = Bul.Column
        Sheets("Sayfa1").Range(Cells(a, b), Cells(a, b + 1)).Delete shift:=xlUp 'ÇALIŞMA YAPILAN SATIR
        TextBox2.text = ""
    End If
    MsgBox "Veri silindi."
End Sub

Yalnız dosyanızı biraz karıştırmışsınız sanki. Farklı userformlar var ve örneğin fiyat etiketinin altındaki textboxta isme göre arama yapılıyor.

 

[seddur]

Maalesef silmiyor.Bu kadar zor olacağını düşünmemiştim.Yapım aşamasında olduğundan biraz karmaşa var.

 

[seddur]

Verdiğiniz kodların bulunduğu dosyanın tümünü düzeltilmiş haliyle yeniden gönderiyorum.Userform açılışı "LİSTE" sayfasında

 

[seddur]

Dosya son hali.

 

[YUSUF44]

Aşağıdaki gibi deneyin:

Private Sub Sil_Click()
    Dim Bul As Range
    Set Bul = Sheets("Sayfa1").Range("A:N").Find(TextBox2.text)
    If Bul Is Nothing Then
        MsgBox "Silmek istediğiniz veri bulunamadı."
    ElseIf MsgBox("Bu veriyi gerçekten silmek istiyor musunuz?", vbYesNo) = vbYes Then
        a = Bul.Row
        b = Bul.Column
        Application.ScreenUpdating = False
        Sheets("Sayfa1").Activate
        Sheets("Sayfa1").Range(Cells(a, b), Cells(a, b + 1)).Delete Shift:=xlUp 'ÇALIŞMA YAPILAN SATIR
        TextBox2.text = ""
        MsgBox "Veri silindi."
        Application.ScreenUpdating = True
    End If
End Sub

Hatanın sebebi başka sayfadaki hücreyi silmek istemenizden kaynakalnıyor muhtemelen.

 

[seddur]

Evet şimdi çalıştı.Teşekkür ederim.