excel vba - Enter a number into a message box then replace numbers in a macro -


i have following macro. when run macro message box appear asking file number. file number replace 000 in macro , macro run.

application.screenupdating = false  range("c4:d4").select activecell.formular1c1 = "000"  sheets("sale ()").select sheets("sale ()").name = "sale (000)"  activeworkbook.save  sheets("sale (000)").copy before:=workbooks("sales index.xls").sheets(2)  windows("sales index.xls").activate sheets("index").select range("b3").select selection.entirerow.insert range("a3").select activecell.formular1c1 = "000" range("a3").select activesheet.hyperlinks.add anchor:=selection, address:="", subaddress:= _     "'sale (000)'!c9" selection.font.underline = xlunderlinestylenone range("b4:f4").select selection.copy range("b3").select activesheet.paste application.cutcopymode = false activecell.formular1c1 = "='sale (000)'!r9c3" range("b3:f3").select range("c3").activate activecell.formular1c1 = "='sale (000)'!r3c36" range("b3:f3").select range("d3").activate activecell.formular1c1 = "='sale (000)'!r3c44" range("b3:f3").select range("e3").activate activecell.formular1c1 = "='sale (000)'!r5c36"  application.screenupdating = true  sheets("sale (000)").select

insert @ top:

dim st string st = application.inputbox(prompt:="enter file number", type:=2)

and replace carefully 000

for example:

activecell.formular1c1 = st

even though st string, can enter values 000 , have characters preserved.

edit#1

another example

replace:

"='sale (000)'!r9c3"

with

"='sale (" & st & ")'!r9c3"

Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

javascript - jQuery show full size image on click -

pretty self explanatory not workking . i want display full image when user click on image... yes know there tons of plugins but i want keep simple. any idea ? css : .full { display: none; width: 500px; height: 500px; margin-left: 100px; margin-top: -300px; position: fixed; background-color: #f00; z-index: 6; } .thumbnail { width: 50px; height: 50px; } html: <img class="thumbnail" src="http://4.bp.blogspot.com/-uhbdp2esxng/txneptvi92i/aaaaaaaaaky/upfqis7zto0/s1600/rihanna-wallpaper.jpg"> jquery: $(document).ready(function() { $('.thumbnail').on('click', function() { var img = $('<img />',{src:this.src,'class':'full'}); $('.full').html(img).show(); console.log('done!'); }); }); try looking how jquery works. $(document).ready(function() { $('.thumbnail').on('click', function(...
Read more