Dönemsel veri kayıt formu

[hüseyintok]

Merhaba ekte ki örnek dosyamda form sheetindeki girilen verileri "data" sheet ine kayıt yaptırmak istiyorum. fakat dönemde ki tarih kısmını ilgili tarihe göre kayıt yaptırmak gerekiyor. yardımcı olursanız sevinirim. Şimdiden teşekkürler

 

[hüseyintok]

bu konuda yardımcı olabilecek kimse yok mu?

 

[Korhan Ayhan]

Deneyiniz.

 

[hüseyintok]

Hocam Teşekkür ederim. Yalnız çağırdığım kaydı güncellemek için çağırdığımda kayıt makrosu yeniden kayıt yapıyor. ben güncellemek istiyorum. aşağıdaki makroda nasıl değişiklik yapmalıyım?

Private Sub CommandButton1_Click()
Dim S1 As Worksheet, S2 As Worksheet, Son As Long
Dim Tarih As Range, Ay_Bul As Range

Set S1 = Sheets("Form")
Set S2 = Sheets("Data")


Son = S2.Cells(S2.Rows.Count, 2).End(3).Row + 1

S2.Cells(Son, 1) = Son - 3
S2.Cells(Son, 2) = S1.Range("D4").Value
S2.Cells(Son, 3) = S1.Range("D5").Value
S2.Cells(Son, 4) = S1.Range("D6").Value
S2.Cells(Son, 5) = S1.Range("D7").Value
S2.Cells(Son, 6) = S1.Range("H4").Value
S2.Cells(Son, 7) = S1.Range("H5").Value
S2.Cells(Son, 8) = S1.Range("H6").Value
S2.Cells(Son, 9) = S1.Range("H7").Value

For Each Tarih In S1.Range("C11:C28")
If Tarih.Offset(, 2) <> 0 Then
Set Ay_Bul = S2.Rows(2).Find(DateSerial(Year(Tarih.Value), Month(Tarih.Value), 1), LookIn:=xlValues, LookAt:=xlPart)
If Not Ay_Bul Is Nothing Then
S2.Cells(Son, Ay_Bul.Column) = Tarih.Offset(, 2)
End If
End If
Next

MsgBox "Poliçe Güncellenmiştir.", vbInformation
End Sub

 

[Korhan Ayhan]

Kayıt çağırma işlemini sadece görüntülemek amacıyla kullanmak istediğinizi düşündüğüm için o şekilde ayarlamıştım.

Dosyayı revize ettim. Tekrar deneyiniz.