[belajar-excel] Digest Number 4696

Milis Belajar Microsoft Excel Group

3 Messages

Digest #4696

1a

Pindah cell otomatis by cheivory_bridge

1b

Re: Pindah cell otomatis by "Agus"

2a

Re: Macro untuk mengambil Serial Number Komputer [1 Attachment] by "YaYa" yaya12agus

Messages

1a

Pindah cell otomatis

Sat Jan 26, 2019 3:14 am (PST) . Posted by:

cheivory_bridge

Yth. Be-exceller


Mohon bantuannya atas kasus saya ...


Misalnya :
di A1:A600 diisi data validation dengan pilihan misalnya 1, 2, 3, 4.
Bagaimana kode macronya bila di setiap cell yang sudah diisi suatu pilihan maka, otomatis akan berpindah 1 sel di bawahnya ?


Terima kasih.


Ari

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

1b

Re: Pindah cell otomatis

Sat Jan 26, 2019 8:49 pm (PST) . Posted by:

"Agus"

Dear Ari.
dicoba cekrip berikut:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Single
r = ActiveCell.Row
Range("A" & r + 1).Select
End Sub

salam
NangAgus
On 1/26/2019 17:44, cheivory_bridge@yahoo.com [belajar-excel] wrote:
>
> Yth. Be-exceller
>
>
> Mohon bantuannya atas kasus saya ...
>
>
> Misalnya :
>
> di A1:A600 diisi data validation dengan pilihan misalnya 1, 2, 3, 4.
>
> Bagaimana kode macronya bila di setiap cell yang sudah diisi suatu
> pilihan maka, otomatis akan berpindah 1 sel di bawahnya ?
>
>
> Terima kasih.
>
>
> Ari
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

2a

Re: Macro untuk mengambil Serial Number Komputer [1 Attachment]

Sat Jan 26, 2019 3:17 am (PST) . Posted by:

"YaYa" yaya12agus

Dear Pak Hendrik:Selamat malam, saya menggunakan cekript di bawah pada Visual Basic 6.0. dicoba dahulu pak Hendrik semoga berfungsi dikomputer pak Hendrik. saya pakai juga di Excel 2007 berfungsi normal.
Option Explicit
Sub SerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim procid As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.SerialNumber
If procid < objs.Count Then procid = procid & ","
Next
MsgBox procid
End Sub

Salam KenangAgus

On Thursday, January 24, 2019, 11:39:10 AM GMT+7, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Dear Be-Excel,
Selamat pagi, salam sejahtera.
Pada kesempatan ini saya ingin bertanya :Bagaimanakah perintah Macro di Excel (jika bisa) untuk mengambil Serial Number dari komputer yang sedang kita gunakan ?Saya akan menggunakan Serial Number ini untuk mem-password file Excel.
Di bawah ini adalah Serial Number yang saya dapatkan melalui perintah Cmd:\, WMIC BASEBOARD GET PRODUCT, ......

Terima kasih.

Salam,HK

#yiv4004352480 #yiv4004352480 -- #yiv4004352480ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4004352480 #yiv4004352480ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4004352480 #yiv4004352480ygrp-mkp #yiv4004352480hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4004352480 #yiv4004352480ygrp-mkp #yiv4004352480ads {margin-bottom:10px;}#yiv4004352480 #yiv4004352480ygrp-mkp .yiv4004352480ad {padding:0 0;}#yiv4004352480 #yiv4004352480ygrp-mkp .yiv4004352480ad p {margin:0;}#yiv4004352480 #yiv4004352480ygrp-mkp .yiv4004352480ad a {color:#0000ff;text-decoration:none;}#yiv4004352480 #yiv4004352480ygrp-sponsor #yiv4004352480ygrp-lc {font-family:Arial;}#yiv4004352480 #yiv4004352480ygrp-sponsor #yiv4004352480ygrp-lc #yiv4004352480hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4004352480 #yiv4004352480ygrp-sponsor #yiv4004352480ygrp-lc .yiv4004352480ad {margin-bottom:10px;padding:0 0;}#yiv4004352480 #yiv4004352480actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4004352480 #yiv4004352480activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4004352480 #yiv4004352480activity span {font-weight:700;}#yiv4004352480 #yiv4004352480activity span:first-child {text-transform:uppercase;}#yiv4004352480 #yiv4004352480activity span a {color:#5085b6;text-decoration:none;}#yiv4004352480 #yiv4004352480activity span span {color:#ff7900;}#yiv4004352480 #yiv4004352480activity span .yiv4004352480underline {text-decoration:underline;}#yiv4004352480 .yiv4004352480attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4004352480 .yiv4004352480attach div a {text-decoration:none;}#yiv4004352480 .yiv4004352480attach img {border:none;padding-right:5px;}#yiv4004352480 .yiv4004352480attach label {display:block;margin-bottom:5px;}#yiv4004352480 .yiv4004352480attach label a {text-decoration:none;}#yiv4004352480 blockquote {margin:0 0 0 4px;}#yiv4004352480 .yiv4004352480bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4004352480 .yiv4004352480bold a {text-decoration:none;}#yiv4004352480 dd.yiv4004352480last p a {font-family:Verdana;font-weight:700;}#yiv4004352480 dd.yiv4004352480last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4004352480 dd.yiv4004352480last p span.yiv4004352480yshortcuts {margin-right:0;}#yiv4004352480 div.yiv4004352480attach-table div div a {text-decoration:none;}#yiv4004352480 div.yiv4004352480attach-table {width:400px;}#yiv4004352480 div.yiv4004352480file-title a, #yiv4004352480 div.yiv4004352480file-title a:active, #yiv4004352480 div.yiv4004352480file-title a:hover, #yiv4004352480 div.yiv4004352480file-title a:visited {text-decoration:none;}#yiv4004352480 div.yiv4004352480photo-title a, #yiv4004352480 div.yiv4004352480photo-title a:active, #yiv4004352480 div.yiv4004352480photo-title a:hover, #yiv4004352480 div.yiv4004352480photo-title a:visited {text-decoration:none;}#yiv4004352480 div#yiv4004352480ygrp-mlmsg #yiv4004352480ygrp-msg p a span.yiv4004352480yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4004352480 .yiv4004352480green {color:#628c2a;}#yiv4004352480 .yiv4004352480MsoNormal {margin:0 0 0 0;}#yiv4004352480 o {font-size:0;}#yiv4004352480 #yiv4004352480photos div {float:left;width:72px;}#yiv4004352480 #yiv4004352480photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4004352480 #yiv4004352480photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4004352480 #yiv4004352480reco-category {font-size:77%;}#yiv4004352480 #yiv4004352480reco-desc {font-size:77%;}#yiv4004352480 .yiv4004352480replbq {margin:4px;}#yiv4004352480 #yiv4004352480ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4004352480 #yiv4004352480ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4004352480 #yiv4004352480ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4004352480 #yiv4004352480ygrp-mlmsg select, #yiv4004352480 input, #yiv4004352480 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4004352480 #yiv4004352480ygrp-mlmsg pre, #yiv4004352480 code {font:115% monospace;}#yiv4004352480 #yiv4004352480ygrp-mlmsg * {line-height:1.22em;}#yiv4004352480 #yiv4004352480ygrp-mlmsg #yiv4004352480logo {padding-bottom:10px;}#yiv4004352480 #yiv4004352480ygrp-msg p a {font-family:Verdana;}#yiv4004352480 #yiv4004352480ygrp-msg p#yiv4004352480attach-count span {color:#1E66AE;font-weight:700;}#yiv4004352480 #yiv4004352480ygrp-reco #yiv4004352480reco-head {color:#ff7900;font-weight:700;}#yiv4004352480 #yiv4004352480ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4004352480 #yiv4004352480ygrp-sponsor #yiv4004352480ov li a {font-size:130%;text-decoration:none;}#yiv4004352480 #yiv4004352480ygrp-sponsor #yiv4004352480ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4004352480 #yiv4004352480ygrp-sponsor #yiv4004352480ov ul {margin:0;padding:0 0 0 8px;}#yiv4004352480 #yiv4004352480ygrp-text {font-family:Georgia;}#yiv4004352480 #yiv4004352480ygrp-text p {margin:0 0 1em 0;}#yiv4004352480 #yiv4004352480ygrp-text tt {font-size:120%;}#yiv4004352480 #yiv4004352480ygrp-vital ul li:last-child {border-right:none !important;}#yiv4004352480

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use