dengan excel macro untuk input data,,
Sub Input_Data()
'anton suryadi 29/Juli/2010
t = 0
LR = Cells(Rows.Count, 9).End(xlUp).Row
For i = 8 To LR
If Cells(i, 9).Value = Cells(2, 3).Value Then
If Application.WorksheetFunction. _
CountA(Range(Cells(i, 11), Cells(i, 13))) = 0 Then
t = 1
Cells(i, 11).Resize(1, 3).Value = Range("D10:F10").Value
Exit Sub
Else
If MsgBox("Data sudah ada, ganti?", vbYesNo) = vbNo Then Exit Sub
t = 1
Cells(i, 11).Resize(1, 3).Value = Range("D10:F10").Value
Exit Sub
End If
End If
Next
If t = 0 Then MsgBox "Nama bulan tdk ditemukan..."
End Sub
File terlampir
>semoga bermanfaat
Sub Input_Data()
'anton suryadi 29/Juli/2010
t = 0
LR = Cells(Rows.Count, 9).End(xlUp)
For i = 8 To LR
If Cells(i, 9).Value = Cells(2, 3).Value Then
If Application.
CountA(Range(
t = 1
Cells(i, 11).Resize(1, 3).Value = Range("D10:F10"
Exit Sub
Else
If MsgBox("Data sudah ada, ganti?", vbYesNo) = vbNo Then Exit Sub
t = 1
Cells(i, 11).Resize(1, 3).Value = Range("D10:F10"
Exit Sub
End If
End If
Next
If t = 0 Then MsgBox "Nama bulan tdk ditemukan...
End Sub
File terlampir
>semoga bermanfaat
From: deni Sukmana <dataxl@yahoo.
To: XL-mania@yahoogroup
Sent: Tue, July 27, 2010 8:02:40 AM
Subject: ]] XL-mania [[ Input data baru tanpa hilang data sebelumnya
Dear Para xl Mania,
Mau nanya neh, bagaimana ya rumusnya jika kita input data baru tetapi data lama tidak hilang?, untuk detailnya ada dicontoh filenya.
Mau nanya neh, bagaimana ya rumusnya jika kita input data baru tetapi data lama tidak hilang?, untuk detailnya ada dicontoh filenya.
terima kasih
__._,_.___
Messages in this topic (146)
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| yak.... tembus 15,000. member ke 15,000 angkat tangannnnn... mau |
| momods kirimin coklat.... hehehe... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
| yak.... tembus 15,000. member ke 15,000 angkat tangannnnn... mau |
| momods kirimin coklat.... hehehe... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| 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