Farklı sayfadan userforma veri almak

[byfika]

Merhabalar

UserFormlarla bazı işlemler yapmaktayım. Örnek olarak verecek olursak, excelde a, b, c sayfaları ve iki adet userform var. Ana sayfası açıldığında gelen userform1 ile bu sayfaya kayıtlar yapmaktayım. A sayfasındayken userfrom1 üzerinden çağırdığım userform2 gelmekte. Yani sayfa A, userform2 geldiğinde aşağıdaki işlemleri A sayfası üzerinde ve userform2 de göremiyorum. Ancak B sayfasına geçince görmekteyim. Sayfa A üzerinde ve userform2 olduğunda veriyi görmek için aşağıdaki kodlarda nasıl bir değişiklik yapabilirim.

Bilgi için teşekkürler..

USERFORM2 deki kodlar:

Private Sub UserForm_Initialize()

TextBox15.Value = 0

TextBox15.Value = WorksheetFunction.Sum(Range("h2:h" & Cells(Rows.Count, "h").End(xlUp).Row))

TextBox11.Value = 0

TextBox11.Value = WorksheetFunction.Sum(Range("d2:d" & Cells(Rows.Count, "d").End(xlUp).Row)) + WorksheetFunction.Sum(Range("e2:e" & Cells(Rows.Count, "e").End(xlUp).Row)) + WorksheetFunction.Sum(Range("f2:f" & Cells(Rows.Count, "f").End(xlUp).Row))

TextBox12.Value = 0

TextBox12.Value = WorksheetFunction.Sum(Range("g2:g" & Cells(Rows.Count, "g").End(xlUp).Row))

End Sub

 

[systran]

Range("h2:h" & Cells(Rows.Count, "h") yazan formüle şu eklemeyi yapın. (sayfa ismi erişmek istediğiniz sayfa olacak)
SayfaA.Range("h2:h" & Cells(Rows.Count, "h") veya SayfaB.Range("h2:h" & Cells(Rows.Count, "h") şeklinde

 

[byfika]

Sayın Systran, verdiğiniz bilgi için teşekkürler. Sayfam şöyle; Sayfa2(B) B benim verdiğim isim. SayfaB.Range("h2:h" & Cells(Rows.Count, "h") şeklinde verdiğiniz kodu Sayfa2.Range("h2:h" & Cells(Rows.Count, "h") yazınca işlem kod çalıştı. Tekrar verdiğiniz bilgi için çok teşekkürler. Saygılar

 

[systran]

kolay gelsin, size de iyi çalışmalar.