şantiye defteri otomatik kayıt işlemi

[ulutanas]

Arkadaşlar merhaba herkese hayırlı günler.
Ekte bulunan dosyada günlük şantiye defteri kayıtları mevcut. Veri sayfasında girdiğimiz bilgilerin kaydet tuşu ile yeni bir sayfaya aktarılması ile ilgili desteğinize ihtiyacım var. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

İyi çalışmalar...

Saygılarımla.

Ulutan Uygur.

 

[Saban Sertkaya]

Altın üye olmayanlar da yardım için çaba gösterebilir.

 

[ulutanas]

İlginiz için teşekkürler saban2015
Konu hakkında bilgisi olan herkes yardımcı olursa memnun olurum tabi ki.

 

[ulutanas]

Saban2015 sizde yardımcı olabilirsiniz diye dosyayı aşağıdaki link e ekledim. İ

http://dosya.web.tr/RkDPWO

İlginiz için teşekkürler.

İyi çalışmalar.

 

[Saban Sertkaya]

Deneyiniz.

Private Sub KAYDET_Click()
If Range("C6") = "" Then
MsgBox "C6 hücresine veri giriniz"
Exit Sub
End If
a = Worksheets.Count
Sheets("VERİ GİRİŞ").Copy After:=Sheets(a)
ActiveSheet.Name = Sheets("VERİ GİRİŞ").Range("C6")
Sheets("VERİ GİRİŞ").Select
End Sub

 

[ulutanas]

Saban2015 ilginiz için çok teşekkür ederim tam istediğim gibi olmuş.

İyi çalışmalar,

Saygılarımla...

Ulutan Uygur.

 

[Saban Sertkaya]

Rica ederim. hayırlı çalışmalar.

 

[farukaltunal]

üstad kodu tam nereye gireceğimiz konusunda da yardımcı olabilir misiniz