Merhaba,
Makro kullanmadan, basit bir excel sayfam var, A1-B1-C1 hücrelerini veri girişi yapmak istiyorum ve kilit koymayacağım bu hücrelere, ve diğer hücreleri kilitlemek istiyorum, veriler A1-B1-C1 hücrelerinden girildiğinde, her girilen veri sonraki satırlara kaydırılsın (A2-B2-C2 / A3-B3-C3 / A4-B4-C4 /..... gibi ) ve A1-B1-C1 hücreleri bir sonraki veri girişi içi tekrar boş olsun.
*********************************************************
ÖRNEK DOSYA İLE İLGİLİ AÇIKLAMA:
sözkonusu örnek dosyasını yolluyorum.
Yeşil hücreler koruma/kilitli değil ve sadece veri girişi için kullanılacak,
Kırmızı hücreler ise koruma/kilitli hücrelerdir, sadece A1-B-C1 hücrelerinden veri alırlar
Bu durumda sayfayı koru moduna aldığımda A1-B1-C1 hücrelerine veri girişi yapamiyorum, hata veriyor.
Teşşekür ederim, iyi çalışmalar.
**********************************************************
DAHA ÖNCE YADIM İÇİN VERDİĞİNİZ KODU DENEDİM:
daha önce verdiğiniz kodu tek bir örnek hücre için deniyorum, çalışıyor, fakat sayfayı koruma moduna aldığımda hata veriyor:
**********************************************************
ÖNCEKİ KOD:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
[a1].EntireRow.Insert
Application.EnableEvents = True
End Sub
Makro kullanmadan, basit bir excel sayfam var, A1-B1-C1 hücrelerini veri girişi yapmak istiyorum ve kilit koymayacağım bu hücrelere, ve diğer hücreleri kilitlemek istiyorum, veriler A1-B1-C1 hücrelerinden girildiğinde, her girilen veri sonraki satırlara kaydırılsın (A2-B2-C2 / A3-B3-C3 / A4-B4-C4 /..... gibi ) ve A1-B1-C1 hücreleri bir sonraki veri girişi içi tekrar boş olsun.
*********************************************************
ÖRNEK DOSYA İLE İLGİLİ AÇIKLAMA:
sözkonusu örnek dosyasını yolluyorum.
Yeşil hücreler koruma/kilitli değil ve sadece veri girişi için kullanılacak,
Kırmızı hücreler ise koruma/kilitli hücrelerdir, sadece A1-B-C1 hücrelerinden veri alırlar
Bu durumda sayfayı koru moduna aldığımda A1-B1-C1 hücrelerine veri girişi yapamiyorum, hata veriyor.
Teşşekür ederim, iyi çalışmalar.
**********************************************************
DAHA ÖNCE YADIM İÇİN VERDİĞİNİZ KODU DENEDİM:
daha önce verdiğiniz kodu tek bir örnek hücre için deniyorum, çalışıyor, fakat sayfayı koruma moduna aldığımda hata veriyor:
**********************************************************
ÖNCEKİ KOD:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
[a1].EntireRow.Insert
Application.EnableEvents = True
End Sub
Ekli dosyalar
-
32.5 KB Görüntüleme: 35