Budayakan membaca Rules, petunjuk, dan tips melakukan posting di XL-mania, walaupun cuma sekali seumur hidup... :p
Berikut alternatif macro lainnya,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$15:$D$16" Then
If MsgBox("PutIn?", vbYesNo) = vbNo Then
MsgBox ("input telah dibatalkan...")
Target.Offset(1).Activate
Else
If Range("D5").Value <> "" Then
With Sheets("OUT PUT")
lr = .Cells(Rows.Count, 2).End(xlUp).Row
.Cells(lr + 1, 1).Value = Cells(lr, 1).Row
.Cells(lr + 1, 2).Value = Range("D5").Value
.Cells(lr + 1, 3).Value = Range("D7").Value
.Cells(lr + 1, 4).Value = Range("D9").Value
.Cells(lr + 1, 5).Value = Range("D11").Value
.Cells(lr + 1, 6).Value = Range("D13").Value
End With
Target.Offset(1).Activate
Range("D5,D7,D9,D11,D13").ClearContents
MsgBox "Data telah terinput."
Else
MsgBox "Isikan tanggalnya!"
Target.Offset(1).Activate
End If
End If
ElseIf Target.Address = "$B$15:$B$16" Then
If MsgBox("ReSet?", vbYesNo) = vbNo Then
Target.Offset(1).Activate
Else
Range("D5,D7,D9,D11,D13").ClearContents
Target.Offset(1).Activate
End If
End If
End Sub
File terlampir
>semoga bermanfaat
TIPS BERTANYA DI XL-mania:
Nomor 17: Hindari cc ke personal / membanjiri e-mail individual dengan pertanyaan
Berikut alternatif macro lainnya,
Private Sub Worksheet_BeforeDou
If Target.Address = "$D$15:$D$16" Then
If MsgBox("PutIn?
MsgBox ("input telah dibatalkan..
Target.Offset(
Else
If Range("D5").
With Sheets("OUT PUT")
lr = .Cells(Rows.
.Cells(lr + 1, 1).Value = Cells(lr, 1).Row
.Cells(lr + 1, 2).Value = Range("D5").
.Cells(lr + 1, 3).Value = Range("D7").
.Cells(lr + 1, 4).Value = Range("D9").
.Cells(lr + 1, 5).Value = Range("D11")
.Cells(lr + 1, 6).Value = Range("D13")
End With
Target.Offset(
Range("D5,D7,
MsgBox "Data telah terinput."
Else
MsgBox "Isikan tanggalnya!"
Target.Offset(
End If
End If
ElseIf Target.Address = "$B$15:$B$16" Then
If MsgBox("ReSet?
Target.Offset(
Else
Range("D5,D7,
Target.Offset(
End If
End If
End Sub
File terlampir
>semoga bermanfaat
TIPS BERTANYA DI XL-mania:
Nomor 17: Hindari cc ke personal / membanjiri e-mail individual dengan pertanyaan
From: Jaya Thalib <jayaeskaem@yahoo.com>
To: XL-mania@yahoogroups.com
Cc: mohon@yahoo.com
Sent: Mon, May 24, 2010 12:45:07 AM
Subject: ]] XL-mania [[ gimana caranya format input data tersave ke sheet lainnya
To: XL-mania@yahoogroup
Cc: mohon@yahoo.
Sent: Mon, May 24, 2010 12:45:07 AM
Subject: ]] XL-mania [[ gimana caranya format input data tersave ke sheet lainnya
| hai xl mania, aku mau minta tolong lagi nech, tapi sebelumnya aku ucapin terima kasih karena yang kemarin udah dibalas dan solusinya sangat membantu menyelesaikan masalah yang kuhadapi...sekarang mau nanya lagi nech, gimana caranya melakukan penyimpanan data terhadap inputan data ke sheet lainnya dengan menggunakan macross...dan gimana caranya melakukan reset terhadap inputan dengan macross juga....masalahnya ada dilampiran.. .oh yah koq pesannya nggak muncul dimilis yah padahal aku udah kirim ke alamat xl mania....thanks be4.... jaya... |
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momods di tempat terpencil... moderasi lemots. |
| 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 |
+-------------------------------------------------------------------+
| momods di tempat terpencil... moderasi lemots. |
| 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