Keinginannya belum dikatakan secara tuntas; Kelihatannya pak harry menginginkan :
(1) Sheet1 Cell A1 (saja) sebagai INPUT cell
(2) Data yg ditulis di InputCell itu ingin di-Entri ke Sebuah Kolom yaitu Kolom A di Sheet2
(3) menghapus data di Input Cell tidak menghapus data Rekaman
Jadi jika berturut-turut kita ketikkan di A1 Sheet1, data: "A" lalu "10", kemudian "GBL"
maka di Sheet2, kolom A, akan terrekam
cell Hasil rekaman
A1 A
A2 10
A3 GBL
Kapan-kapan jika Sheet1 cell A1 diisi lagi dengan data baru, maka rekaman diteruskan
di A4 sheet2 (atau tepatnya di cell kosong pertama yg ada di kolom A pada sheet2 saat itu)
Barangkali saja beggittooo...
--- listing vba code ---
Event_Sheet_Change Procedure; ditulis di Module sheet 1
'-----------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Address = "$A$1" Then
If Len(Target.Value) > 0 Then
Dim NewCell As Range
Set NewCell = Sheet2.Cells(Rows.Count, 1).End(xlUp)
If Not NewCell.Value = vbNullString Then Set NewCell = NewCell(2, 1)
NewCell.Value = Target.Value
End If
End If
End If
End Sub
'-----------------
Tafsir Al Haps:
--Seksi 1
dipilih event worksheet_change karena diinginkan : "makro jalan sendiri" (pemberani sih!) jika terjadi perubahan di sheet1
3 IF pertama membatasi terjadinya proses perekaman, yaitu (rekaman hanya boleh terjadi jika)
* perubahan hanya terjadi di 1 cell (perubahan bulk copy tidak menyebabkan perekaman)
* perubahan hanya terjadi di A1 (perubahan diluar cell A1 tidak akan menyebabkan proses)
* cell yg berubah isiya harus berisi data ( pengosongan cell A1 tidak menyebabkan proses )
--Seksi 2
Penentuan cell di Sheet2 yg akan dijadikan tempat merekam data (variable object range NewCell)
* menggerakkan cell-pointer dari cell terbawah di kolom A ke atas ( End + Up )
* jika ternyata yg dicapai NewCell berisi data, maka diturunkan 1 baris
--Seksi 3
Pengisian NewCell dengan nilai yg ada di Cell Target (yaitu cell [di sheet1] saat itu yg berubah)
* yg direkam hanya Valuenya (cell-format dan formula (jika ada), tidak ikut direkam)
--Seksi 4
Mengakhiri 3 IF
--Seksi 5
Mengakhiri Procedure (makro)
cmiiw & maap kalau jawaban terlambat & asal2an ini ternyata tidak membuat
anda berkenan (hapus saja..)
-haps-
>
> Dear xl mania member,
> Saya baru bergabung dengan xl-mania, karena baru nemu di google.
> Saya pengen tanya, adakah rumus atau macro yang bisa mensave data record
> di excel.
>
> Contohnya begini, saya input data di sel A1 sheet1, data di A1 itu
> terekam pula di sheet2 sel A1
> dan ketika saya ketik data lain di sel A1 sheet1, maka akan melanjutnya
> data yg ada di sheet2 tanpa menghapus data sebelumnya.
>
> Mohon bantuan para master semua.
>
> Best Regards
> harry
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| selamat merayakan idul adha! |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau... |
| 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 |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| selamat merayakan idul adha! |
+-------------------------------------------------------------------+
| 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.friendster.com/xlmania atau... |
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário