Tarİh Okuma

[muzafferoral]

ArkadaŞlar Excelde Bİr Tablo Var Mayis Ayina Aİt.dİyelİmkİ 15.05.2008 GÜnÜne Mausla Tiklayinca Ayni Tarİh B53 E Gelsİn İstİyorum.bİrde Herhangİ Bİr Tarİhtekİ Sayilar Ve DeĞerler Anyi Tarİhİn KarŞisina GeÇsİn.dosya Ektedİr Yardimlarinizi Beklİyorum.hangİ Tarİhe Gİdersem Ondakİ Tutar FormÜl UygulayacaĞim Yere Gelsİn

 

[musculus]

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


End Sub


bu kodları sayfa1'in kod sayfasına yapıştırın