formul bozulmadan veri girişi kilitli olan hücreler için

[mehteroglu1]

saygı değer hocalarım benim sorum makroyla hazırladığım formul içerikli hücreler kilitli durumda ve ben bu hücreye bu makroyla giriş yapıyorum ama benim amacım buradaki formülü bozmadan sonra kullanmak için sadece girilen değeri yazdırmak size şimdiden teşekkür ederim saygılarımla mehteroglu1


Sub hucr2()
ActiveSheet.Unprotect Password:="m"
ActiveCell.Offset(0, -1).Select
aciklama = "LÜTFEN YENİ MAKBUZ SERİ NUMARASINIZ GİRİNİZ"
baslik = "M.Teyfik MEHTEROĞLU"
ActiveCell.Value = InputBox(aciklama, baslik, gecerlik)

ActiveCell.Offset(0, 1).Select
ActiveSheet.Protect Password:="m"
End Sub

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde tarif ederseniz daha faydalı olacacaktır.

 

[mehteroglu1]

hocam altta ekledim

Selamlar,

Örnek bir dosya üzerinde tarif ederseniz daha faydalı olacacaktır.

hocam burada makbuz nosunu değiştir diye bir buton var ona basınca daha iyi anlarsınız vba parolası "m" saygılarımla

 

[Levent Menteşoğlu]

Dosyanızda modüller mevcut değil.

 

[mehteroglu1]

Dosyanızda modüller mevcut değil.

hocam kusura bakmayınız gönderiyorum saygılarımla

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz butona bastığımda hangi hücredeysem sol taraftaki hücreyi seçiyor ve girdiğim veriyi yazıp sağ hücreyi seçiyor ama tam olarak ne yapmak istediğinizi anlayamadım.

 

[Seyit Tiken]

Çözüm için neden şifreli dosya gönderiyorsunuz? Bana göre yaptığınız proğramın mantığı pratik değil. En zor ve en karışık yöntemi seçmişsiniz. Tablo tek sayfa ise, başlangıç no.su formülsüz olması lazım. TEMİZLE butonuna basıldığında, başlangıç hücresindeki no.ya 1 rakamı atanması gerek. tablo birden fazla döküm olduğu zaman da, başka bir butonla bitiş no.su esas alınarak başlangıç no.suna atanır. Pratik ve kısa yol mantığını keşfetmeye çaba gösteriniz.