Data Kosong tidak dapat disimpan

  1. 3 bulan yang lalu
    Di sunting 3 bulan yang lalu oleh Zaenal Arifin

    Mohon bantuannya, script apa yang dihilangkan, atau dirubah supaya kalau ada sebagian data kosong bisa disimpan, terima kasih sebelumnya.

    Mas @Zaenal Arifin ...

    Coba cari Sub SimpanData() lalu temukan baris :

    vInput = Array("C3", "C6", "B11", "B12", "D11")

    Data dalam Array vInput merupakan alamat sel yang diperlukan (harus diisi) sebelum proses penyimpanan data bisa dilakukan. Misalkan saja, untuk field PETUGAS PELAKSANA bisa diisi dengan 1 orang saja, dan misalkan target selnya adalah sel B11, maka cukup menghapus teks B12 dalam Array vInput tersebut, menjadi :

    vInput = Array("C3", "C6", "B11", "D11")

    Jika maunya bebas tanpa memeriksa apakah field isian sudah diisi atau belum (yang penting data tersimpan), maka hapus potongan script berikut :

    vInput = Array("C3", "C6", "B11", "B12", "D11")
    For Each vValue In vInput
         If Len(Trim(Sheet1.Range(vValue))) = 0 Then
              MsgBox "Masukkan dahulu data-data yang diperlukan!"
              Exit Sub
         End If
    Next

    Demikian.

  2. Maksudnya sebagian data kosong bisa disimpan gimana ya pak..

  3. iya, seumpama kalau PETUGAS PELAKSANA yang berangkat Agus saja, supaya bisa disimpan rumus yang sesuai bagaimana?

  4. Mungkin seperti ini pak...

  5. Caton

    Mar 24 Terverifikasi Jawaban Terpilih Indonesia + 18.633 Poin

    Mas @Zaenal Arifin ...

    Coba cari Sub SimpanData() lalu temukan baris :

    vInput = Array("C3", "C6", "B11", "B12", "D11")

    Data dalam Array vInput merupakan alamat sel yang diperlukan (harus diisi) sebelum proses penyimpanan data bisa dilakukan. Misalkan saja, untuk field PETUGAS PELAKSANA bisa diisi dengan 1 orang saja, dan misalkan target selnya adalah sel B11, maka cukup menghapus teks B12 dalam Array vInput tersebut, menjadi :

    vInput = Array("C3", "C6", "B11", "D11")

    Jika maunya bebas tanpa memeriksa apakah field isian sudah diisi atau belum (yang penting data tersimpan), maka hapus potongan script berikut :

    vInput = Array("C3", "C6", "B11", "B12", "D11")
    For Each vValue In vInput
         If Len(Trim(Sheet1.Range(vValue))) = 0 Then
              MsgBox "Masukkan dahulu data-data yang diperlukan!"
              Exit Sub
         End If
    Next

    Demikian.

 

atau Mendaftar untuk ikut berdiskusi!