Tarih ve sayılı öğrenci sevk programı

[55924]

Daha ilk mesajım herkese başarılar dileyerek başlamak istiyorum.Bir öğrenci sevk programı yapmaya çalışıyorum.Dosya iki sayfadan oluşuyor biri defter diğer sevk.verilerim sevk sayfasında ;veri doğrulama ile verileri ilgili mavi alanara aldıktan sonra sevk sayfasına eklenecek bir buton ile tarih ve sayı ver dediğime sayının yanındaki sarı alana 1 de başlayrak sayı vermesini aynı zamanda bu verilleri defter sayfasındaki ilgili alanlar atmasını istiyorum.Umarım çok şey istemedim.
Dosyam ekte.

 

[ozgretmen]

Dosyayı inceler misiniz ? İyi çalışmalar.İyi seneler...

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip dener misiniz? Ayrıca dosyanızda küçük değişiklikler yaptım.

Sub Duzenle()
Set ss = Sheets("sevk")
Set sd = Sheets("defter")
Dim i As Long
If ss.[C16] = "" Then
    MsgBox "Öğrenciyi Seçmediniz....."
    Exit Sub
End If
ss.[C6] = ss.[C6] + 1
i = sd.[A65536].End(3).Row + 1
sd.Cells(i, "A") = i - 1
sd.Cells(i, "B") = ss.[I3]
sd.Cells(i, "C") = ss.[C6]
sd.Cells(i, "D") = ss.[C17]
sd.Cells(i, "E") = ss.[C16]
sd.Cells(i, "F") = ss.[A21]
End Sub

 

[55924]

Dosyayı inceler misiniz ? İyi çalışmalar.İyi seneler...

Teşekkürler.Tam istedğimi gibi olmuş.Kolay gelsin.
Sayın Yaşertener size de teşekkür ediyorum.Kolay gelsin.

 

[ozgretmen]

Rica ederim.İyi çalışmalar...