Akhirnya ane pake fungsi find & replace. nyontek record makro dan modif dikit agar tercantum timestamp dan username nya. Hehe..SOLVED. Feature :- Mencari dan Merubah text yang spesifik menjadi yg kita inginkan- Mencantumkan timestamp eksekusi dan user komputer name nya- message box ketika eksekusi : berhasil, batal, yes dan No button Attached, hasil modif VBA nya. mungkin dibutuhkan oleh rekan yg lain.Kalo rekan lain ada cara yg lebih save dan ringkas silahkan share kesini ya .. makasih
Pada Minggu, 14 Desember 2014 14:53, ristanto1111 <[email protected]>
menulis:
Halo agan HK, terimakasih reply nya. Wah bagus sebenernya formnya dari agan
HK. Sudah saya pelajarin, namun kayaknya lebih kompleks prosedurnya. Hmm..
boleh kasi clue code vba nya gak gan untuk kasus yg saya punya. Yang di file
agan HK khan pakai prosedur refresh, sedangkan di form saya sbenarnya tidak
diijinkan untuk memanggil ulang hasil inputan. Jadi, bagaimana code untuk:-
Mencari text yg spesifik yg kita mau (misal kita mau search kata "A001" di
database yg udah diinput).- jika found, maka A001 tersebut akan berubah
menjadi "A001 (void)" melalui button yg kita klikJadi hanya menandai saja di
database bahwa nomor tersebut voidMohon petunjuknya ya agan HK dan rekan-rekan
yg berkenan bantu. :)Terimakasih banyak(contoh kasus file nya ada di trit awal
ini)
Sent from Samsung Mobile.
Halo agan HK, terimakasih reply nya.
Wah bagus sebenernya formnya dari agan HK. Sudah saya pelajarin, namun
kayaknya lebih kompleks prosedurnya. Hmm.. boleh kasi clue code vba nya gak gan
untuk kasus yg saya punya. Yang di file agan HK khan pakai prosedur refresh,
sedangkan di form saya sbenarnya tidak diijinkan untuk memanggil ulang hasil
inputan.
Jadi, bagaimana code untuk:
- Mencari text yg spesifik yg kita mau (misal kita mau search kata "A001" di
database yg udah diinput).
- jika found, maka A001 tersebut akan berubah menjadi "A001 (void)" melalui
button yg kita klik
Jadi hanya menandai saja di database bahwa nomor tersebut void
Mohon petunjuknya ya agan HK dan rekan-rekan yg berkenan bantu. :)
Terimakasih banyak
(contoh kasus file nya ada di trit awal ini)
Sent from Samsung Mobile.
<br><br><div>-------- Original message --------</div><div>From: "hendrik
karnadi [email protected] [belajar-excel]"
<[email protected]> </div><div>Date:12/11/2014 5:24 PM
(GMT+07:00) </div><div>To: [email protected] </div><div>Cc:
</div><div>Subject: Re: [belajar-excel] Update Specific text melalui VBA [1
Attachment] </div><div><br></div>
Barangkali lampiran ini bisa menjadi referensi.
Salam,HK
From: "Ristanto Ristanto [email protected] [belajar-excel]"
<[email protected]>
To: [email protected]
Sent: Thursday, 11 December 2014, 16:13
Subject: [belajar-excel] Update Specific text melalui VBA [1 Attachment]
Dear rekan-rekan sekalian
Ane punya contoh kasus nih. masih belajar macro sich.. :)
Jika ane punya hasil record ke sheet "database" dari sheet "form" misalnya, dan
ternyata di jajaran hasil inputan di salah satu row di database tersebut ada yg
VOID (misal kasusnya adalah nomor tersebut batal digunakan). Nah bagaimana
caranya menggunakan VBA (entah pakai form control atau active X) bisa
me-replace update text yg kita inginkan. di dalamnya juga tercantum tanggal
update nya.
Ini penting karena sheet database ini rencananya ane block untuk edit, jadi
melalui sheet form-lah satu satunya jalan untuk update menuju sheet tersebut.
Mohon petunjuknya ya rekan-rekan.terlampir adalah contoh kasus yg ane
maksudkan, klo bisa script nya ditulis disitu sekalian agar bisa langsung di
cermati dalam code nya :)
Semoga pahala bagi rekan-rekan yg berkenan sharing pemecahan solusinya ini.
Terimakasih atas respond nya.
<!--#yiv9020290817 #yiv9020290817ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9020290817
#yiv9020290817ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9020290817
#yiv9020290817ygrp-mkp #yiv9020290817hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv9020290817 #yiv9020290817ygrp-mkp #yiv9020290817ads
{margin-bottom:10px;}#yiv9020290817 #yiv9020290817ygrp-mkp .yiv9020290817ad
{padding:0 0;}#yiv9020290817 #yiv9020290817ygrp-mkp .yiv9020290817ad p
{margin:0;}#yiv9020290817 #yiv9020290817ygrp-mkp .yiv9020290817ad a
{color:#0000ff;text-decoration:none;}#yiv9020290817 #yiv9020290817ygrp-sponsor
#yiv9020290817ygrp-lc {font-family:Arial;}#yiv9020290817
#yiv9020290817ygrp-sponsor #yiv9020290817ygrp-lc #yiv9020290817hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9020290817
#yiv9020290817ygrp-sponsor #yiv9020290817ygrp-lc .yiv9020290817ad
{margin-bottom:10px;padding:0 0;}#yiv9020290817 #yiv9020290817actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9020290817
#yiv9020290817activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9020290817
#yiv9020290817activity span {font-weight:700;}#yiv9020290817
#yiv9020290817activity span:first-child
{text-transform:uppercase;}#yiv9020290817 #yiv9020290817activity span a
{color:#5085b6;text-decoration:none;}#yiv9020290817 #yiv9020290817activity span
span {color:#ff7900;}#yiv9020290817 #yiv9020290817activity span
.yiv9020290817underline {text-decoration:underline;}#yiv9020290817
.yiv9020290817attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv9020290817 .yiv9020290817attach div a
{text-decoration:none;}#yiv9020290817 .yiv9020290817attach img
{border:none;padding-right:5px;}#yiv9020290817 .yiv9020290817attach label
{display:block;margin-bottom:5px;}#yiv9020290817 .yiv9020290817attach label a
{text-decoration:none;}#yiv9020290817 blockquote {margin:0 0 0
4px;}#yiv9020290817 .yiv9020290817bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv9020290817
.yiv9020290817bold a {text-decoration:none;}#yiv9020290817 dd.yiv9020290817last
p a {font-family:Verdana;font-weight:700;}#yiv9020290817 dd.yiv9020290817last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9020290817
dd.yiv9020290817last p span.yiv9020290817yshortcuts
{margin-right:0;}#yiv9020290817 div.yiv9020290817attach-table div div a
{text-decoration:none;}#yiv9020290817 div.yiv9020290817attach-table
{width:400px;}#yiv9020290817 div.yiv9020290817file-title a, #yiv9020290817
div.yiv9020290817file-title a:active, #yiv9020290817
div.yiv9020290817file-title a:hover, #yiv9020290817 div.yiv9020290817file-title
a:visited {text-decoration:none;}#yiv9020290817 div.yiv9020290817photo-title a,
#yiv9020290817 div.yiv9020290817photo-title a:active, #yiv9020290817
div.yiv9020290817photo-title a:hover, #yiv9020290817
div.yiv9020290817photo-title a:visited {text-decoration:none;}#yiv9020290817
div#yiv9020290817ygrp-mlmsg #yiv9020290817ygrp-msg p a
span.yiv9020290817yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9020290817
.yiv9020290817green {color:#628c2a;}#yiv9020290817 .yiv9020290817MsoNormal
{margin:0 0 0 0;}#yiv9020290817 o {font-size:0;}#yiv9020290817
#yiv9020290817photos div {float:left;width:72px;}#yiv9020290817
#yiv9020290817photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv9020290817
#yiv9020290817photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9020290817
#yiv9020290817reco-category {font-size:77%;}#yiv9020290817
#yiv9020290817reco-desc {font-size:77%;}#yiv9020290817 .yiv9020290817replbq
{margin:4px;}#yiv9020290817 #yiv9020290817ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv9020290817 #yiv9020290817ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9020290817
#yiv9020290817ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9020290817
#yiv9020290817ygrp-mlmsg select, #yiv9020290817 input, #yiv9020290817 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv9020290817
#yiv9020290817ygrp-mlmsg pre, #yiv9020290817 code {font:115%
monospace;}#yiv9020290817 #yiv9020290817ygrp-mlmsg *
{line-height:1.22em;}#yiv9020290817 #yiv9020290817ygrp-mlmsg #yiv9020290817logo
{padding-bottom:10px;}#yiv9020290817 #yiv9020290817ygrp-msg p a
{font-family:Verdana;}#yiv9020290817 #yiv9020290817ygrp-msg
p#yiv9020290817attach-count span {color:#1E66AE;font-weight:700;}#yiv9020290817
#yiv9020290817ygrp-reco #yiv9020290817reco-head
{color:#ff7900;font-weight:700;}#yiv9020290817 #yiv9020290817ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv9020290817 #yiv9020290817ygrp-sponsor
#yiv9020290817ov li a {font-size:130%;text-decoration:none;}#yiv9020290817
#yiv9020290817ygrp-sponsor #yiv9020290817ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv9020290817
#yiv9020290817ygrp-sponsor #yiv9020290817ov ul {margin:0;padding:0 0 0
8px;}#yiv9020290817 #yiv9020290817ygrp-text
{font-family:Georgia;}#yiv9020290817 #yiv9020290817ygrp-text p {margin:0 0 1em
0;}#yiv9020290817 #yiv9020290817ygrp-text tt {font-size:120%;}#yiv9020290817
#yiv9020290817ygrp-vital ul li:last-child {border-right:none !important;}-->
Barangkali lampiran ini bisa menjadi referensi.
Salam,
HK
From: "Ristanto Ristanto [email protected] [belajar-excel]"
<[email protected]>
To: [email protected]
Sent: Thursday, 11 December 2014, 16:13
Subject: [belajar-excel] Update Specific text melalui VBA [1 Attachment]
Dear rekan-rekan sekalian
Ane punya contoh kasus nih. masih belajar macro sich.. :)
Jika ane punya hasil record ke sheet "database" dari sheet "form" misalnya, dan
ternyata di jajaran hasil inputan di salah satu row di database tersebut ada yg
VOID (misal kasusnya adalah nomor tersebut batal digunakan). Nah bagaimana
caranya menggunakan VBA (entah pakai form control atau active X) bisa
me-replace update text yg kita inginkan. di dalamnya juga tercantum tanggal
update nya.
Ini penting karena sheet database ini rencananya ane block untuk edit, jadi
melalui sheet form-lah satu satunya jalan untuk update menuju sheet tersebut.
Mohon petunjuknya ya rekan-rekan.
terlampir adalah contoh kasus yg ane maksudkan, klo bisa script nya ditulis
disitu sekalian agar bisa langsung di cermati dalam code nya :)
Semoga pahala bagi rekan-rekan yg berkenan sharing pemecahan solusinya ini.
Terimakasih atas respond nya.
Contoh Kasus Find and Update Text (Solved).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
