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