excel - VBA macro to delete a row -


hey created macro added headers deleted info , got data formatted noticed when ran file deleted data in exact cell need same delete row phrase sits on

imagine had cell a1 in other versions of document phrase in a2 macro delete whats in a1

the phrase zfd , whatever cell in need macro delete entire row phrase sits on helppppp

sub umr() ' ' umr macro '  '  range("a1").select activecell.formular1c1 = "transaction_type" range("b1").select activecell.formular1c1 = "meter_point_ref" range("c1").select activecell.formular1c1 = "actual_read_date" range("d1").select activecell.formular1c1 = "meter_reading_source" range("e1").select activecell.formular1c1 = "meter_reading_reason" range("f1").select activecell.formular1c1 = "meter_serial_number" range("g1").select activecell.formular1c1 = "meter_reading" range("h1").select activecell.formular1c1 = "meter_roc_count" range("i1").select activecell.formular1c1 = "meter_read_verified" range("j1").select activecell.formular1c1 = "corrector_serialnumber" range("j1").select activecell.formular1c1 = "corrector_serial_number" range("k1").select activecell.formular1c1 = "corrector_uncorrected_reading" range("l1").select activecell.formular1c1 = "corrector_corrected_reading" range("m1").select activecell.formular1c1 = "corrector_roc_count" range("n1").select activecell.formular1c1 = "corrector_usable_ind" range("o1").select activecell.formular1c1 = "corrector_read_verified" range("a17").select selection.clearcontents range("b17").select selection.clearcontents columns("c:c").columnwidth = 8.29 columns("c:c").entirecolumn.autofit columns("b:b").entirecolumn.autofit columns("a:a").entirecolumn.autofit columns("e:e").select columns("d:d").entirecolumn.autofit columns("e:e").entirecolumn.autofit    columns("f:f").entirecolumn.autofit columns("g:g").entirecolumn.autofit columns("h:h").entirecolumn.autofit activewindow.scrollcolumn = 2 activewindow.scrollcolumn = 3 columns("i:i").entirecolumn.autofit columns("j:j").entirecolumn.autofit range("q1").select columns("k:k").entirecolumn.autofit columns("l:l").entirecolumn.autofit range("r1").select columns("m:m").entirecolumn.autofit columns("n:n").entirecolumn.autofit columns("o:o").entirecolumn.autofit activewindow.smallscroll down:=6 activewindow.smallscroll toright:=-9 activewindow.smallscroll down:=-88 end sub

as did have time reorganized code little. aware not commonly done here on stackoverflow. next time: @ least try code something, if it's wrong that's not problem, that's can help. , information: quite newby (3,5 months of vba far), it's not hard. if code not perfected yet, of time can work somehow...

try once (read comments in code first):

sub umr()      dim ws worksheet     set ws = acitveworkbook.activeworksheet 'be aware run on activesheet      dim values variant     values = array("transaction_type", "meter_point_ref", "actual_read_date", "meter_reading_source", "meter_reading_reason", "meter_serial_number", "meter_reading", "meter_roc_count", "meter_read_verified", "corrector_serialnumber", "corrector_serial_number", "corrector_uncorrected_reading", "corrector_corrected_reading", "corrector_roc_count", "corrector_usable_ind", "corrector_read_verified")     dim findstring string     findstring = "zfd"      dim zfdval variant     dim irow integer     dim icol integer      set zfdval = ws.find(what:=findstring, _                        after:=ws.cells(ws.cells.count), _                        lookin:=xlvalues, _                        lookat:=xlwhole, _   'if value part of cell xlpart instead of xlwhole                        searchorder:=xlbyrows, _                        searchdirection:=xlnext, _                        matchcase:=false) 'if want match string (regarding capital letters) you'll have set true      irow = range(zfdval.adress).row 'this untested...      icol = 1 (ubound(values)-lbound(values))         ws.cells(irow, icol) = values(icol-1)     next icol      range("a17").clear ' believe unintendet , recorded alongside can delete these 2 rows...     range("b17").clear      columns("a:o").entirecolumn.autofit  end sub

if run-time error please press "debug" , comment line gets marked yellow. way can correcting code...


Comments

Post a Comment

Popular posts from this blog

sublimetext3 - what keyboard shortcut is to comment/uncomment for this script tag in sublime -

Image
i have script tag in code, keyboard shortcut comment/uncomment script tag in sublime. after selecting script open , close tag. <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> i pressing ctrl + shift + / , getting this /*<script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script>*/ also pressed ctrl + / , got this // <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> // </script> instead of <!-- <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> --> script open , close tag in 2 lines not in 1 line , not have spaces too. for mac,high light lines want comment. hold 'command , / ' commented. for windows: high line or select lines ,then hold ctrl + / if not work: ...
Read more

java - No use of nillable="0" in SOAP Webservice -

i have received xsd 3rd party supplier generated java based system; used create soap endpoint receive data transfers. xsd not make use of nillable attribute defined within w3c/xsd namespace, example: <xs:complextype name="customer"> <xs:sequence> <xs:element minoccurs="1" maxoccurs="1" name="id" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="titleid" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="firstname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="familyname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="previousname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" nam...
Read more

ubuntu - Laravel 5.2 quickstart guide gives Not Found Error -

edit: think problem due not setting apache properly, these 2 links helped me. solution: http://laravel.io/forum/06-11-2014-not-found-but-route-exists https://www.digitalocean.com/community/tutorials/how-to-set-up-apache-virtual-hosts-on-ubuntu-14-04-lts end edit i'm following laravel 5.2 quickstart guide. https://laravel.com/docs/5.2/quickstart i'm running ubuntu 14.04.2 the website runs initially, when click on add task button run 404 not found error. as per guide run following commands setup complete quickstart project. git clone https://github.com/laravel/quickstart-basic quickstart cd quickstart composer install php artisan migrate additionally run following commands because i'm on ubuntu server: sudo chown -r www-data.www-data quickstart sudo chmod -r 755 quickstart sudo chmod 777 quickstart/storage the routes.php file looks like: <?php use app\task; use illuminate\http\request; route::group(['middleware' => ['web']]...
Read more