textboxlara son satırdaki bilgiyi alma

[afetidelala]

merhaba arkadaşlar ben vi user form yaptım ve bir kaç farkı sayfaya kayıt yapıyorum ekte verdiğim dosyadaki user forda maerz fırın sayaç hesap ve ala fırın sayaç hesap frame leri var oradaki hesapla butonlarına tıkladığımda oradaki maer fırın sonuçlar ve ala fırın sonuçlar frame lerinin içindeki textboxlara excel in maerz sayaç ve dik sayaç sayfalarıdaki renkli kolonların son dolu hücrelerini sıra ile atamasını istiyorum formu didik ettim ama bulamadım yardım edebilirmisiniz.

 

[ExcelF1]

Hangi verinin nereye geleceği tam olarak belli değil. Ben renkli alan dediğiniz için ilk renkten itibaren veriyi aktarmaya çalıştım. Kodların devam kısmını kendiniz ayarlayınız.

Private Sub CommandButton3_Click()
Sheets("MAERZ SAYAÇ").[C65536].End(xlUp).Select
TextBox51.Value = ActiveCell.Offset(0, 10).Value
TextBox52.Value = ActiveCell.Offset(0, 11).Value
TextBox53.Value = ActiveCell.Offset(0, 12).Value
....
....
End Sub

 

[afetidelala]

tşk ederim dostum hemen deniyorum

tşk ederim ellerine sağlık hemen deniyorum.