Listview ekranında şartlı silme hatası

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Listview ekranında şartlı silme hatası

İleti#1)  sahirazi » 16 Haz 2017 15:32

Merhaba Ali bey

Bir sonraki soruna görüşmek üzere demiştim. Sorun çok çabuk meydana çıktı.

DATA sayfasına eklediğiniz kod sıralaması

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 11 Then Exit Sub
If Target.Text = "YAPILDI" Then Target.EntireRow.Copy Sayfa2.Range("a65536").End(3)(2, 1)
Rows(Target.Row).Delete Shift:=xlUp


Kod: Tümünü seç
Rows(Target.Row).Delete Shift:=xlUp


bu kod Listviev ekranına çift tıklatıktan sonra hiçbir değişiklik yapmadan DEĞİŞTİR butonuna bastığınızda seçilen satırı siliyor.

Bu kodu sadece "YAPILDI" şartına göre çalışır yapabilir miyiz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sahirazi
Yeni Başlamış
 
Adı Soyadı:Şahin MORKOÇ
Kayıt: 31 Arl 2013 15:15
Konum: Ankara / Sincan
Meslek: Bilgisayar Teknikeri
Yaş: 38
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Sincan

Cevap: Listview ekranında şartlı silme hatası

İleti#2)  Ali ÖZ » 16 Haz 2017 16:17

Değiştir butonunda silme kodu göremedim ?
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Listview ekranında şartlı silme hatası

İleti#3)  sahirazi » 16 Haz 2017 20:08

Ali bey değiştirde silme kodu yok. Sizin Data dosyasına eklediğiniz kodlar satırda herhangi bir değişiklik yapınca o satırı siliyor.

Biraz daha açıklayıcı olmam gerekirse. Satırdaki Durum sütunundaki YAPILDI şartı diğer sayfaya taşıma yapıyor. Bunda problem yok. Excel satırında veya listviev üzerine çift tıklayınca yapılan herhangi bir değişiklikte satırı siliyor. Hem excel sayfası üzerinden hemde listview ekranı üzerinden uygulamalı değişiklikler yaparsanız ne demek istediğimi anlarsınız.

Elimden geldiği kadar anlatmaya çalıştım. umarım başarabilmişimdir. :roll:
Kullanıcı avatarı
sahirazi
Yeni Başlamış
 
Adı Soyadı:Şahin MORKOÇ
Kayıt: 31 Arl 2013 15:15
Konum: Ankara / Sincan
Meslek: Bilgisayar Teknikeri
Yaş: 38
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Sincan

Cevap: Listview ekranında şartlı silme hatası

İleti#4)  sahirazi » 18 Haz 2017 11:44

Merhaba sorunuma çözüm bulamadım. Yardımcı olur musunuz?
Kullanıcı avatarı
sahirazi
Yeni Başlamış
 
Adı Soyadı:Şahin MORKOÇ
Kayıt: 31 Arl 2013 15:15
Konum: Ankara / Sincan
Meslek: Bilgisayar Teknikeri
Yaş: 38
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Sincan

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Listview ekranında şartlı silme hatası

İleti#5)  Ali ÖZ » 19 Haz 2017 09:49

Bu şekilde değiştirip deneyin.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 11 Then Exit Sub
If Target.Text = "YAPILDI" Then
  Target.EntireRow.Copy Sayfa2.Range("a65536").End(3)(2, 1)
  Rows(Target.Row).Delete Shift:=xlUp

end if
end sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Listview ekranında şartlı silme hatası

İleti#6)  sahirazi » 20 Haz 2017 15:38

Ali bey teşekkür ederim. Gayet iyi oldu elinize sağlık.
Kullanıcı avatarı
sahirazi
Yeni Başlamış
 
Adı Soyadı:Şahin MORKOÇ
Kayıt: 31 Arl 2013 15:15
Konum: Ankara / Sincan
Meslek: Bilgisayar Teknikeri
Yaş: 38
İleti: 58
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Sincan

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe