koşula göre istenilen hücre içeriğinin silinmesi

[hsyn17]

Sayın Üstat,
E1 hücresine değer yazıldığında F1 hücresinin içeriğinin silinmesini
VE
A1 hücresine "sil" yazıldığında E1 hücresinin içeriğinin silinmesini istiyoruz

böyle bir makro yazılabilir mi .. Teşekkür
(dosya gönderemediğim için üzgünüm

 

[Ömer BARAN]

Merhaba.

Madem A sütunundaki formül kendi satırındaki H ve K sütunu hücrelerine göde çalışıyor.
O halde kod'u H ve K sütunu hücreleri ile önceki durumda olduğu gibi E sütunu hücrelerine
elle veri girişi yapıldığında kod'un tetiklenmesi anlamlı olur demeki.

Böylece;
-- alt taraftan uygulamayı kullanacağınız sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçip,
-- açılan VBA ekranında sağdaki boş alana aşağıdaki kod'u yapıştırıp,
-- E2:E6 aralığı, H2:H6 ve K2:K6 hücre aralıklarında değişiklik olduğunda (elle veri girişi yapılarak)
kod tetiklenerek istediğiniz işlemi yapar.
.

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Intersect(Target, [E2:E6, H2:H6, K2:K6]) Is Nothing Then Exit Sub
If Target.Column = 5 And Target <> "" Then Cells(Target.Row, 6) = ""
If (Target.Column = 8 And Target <> Cells(Target.Row, 11)) Or _
    (Target.Column = 11 And Target <> Cells(Target.Row, 8)) Then Cells(Target.Row, 5) = ""
[B]End Sub[/B]

 

[hsyn17]

Teşekkür ederim Ömer Baran bey,
ilk satırda makro çalışıyor...
Bir de bunu 6ncı satıra kadar yapabilirsek çok memnun oluruz
( yani a1 den a6 ya kadar ve e1 den e6 ya kadar gibi )
Bu arada A hücrelerindeki "SİL" bir "eğer formülü" ile yazılıyor... yani başka iki hücrenin koşuluna göre "SİL" yazıyor
(Şuan Formül yazılı hücreye gelip, mouse ile tıklayıp enter tuşuna bastığımda çıkan "SİL" yazısına istinaden "e" hücre siliniyor
tekrar teşekkür

 

[Ömer BARAN]

Silme işlemi A veya E sütunundaki hücrenin kendi satırında mı yapılacak?
Örneğin, A4'e SİL yazıldı, E4'mü silinecek, E5'e herhangi bir şey yazıldı F5'mi silinecek?
.

 

[hsyn17]

Evet sayın hocamm, aynen

 

[Ömer BARAN]

Önceki cevabımdaki kod'u güncelledim.
Sayfayı yenileyerek önceki cevabı konrol edin.
.

 

[hsyn17]

Sn hocam, emeğinize sağlık...
... eğer kızmasanız son soru daha doğrusu RİCA
e hücresini silmesi için a hücresine girip enter tuşuna basmam gerek... (Orada eğer ile başlayan bir formül vardı ya)
Orası da başka 2 hücreye bağımlı "sil" oluyordu
yani: a2 hücresinde şu formül var: eğer(h2=k2;"SİL";"kalsın") gibi ...
Tekrar Teşekkür ederim..

 

[antonio]

Hata veren satırda size önerilen kod satırında "F" (f harfinden sonra unutulan tırnak işaretini ekleyiniz.
daha açık anlatımla: (Target.Row,"F)="" ifadesini; (Target.Row,"F")="" olarak değiştiriniz.

 

[Ömer BARAN]

Sayın antonio'nun dikkate için teşekkürler.
Aynen haklıdır kendileri ve önceki cevabımda bu düzeltmeyi de yaptım.

Ayrıca soruların gerçek belgeyle aynı yapıda örnek belge üzerinden sorulmaması, konuların gereksiz uzamasına neden oluyor.
İlk verdiğim cevap sırasında da "elle veri girişi" şeklinde vurgulamıştım.

Şimdi H ve K sütunundan bahsediyorsunuz ve halen o hücrelerde de formül mü var, o hücrelere veri girişi elle mi yapılıyor o da belli değil.
Örnek belge (gerçek belgeyle aynı yapıda ve kullanılan formülle çalışır durumda belge içerisinde olacak şekilde) yükleyerek
isteğinizi net olarak belirtin derim ben.
.

 

[hsyn17]

Sn Ömer hocam
Dosya ekleme konusunda çok haklısınız, ve dosyayı ekledim
Formul sadece A sütununda var (EGER formüllü) ve de H ve K sütunlarına bağlı "SİL" ya da "anb" olarak değişiyor .. Yazdığınız macro çok iyi çalışıyor. Ama sadece "A" hücresine imleci getirip enter tuşuna basılınca ilgili hücre içeriği temizleniyor.... acaba bu giderilebilir mi ?
Tekrar teşekkür eder, emeğinize sağlık diliyorum

http://dosya.co/bx5g17kgi7it/kosullu.xlsm.html

 

[Ömer BARAN]

Sayfayı yenileyerek önceki cevabı tekrar kontrol edin.
Madem A sütunu H ve K sütununa bağlı, öyleyse A sütunu için önggörülen işlem,
H ve K sütununda elle verişi yapıldığında tetiklenmek üzere aynı şekilde gerçekleşebilir.
E sütununun durumunda değişiklik yok zaten.
Yok eğer H ve K sütundaki hücrelerde görülen değerler de elle yazılmıyorsa;
durumu net şekilde ifade edin, tekrar bakalım.
.

 

[hsyn17]

Sayın Ömer Baran
Emeğine Sağlık, Harika oldu ...
var olun ... teşekkür ederim )