Bir sütundaki değerlerin istenen değerle değiştirme

[Solak62]

Merhabalar,

Bir sütundaki herhangibir hücreye çift tıklayınca o sütundaki veri içeren hücrelere ait değerlerin 1 olmasını istiyorum. Bunun için nasıl bir kod yazılmalı.

Yardım edebilirseniz çok sevinirim...

 

[uzmanamele]

merhaba

aşağıdaki kod işinizi görür mü?
tüm sütundaki değeri değil seçilen hücre değerini değiştirir.
verilerin B sütununda olduğu varsayılmıştır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Target.Value = 1
End Sub

 

[Solak62]

Cevabınız için çok teşekkür ediyorum. Aslındafarklı bir durum oluştu çalışmamla ilgili. Birincisi hedef değerinin bir olmasını istediğim hücrenin içerisinde formül mevcut yani dolayısıyla sormuş olduğum şeyi uygulamak mümkün değil zannedersem burada.

Böyle bir soruyu sormamdaki neden ise bir iterasyon uyguluyorum çalışmamda ve F9 a basmayla iterasyon çalışıyor ve bu hücredeki değer 1 iken 2 oluyor. Tekrar iterasyon yapabilmek için bu hücre değerini 1 yapmam gerekiyor fakat aynı sütunda 30 kadar rakam var ve her severinde aşağı çekip kopyalamaktansa çift tıklamayla hal olsun istedim. Ama yukarıda da dediğim gibi içinde formül olduğundan maalesef uygulayamayacağım.

Tekrar çok teşekkür ederim...