UserForm Data Entry ( Input Berdasrkan ComboBox )

  1. 3 tahun lalu
    Di sunting 3 tahun 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. 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. 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.

  5. @windhu PS

    Terima kasih mas , maaf baru ON sekarang
    Saya cobanya ^_^

  6. Sama2 mas @Chris212

    Dicek dulu aja, tks

  7. @windhu PS

    Mas untuk Maslah sebelum sudah ketemu cara baru ,
    mau tanya
    1. Untuk TxtKebun Bisakah dilock ? maksutnya saat pertama input Txtkebun akan diisi manual dan stelah dilock tidak perlu ketik manual dan otomatis mengambil data sebelumnya ,..
    Mungkin pakai Check Box ?
    untuk googling key nya apa ya mas ?
    2. untuk memunculkan Msgbox jika Pilih unit tidak dipilih bagaimana ya mas

    Terima Kaish

  8. dear mas @Chris212 ,

    saya coba dulu ya hehe,..atau mungkin master2 ada yang bisa bantu ?

    tks

 

atau Mendaftar untuk ikut berdiskusi!