UserForm Data Entry ( Input Berdasrkan ComboBox )

  1. 2 minggu lalu
    Di sunting 2 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

  2. 5 hari yang lalu

    Dear mas @Chris212
    Ikutan nimbrung mas sambil saya belajar,

    Dr yg saya liat hanya kegiatan terakhir yg teinput keliatannya krn if nya jalan utk baris itu saja, Ifnya jalan utk kondisi yg terakhir saja.

    kalo ada 3 kegiatan berarti kan ada 3 baris ke bawah yg hrs terisi, apakah hrs ada proses looping ya ? ( for next ) , saya coba juga msh blm ketemu

  3. 4 hari yang lalu

    Terimakasih

  4. Dear Mas @chris212, pada scriptnya :

    1. saya coba hilangkan IFnya
    2. Kemudian utk kegiatan2, kegiatan3 dsnya maka script pada :

    Target.Cells(LR, 11).Value = CboKegiatan1.Value
    Target.Cells(LR, 12).Value = TxtKegiatan1.Value

    ditambahkan 1 mjd :

    Target.Cells(LR + 1, 11).Value = CboKegiatan2.Value
    Target.Cells(LR + 1, 12).Value = TxtKegiatan2.Value

    Terlampir filenya saya coba 3 kegiatan sementara sdh muncul.
    Terimakasih.

 

atau Mendaftar untuk ikut berdiskusi!