tek yönlü kayıt

[omay_66]

Merhaba arkadaşlar,
Hücreden hücreye veya bir sütündaki verileri başka sayfaya,
tek yönlü olarak kayıtedebilirmiyiz? yani sayfa 1deki bir hücreye bir veri girip tuş yardımıyla sayfa 2 ye kayıt yapacağım ama sayfa 2 de kayıt olan veri sadece okunacak ancak silinemeyecek
bu mümkünmü?
ekteki dosyada açıklamaya çalıştım. bakarsanız sevinirim.
teşekkürler.

 

[bedersu]

Merhaba,

İlk sorunuzun ikinci kısmı aşağıda ; İlk sorunuzun birinci kısmı ve ikinci sorunuz sayfa2'de nereye kaydedeiecek belirtmediğiniz için yapamadım.Ayrıca Sayfa2'ye bu bilgileri kaydettikten sonra,ikinci anket sonuçları nereye kaydedilecek?Sayfa2'de,ilk anket sonuçlarının altına mı?çünkü burası silinemesin,sadece okunsun demişsiniz.Bu kısmı anlamadım.

Bu kodlar F sütununu silip,eski bağlantıları tekrar yapıyor:

Columns("F:F").ClearContents

Range("F1,F3,F6,F8").FormulaR1C1 = "=RC[-5]"

 

[bedersu]

Merhaba,

Sorunuzu anladım.İkinci kısım için önce Sayfa2'de bütün hücreleri seçin,Sağ tıklatıp hücreleri biçimlendir deyin.Ardından Koruma menüsünden Kilitli seçeneğini iptal edin.Tamam deyip çıkın.

Aşağıdaki kodları yazın:

Sub sil()
Columns("F:F").ClearContents

Range("F1,F3,F6,F8").FormulaR1C1 = "=RC[-5]"
End Sub


Sub kaydet()
ActiveSheet.Unprotect "Þifreniz"

Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.Activate

sonsat = WorksheetFunction.CountA([a1:a65536]) + 1
Rows(sonsat & ":" & sonsat).Select
Selection.Locked = True

For a = 1 To 20
s2.Cells(sonsat, a) = s1.Cells(a, 6).Value
Next
ActiveSheet.Protect "Þifreniz"

End Sub

 

[omay_66]

Sayın Bedersu,
ilginiz için teşekkürler.
yazdığınız makro'yu Araçlar-makro-visual basic düzenleyicisi
yolu ile açılan sayfadaki makronun üzerine yapıştırdım.
şifreniz diye yazdığınız 2 yerede kendi şifremi girip kayıt ettim.
daha sonra sayfa1 dönüp sil dediğimde istediğim gibi olduğunu gördüm.
ancak aktar dediğimde ise sayfa 2'ye gidiyor ve " run time error 1004,
range sınıfının locked özelliği kurulamıyor" uyarısı çıkıyor.
daha önceden sayfa 2 nin hücrelerinin kilit özelliğini kaldırmama
rağmen ve bu satırların tümden korumasını kaldırmama rağmen her satır
için yeniden korumayı kaldırmasam kayıt etmiyor. nerede hata yapıyorum acaba?
ayrıca aktar tuşuna bastığımda sayfa 1'den sayfa 2'ye kendiliğinden geçiş olmasın.
sizi yorduğum için özür dilerim
iyi çalışmalar

 

[bedersu]

merhaba sayın omay_66

Kodlarda küçük bir hata olmuş.Minik değişikliklerle hata hallolldu.Þu kodları yazın:

Sub kaydet()

Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s2.Activate
ActiveSheet.Unprotect "Þifreniz"

sonsat = WorksheetFunction.CountA([a1:a65536]) + 1
Rows(sonsat & ":" & sonsat).Select
Selection.Locked = True

For a = 1 To 20
s2.Cells(sonsat, a) = s1.Cells(a, 6).Value
Next
ActiveSheet.Protect "Þifreniz"
s1.Activate
End Sub

 

[omay_66]

Teşekkürler sayın Bedersu,
sorun tamamen çözülmüş, eline sağlık.
eğer sabrınızı fazla zorlamadıysam bir soru daha sormak istiyorum.
F1,F3,F6,F8 hücreleri A1,A3,A6,A8 hücreleri ile irtibatlıydı.
sil komutunda F1,F3,F6,F8 hücrelerinin içeriği değişmiyordu.
yeni sorumda ben F1 hücresi silinmesin fakat F3,F6,F8 hücrelerinin dataları silinsin ama A3,A6,A8 hücreleriyle olan bağlantısı kopmasın. yani A3,A6,A8 hücresine yeni veri girdiğimde F3,F6,F8 hücresine otomatikmen kopyalansın. zaten A1 ile F1 hücresi silinmediği için A1 'e yeni data girmedikçe F1 aynı kalacak.
saygılarımla..