Kayıt edilsin mi?

[hezarpare]

ÜStadlar bende bir üretim takip programı var, excelde yaptığım. Excelden çıkarken excel'in bana "Kayıdı son giren kişi ismini seçtinizmi?" Evet-Hayır diye iki buton olmasını evet'e basınca excelden çıkarken yaptığınız değişiklikler kayıt edilsin mi? klasik soru sormasını istiyorum. hayır'a basınca tekrar belgeye dönmesini istiyorum. Bunu nasıl yapabilirim. Teşekkürler.

 

[Orion1]

ThisWorkBook Modülüne aşağıdaki kodları yapıştırınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Kayıdı son giren kişi ismini seçtinizmi?", vbYesNo + vbQuestion, "UYARI") = vbNo Then Cancel = True
End Sub

 

[hezarpare]

ThisWorkBook Modülüne aşağıdaki kodları yapıştırınız.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Kayıdı son giren kişi ismini seçtinizmi?", vbYesNo + vbQuestion, "UYARI") = vbNo Then Cancel = True
End Sub

Evren bey teşekkürler. Peki bir sorun daha var. Herhangi bir hücreye bir sutundaki en son veriyi otomatik nasıl yazdırabilirim (sutuna devamlı veri ekleniyor, belirlenen hücre hep en son veriy alacak)

 

[Orion1]

A sütunundaki en son satırdaki veriyi B1'e yazar.

Dim sat As Long
sat = Cells(65536, "A").End(xlUp).Row
Range("B1").Value = Cells(sat, "A").Value

 

[hezarpare]

A sütunundaki en son satırdaki veriyi B1'e yazar.

Dim sat As Long
sat = Cells(65536, "A").End(xlUp).Row
Range("B1").Value = Cells(sat, "A").Value

Üstad bu kod hata veriyor xlUP işaretli "compile error" diyor.
Dosyayı ekte verdim. a sutununda a6 ile a300 arasındaki en son veriyi t6 ya taşımak istedim ama olmadı.

 

[harziyan]

Üstad bu kod hata veriyor xlUP işaretli "compile error" diyor.
Dosyayı ekte verdim. a sutununda a6 ile a300 arasındaki en son veriyi t6 ya taşımak istedim ama olmadı.

Kardeş dosyaya baktım da kodu çıplak yapıştırmışsın; örneğin

Sub aktar()
Dim sat As Long
sat = Cells(65536, "A").End(xlUp).Row
Range("IB303").Value = Cells(sat, "A").Value
End Sub

şeklinde kullanılınca istediğin oluyor...

 

[hezarpare]

Kardeş dosyaya baktım da kodu çıplak yapıştırmışsın; örneğin

Sub aktar()
Dim sat As Long
sat = Cells(65536, "A").End(xlUp).Row
Range("IB303").Value = Cells(sat, "A").Value
End Sub

şeklinde kullanılınca istediğin oluyor...

Üstad yine olmadı ya. Ben beceremiyor muyum acaba? IB303 hücresi boş.

 

[hezarpare]

Üstad tamam olmuş ama otomatik atamıyor "Run sub/user form" buonuna basınca aktarıyor. Otomatiğe nasıl alabilirim?