Sayfa 2'deki taksit tablosunun Sayfa1'deki B21 hücresindeki sayı kadar aktif olması

[mars2]

İyi Günler;

Ekli Excel çalışma kitabımın 1. sayfası "Ödeme planı", 2. sayfası Taksittablosu adı ile kayıtlıdır

Ödeme Planı sayfasının B20 hücresi bakiye Bedel
Ödeme Planı sayfasının B21 hücresi taksit sayısı bulunmaktadır.

Yine Taksittablosu sayfasının B20 hücresi bakiye Bedel
Taksittablosu sayfasının B21 hücresi taksit sayısı bulunmakta ve ödeme planı sayfasında bağlantılı olarak bakiye bedel ve taksit sayısı değiştiğinde değişmektedir.

Aşağıdaki makro ile taksittablosu B21 hücresine tıklamadan taksit sayısı kadar aktif olmamaktadır.
Ancak, Ödeme planında B21 hücresindeki taksit sayısının giriş yapıldığında, Taksittablosu sayfasının B21 hücresine tıklamadan tablonun taksit sayısı kadar aktifleşmesini istiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B21"), Target) Is Nothing Then
If Target.Value < 21 Then
Rows("27:50").Hidden = False
Rows(50 - (23 - Target.Value) & ":50").Hidden = True
End If
End If
End Sub

 

[hasankardas]

ekli tablo yanlış olabilir mii?

 

[mars2]

İyi Günler;

Çalışma kitabını kaydetmeden kapatmışım.

Ödeme Planı sayfasının B26 hücresi bakiye Bedel
Ödeme Planı sayfasının B27 hücresi taksit sayısı bulunmaktadır.

Yine Taksittablosu sayfasının B20 hücresi bakiye Bedel
Taksittablosu sayfasının B21 hücresi taksit sayısı bulunmakta ve ödeme planı sayfasında bağlantılı olarak bakiye bedel ve taksit sayısı değiştiğinde değişmektedir.

Aşağıdaki makro ile taksittablosu B21 hücresine tıklamadan taksit sayısı kadar aktif olmamaktadır.
Ancak, Ödeme planında B27 hücresindeki taksit sayısının giriş yapıldığında, Taksittablosu sayfasının B21 hücresine tıklamadan tablonun taksit sayısı kadar aktifleşmesini istiyorum.