Ralat sampel : (momggo diliat attacment)
Macro :
Sub Button1_Click()
ActiveWorkbook.Sheets("Sampel").Activate
Range("f4").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = Range("d4")
ActiveCell.Offset(0, 0) = Range("d4")
End Sub
Semoga membantu
Regards
Lokomotif
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: XL-mania@yahoogroups.com
Terkirim: Sab, 28 Agustus, 2010 02:32:26
Judul: Re: ]] XL-mania [[ input di satu cell, hasilnya dapat lebih dari satu cell
2010/8/28 Ary <ary_12282@yahoo.com>
>
> Dear master excel yg budiman
> saya mempunyai kendala di excel..mohon untuk pencerahannya
>
> kasus :
> misal di kita input data di cell A1, adalah angka 10, kemudian hasil dari inputan tsb akan muncul di cell C1 ( angka 10 ),
Macro :
Sub Button1_Click()
ActiveWorkbook.Sheets("Sampel").Activate
Range("f4").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = Range("d4")
ActiveCell.Offset(0, 0) = Range("d4")
End Sub
Semoga membantu
Regards
Lokomotif
Dari: STDEV(i) <setiyowati.devi@gmail.com>
Kepada: XL-mania@yahoogroups.com
Terkirim: Sab, 28 Agustus, 2010 02:32:26
Judul: Re: ]] XL-mania [[ input di satu cell, hasilnya dapat lebih dari satu cell
jelas bahwa di C2 (dan Cells di bawahnya) pasti bukan FORMULA =C1
karena jika C1 di isi LAGI dengan data lain, C2 DILARANG merujuk seperti C1
padahal itulah BUNYI formulanya (kalau harus berisi Formula "=C1")
menurutku kerjaan seperti ini seperti memperlakukan C1 sebagai FORM INPUT DATA
truss... C2 dan cells dibawahnya : walaupun hanya satu kolom boleh dikatakan sebagai
TABEL penampung INPUT
so, biasanya "yg beginian" ini perlu dibantu makro kecil.. yg sebenarnya di milis
sudah banyak contohnya.
Private Sub Worksheet_Change(ByVal C1 As Range)
'siti Vi // 28 aug 2010 // for XL-mania
Dim R As Long
R = 2
If C1.Cells.Count = 1 Then
If C1.Address = Cells(1, 3).Address Then
If Len(C1) > 0 Then
Do While Len(Cells(R, 3).Value) > 0
R = R + 1
Loop
Else
Exit Sub
End If
Cells(R, 3) = C1
End If
End If
End Sub
2010/8/28 Ary <ary_12282@yahoo.com>
>
> Dear master excel yg budiman
> saya mempunyai kendala di excel..mohon untuk pencerahannya
>
> kasus :
> misal di kita input data di cell A1, adalah angka 10, kemudian hasil dari inputan tsb akan muncul di cell C1 ( angka 10 ),
> tetapi saat kita input kembali di cell A1 angka 12 hasil inputan akan otomatis muncul di cell C2 ( angka 12 ),
> tetapi angka 10 di cell C1 tidak berubah. dan bila kita input lagi di cell A1 angka 14 akan muncul angka 14,
> dengan tidak merubah kondisi cell di atasnya.
>
> terima kasih atas bantuannya, dan mohon maaf atas kalimat yang membingungkan
>
> regards
> ary
>
> terima kasih atas bantuannya, dan mohon maaf atas kalimat yang membingungkan
>
> regards
> ary
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| oooppsss... 216 e-mails di folder sp4m kepencet [delete] :( |
| 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 |
+-------------------------------------------------------------------+
| oooppsss... 216 e-mails di folder sp4m kepencet [delete] :( |
| 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