UserForm Data Entry ( Input Berdasrkan ComboBox )

  1. minggu lalu
    Di sunting minggu lalu oleh Chris212

    Siang , BEO
    mau tanya ,
    untuk rumus if saya ada yg salah atau kurang ya ,.

    If saya bertujuan , jika saya memilih 3 dari 6 kegiatan , maka tgl ikut sama sesui kegitan yg saya input
    jika saya pilih hnya 2 maka tgl ikut sama juga ,,
    Contohnya
    Tgl 22-11-2020 ada ada 3 kegitan , maka hasil yg dinginkan ;
    22-11-2020 Kegitan 1
    22-11-2020 Kegitan 2
    22-11-2020 Kegitan 3

    problemnya , jika saya input yg ada 2 / lebih kegitan maka hanya kegitan terakhir saja yg terinput

    Private Sub CmdInput_Click()
    Dim Target As Worksheet, LR As Long
    
    Set Target = ActiveWorkbook.Sheets(CboUnit.Value)
        LR = Target.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
        
        If CboKegiatan1.ListIndex > 0 Then
            Target.Cells(LR, 1).Value = TxtTgl.Value
            Target.Cells(LR, 2).Value = CboUnit.Value
            Target.Cells(LR, 3).Value = TxtKebun.Value
            Target.Cells(LR, 4).Value = TxtBlok.Value
            Target.Cells(LR, 5).Value = TxtHmAwal.Value
            Target.Cells(LR, 6).Value = TxtHmAkhir.Value
            Target.Cells(LR, 11).Value = CboKegiatan1.Value
            Target.Cells(LR, 12).Value = TxtKegiatan1.Value
            Target.Cells(LR, 13).Value = TxtSolarPagi.Value
            Target.Cells(LR, 14).Value = TxtSolarIsi.Value
            Target.Cells(LR, 17).Value = TxtPengawas.Value
            Target.Cells(LR, 19).Value = TxtOpt.Value
            Target.Cells(LR, 21).Value = TxtHelper.Value
            Target.Cells(LR, 23).Value = TxtKeterangan.Value
            Target.Cells(LR, 24).Value = CboPengisiSolar.Value
        End If
        If CboKegiatan2.ListIndex > 0 Then
            Target.Cells(LR, 1).Value = TxtTgl.Value
            Target.Cells(LR, 2).Value = CboUnit.Value
            Target.Cells(LR, 3).Value = TxtKebun.Value
            Target.Cells(LR, 4).Value = TxtBlok.Value
            Target.Cells(LR, 5).Value = TxtHmAwal.Value
            Target.Cells(LR, 6).Value = TxtHmAkhir.Value
            Target.Cells(LR, 11).Value = CboKegiatan2.Value
            Target.Cells(LR, 12).Value = TxtKegiatan2.Value
            Target.Cells(LR, 13).Value = TxtSolarPagi.Value
            Target.Cells(LR, 14).Value = TxtSolarIsi.Value
            Target.Cells(LR, 17).Value = TxtPengawas.Value
            Target.Cells(LR, 19).Value = TxtOpt.Value
            Target.Cells(LR, 21).Value = TxtHelper.Value
            Target.Cells(LR, 23).Value = TxtKeterangan.Value
            Target.Cells(LR, 24).Value = CboPengisiSolar.Value
        End If
       
        
            TxtTgl.Value = ""
            CboUnit.Value = ""
            TxtKebun.Value = ""
            TxtBlok.Value = ""
            TxtHmAwal.Value = ""
            TxtHmAkhir.Value = ""
            CboKegiatan1.Value = ""
            TxtKegiatan1.Value = ""
            CboKegiatan2.Value = ""
            TxtKegiatan2.Value = ""
            TxtSolarPagi.Value = ""
            TxtSolarIsi.Value = ""
            TxtPengawas.Value = ""
            TxtOpt.Value = ""
            TxtHelper.Value = ""
            TxtKeterangan.Value = ""
            CboPengisiSolar.Value = ""
        
            
    End Sub


    Terima kasih

 

atau Mendaftar untuk ikut berdiskusi!