Selasa, 13 September 2016

[belajar-excel] Digest Number 3964

6 Messages

Digest #3964
1b
Re: Pindah cell di sheet lain by "hendrik karnadi" hendrikkarnadi
2a
Re: Pindah cell di sheet lain [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
3a
Re: td bisa rename =EMBED("Forms.Image.1";"") by "Mr. Kid" nmkid.family@ymail.com

Messages

Mon Sep 12, 2016 4:01 am (PDT) . Posted by:

"farud oke"

Klo memang pakai macro bisa nggak mas saya beri kode macronya..?
Pada tanggal 12 Sep 2016 3.37 PM, "hendrikkarnadi hendrikkarnadi@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

>
>
> Hai Farud,
> Yang ini hatus pake macro...
>
> Salam,
> HK
>
> Sent from Samsung Mobile.
>
>
> -------- Original message --------
> From: "farud oke farud.oke@gmail.com [belajar-excel]"
> Date:12/09/2016 08:17 (GMT+07:00)
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Pindah cell di sheet lain [1 Attachment]
>
>
>
> Assalamualaikum wr.wb
> Yth para master excel mohon bantuannya,bagaimana formula atau vba apabila
> di sheet sekolah cell B2 kita pilih 1 ( ganjil ) maka di sheet UH pointer
> akan berada di cell A2,jika yg di sheet sekolah cell B2 kita pilih 2 (
> Genap ) maka pointer berada di cell A400.selengkapnya ada di file
> Atas bantuan para master sekalian saya ucapkan terimakasih
>
>
>

Mon Sep 12, 2016 8:25 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pada VBE Sheet...Sheet1(sekolah) copas macro ini:
Private Sub Worksheet_Change(ByVal Target As Range)    If Target.Address = "$B$2" Then        If Target.Count = 1 Then            With Target                If .Value = "1 ( Ganjil )" Then                    Call Ganjil                Else 'asumsi cuma 2 pilihan                    Call Genap                End If            End With        End If    End IfEnd Sub

Pada VBE Sheet...Module1 (nomor 1 dibuat otomatis oleh komputer ketika kita Insert Module):
Sub Ganjil()    Sheets("UH").Select    Range("A2").SelectEnd Sub
Sub Genap()    Sheets("UH").Select    Range("A400").SelectEnd Sub
Coba dulu, kalau blm bisa baru buka file terlampir.
Salam,HK
From: "farud oke farud.oke@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 12 September 2016, 16:14
Subject: RE: [belajar-excel] Pindah cell di sheet lain

  Klo memang pakai macro bisa nggak mas saya beri kode macronya..?Pada tanggal 12 Sep 2016 3.37 PM, "hendrikkarnadi hendrikkarnadi@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

  Hai Farud,Yang ini hatus pake macro...
Salam,HK
Sent from Samsung Mobile.

-------- Original message --------From: "farud oke farud.oke@gmail.com [belajar-excel]" Date:12/09/2016 08:17 (GMT+07:00) To: belajar-excel@yahoogroups.com Subject: [belajar-excel] Pindah cell di sheet lain [1 Attachment]
  Assalamualaikum wr.wbYth para master excel mohon bantuannya,bagaimana formula atau vba apabila di sheet sekolah cell B2 kita pilih 1 ( ganjil ) maka di sheet UH pointer akan berada di cell A2,jika yg di sheet sekolah cell B2 kita pilih 2 ( Genap ) maka pointer berada di cell A400.selengkapnya ada di fileAtas bantuan para master sekalian saya ucapkan terimakasih 
#yiv9073146047 #yiv9073146047 -- #yiv9073146047ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9073146047 #yiv9073146047ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9073146047 #yiv9073146047ygrp-mkp #yiv9073146047hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9073146047 #yiv9073146047ygrp-mkp #yiv9073146047ads {margin-bottom:10px;}#yiv9073146047 #yiv9073146047ygrp-mkp .yiv9073146047ad {padding:0 0;}#yiv9073146047 #yiv9073146047ygrp-mkp .yiv9073146047ad p {margin:0;}#yiv9073146047 #yiv9073146047ygrp-mkp .yiv9073146047ad a {color:#0000ff;text-decoration:none;}#yiv9073146047 #yiv9073146047ygrp-sponsor #yiv9073146047ygrp-lc {font-family:Arial;}#yiv9073146047 #yiv9073146047ygrp-sponsor #yiv9073146047ygrp-lc #yiv9073146047hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9073146047 #yiv9073146047ygrp-sponsor #yiv9073146047ygrp-lc .yiv9073146047ad {margin-bottom:10px;padding:0 0;}#yiv9073146047 #yiv9073146047actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9073146047 #yiv9073146047activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9073146047 #yiv9073146047activity span {font-weight:700;}#yiv9073146047 #yiv9073146047activity span:first-child {text-transform:uppercase;}#yiv9073146047 #yiv9073146047activity span a {color:#5085b6;text-decoration:none;}#yiv9073146047 #yiv9073146047activity span span {color:#ff7900;}#yiv9073146047 #yiv9073146047activity span .yiv9073146047underline {text-decoration:underline;}#yiv9073146047 .yiv9073146047attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9073146047 .yiv9073146047attach div a {text-decoration:none;}#yiv9073146047 .yiv9073146047attach img {border:none;padding-right:5px;}#yiv9073146047 .yiv9073146047attach label {display:block;margin-bottom:5px;}#yiv9073146047 .yiv9073146047attach label a {text-decoration:none;}#yiv9073146047 blockquote {margin:0 0 0 4px;}#yiv9073146047 .yiv9073146047bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9073146047 .yiv9073146047bold a {text-decoration:none;}#yiv9073146047 dd.yiv9073146047last p a {font-family:Verdana;font-weight:700;}#yiv9073146047 dd.yiv9073146047last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9073146047 dd.yiv9073146047last p span.yiv9073146047yshortcuts {margin-right:0;}#yiv9073146047 div.yiv9073146047attach-table div div a {text-decoration:none;}#yiv9073146047 div.yiv9073146047attach-table {width:400px;}#yiv9073146047 div.yiv9073146047file-title a, #yiv9073146047 div.yiv9073146047file-title a:active, #yiv9073146047 div.yiv9073146047file-title a:hover, #yiv9073146047 div.yiv9073146047file-title a:visited {text-decoration:none;}#yiv9073146047 div.yiv9073146047photo-title a, #yiv9073146047 div.yiv9073146047photo-title a:active, #yiv9073146047 div.yiv9073146047photo-title a:hover, #yiv9073146047 div.yiv9073146047photo-title a:visited {text-decoration:none;}#yiv9073146047 div#yiv9073146047ygrp-mlmsg #yiv9073146047ygrp-msg p a span.yiv9073146047yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9073146047 .yiv9073146047green {color:#628c2a;}#yiv9073146047 .yiv9073146047MsoNormal {margin:0 0 0 0;}#yiv9073146047 o {font-size:0;}#yiv9073146047 #yiv9073146047photos div {float:left;width:72px;}#yiv9073146047 #yiv9073146047photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9073146047 #yiv9073146047photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9073146047 #yiv9073146047reco-category {font-size:77%;}#yiv9073146047 #yiv9073146047reco-desc {font-size:77%;}#yiv9073146047 .yiv9073146047replbq {margin:4px;}#yiv9073146047 #yiv9073146047ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9073146047 #yiv9073146047ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9073146047 #yiv9073146047ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9073146047 #yiv9073146047ygrp-mlmsg select, #yiv9073146047 input, #yiv9073146047 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9073146047 #yiv9073146047ygrp-mlmsg pre, #yiv9073146047 code {font:115% monospace;}#yiv9073146047 #yiv9073146047ygrp-mlmsg * {line-height:1.22em;}#yiv9073146047 #yiv9073146047ygrp-mlmsg #yiv9073146047logo {padding-bottom:10px;}#yiv9073146047 #yiv9073146047ygrp-msg p a {font-family:Verdana;}#yiv9073146047 #yiv9073146047ygrp-msg p#yiv9073146047attach-count span {color:#1E66AE;font-weight:700;}#yiv9073146047 #yiv9073146047ygrp-reco #yiv9073146047reco-head {color:#ff7900;font-weight:700;}#yiv9073146047 #yiv9073146047ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9073146047 #yiv9073146047ygrp-sponsor #yiv9073146047ov li a {font-size:130%;text-decoration:none;}#yiv9073146047 #yiv9073146047ygrp-sponsor #yiv9073146047ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9073146047 #yiv9073146047ygrp-sponsor #yiv9073146047ov ul {margin:0;padding:0 0 0 8px;}#yiv9073146047 #yiv9073146047ygrp-text {font-family:Georgia;}#yiv9073146047 #yiv9073146047ygrp-text p {margin:0 0 1em 0;}#yiv9073146047 #yiv9073146047ygrp-text tt {font-size:120%;}#yiv9073146047 #yiv9073146047ygrp-vital ul li:last-child {border-right:none !important;}#yiv9073146047

Mon Sep 12, 2016 9:43 am (PDT) . Posted by:

"farud oke"

terimakasih mas hendrik atas bantuannya..tapi yang saya inginkan bukan
langsung pindah sheet mas,tapi ketika kita klik sheet UH pointer sudah
sesuai dengan pilihan di sheet sekolah.ketika kita pilih 2 ( Genap ) maka
ketika kita klik sheet UH pointer sudah berada di cell A400.hal ini karena
selain sheet UH masih ada sheet2 yg lain yg mau dikondisikan seperti itu
mas..
mohon maaf bila penjelasannya kurang pas

2016-09-12 22:25 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Pada VBE Sheet...Sheet1(sekolah) copas macro ini:
>
> *Private Sub Worksheet_Change(ByVal Target As Range)*
> If Target.Address = "$B$2" Then
> If Target.Count = 1 Then
> With Target
> If .Value = "1 ( Ganjil )" Then
> Call Ganjil
> Else 'asumsi cuma 2 pilihan
> Call Genap
> End If
> End With
> End If
> End If
> *End Sub*
>
>
> Pada VBE Sheet...Module1 (nomor 1 dibuat otomatis oleh komputer ketika
> kita Insert Module):
>
> *Sub Ganjil()*
> Sheets("UH").Select
> Range("A2").Select
> *End Sub*
>
> *Sub Genap()*
> Sheets("UH").Select
> Range("A400").Select
> *End Sub*
>
> Coba dulu, kalau blm bisa baru buka file terlampir.
>
> Salam,
> HK
>
> ------------------------------
> *From:* "farud oke farud.oke@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Monday, 12 September 2016, 16:14
> *Subject:* RE: [belajar-excel] Pindah cell di sheet lain
>
>
> Klo memang pakai macro bisa nggak mas saya beri kode macronya..?
> Pada tanggal 12 Sep 2016 3.37 PM, "hendrikkarnadi hendrikkarnadi@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
> Hai Farud,
> Yang ini hatus pake macro...
>
> Salam,
> HK
>
> Sent from Samsung Mobile.
>
>
> -------- Original message --------

> From: "farud oke farud.oke@gmail.com [belajar-excel]"
> Date:12/09/2016 08:17 (GMT+07:00)
> To: belajar-excel@yahoogroups.com
> Subject: [belajar-excel] Pindah cell di sheet lain [1 Attachment]
>
>
> Assalamualaikum wr.wb
> Yth para master excel mohon bantuannya,bagaimana formula atau vba apabila

> di sheet sekolah cell B2 kita pilih 1 ( ganjil ) maka di sheet UH pointer
> akan berada di cell A2,jika yg di sheet sekolah cell B2 kita pilih 2 (
> Genap ) maka pointer berada di cell A400.selengkapnya ada di file
> Atas bantuan para master sekalian saya ucapkan terimakasih
>
>
>
>
>

Mon Sep 12, 2016 12:23 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam wr wb

File yang ada disini
<https://app.box.com/s/g9cvtw2t6bkpbh7uw9ao66dhx19r0lvp> adalah contoh menu
tanpa VBA. Siapa tahu bisa digunakan untuk kasus ini.

Wassalamu'alaikum wr wb
Kid

2016-09-12 8:17 GMT+07:00 farud oke farud.oke@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Assalamualaikum wr.wb
> Yth para master excel mohon bantuannya,bagaimana formula atau vba apabila
> di sheet sekolah cell B2 kita pilih 1 ( ganjil ) maka di sheet UH pointer
> akan berada di cell A2,jika yg di sheet sekolah cell B2 kita pilih 2 (
> Genap ) maka pointer berada di cell A400.selengkapnya ada di file
> Atas bantuan para master sekalian saya ucapkan terimakasih
>
>
>

Mon Sep 12, 2016 3:56 pm (PDT) . Posted by:

"farud oke"

terimakasih buat mr.kid..file yg mr.kid berikan sudah hampir sesuai dengan
apa yg saya harapkan tapi disitu pilihannya ada dua, agar mr.kid dan
master2 yang lain lebih paham dengan apa yg saya harapkan saya kirim
filenya lagi yg lebih lengkap dan lebih rinci penjelasannya.

Pada 13 September 2016 02.08, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Wa'alaikumussalam wr wb
>
> File yang ada disini
> <https://app.box.com/s/g9cvtw2t6bkpbh7uw9ao66dhx19r0lvp> adalah contoh
> menu tanpa VBA. Siapa tahu bisa digunakan untuk kasus ini.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> 2016-09-12 8:17 GMT+07:00 farud oke farud.oke@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Assalamualaikum wr.wb
>> Yth para master excel mohon bantuannya,bagaimana formula atau vba apabila
>> di sheet sekolah cell B2 kita pilih 1 ( ganjil ) maka di sheet UH pointer
>> akan berada di cell A2,jika yg di sheet sekolah cell B2 kita pilih 2 (
>> Genap ) maka pointer berada di cell A400.selengkapnya ada di file
>> Atas bantuan para master sekalian saya ucapkan terimakasih
>>
>>
>
>

Mon Sep 12, 2016 12:41 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Toy,

1. tentang :
tidak bisa rename =EMBED("Forms.Image.1";"")

> yang Anda gunakan adalah activeX control bernama Image.
> Anda tidak dapat mengganti bunyi formulanya
> dalam formula tersebut pun TIDAK ada informasi file gambar apa yang
Anda pasang di activex control image tersebut
> control ini bisa dipasangi gambar secara manual dengan memilih file
gambar pada properti Picture atau mengisi properti Picture dengan baris
kode VBA menggunakan perintah LoadPicture

2. tentang :
masalah mau buat data base dengan foto

> Ada banyak cara untuk hal ini, antara lain :
*A. Menggunakan shapes Picture (lihat di ribbon Insert -> group
Illustrations -> Picture)*
- Cara ini akan membuat Excel berisi banyak sekali shapes Picture
berisi masing-masing file gambar
- Jadi, jika ada 5000 record data bergambar dan masing-masing
gambar sebesar 1MB, maka file Excel akan menjadi sebesar 5000MB
- Setelah semua shapes terbuat dan berisi masing-masing gambar
dan lebar dan tinggi setiap cells sudah disesuaikan, maka di sheet lain
bisa dibuat formula lookup picture. Contohnya di file yang ada disini
<https://app.box.com/s/5khwl33vgmr3y2tkx3sq>.
- Tapi, jika sukanya pakai cara ini, proses membuat shapes berisi
setiap file gambar bisa diotomasi dengan VBA. Contohnya adalah seperti file
yang ada disini <https://app.box.com/s/vp8lqos5zq0gb4kx94i6>.
- Cara ini *TIDAK *direkomendasikan.

*B. Menggunakan VBA untuk me-load gambar yang dibutuhkan dalam
tampilan*
- Cara ini adalah dengan menyediakan record data yang lengkap,
termasuk alamat file lengkap file gambar, disuatu sheet Data
- Kemudian di sheet lain ada sebuah interface untuk melihat detil
record data yang diinginkan disertai proses me-load gambar sesuai nama file
yang ada dalam record data tersebut
- Jadi, file Excel akan tetap ringkas karena tidak menyimpan
banyak file gambar, tetapi harus ada folder yang berisi seluruh file gambar
yang dimaksud dalam sheet data
- Contoh baris kode untuk mengambil suatu file gambar dan
memasangkan ke sebuah activex control Image adalah seperti di file yang ada
disini <https://app.box.com/s/57pt827zjahlyoxp2cum>. Isi folder lokasi
gambarnya, tulis nama file gambarnya, tekan tombol [GET]. Anda bisa
memanfaatkan baris kode yang ada di file ini pada data yang sudah Anda
sediakan dengan penyesuaian rujukan dalam baris kodenya. Jika belum
menguasai VBA, coba dimulai dari sini
<http://b-excel.blogspot.co.id/2013/06/belajarvba-000-kenalan.html>.

Regards,
Kid

2016-09-11 20:52 GMT+07:00 Toy Pramadewa toy.pramadewa@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> dear para suhu..
> sy punya masalah mau buat data base dengan foto ternyata tidak bisa rename
> =EMBED("Forms.Image.1";""),,,selalu ada peringatan "reference not valid"
> mohon solusi, terimakasi para suhu,...
>
>
============================================================
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
---------------------------------------------------------------------

Tidak ada komentar:

Poskan Komentar