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.

 

[muhasebeciyiz]

deneyiniz

 

[mars2]

Sayın Muhasebeciyiz;

Yardım ve ilginiz için teşekkürler.
Kodlar sorunsuz olarak çalışmaktadır.
Ancak, modulün içindeki

Public Sub TaksitTablosunuGuncelle()
Dim ws As Worksheet
Dim TaksitSayisi As Long
Set ws = ThisWorkbook.Worksheets("Taklsittablosu")
ws.Calculate
DoEvents
TaksitSayisi = Val(ws.Range("B21").Value2)
End Sub

makro Taklsittablosu B21 hücresini günleme yapmıyor. Nerede yanlışlık yapıyor olabilirim.
Ödeme planı sayfasının B27 hücresini kopyalayıp bağlantılı olarak yapıştırmaktayım.

 

[wezyr]

@muhasebeciyiz hocamın affına sığınarak. isteğiniz bu şekilde mi?

 

[wezyr]

...

 

[muhasebeciyiz]

dosyamızda hata yok dediğin işlevi yerine getirmekte