Ekle Komutu İle yazdıklarımı Tabloya Eklesin

[First_Class]

Arkaşlar Hücrelere Yazdıklarımı Butona Bastığım zaman tablodaki yerlerine yazsın ve düzenleme tarihi ve saatini otomatikman yazmasını istiyorum. bi detay var tablo kilitli olacak ve sayfa korumalı olacak

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Sub aktar()
ActiveSheet.Unprotect
bos = [B65536].End(3).Row + 1
Range("B2:R2").Copy Range("B" & bos & ":" & " R" & bos)
Range("S" & bos) = Now
ActiveSheet.Protect
End Sub

 

[First_Class]

öncelikle yardımınız için teşükkür ederim yalnız iki problem var birincisi kopyalarken biçimlendirmeyide alıyor ben sadece değerleri almasını istiyorum ikinci sorun ise tabloda kilit var ve sayfa korunan bi sayfa şifresi var butona bastığınız zaman şifre soruyor bunu koda yerleştirebiliyorsak veya sormamasını sağlayabiliyorsak süper olacak

 

[ozgretmen]

Bir daha bakar mısın ?

 

[erectus]

Değerler aynıysa

Merhabalar, bu örneği başka bir amaç için kullanacağım. Fatura numarası 1 olan bir hücreyi önceden eklediğimizi varsayalım. Başka bir zaman 1 numaralı fatura ile ilgili bazı değerler doldurduğumda, tabloda yeni bir satıra yazmak yerine, önceden girilen fatura 1'i güncelleme gibi bir seçeneğimiz var mıdır