belirtilen tarihe veri kaydı

[eltarih]

[/url][/IMG]



arkadaşlar günlük veri girişi ypacağım örnek olsun diye kısa bir sayfa hazırladım aslında dosyamda 30 küsür kalemde veri girişi yapmam gerekiyor ancak her gün girişini yaptığım veri belirttiğim tarihhe kaydolmasını istiyorum nasıl yapabilirim yardımcı olur muusnuz

 

[PLİNT]

Merhaba
Ek dosyada "c1" hücresine; "kayıt" sayfasında bulunan bir tarih yazarak deneyin.

http://www.dosya.tc/server9/v6n501/kayit.zip.html

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("c1")) Is Nothing And Target = "" Or IsDate(Target.Value) = False Then Exit Sub
Set s1 = Sheets("veri girişi")
Set s2 = Sheets("kayıt")
For a = 2 To s1.Cells(Rows.Count, 1).End(3).Row
Set r = s2.Range(s2.Cells(1, 2), s2.Cells(1, s2.Cells(1, Columns.Count).End(xlToLeft).Column)).Find _
(s1.Cells(a, 1).Value)
If Not r Is Nothing Then
Set r1 = s2.Range("A:A").Find(DateValue(Target.Value))
If Not r1 Is Nothing Then
s2.Cells(r1.Row, r.Column) = s1.Cells(a, 2)
End If: End If
Next

End Sub[/SIZE]

 

[eltarih]

çok teşekkür ederim tam istediğim şeyde buydu excelle haşır neşir oldum sürekli ama makroyu çok bilmiyordum detaylı işlemler için gerçekten çok kullanışlıymış ancak bir sorum daha olacak veri sütununu değiştirmek istediğimde kod kısmında nereyi değiştirmem gerek mesela veri sütunu D yapmak istersem nasıl bir yol izlemeliyim

 

[PLİNT]

veri sütununu değiştirmek istediğimde kod kısmında nereyi değiştirmem gerek mesela veri sütunu D yapmak istersem nasıl bir yol izlemeliyim

Kodların aşağıdaki mavi bölümünden ayarlayabilirsiniz,
Hata vermemesi açısından kodlara kırmızı satırı ekleyiniz.

[SIZE="2"]Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"]If Selection.Cells.Count > 1 Then Exit Sub[/COLOR]
If Intersect(Target, Range("c1")) Is Nothing And Target = "" Or 
'.....
'.....diğer kodlar
'....
If Not r1 Is Nothing Then
s2.Cells(r1.Row, r.Column) = [COLOR="Blue"]s1.Cells(a, "D")[/COLOR]
End If: End If
Next

End Sub [/SIZE]