Komentari
1.122 Kali Dilihat

Data Kosong tidak dapat disimpan

  1. 2 tahun lalu
    Z

    Zaenal Arifin

    23 Mar 2022 + 234 Poin
    Di sunting 2 tahun lalu oleh Zaenal Arifin

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

    Terjawab oleh Caton

    Lihat Jawaban terkait

    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. Eunike Abigail

    23 Mar 2022 Malang + 850 Poin

    Maksudnya sebagian data kosong bisa disimpan gimana ya pak..

  3. Z

    Zaenal Arifin

    24 Mar 2022 + 234 Poin

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

  4. Eunike Abigail

    24 Mar 2022 Malang + 850 Poin

    Mungkin seperti ini pak...

  5. Caton

    24 Mar 2022 Terverifikasi Jawaban Terpilih Indonesia + 20.101 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!