Textbox taki verinin körü ile bağlı sayfayada görünmesi

[ynmcan]

Merhaba arkadaşlar;
Textboxt taki verinin, kırmzı olan hücrenin köprü ile bağlı olduğu "kitaptaki sayfanın D4" hücreside görünmesini istiyorum. Yardımcı olursanız sevinirim.

Örnek dosya ekte

 

[ynmcan]

yapmak istediğimin daha anaşılır olması için örnek dosyama aşağıdaki kodu ekledim. Bu kod şu anda textbox1 deki veriyi data sayfasındaki D4 hücresine aktarıyor, aynı zamanda data sayfasındaki D4 hüresindeki veriyi textbox2 ye aktarıyor.

Private Sub CommandButton1_Click()
[COLOR="Red"]Sheets("Data")[/COLOR].Range("D4").Value = TextBox1.Text
TextBox2.Value = [COLOR="Red"]Sheets("Data")[/COLOR].Range("D4").Text
End Sub

Benim istediğim kodaki kırmızı ile belirtiğim "Data sayfası" kısımların "iç kalıp satırındaki kırmızı hücrenin köprü ile bağlı olduğu kitabın sayfası" olarak yazılması. Bunu kod olarak nasıl yazarım?
Değiştirdiğim örnek dosyam ekte.

 

[ynmcan]

"B2:Z2" aralığındaki dolgu rengi kırmızı olan hücrenin, köprü ile bağlı olduğu sayfanın "D4" hücresine git' i kod olarak yazma gibi bir olanağımız varmı. Varsa bu kodu nasıl yazabilirim? Yardımcı olursanız sevinirim.

 

[omerceri]

Kodlar aşağıda, kolay gelsin.
Private Sub CommandButton1_Click()
Application.FindFormat.Interior.ColorIndex = 3
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
TextBox2.Value = ActiveSheet.Range("D4")
ActiveWindow.Close
End Sub

 

[ynmcan]

Sayın omerceri;
yoladığınız kod işime yaradı. Yanlız bir eksiklik var, textbox1 e yazdığım veri "D4" ten textbox2 ye gelidikten sonra "D4" siliniyor . Ben bu verinin "D4" e kaydedilmesini istiyorum. Mümkünmüdür?

 

[omerceri]

D4'deki bilgi macro çalışınca siliniyor mu yoksa silinmesi mi gerekiyor. D4'teki bilginin değişmesi gerekiyorsa;
TextBox2.Value = ActiveSheet.Range("D4")
kodunun altına aşağıdakikodu da ilave edin
ActiveSheet.Range("D4").value = TextBox1

 

[ynmcan]

D4'deki bilgi siliniyor, silinmemesi gerekiyor. (D4'deki bilgi silinidiği için Textbox2' de boş görünüyor)
Textbox1' yazdığım bilgi D4! gitmiyor gibi gedi bana.

 

[ynmcan]

Application.FindFormat.Interior.ColorIndex = 3
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=True).Activate
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
ActiveSheet.Range("C4") = TextBox1.Value
TextBox2.Value = ActiveSheet.Range("C4")
ActiveWindow.Close

Yolladığınız koda kırmızı satırı ekledim düzeldi. Yardımlarınız ve ilginize teşekkür ederim.