Terima kasih Mr. Kid.
Maaf sebelumnya, karena pekerjaan, baru bisa benimba ilmu kembali.Sebelumnya
saya ucapkan selamat Idul Fitri 1436H. mohon maaf jika dalam menimba ilmu,
tidak bisa kasih apa2 untuk menggantikan ilmu yg sangat bermanfaat selama ini,
kecuali teriring doa semoga selalu diberi kesehatan, kesuksesan serta amal
jariyah yang tiada terkira dan dimudahkan segala urusannya. Amin
Saya mau bertanya kembali, saya sudah mempraktekan semua saran 1,2,3. Tapi saya
tidak berhasil untuk yang nomor 1. Berikut saya sertakan macronya
Private Sub RepeatNext_Click()
With Sheets("EntryRepeatBlend").Range("CK3:CK100")
Set iNext = .Find(Me.RepeatBatch.Value, LookIn:=xlValues)
If iNext Is Nothing Then
Set iNext = .Find(Me.RepeatBatch.Value, LookIn:=xlValues)
iNext.Parent.Activate
Else
Set iNext = .Find(Me.RepeatBatch.Value, iNext, LookIn:=xlValues)
iNext.Activate
Application.Goto iNext, False
End If
End With
End Sub
Mungkin penalaran saya yang kurang menjangkau. mohon pencerahannya kembali Mr.
Kid...,
SalamHaris
On Thursday, April 16, 2015 7:23 PM, "'Mr. Kid' [email protected]
[belajar-excel]" <[email protected]> wrote:
Wa'alaikumussalam wr wb
Hai Haris,
0. Mohon pencerahan dan solusinya
>> Kali ini saya penasaran dengan usaha membuat proses find sendiri melalui
>> userform dan tidak menekan CTRL F saja.
1. Dia akan terus mencari hingga data yang dicari tidak ditemukan lagi...,
bagaimanakah macronya...?
>> bagian parameter After dalam methods Find diisi dengan object range hasil
>> pencarian sebelumnya.
>> artinya, diperlukan sebuah variabel object ber-scope module (minimal)
>> misal di baris ke-1 module (bukan di baris ke-1 prosedur loh), diberi
>> deklarasi variabel hasil seperti (jika ada tulisan Option Explicit, maka
>> letakkan di baris ke-2 module) :
private rngHasilSebelumnya as range
>> lalu buat proses find menjadi 2 cabang, yaitu ketika isi rngHasilSebelumnya
>> masih kosong dan yang sudah isi
if rnghasilsebelumnya is nothing then
'rngHasilSebelumnya masih kosong
else
'rngHasilSebelumnya ada isinya
endif
>> di bagian rngHasilSebelumnya masih kosong, lakukan proses Find dengan bagian
>> parameter After dikosongkan
set rngHasilSebelumnya=sheets("nama sheet data").range("alamat data").find(
nilainya , lookat:=xlvalues)
>> di bagian rngHasilSebelumnya ada isinya, lakukan proses Find dengan bagian
>> parameter after diisi dengan rngHasilSebelumnya
set rngHasilSebelumnya=sheets("nama sheet data").range("alamat data").find(
nilainya, rngHasilSebelumnya , lookat:=xlvalues)
2. Jika data ditemukan, maka yang bergerak adalah pointernya, nah kalo pake
Application.Goto semua data yang berada diatasnya tidak tampak, bagaimanakah
macronya?
>> kalau begotu jangan pakai methods Goto
>> ganti dengan rangkaian proses berikut :
a. aktifkan sheet yang akan ditunjuk tersebut
Sheets("nama sheetnya").activate
b. aktifkan range yang akan ditunjuk tersebut
Sheets("nama sheetnya").Range("alamat rangenya").activate
>> kalau terkait dengan soal nomor 1 di atas, karena range hasil disimpan di
>> variabel bernama rngHasilSebelumnya, maka kedua proses tersebut menjadi
>> begini :
a. aktifkan sheet yang akan ditunjuk tersebut
rngHasilSebelumnya.parent.activate
b. aktifkan range yang akan ditunjuk tersebut
rngHasilSebelumnya.activate
3. Tatkala jendela Find masih terbuka, kita bisa mengedit cell tanpa harus
menutupnya, bagaimanakah macronya? selama ini saya membuat userform selalu
menghalangi saya untuk mengklik cell, sehingga kurang fleksibel.
>> pakai userform kan... set properti showmodal milik userform menjadi FALSE
-> lihat di VBE -> aktifkan properties window (tekan F4 supaya muncul)
-> double klik userformnya
-> lihat properties window -> cari properti bernama ShowModal -> set
nilainya menjadi FALSE -> save workbook
>> atau saat akan menampilkan userform dengan methods Show, set parameter modal
>> dengan FALSE
nama_object_userformnya.show false
Amin.
Wassalamu'alaikum wr wb
Kid
2015-04-16 17:39 GMT+10:00 ris ha [email protected] [belajar-excel]
<[email protected]>:
Assalamu'alaikum rekap master excel semua
Mohon pencerahan dan solusinya para master excel semua...Kali ini saya
penasaran dengan jendela Find pada excel, kenapa?1. Dia akan terus mencari
hingga data yang dicari tidak ditemukan lagi..., bagaimanakah macronya...? kalo
pencarian yg saya lakukan selama ini dengan macro dibawah ini, dia hanya akan
mencari 1 data, sementara jika data yang sama masih ada, maka tidak bisa dicari
lagi
With Sheets("EntrySuratPenyerahan").Range("A1:A1000")
Set iNo = .Find(CariNoBP, After:=.Cells(1), LookIn:=xlValues)
If Not iNo Is Nothing Then
Application.Goto iNo, True
2. Jika data ditemukan, maka yang bergerak adalah pointernya, nah kalo pake
Application.Goto semua data yang berada diatasnya tidak tampak, bagaimanakah
macronya?
3. Tatkala jendela Find masih terbuka, kita bisa mengedit cell tanpa harus
menutupnya, bagaimanakah macronya? selama ini saya membuat userform selalu
menghalangi saya untuk mengklik cell, sehingga kurang fleksibel.
Terima kasih atas bantuannya, semoga tiap respon dan solusi mendapatkan balasan
yang lebih baik dari Allah Swt. Amin
SalamHaris
#yiv1734183556 #yiv1734183556 -- #yiv1734183556ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1734183556
#yiv1734183556ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1734183556
#yiv1734183556ygrp-mkp #yiv1734183556hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv1734183556 #yiv1734183556ygrp-mkp #yiv1734183556ads
{margin-bottom:10px;}#yiv1734183556 #yiv1734183556ygrp-mkp .yiv1734183556ad
{padding:0 0;}#yiv1734183556 #yiv1734183556ygrp-mkp .yiv1734183556ad p
{margin:0;}#yiv1734183556 #yiv1734183556ygrp-mkp .yiv1734183556ad a
{color:#0000ff;text-decoration:none;}#yiv1734183556 #yiv1734183556ygrp-sponsor
#yiv1734183556ygrp-lc {font-family:Arial;}#yiv1734183556
#yiv1734183556ygrp-sponsor #yiv1734183556ygrp-lc #yiv1734183556hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1734183556
#yiv1734183556ygrp-sponsor #yiv1734183556ygrp-lc .yiv1734183556ad
{margin-bottom:10px;padding:0 0;}#yiv1734183556 #yiv1734183556actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1734183556
#yiv1734183556activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1734183556
#yiv1734183556activity span {font-weight:700;}#yiv1734183556
#yiv1734183556activity span:first-child
{text-transform:uppercase;}#yiv1734183556 #yiv1734183556activity span a
{color:#5085b6;text-decoration:none;}#yiv1734183556 #yiv1734183556activity span
span {color:#ff7900;}#yiv1734183556 #yiv1734183556activity span
.yiv1734183556underline {text-decoration:underline;}#yiv1734183556
.yiv1734183556attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv1734183556 .yiv1734183556attach div a
{text-decoration:none;}#yiv1734183556 .yiv1734183556attach img
{border:none;padding-right:5px;}#yiv1734183556 .yiv1734183556attach label
{display:block;margin-bottom:5px;}#yiv1734183556 .yiv1734183556attach label a
{text-decoration:none;}#yiv1734183556 blockquote {margin:0 0 0
4px;}#yiv1734183556 .yiv1734183556bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv1734183556
.yiv1734183556bold a {text-decoration:none;}#yiv1734183556 dd.yiv1734183556last
p a {font-family:Verdana;font-weight:700;}#yiv1734183556 dd.yiv1734183556last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1734183556
dd.yiv1734183556last p span.yiv1734183556yshortcuts
{margin-right:0;}#yiv1734183556 div.yiv1734183556attach-table div div a
{text-decoration:none;}#yiv1734183556 div.yiv1734183556attach-table
{width:400px;}#yiv1734183556 div.yiv1734183556file-title a, #yiv1734183556
div.yiv1734183556file-title a:active, #yiv1734183556
div.yiv1734183556file-title a:hover, #yiv1734183556 div.yiv1734183556file-title
a:visited {text-decoration:none;}#yiv1734183556 div.yiv1734183556photo-title a,
#yiv1734183556 div.yiv1734183556photo-title a:active, #yiv1734183556
div.yiv1734183556photo-title a:hover, #yiv1734183556
div.yiv1734183556photo-title a:visited {text-decoration:none;}#yiv1734183556
div#yiv1734183556ygrp-mlmsg #yiv1734183556ygrp-msg p a
span.yiv1734183556yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1734183556
.yiv1734183556green {color:#628c2a;}#yiv1734183556 .yiv1734183556MsoNormal
{margin:0 0 0 0;}#yiv1734183556 o {font-size:0;}#yiv1734183556
#yiv1734183556photos div {float:left;width:72px;}#yiv1734183556
#yiv1734183556photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv1734183556
#yiv1734183556photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1734183556
#yiv1734183556reco-category {font-size:77%;}#yiv1734183556
#yiv1734183556reco-desc {font-size:77%;}#yiv1734183556 .yiv1734183556replbq
{margin:4px;}#yiv1734183556 #yiv1734183556ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv1734183556 #yiv1734183556ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1734183556
#yiv1734183556ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1734183556
#yiv1734183556ygrp-mlmsg select, #yiv1734183556 input, #yiv1734183556 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv1734183556
#yiv1734183556ygrp-mlmsg pre, #yiv1734183556 code {font:115%
monospace;}#yiv1734183556 #yiv1734183556ygrp-mlmsg *
{line-height:1.22em;}#yiv1734183556 #yiv1734183556ygrp-mlmsg #yiv1734183556logo
{padding-bottom:10px;}#yiv1734183556 #yiv1734183556ygrp-msg p a
{font-family:Verdana;}#yiv1734183556 #yiv1734183556ygrp-msg
p#yiv1734183556attach-count span {color:#1E66AE;font-weight:700;}#yiv1734183556
#yiv1734183556ygrp-reco #yiv1734183556reco-head
{color:#ff7900;font-weight:700;}#yiv1734183556 #yiv1734183556ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv1734183556 #yiv1734183556ygrp-sponsor
#yiv1734183556ov li a {font-size:130%;text-decoration:none;}#yiv1734183556
#yiv1734183556ygrp-sponsor #yiv1734183556ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv1734183556
#yiv1734183556ygrp-sponsor #yiv1734183556ov ul {margin:0;padding:0 0 0
8px;}#yiv1734183556 #yiv1734183556ygrp-text
{font-family:Georgia;}#yiv1734183556 #yiv1734183556ygrp-text p {margin:0 0 1em
0;}#yiv1734183556 #yiv1734183556ygrp-text tt {font-size:120%;}#yiv1734183556
#yiv1734183556ygrp-vital ul li:last-child {border-right:none
!important;}#yiv1734183556
