Excelde Cift Tiklama Ile Veri Girisi

Excelde Cift Tiklama Ile Veri Girisi Yapma

Aslinda cift tiklama ile veri girisi yapan bir cok ornek cozduk, bundan onceki konularimizda fakat gelen bir istek uzerine ufak bir anlatima da yer vermek istedik.

Calismamizda bundan sonra “Giris_Alani” olarak anacagim bir ad tanimizinin ve araliginizin oldugunu dusununuz ve bu araliga cift tiklandigimizda buraya tarihi ve saati yazdiralim. Ve hemen yanindaki sutunu secmesini saglayalim.

Yazarken uymamiz gereken kurallar;

  • Oncelikle istegimiz cift tiklama ile ilgili oldugundan sayfanin cift tiklama olayina kodlarimizi yazmamiz gerekir. (Worksheet_BeforeDoubleClick)
  • Aralik atamasi yapacagimiz icin koda hata halinde devam etmesi icin bir satir eklemeliyiz. (On Error Resume Next)
  • Hedef hucre aralik disinda ise kodu bitirmesi icin yahut icinde ise islemleri yapmasi icin bir yapi kullanmaliyiz.(If Not Intersect(Target, aralik) Is Nothing Then)
  • Hucrenin bos oldugunu kontrol ederek hucreye zamani yazdirmali ve yan hucreyi secmesini saglamaliyiz.

Aklimizdaki sorulari ve cevaplari bulduktan sonra kodumuzu yazalim;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim aralik As Range
Set aralik = Range("Giris_Alani")
If Not Intersect(Target, aralik) Is Nothing Then
    Application.EnableEvents = False
    Cancel = True 'duzenleme modunu durdurur
    With Target
        If .Value = "" Then
            .Value = Time
            .Offset(0, 1).Activate
        End If
    End With
End If
Application.EnableEvents = True
End Sub

 

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 6 =