Son dolu sütunun değerini labele veya commanbuttona ad olarak yazdırmak

[Feylosof]

Değerli arkadaşlar hepinizin yeni yılını kutluyor, sağlıklı ve başarılı bir yıl diliyorum.
Detayını ekteki dosyada açıkladım. İkinci satırdaki son tarihi labele veya commandbuttona ad olarak yazdıracak koda ihtiyacım var. son tarihten sonra formul devam ettiği için formul yüklü hücreleri hesaba katıyor ve istediğim sonuca ulaşamıyorum.
Detekleriniz için teşekkürler.

 

[EmrExcel16]

Teşekkür ediyorum , size de aynı dileklerle.
Aşağıdaki gibi deneyiniz.

Private Sub UserForm_Initialize()
Dim i
For i = Cells(2, Columns.Count).End(xlToLeft).Column To 1 Step -1
    If Cells(2, i) <> "" Then
        UserForm1.CommandButton1.Caption = Format(Cells(2, i), "dd.mm.yyyy")
        UserForm1.Label1.Caption = Format(Cells(2, i), "dd.mm.yyyy")
        Exit For
    End If
Next
End Sub

 

[Seyit Tiken]

Şu kodu deneyebilirsiniz.

Me.CommandButton1.Caption = [b1].End(xlToRight).Offset(1, 0).Value

 

[Feylosof]

Sayın @EmrExcel16 , ve Sayın @Seyit Tiken hocalarım ikinize de çok teşekkür ediyorum.