]] XL-mania [[ tabel untuk pemantauan dokumen perijinan yang sudah kadaluarsa

 

Dear Master XL,

Saya sedang mengembangkan tabel untuk pemantauan dokumen perijinan yang sudah kadaluarsa.

Problemnya adalah saya ingin membuat kotak isian di sheet1 untuk input data tapi

hasilnya menjadi berupa list di sheet2. Kotak isian di sheet1 otomatis kosong untuk

isian berikutnya.

Untuk itu saya pakai contekan makro dari XL-mania tapi setelah  saya praktekkan ternyata hanya

berlaku untuk satu sel saja (sel-sel lainnya blank meskipun alamat sel sudah diganti satu per satu):

Private Sub Worksheet_Change(ByVal aa12 As range)
   Dim R As Long
   R = 4
   If aa12.Cells.Count = 1 Then
      If aa12.Address = Cells(12, 27).Address Then
         If Len(aa12) > 0 Then
            Do While Len(Sheets("Sheet1").Cells(R, 9).Value) > 0
               R = R + 1
            Loop
         Else
            Exit Sub
         End If
         Sheets("Sheet1").Cells(R, 9) = aa12
      End If
   End If
End Sub

Mohon  bantuan para master untuk membuatkan makro yang lebih tepat (kalo bisa juga dengan

karena saya masih awam tentang makro) atau lebih baik lagi tanpa makro. File terlampir.

Atas bantuannya saya ucapkan terima kasih.

Rgds,

FARIDATUR ROHIMAH

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (1)

Recent Activity:

• New Members 43

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Berita gembira: telah lahir, Abimono Jr.: Axel Abimono            |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___