Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 29 de julho de 2010

Re: ]] XL-mania [[ Input data baru tanpa hilang data sebelumnya

 

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




From: deni Sukmana <dataxl@yahoo.com>
To: XL-mania@yahoogroups.com
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.
terima kasih



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

Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Hobbies & Activities Zone: Find others who share your passions! Explore new interests.


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