Değişik sayfadaki değerleri bulup texboxa yada sayfaya aktarmak

[muratozmenler]

Selamlar
sayfa1 de butona bastığımızda sorgula dediğimizde enson yıl nekadar borçu kalmış ise onları
görmek istiyordum
fakat bu yıllar devamlı eklenecek tabiki bu yüzden sayfa eklense bile en son yıl borçunu bulacak
yani bu sayfadaki sarı alana yada sorgula kısmındaki dairenin altındaki texboxa dairenin kalan borçu ne kadar ise onu bulacak ve yazacak

 

[fedeal]

Dosyanız ekte tarihi degil son eklenen sayfayı baz alır.iyi çalışmalar.

 

[muratozmenler]

Kusura bakmayın örneği çözdüm ama kendi dosyama uyarlayamadım
dosya açıldığında excele giriş yaptığımızda sayfa 1 de borç kısmına bilgileri aldıramadım çünkü veriler değişik hücrelerde örneğin a1 borçu 2008-2009 sayfasının dt121 hücresi b1 ise 2008-2009 un ea121 nolu hücresi fakat dediğim gibi 2008-2009 bu yıl geçtikçe 2009-2010 2010-2011 2011-2012 diye devam edecek ve sayfa1 deborç kısmına en son yılın borç bilgileri gelecek

 

[fedeal]

kodları enson eklenen sayfa en yeni tarih mantıgıyla yazdım ki eklediginiz çalışmadada aynı, for döngüsüne alamıyorsak hücre adreslerini girerek kırmızı satırları 20 tane daire için ayrı ayrı girmeniz gerekecek.bu kodları sayfanın kod bölümüne ekleyin.saygılar.

Sub n()
Dim a As Worksheet
Dim i As Integer
For Each a In Worksheets
Range("AA1").Offset(i) = a.Name
i = i + 1
Next
fd1 = Range("AA65536").End(xlUp).Row
s = Range("AA" & fd1).Value

Range("c2").Value = Sheets(s).Range("dq116").Value
Range("c3").Value = Sheets(s).Range("dx116").Value

Columns("aa:aa").ClearContents
End Sub

 

[muratozmenler]

Dim a As Worksheet
Dim i As Integer
For Each a In Worksheets
Range("AA1").Offset(i) = a.Name
i = i + 1
Next
fd1 = Range("AA65536").End(xlUp).Row
s = Range("AA" & fd1).Value

Range("c2").Value = Sheets(s).Range("dt121").Value
Range("c3").Value = Sheets(s).Range("ea121").Value
Range("c4").Value = Sheets(s).Range("dt244").Value
Columns("aa:aa").ClearContents

fakat değerler 0 olarak geliyor değer olduğu halde yanlış birşey mi yapıyorum acaba?

 

[fedeal]

gizli olan örnek sayfasını son olarak algılıyordu denemek için sayfayı sildim yeni sayfa ekledim degerleri degiştirip denedim kontrol edin.

 

[muratozmenler]

Teşekkür ederim yardımlarınız için sayın fedeal iyi çalışmalar dilerim...