Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 10 de novembro de 2011

Re: ]] XL-mania [[ Cara merecord data

 

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-




2011/11/2 harry <hari.hidayat@gmail.com>
>
> 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

__._,_.___
Recent Activity:
+-:: 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

.

__,_._,___

Nenhum comentário:

Arquivo do blog