7 Messages
Digest #4791
Messages
Tue Jul 9, 2019 4:13 am (PDT) . Posted by:
"Odhy" odhyz83_assasaky
Dear Para Master,Saya kesulita membuat rekap untuk barang yang Outstanding/ barang yang belum kembali untuk masing-masing salesman, masing-masing item perhari.Ilustrasinya sebagai berikut :1. Salesman akan melakukan pengambilan, penambahan maupun pengurangan barang per hari, Total pengambilannya akan masuk ke rekap Outstanding.2. Apabila salesman pernah melakukan pengembalian, maka semua transaksinya (pengambilan, penambahan, pengurangan) tidak masuk ke rekap Outstanding, apabila melakukan pengambilan barang di hari berikutnya maka masuk sebagai Outstanding.
Mudah2an bisa dipahami dan mohon pencerahannya.
Salam,Odhy.
Mudah2an bisa dipahami dan mohon pencerahannya.
Salam,Odhy.
Tue Jul 9, 2019 4:13 am (PDT) . Posted by:
"Cari Kebenaran"
Kepada segenap master dan anggota milis.
Tolong dibantu bagaimana membuat judul header secara otomatis setelah
menekan tobol " BUAT HEADER"
yang ada di sheet NILAI.
Selama ini saya menggunakan cara manual, yaitu:
Untuk mengisi cell A6 dan B6 pada sheet NILAI. Saya melakukan langkah:
Buka sheet INDIKATOR, lalu pilih cell A6:B6, klik Copy. Lalu buka sheet
NILAI, klik cell A6,
kemudian klik menu down arrow Paste, pilih Value.
Untuk mengisi cell C6 pada sheet NILAI, saya tulis secara manual judul
header tersebut (TANGGAL).
Untuk mengisi range D6:S6 pada sheet NILAI. Saya melakukan langkah:
Buka sheet SISWA, pilih range C2:C17 (range/kolom ini bersifat dinamis).
Lalu, klik menu Copy.
Buka sheet NILAI, klik cell D6. Kemudian, klik down arrow Paste - pilih
Value - pilih Transpose - OK.
Hasilnya kerja manual dapat dilihat pada lampiran.
Terima kasih
Tolong dibantu bagaimana membuat judul header secara otomatis setelah
menekan tobol " BUAT HEADER"
yang ada di sheet NILAI.
Selama ini saya menggunakan cara manual, yaitu:
Untuk mengisi cell A6 dan B6 pada sheet NILAI. Saya melakukan langkah:
Buka sheet INDIKATOR, lalu pilih cell A6:B6, klik Copy. Lalu buka sheet
NILAI, klik cell A6,
kemudian klik menu down arrow Paste, pilih Value.
Untuk mengisi cell C6 pada sheet NILAI, saya tulis secara manual judul
header tersebut (TANGGAL).
Untuk mengisi range D6:S6 pada sheet NILAI. Saya melakukan langkah:
Buka sheet SISWA, pilih range C2:C17 (range/kolom ini bersifat dinamis).
Lalu, klik menu Copy.
Buka sheet NILAI, klik cell D6. Kemudian, klik down arrow Paste - pilih
Value - pilih Transpose - OK.
Hasilnya kerja manual dapat dilihat pada lampiran.
Terima kasih
Tue Jul 9, 2019 5:35 am (PDT) . Posted by:
"Eira I Arie" cheivory_bridge
Yth. Pak Nang
Mohon maaf menyambung lagi ..Pada script bapak, sel pemicu berada pada sheet surat ..ada keinginan saya sel pemicul berada sheet lain (misalnya sheet "Surat 1")..saya coba ubah2 tapi belum bisa ..mohon pencerahannya ..
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)Dim q As IntegerDim z As IntegerDim ws As WorksheetSet ws = Worksheets("Surat 1")q = Range("A33")z = Range("A33")If Target.Address = ws.Range("$CA$3") Or Target.Address = ws.Range("$CA$4") Or Target.Address = ws.Range("$CA$5") ThenRows("33:49").Hidden = FalseRows(34 + q & ":49").Hidden = TrueEnd IfIf z < 8 Then Rows("59:65").Hidden = FalseRows("75:82").Hidden = FalseIf (z < 11 And z > 7) ThenRows("59:65").Hidden = FalseRows("75:82").Hidden = FalseRows("60:64").Hidden = TrueEnd IfIf (z < 16 And z > 9) ThenRows("59:65").Hidden = FalseRows("60:64").Hidden = TrueRows("75:82").Hidden = TrueEnd IfEnd Sub
terima kasih .. Ari
On Monday, June 5, 2017, 08:14:37 AM GMT+7, Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Asalamualaikum warahmatullah,
Dear Ari,
1. Mohon maaf jika salah mengerti permintaan, Karena menurut file yang saya ketahui, untuk L20 jika diubah menjadi Matakuliah 3, maka hanya berisi dua mahasiswa, saya tidak tahu kalau harusnya berisi 7 mahasiswa.
dicoba dahulu dengan mengembalikan formula di A26 sampai A40 menjadi formula awal dari Ari. (=IF(H26<>"",COUNTA($H$26:H26),"")
jangan lupa dibuang tanda &"" yaa... nanti maksimumnya tidak bisa menghitung.
2. untuk menghidden baris biru tambahkan cekrip:
if z <8 then Rows("51:58").Hidden = False
if (z <11 and z > 7) then
Rows("51:58").Hidden = False
Rows( "52").Hidden = True
end if
if (z <13 and z > 10) then
Rows("51:58").Hidden = False
Rows( "52:55").Hidden = True
end if
Wassalamualaikum warahmatullah
NangAgus
On Fri, Jun 2, 2017 at 8:40 PM, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Terima Kasih Pak Nang atas responnya
Mohon maaf, dalam lampiran balasan, misalnya saat diubah L20 dengan dipilih "matakuliah 3" dan L22 tetap (27 Juni 2011 sampai dengan 06 Agustus 2011), maka hasilnya belum sesuai keinginan. Keinginannya dari perubahan tersebut adalah baris daftar nama mahasiswa yang isi berjumlah 7 baris (baris H26:H32 tampak), sedangkan baris H33:H40 terhidden.
Mohon bantuannya
Terima kasih
On Saturday, June 3, 2017 10:09 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
Dear Ari;
Sebaiknya diubah dahulu formula di kolom A, agar yang nampak dikolom tersebut hanya baris yang ada datanya saja, sedangkan yang tidak ada datanya dibuat kosong, misalnya di A27 dibuat formula: =IF(OR(H27="",H27=0), "",MAX($A$26:A26)+1)
kemudian nilai tertinggi disimpan di A1 (untuk mempermudah saja, kalau tidak disimpan juga tidak apa apa) dengan formula =MAX(A26:A40)
kemudian buat cekrip di sheet "Print surat" pada obyek Sheet, prosedur change, dengan trigger, apabila cell L20 atau L22 diubah maka perintah dijalankan, seperti di bawah ini.
Private Sub Worksheet_Change(ByVal Target As Range)Dim q As Integerq = Range("A1") 'mengambil nilai maksimum di A1If Target.Address = "$L$20" Or Target.Address = "$L$22" Then ' Jika L20 atau L22 diubah kerjakan langkah di bawahnya.Rows("25:41").Hidden = False ' jangan disembunyikan baris ke-25 sampai baris 41Rows(26 + q & ":40").Hidden = True ' Sembunyikan baris ke- 26 + nilai maksimum sampai baris 40End If ' Akhir JikaEnd Sub
untuk pertanyaan kedua coba dibuat berdasarkan cekrip diatas, kalau masih kesulitan dapat ditanyakan kembali,
Salam NangAgus
2017-06-01 23:56 GMT-07:00 cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
Yth. Be-Exceler
Assalaamu'alaikum Wr Wb
Mohon bantuannya untuk case terlampir.
Terima Kasih
Wassalaamu'alaikum Wr Wb
Ari
#yiv3374202023 #yiv3374202023 -- #yiv3374202023ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3374202023 #yiv3374202023ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3374202023 #yiv3374202023ygrp-mkp #yiv3374202023hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3374202023 #yiv3374202023ygrp-mkp #yiv3374202023ads {margin-bottom:10px;}#yiv3374202023 #yiv3374202023ygrp-mkp .yiv3374202023ad {padding:0 0;}#yiv3374202023 #yiv3374202023ygrp-mkp .yiv3374202023ad p {margin:0;}#yiv3374202023 #yiv3374202023ygrp-mkp .yiv3374202023ad a {color:#0000ff;text-decoration:none;}#yiv3374202023 #yiv3374202023ygrp-sponsor #yiv3374202023ygrp-lc {font-family:Arial;}#yiv3374202023 #yiv3374202023ygrp-sponsor #yiv3374202023ygrp-lc #yiv3374202023hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3374202023 #yiv3374202023ygrp-sponsor #yiv3374202023ygrp-lc .yiv3374202023ad {margin-bottom:10px;padding:0 0;}#yiv3374202023 #yiv3374202023actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3374202023 #yiv3374202023activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3374202023 #yiv3374202023activity span {font-weight:700;}#yiv3374202023 #yiv3374202023activity span:first-child {text-transform:uppercase;}#yiv3374202023 #yiv3374202023activity span a {color:#5085b6;text-decoration:none;}#yiv3374202023 #yiv3374202023activity span span {color:#ff7900;}#yiv3374202023 #yiv3374202023activity span .yiv3374202023underline {text-decoration:underline;}#yiv3374202023 .yiv3374202023attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3374202023 .yiv3374202023attach div a {text-decoration:none;}#yiv3374202023 .yiv3374202023attach img {border:none;padding-right:5px;}#yiv3374202023 .yiv3374202023attach label {display:block;margin-bottom:5px;}#yiv3374202023 .yiv3374202023attach label a {text-decoration:none;}#yiv3374202023 blockquote {margin:0 0 0 4px;}#yiv3374202023 .yiv3374202023bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3374202023 .yiv3374202023bold a {text-decoration:none;}#yiv3374202023 dd.yiv3374202023last p a {font-family:Verdana;font-weight:700;}#yiv3374202023 dd.yiv3374202023last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3374202023 dd.yiv3374202023last p span.yiv3374202023yshortcuts {margin-right:0;}#yiv3374202023 div.yiv3374202023attach-table div div a {text-decoration:none;}#yiv3374202023 div.yiv3374202023attach-table {width:400px;}#yiv3374202023 div.yiv3374202023file-title a, #yiv3374202023 div.yiv3374202023file-title a:active, #yiv3374202023 div.yiv3374202023file-title a:hover, #yiv3374202023 div.yiv3374202023file-title a:visited {text-decoration:none;}#yiv3374202023 div.yiv3374202023photo-title a, #yiv3374202023 div.yiv3374202023photo-title a:active, #yiv3374202023 div.yiv3374202023photo-title a:hover, #yiv3374202023 div.yiv3374202023photo-title a:visited {text-decoration:none;}#yiv3374202023 div#yiv3374202023ygrp-mlmsg #yiv3374202023ygrp-msg p a span.yiv3374202023yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3374202023 .yiv3374202023green {color:#628c2a;}#yiv3374202023 .yiv3374202023MsoNormal {margin:0 0 0 0;}#yiv3374202023 o {font-size:0;}#yiv3374202023 #yiv3374202023photos div {float:left;width:72px;}#yiv3374202023 #yiv3374202023photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3374202023 #yiv3374202023photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3374202023 #yiv3374202023reco-category {font-size:77%;}#yiv3374202023 #yiv3374202023reco-desc {font-size:77%;}#yiv3374202023 .yiv3374202023replbq {margin:4px;}#yiv3374202023 #yiv3374202023ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3374202023 #yiv3374202023ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3374202023 #yiv3374202023ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3374202023 #yiv3374202023ygrp-mlmsg select, #yiv3374202023 input, #yiv3374202023 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3374202023 #yiv3374202023ygrp-mlmsg pre, #yiv3374202023 code {font:115% monospace;}#yiv3374202023 #yiv3374202023ygrp-mlmsg * {line-height:1.22em;}#yiv3374202023 #yiv3374202023ygrp-mlmsg #yiv3374202023logo {padding-bottom:10px;}#yiv3374202023 #yiv3374202023ygrp-msg p a {font-family:Verdana;}#yiv3374202023 #yiv3374202023ygrp-msg p#yiv3374202023attach-count span {color:#1E66AE;font-weight:700;}#yiv3374202023 #yiv3374202023ygrp-reco #yiv3374202023reco-head {color:#ff7900;font-weight:700;}#yiv3374202023 #yiv3374202023ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3374202023 #yiv3374202023ygrp-sponsor #yiv3374202023ov li a {font-size:130%;text-decoration:none;}#yiv3374202023 #yiv3374202023ygrp-sponsor #yiv3374202023ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3374202023 #yiv3374202023ygrp-sponsor #yiv3374202023ov ul {margin:0;padding:0 0 0 8px;}#yiv3374202023 #yiv3374202023ygrp-text {font-family:Georgia;}#yiv3374202023 #yiv3374202023ygrp-text p {margin:0 0 1em 0;}#yiv3374202023 #yiv3374202023ygrp-text tt {font-size:120%;}#yiv3374202023 #yiv3374202023ygrp-vital ul li:last-child {border-right:none !important;}#yiv3374202023
Mohon maaf menyambung lagi ..Pada script bapak, sel pemicu berada pada sheet surat ..ada keinginan saya sel pemicul berada sheet lain (misalnya sheet "Surat 1")..saya coba ubah2 tapi belum bisa ..mohon pencerahannya ..
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)Dim q As IntegerDim z As IntegerDim ws As WorksheetSet ws = Worksheets("Surat 1")q = Range("A33")z = Range("A33")If Target.Address = ws.Range("$CA$3") Or Target.Address = ws.Range("$CA$4") Or Target.Address = ws.Range("$CA$5") ThenRows("33:49").Hidden = FalseRows(34 + q & ":49").Hidden = TrueEnd IfIf z < 8 Then Rows("59:65").Hidden = FalseRows("75:82").Hidden = FalseIf (z < 11 And z > 7) ThenRows("59:65").Hidden = FalseRows("75:82").Hidden = FalseRows("60:64").Hidden = TrueEnd IfIf (z < 16 And z > 9) ThenRows("59:65").Hidden = FalseRows("60:64").Hidden = TrueRows("75:82").Hidden = TrueEnd IfEnd Sub
terima kasih .. Ari
On Monday, June 5, 2017, 08:14:37 AM GMT+7, Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Asalamualaikum warahmatullah,
Dear Ari,
1. Mohon maaf jika salah mengerti permintaan, Karena menurut file yang saya ketahui, untuk L20 jika diubah menjadi Matakuliah 3, maka hanya berisi dua mahasiswa, saya tidak tahu kalau harusnya berisi 7 mahasiswa.
dicoba dahulu dengan mengembalikan formula di A26 sampai A40 menjadi formula awal dari Ari. (=IF(H26<>"",COUNTA($H$26:H26),"")
jangan lupa dibuang tanda &"" yaa... nanti maksimumnya tidak bisa menghitung.
2. untuk menghidden baris biru tambahkan cekrip:
if z <8 then Rows("51:58").Hidden = False
if (z <11 and z > 7) then
Rows("51:58").Hidden = False
Rows( "52").Hidden = True
end if
if (z <13 and z > 10) then
Rows("51:58").Hidden = False
Rows( "52:55").Hidden = True
end if
Wassalamualaikum warahmatullah
NangAgus
On Fri, Jun 2, 2017 at 8:40 PM, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Terima Kasih Pak Nang atas responnya
Mohon maaf, dalam lampiran balasan, misalnya saat diubah L20 dengan dipilih "matakuliah 3" dan L22 tetap (27 Juni 2011 sampai dengan 06 Agustus 2011), maka hasilnya belum sesuai keinginan. Keinginannya dari perubahan tersebut adalah baris daftar nama mahasiswa yang isi berjumlah 7 baris (baris H26:H32 tampak), sedangkan baris H33:H40 terhidden.
Mohon bantuannya
Terima kasih
On Saturday, June 3, 2017 10:09 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
Dear Ari;
Sebaiknya diubah dahulu formula di kolom A, agar yang nampak dikolom tersebut hanya baris yang ada datanya saja, sedangkan yang tidak ada datanya dibuat kosong, misalnya di A27 dibuat formula: =IF(OR(H27="",H27=0), "",MAX($A$26:A26)+1)
kemudian nilai tertinggi disimpan di A1 (untuk mempermudah saja, kalau tidak disimpan juga tidak apa apa) dengan formula =MAX(A26:A40)
kemudian buat cekrip di sheet "Print surat" pada obyek Sheet, prosedur change, dengan trigger, apabila cell L20 atau L22 diubah maka perintah dijalankan, seperti di bawah ini.
Private Sub Worksheet_Change(ByVal Target As Range)Dim q As Integerq = Range("A1") 'mengambil nilai maksimum di A1If Target.Address = "$L$20" Or Target.Address = "$L$22" Then ' Jika L20 atau L22 diubah kerjakan langkah di bawahnya.Rows("25:41").Hidden = False ' jangan disembunyikan baris ke-25 sampai baris 41Rows(26 + q & ":40").Hidden = True ' Sembunyikan baris ke- 26 + nilai maksimum sampai baris 40End If ' Akhir JikaEnd Sub
untuk pertanyaan kedua coba dibuat berdasarkan cekrip diatas, kalau masih kesulitan dapat ditanyakan kembali,
Salam NangAgus
2017-06-01 23:56 GMT-07:00 cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
Yth. Be-Exceler
Assalaamu'
Mohon bantuannya untuk case terlampir.
Terima Kasih
Wassalaamu&#
Ari
#yiv3374202023 #yiv3374202023 -- #yiv3374202023ygrp-
Tue Jul 9, 2019 4:46 pm (PDT) . Posted by:
"Agus"
Dear Arie,
Namanya saja: Private Sub Worksheet_Change(ByVal Target As Range)
tahu artinya private khan?
Cekript itu hanya berlaku untuk sheet tempat cekrip berada, tidak dapat
dipicu dari worksheet yang lain.
Kalau mau membuat pemicu pada worksheet lain, silahkan ditulis
cekriptnya pada worksheet tersebut.
misalnya mau pemicu pada sheet "Surat1" ikuti langkah-langkah berikut:
1. Dobel klik sheet "Surat1" pada vba editor
2. Pilih Object-nya Worksheet
3. Pilih procedur-nya Change
4. Ketik pemicunya:
If Target.Address = "$CA$3" Or Target..Address = "$CA$4" Then
5. Ketik Perintahnya
Gambar
Semoga saya tidak salah duga
Salam
NangAgus
On 7/9/2019 19:23, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel]
wrote:
> Yth. Pak Nang
>
> Mohon maaf menyambung lagi ..
> Pada script bapak, sel pemicu berada pada sheet surat ..
> ada keinginan saya sel pemicul berada sheet lain (misalnya sheet
> "Surat 1")..
> saya coba ubah2 tapi belum bisa ..
> mohon pencerahannya ..
>
> Option Explicit
>
> *Private Sub Worksheet_Change(ByVal Target As Range)*
> Dim q As Integer
> Dim z As Integer
> Dim ws As Worksheet
> Set ws = Worksheets("Surat 1")
> q = Range("A33")
> z = Range("A33")
> If Target.Address = ws.Range("$CA$3") Or Target.Address =
> ws.Range("$CA$4") Or Target.Address = ws.Range("$CA$5") Then
> Rows("33:49").Hidden = False
> Rows(34 + q & ":49").Hidden = True
> End If
> If z < 8 Then Rows("59:65").Hidden = False
> Rows("75:82").Hidden = False
> If (z < 11 And z > 7) Then
> Rows("59:65").Hidden = False
> Rows("75:82").Hidden = False
> Rows("60:64").Hidden = True
> End If
> If (z < 16 And z > 9) Then
> Rows("59:65").Hidden = False
> Rows("60:64").Hidden = True
> Rows("75:82").Hidden = True
> End If
> End Sub
>
>
> terima kasih .. Ari
>
> On Monday, June 5, 2017, 08:14:37 AM GMT+7, Nang Agus
> nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> ----------------------------------------------------------
> Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45549;_ylc=X3oDMTJycmEwcWJxBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU0OQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NjI2NzU3NDA-?act=reply&messageNum=45549>
> • Reply to sender
> <mailto:cheivory_bridge@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Hidden%20Baris%20Otomatis>
> • Reply to group
> <mailto:belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Hidden%20Baris%20Otomatis>
> • Start a New Topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/newtopic;_ylc=X3oDMTJmdWswbnBjBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzE1NjI2NzU3NDA->
> • Messages in this topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/42287;_ylc=X3oDMTM3bW43czZjBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU0OQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NjI2NzU3NDAEdHBjSWQDNDIyODc->
> (15)
>
> ----------------------------------------------------------
> Check out the automatic photo album with 1 photo(s)
> <https://groups.yahoo.com/neo/groups/belajar-excel/photos/photomatic/262589061;_ylc=X3oDMTE4M3R1OW82BF9TAzk3MzU5NzE0BGNmOQNQSE9UT01BVElDBHNlYwNtZWdhcGhvbmU->
> from this topic.
> contoh.gif
> <https://groups.yahoo.com/neo/groups/belajar-excel/photos/photomatic/262589061;_ylc=X3oDMTE4M3R1OW82BF9TAzk3MzU5NzE0BGNmOQNQSE9UT01BVElDBHNlYwNtZWdhcGhvbmU->
>
> ----------------------------------------------------------
> ============================================================
> 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
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmamYzc3BxBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NjI2NzU3NDA->
>
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldXA3dnRmBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU2MjY3NTc0MA-->
>
> • Privacy
> <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <mailto:belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe>
> • Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>
Namanya saja: Private Sub Worksheet_Change(ByVal Target As Range)
tahu artinya private khan?
Cekript itu hanya berlaku untuk sheet tempat cekrip berada, tidak dapat
dipicu dari worksheet yang lain.
Kalau mau membuat pemicu pada worksheet lain, silahkan ditulis
cekriptnya pada worksheet tersebut.
misalnya mau pemicu pada sheet "Surat1" ikuti langkah-langkah berikut:
1. Dobel klik sheet "Surat1" pada vba editor
2. Pilih Object-nya Worksheet
3. Pilih procedur-nya Change
4. Ketik pemicunya:
If Target.Address = "$CA$3" Or Target..Address = "$CA$4" Then
5. Ketik Perintahnya
Gambar
Semoga saya tidak salah duga
Salam
NangAgus
On 7/9/2019 19:23, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel]
wrote:
> Yth. Pak Nang
>
> Mohon maaf menyambung lagi ..
> Pada script bapak, sel pemicu berada pada sheet surat ..
> ada keinginan saya sel pemicul berada sheet lain (misalnya sheet
> "Surat 1")..
> saya coba ubah2 tapi belum bisa ..
> mohon pencerahannya ..
>
> Option Explicit
>
> *Private Sub Worksheet_Change(ByVal Target As Range)*
> Dim q As Integer
> Dim z As Integer
> Dim ws As Worksheet
> Set ws = Worksheets("Surat 1")
> q = Range("A33")
> z = Range("A33")
> If Target.Address = ws.Range("$CA$3") Or Target.Address =
> ws.Range("$CA$4") Or Target.Address = ws.Range("$CA$5") Then
> Rows("33:49").Hidden = False
> Rows(34 + q & ":49").Hidden = True
> End If
> If z < 8 Then Rows("59:65").Hidden = False
> Rows("75:82").Hidden = False
> If (z < 11 And z > 7) Then
> Rows("59:65").Hidden = False
> Rows("75:82").Hidden = False
> Rows("60:64").Hidden = True
> End If
> If (z < 16 And z > 9) Then
> Rows("59:65").Hidden = False
> Rows("60:64").Hidden = True
> Rows("75:82").Hidden = True
> End If
> End Sub
>
>
> terima kasih .. Ari
>
> On Monday, June 5, 2017, 08:14:37 AM GMT+7, Nang Agus
> nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
>
> ----------------------------------------------------------
> Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45549;_ylc=X3oDMTJycmEwcWJxBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU0OQRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NjI2NzU3NDA-?act=reply&messageNum=45549>
> • Reply to sender
> <mailto:cheivory_bridge@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Hidden%20Baris%20Otomatis>
> • Reply to group
> <mailto:belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Hidden%20Baris%20Otomatis>
> • Start a New Topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/newtopic;_ylc=X3oDMTJmdWswbnBjBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzE1NjI2NzU3NDA->
> • Messages in this topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/42287;_ylc=X3oDMTM3bW43czZjBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTU0OQRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NjI2NzU3NDAEdHBjSWQDNDIyODc->
> (15)
>
> ----------------------------------------------------------
> Check out the automatic photo album with 1 photo(s)
> <https://groups.yahoo.com/neo/groups/belajar-excel/photos/photomatic/262589061;_ylc=X3oDMTE4M3R1OW82BF9TAzk3MzU5NzE0BGNmOQNQSE9UT01BVElDBHNlYwNtZWdhcGhvbmU->
> from this topic.
> contoh.gif
> <https://groups.yahoo.com/neo/groups/belajar-excel/photos/photomatic/262589061;_ylc=X3oDMTE4M3R1OW82BF9TAzk3MzU5NzE0BGNmOQNQSE9UT01BVElDBHNlYwNtZWdhcGhvbmU->
>
> ----------------------------------------------------------
> ============================================================
> 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
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmamYzc3BxBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NjI2NzU3NDA->
>
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldXA3dnRmBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU2MjY3NTc0MA-->
>
> • Privacy
> <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <mailto:belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe>
> • Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>
Tue Jul 9, 2019 6:22 pm (PDT) . Posted by:
"Fahmi Syaifullah" fahmisyaifullah20
assalamu'alaikum wr. wb
maaf ganggu beexceler.
mau tanya kenapa saya tulis makro tapi kok eror begini yaa padahal makronya simple banget.kalau di workbook baru sih gak masalah lancar2 ajah. tapi kenapa tempat yang ada makronya dia muncul error begini.
mohon infonya master..
terima kasih
wassalamu'alaikum wr.wb
maaf ganggu beexceler.
mau tanya kenapa saya tulis makro tapi kok eror begini yaa padahal makronya simple banget.kalau di workbook baru sih gak masalah lancar2 ajah. tapi kenapa tempat yang ada makronya dia muncul error begini.
mohon infonya master..
terima kasih
wassalamu'
Tue Jul 9, 2019 7:25 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Fahmi,Kalau dalam sepakbola namanya "Off Side").
Mengapa ?Krn penulisan nama Sheet di Worksheet dan VBE Sheet tidak sama (Subscript out of range),di Worksheet ada spasi...di VBE Sheeet tidak ada spasi.
Salam,HK
Sent from Yahoo Mail on Android
On Wed, Jul 10, 2019 at 8:23, Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
assalamu'alaikum wr. wb
maaf ganggu beexceler.
mau tanya kenapa saya tulis makro tapi kok eror begini yaa padahal makronya simple banget.kalau di workbook baru sih gak masalah lancar2 ajah. tapi kenapa tempat yang ada makronya dia muncul error begini.
mohon infonya master..
terima kasih
wassalamu'alaikum wr.wb
#yiv5143963189 #yiv5143963189 -- #yiv5143963189ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5143963189 #yiv5143963189ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5143963189 #yiv5143963189ygrp-mkp #yiv5143963189hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5143963189 #yiv5143963189ygrp-mkp #yiv5143963189ads {margin-bottom:10px;}#yiv5143963189 #yiv5143963189ygrp-mkp .yiv5143963189ad {padding:0 0;}#yiv5143963189 #yiv5143963189ygrp-mkp .yiv5143963189ad p {margin:0;}#yiv5143963189 #yiv5143963189ygrp-mkp .yiv5143963189ad a {color:#0000ff;text-decoration:none;}#yiv5143963189 #yiv5143963189ygrp-sponsor #yiv5143963189ygrp-lc {font-family:Arial;}#yiv5143963189 #yiv5143963189ygrp-sponsor #yiv5143963189ygrp-lc #yiv5143963189hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5143963189 #yiv5143963189ygrp-sponsor #yiv5143963189ygrp-lc .yiv5143963189ad {margin-bottom:10px;padding:0 0;}#yiv5143963189 #yiv5143963189actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5143963189 #yiv5143963189activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5143963189 #yiv5143963189activity span {font-weight:700;}#yiv5143963189 #yiv5143963189activity span:first-child {text-transform:uppercase;}#yiv5143963189 #yiv5143963189activity span a {color:#5085b6;text-decoration:none;}#yiv5143963189 #yiv5143963189activity span span {color:#ff7900;}#yiv5143963189 #yiv5143963189activity span .yiv5143963189underline {text-decoration:underline;}#yiv5143963189 .yiv5143963189attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5143963189 .yiv5143963189attach div a {text-decoration:none;}#yiv5143963189 .yiv5143963189attach img {border:none;padding-right:5px;}#yiv5143963189 .yiv5143963189attach label {display:block;margin-bottom:5px;}#yiv5143963189 .yiv5143963189attach label a {text-decoration:none;}#yiv5143963189 blockquote {margin:0 0 0 4px;}#yiv5143963189 .yiv5143963189bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5143963189 .yiv5143963189bold a {text-decoration:none;}#yiv5143963189 dd.yiv5143963189last p a {font-family:Verdana;font-weight:700;}#yiv5143963189 dd.yiv5143963189last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5143963189 dd.yiv5143963189last p span.yiv5143963189yshortcuts {margin-right:0;}#yiv5143963189 div.yiv5143963189attach-table div div a {text-decoration:none;}#yiv5143963189 div.yiv5143963189attach-table {width:400px;}#yiv5143963189 div.yiv5143963189file-title a, #yiv5143963189 div.yiv5143963189file-title a:active, #yiv5143963189 div.yiv5143963189file-title a:hover, #yiv5143963189 div.yiv5143963189file-title a:visited {text-decoration:none;}#yiv5143963189 div.yiv5143963189photo-title a, #yiv5143963189 div.yiv5143963189photo-title a:active, #yiv5143963189 div.yiv5143963189photo-title a:hover, #yiv5143963189 div.yiv5143963189photo-title a:visited {text-decoration:none;}#yiv5143963189 div#yiv5143963189ygrp-mlmsg #yiv5143963189ygrp-msg p a span.yiv5143963189yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5143963189 .yiv5143963189green {color:#628c2a;}#yiv5143963189 .yiv5143963189MsoNormal {margin:0 0 0 0;}#yiv5143963189 o {font-size:0;}#yiv5143963189 #yiv5143963189photos div {float:left;width:72px;}#yiv5143963189 #yiv5143963189photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5143963189 #yiv5143963189photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5143963189 #yiv5143963189reco-category {font-size:77%;}#yiv5143963189 #yiv5143963189reco-desc {font-size:77%;}#yiv5143963189 .yiv5143963189replbq {margin:4px;}#yiv5143963189 #yiv5143963189ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5143963189 #yiv5143963189ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5143963189 #yiv5143963189ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5143963189 #yiv5143963189ygrp-mlmsg select, #yiv5143963189 input, #yiv5143963189 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5143963189 #yiv5143963189ygrp-mlmsg pre, #yiv5143963189 code {font:115% monospace;}#yiv5143963189 #yiv5143963189ygrp-mlmsg * {line-height:1.22em;}#yiv5143963189 #yiv5143963189ygrp-mlmsg #yiv5143963189logo {padding-bottom:10px;}#yiv5143963189 #yiv5143963189ygrp-msg p a {font-family:Verdana;}#yiv5143963189 #yiv5143963189ygrp-msg p#yiv5143963189attach-count span {color:#1E66AE;font-weight:700;}#yiv5143963189 #yiv5143963189ygrp-reco #yiv5143963189reco-head {color:#ff7900;font-weight:700;}#yiv5143963189 #yiv5143963189ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5143963189 #yiv5143963189ygrp-sponsor #yiv5143963189ov li a {font-size:130%;text-decoration:none;}#yiv5143963189 #yiv5143963189ygrp-sponsor #yiv5143963189ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5143963189 #yiv5143963189ygrp-sponsor #yiv5143963189ov ul {margin:0;padding:0 0 0 8px;}#yiv5143963189 #yiv5143963189ygrp-text {font-family:Georgia;}#yiv5143963189 #yiv5143963189ygrp-text p {margin:0 0 1em 0;}#yiv5143963189 #yiv5143963189ygrp-text tt {font-size:120%;}#yiv5143963189 #yiv5143963189ygrp-vital ul li:last-child {border-right:none !important;}#yiv5143963189
Mengapa ?Krn penulisan nama Sheet di Worksheet dan VBE Sheet tidak sama (Subscript out of range),di Worksheet ada spasi...di VBE Sheeet tidak ada spasi.
Salam,HK
Sent from Yahoo Mail on Android
On Wed, Jul 10, 2019 at 8:23, Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
assalamu'
maaf ganggu beexceler.
mau tanya kenapa saya tulis makro tapi kok eror begini yaa padahal makronya simple banget.kalau di workbook baru sih gak masalah lancar2 ajah. tapi kenapa tempat yang ada makronya dia muncul error begini.
mohon infonya master..
terima kasih
wassalamu'
#yiv5143963189 #yiv5143963189 -- #yiv5143963189ygrp-
Tue Jul 9, 2019 10:08 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mungkin formulanya belum optimum.
Atau malah proses keseluruhannya yang belum optimum.
Fitur-fitur seperti PowerQuery atau PowerPivot bisa jadi bisa membantu.
Regards,
Kid
On Fri, Jul 5, 2019 at 9:36 AM Modby Matsnawabi modbym@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear All Expert,
> Sorry sedikit Out of Topic.
>
> Mohon saran laptop yang powerfull untuk pengolahan data lebih dari 700rb
> baris, dan 20 kolom.
> Budget Max 20jt.
>
> Existing pake X1 Carbon 2015 masing kurang, loading nya lama benerrrrr....
> cuma buat Vlookup aja.
>
> Thanks yah..
> Salam Manis..
>
>
>
Atau malah proses keseluruhannya yang belum optimum.
Fitur-fitur seperti PowerQuery atau PowerPivot bisa jadi bisa membantu.
Regards,
Kid
On Fri, Jul 5, 2019 at 9:36 AM Modby Matsnawabi modbym@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear All Expert,
> Sorry sedikit Out of Topic.
>
> Mohon saran laptop yang powerfull untuk pengolahan data lebih dari 700rb
> baris, dan 20 kolom.
> Budget Max 20jt.
>
> Existing pake X1 Carbon 2015 masing kurang, loading nya lama benerrrrr....
> cuma buat Vlookup aja.
>
> Thanks yah..
> Salam Manis..
>
>
>
============================================================
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
---------------------------------------------------------------------
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:
Posting Komentar