Mau tanya ,
penulisan code untuk mendeklarkan sheet yg benar bagaimana ya ?
saya pakai code ini " Set target = ActiveWorkbook.Sheets(CMBUNIT.Value) " muncul error

Private Sub CMBUNIT_Change()
    Dim target As Worksheet
    Set target = ActiveWorkbook.Sheets(CMBUNIT.Value)
    With target
    TXTHMAWAL.Text = .Range("F" & .Rows.Count).End(xlUp).Value
    End With
End Sub

Tujuan script saya , mengambil data terakhir dan ditampilan di Tetxbox UserForm saat memilih unit ,.

@manweljs_
apakah karena ini

Private Sub CMDSAVE_Click()
    On Error Resume Next
    Dim target As Worksheet, LR As Long
    Dim shtBBM As Worksheet, LRBBM As Long
    Set shtBBM = Worksheets("BBM")
    Set target = ActiveWorkbook.Sheets(CMBUNIT.Value)
    LR = target.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
    LRBBM = shtBBM.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row

" Set target = ActiveWorkbook.Sheets(CMBUNIT.Value) " sudah ada di CMDSAVE_Click()
saat saya meletakan

With target
    TXTHMAWAL.Text = .Range("F" & .Rows.Count).End(xlUp).Value
    End With

di CMDsave , kode berjalan tapi saat saya klik save ,
yang saya cari saat pilih unit kode berjalan

@manweljs_
OOT
saya masih bingung perbedaan antara .text dengan .value
saat saya terapakan di code saya tidak terjadi error jika digunakaan kedua nya
contoh yg saya gunakan,

Private Sub TXTTANGGAL_AfterUpdate()
If IsDate(Me.TXTTANGGAL.Text) Then
Me.TXTTANGGAL.Text = Format(Me.TXTTANGGAL.Text, "DD-MMM-YYYY")
End If
End Sub

Private Sub TXTHMAWAL_AfterUpdate()
If IsNumeric(Me.TXTHMAWAL.Text) Then
Me.TXTHMAWAL.Text = Format(Me.TXTHMAWAL.Text, "0.0")
End If
End Sub

apakah itu akan mengalami suatu maslah saat kedepanya ? lebih baik gunakan .text / .value ?

@manweljs_
Siap , terima kasih ^_^