entere basınca alt satır açılsın

[sirkülasyon]

Değerli abilerim;
Eklemiş olduğum dosyamda bir isteğim olacak. Satın alınacak malzeme listesi kısmında 1-20 arasında satırım var.
Satın alınacak malzeme listesi kısmında 1. sıra numaranın cinsi kısmına bilgi girdikten sonra entere basınca 2.sıra numaram açılsın.
2. sıra numaranın cinsi kısmına bilgi girdikten sonra entere basınca 3.sıra numaram açılsın.
3. sıra numaranın cinsi kısmına bilgi girdikten sonra entere basınca 4.sıra numaram açılsın.
Ve böylece bilgi girdikten sonra taaaa yirminci satıra kadar devam etsin
19.satırda cinsi yazıldıktan sonra entere basınca

" Son satırı kullanmaktasınız bilginize..." uyarısı versin.

müsaitseniz rica etsem bu isteğimi değerlendirebilir misiniz?

 

[Levent Menteşoğlu]

Aşağıdaki prosedürü sayfa1'in kod sayfasına kopyalayarak deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c22:c40]) Is Nothing Or Target.Row > 40 Then Exit Sub
If Target.Row = 40 Then MsgBox "Son satırı kullanmaktasınız bilginize...", 32, "Uyarı!"
Target.Offset(1, 0).EntireRow.Hidden = False
Target.Offset(1, 0).Activate
End Sub

 

[sirkülasyon]

Levent Abi Ellerine sağlık
Teşekkürümü kabul buyurun.

 

[sirkülasyon]

Levent abi hakkını helal et
Bu makroyu kullandığım sayfa "Sayfa1" Makro ellerinize sağlık mükemmel çalışıyor. bu makroya sayfa1'e gelince K22:K40 arasında veri yoksa otomotik olarak gizlensin. Sadece K22:K40 arasında verilerin bulunduğu satırlar kalsın.
LEvent abi bunu yazmadığım için ve sonrasında istediğim için ne olur bağışla beni.


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c22:c40]) Is Nothing Or Target.Row > 40 Then Exit Sub
If Target.Row = 40 Then MsgBox "Son satırı kullanmaktasınız bilginize...", 32, "Uyarı!"
Target.Offset(1, 0).EntireRow.Hidden = False
Target.Offset(1, 0).Activate
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki prosedürüde sayfa1'in kod sayfasına kopyalayın.

Private Sub Worksheet_Activate()
[c22:c40].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[sirkülasyon]

Levent Abi;
Yardımınızı esirgemediğiniz için teşekkür ederim.
Sorum ÇÖZÜME ULAŞMIŞTIR.