excel yardım! çift tıklayınca değer yazdırma

Kodla Büyü
Demhar

Demhar

Seçkin Üye
Seçkin Üye
Mesajlar
457
günaydın arkadaşlar. excelde hücreye çift tıkladığımda "x" yazmasını istiyorum. nasıl yapabilirim. kodunu ve işlem basamaklarını yazarsanız sevinirim. Office 2007 yüklü bilgisayarımda. teşekkür ederim.
 
Excel'de bu işlemi yapmak istediğiniz sayfanın adının üzerine sağ tıklayıp, kodu görüntüle seçeneğini seçin. Ekrana gelen pencereye aşağıdaki kodu yapıştırın.
Kod: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
  Target.Value = "X"
  Cancel = True
End Sub
Kod içerisindeki Range("A1:A10") ifadesini, bu özelliği hangi hücre aralığı için kullanacaksanız, o hücre aralığını ifade edecek şekilde değiştirin. Örneğin; Range("B2:E28") şeklinde yaparsanız, B2:E28 aralığındaki hücrelere çift tıkladığınızda X yazar diğerlerinde yazmaz. Son olarak dosyanızı farklı kaydet deyip, .xlsm uzantısıyla kaydederseniz, makrolarınız çalışacaktır.
 
Kodu deneyip, eklemiştim. Aşağıya örnek bir dosya da ekliyorum.
 

Ekli dosyalar

  • x yaz.zip
    10.7 KB · Görüntüleme: 23
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst