Ditambahkan pesan diblok kondisi (IF) nya
Private Sub cmdSimpan_Click()
With Sheet2.Cells(Sheet3.Range("a3"
).Value, Sheet3.Range("a6").Value)
If LenB(.Value) = 0 Then
.Value = Sheet3.Range("c7").Value
else
msgbox "Sudah terisi",vbexclamation
End If
End With
End Sub
Wassalam,
Kid.
2013/2/22 Jamil Makhmudin <[email protected]>
> **
>
>
> Makasih....
> saya masukkan .....
> tidak ada peringatan jika mengisi cell sama ya pak??? (misal "cell sudah
> terisi")
>
> maaf banyak permintaan
>
> ------------------------------
> *Dari:* Mr. Kid <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Jumat, 22 Februari 2013 0:23
>
> *Judul:* Re: [belajar-excel] input data
>
>
> Ubah script event tombol simpan menjadi :
> Private Sub cmdSimpan_Click()
> With Sheet2.Cells(Sheet3.Range("a3").Value, Sheet3.Range("a6").Value)
> If LenB(.Value) = 0 Then
> .Value = Sheet3.Range("c7").Value
> End If
> End With
> End Sub
>
> Wassalam,
> Kid.
>
> 2013/2/21 Jamil Makhmudin <[email protected]>
>
> **
>
>
> Bagaimana jika input data hanya pada cell/bagian yang kosong....
> sedangkan jika sudah terisi maka tidak dapat melakukan input...
>
> Terima Kasih Jazzakalloh
>
>
> ________________________________
> Dari: Mr. Kid [email protected]>
> Kepada: [email protected]
> Dikirim: Minggu, 17 Februari 2013 20:17
> Judul: Re: [belajar-excel] input data
>
>
>
> Coba file terlampir.
>
> Wassalam,
> Kid.
>
> 2013/2/17 Jamil Makhmudin [email protected]>
>
> >
> >Kepada pakar excel
> >mohon pencerahannya...
> >
> >saya ingin memasukkan data lewat sheet input...
> >yang nantinya hasilnya dapat terlihat di sheet data...
> >
> >bagaimana formulanya...
> >
> >terima kasih atas jawabannya
>
>
>
>
>
>
