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
>
>
>
