excel - Using the following code it populates all cells in the table that are blank -


i have following code , works great except 1 thing when used finds every blank field in table , inserts value of field above it. need fill fields above rows inserted code.

 sub ercacmpcleanup()  'cleans erca_cmp worksheet , creates records comma delimited    dim x long, lastrow long, range, table range, data() string   const delimiter string = ", "   const delimitedcolumn string = "a"   const tablecolumns string = "a:o"   const startrow long = 2   application.screenupdating = false   activeworkbook.worksheets("erca_cmp").visible = true   activeworkbook.worksheets("erca_cmp").activate   lastrow = columns(tablecolumns).find(what:="*", searchorder:=xlrows, _             searchdirection:=xlprevious, lookin:=xlformulas).row   x = lastrow startrow step -1     data = split(cells(x, delimitedcolumn), delimiter)     if ubound(data) > 0       intersect(rows(x + 1), columns(tablecolumns)).resize(ubound(data)).insert xlshiftdown     end if     if len(cells(x, delimitedcolumn))       cells(x, delimitedcolumn).resize(ubound(data) + 1) = worksheetfunction.transpose(data)     end if   next   **lastrow = cells(rows.count, delimitedcolumn).end(xlup).row   on error resume next   set table = intersect(columns(tablecolumns), rows(startrow).resize(lastrow - startrow + 1))    if err.number = 0     table.specialcells(xlblanks).formular1c1 = "=r[-1]c"     columns(delimitedcolumn).specialcells(xlformulas).clear     table.value = table.value   end if   on error goto 0** end sub

the issue in last few rows code needs fill blanks in inserted rows not blank fields in table.

any appreciated.

modified code check if cells in b:0 null. think intersect not correct in case don't want apply cells.
note 1: there better solution i'm not familiar complete vba
note 2: if put application.screenupdating = false should set true @ end of program too.

sub ercacmpcleanup()  'cleans erca_cmp worksheet , creates records comma delimited    dim x long, lastrow long, range, table range, data() string   dim flgval boolean, rcntr integer, ccntr integer, rownum integer   const delimiter string = ", "   const delimitedcolumn string = "a"   const tablecolumns string = "a:o"   const startrow long = 2   application.screenupdating = false   activeworkbook.worksheets("erca_cmp").visible = true   activeworkbook.worksheets("erca_cmp").activate   lastrow = columns(tablecolumns).find(what:="*", searchorder:=xlrows, _             searchdirection:=xlprevious, lookin:=xlformulas).row   x = lastrow startrow step -1     data = split(cells(x, delimitedcolumn), delimiter)     if ubound(data) > 0       intersect(rows(x + 1), columns(tablecolumns)).resize(ubound(data)).insert xlshiftdown     end if     if len(cells(x, delimitedcolumn))       cells(x, delimitedcolumn).resize(ubound(data) + 1) = worksheetfunction.transpose(data)     end if   next   'modification start question  'flgval turns true if cells b:o not empty   flgval = false   range("a1").activate   rcntr = 0 lastrow - 1     ccntr = 1 14         if activecell.offset(0, ccntr).value <> ""             flgval = true             exit         end if     next     if flgval = false         ccntr = 1 14             activecell.offset(0, ccntr).formular1c1 = "=r[-1]c"         next     else         flgval = false     end if     activecell.offset(1, 0).activate   next    '**lastrow = cells(rows.count, delimitedcolumn).end(xlup).row   'on error resume next   'set table = intersect(columns(tablecolumns), rows(startrow).resize(rownum - startrow))    'if err.number = 0   '  table.specialcells(xlblanks).formular1c1 = "=r[-1]c"   '  columns(delimitedcolumn).specialcells(xlformulas).clear   '  table.value = table.value   'end if   'on error goto 0**   application.screenupdating = true end sub

Comments

Post a Comment

Popular posts from this blog

get url and add instance to a model with prefilled foreign key :django admin -

Image
i have page in each contest shown in row. each row contains contest id , link other model names have foreign key contest. news model: class news(models.model): title = models.charfield(max_length=50, null=true) description = models.textfield() time = models.timefield( default= datetime.datetime.now().time()) contest = models.foreignkey(contest) i want use admin adding , changing these models. want when user clicks on 'news' has foreign key contest id=1, shows list of news value foreign key. use {% instance in instances %} <tr class="{% cycle 'row1' 'row2' %}"> <td>{{ instance.title }}</td> <td>{{ instance.starttime }}</td> <td>{{ instance.timespan }}</td> <td>{{ instance.date }}</td> <td><a href="/adm...
Read more

css - Make div keyboard-scrollable in jQuery Mobile? -

from can tell, although jquery-mobile-powered pages can contain divs overflow set scroll or auto, , these divs can scrolled one-screen bar or mouse wheel, cannot scrolled using arrow keys, page-up/page-down, or home/end. instead, official "page" div (with data-role="page") absorbs input. perhaps other divs can't acquire focus, i'm not sure. is there way around this? edit: jsfiddle of simple example: https://jsfiddle.net/qogz0shx/ <script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js"></script> <script src="https://ajax.googleapis.com/ajax/libs/jquerymobile/1.4.5/jquery.mobile.min.js"> </script> <link rel="stylesheet" href="https://code.jquery.com/mobile/1.4.5/jquery.mobile-1.4.5.css"/> <style> #outer { overflow:scroll; height: 50vh; width: 50vw; } #inner { height: 500vh; width: 500vw; } ...
Read more

android - Keyboard hides my half of edit-text and button below it even in scroll view -

i having trouble keyboard covers edit-text , half of button in scroll view. here's layout , please tell me how should resolve problem. many questions on topic none of them s working me. <?xml version="1.0" encoding="utf-8"?> <linearlayout xmlns:android="http://schemas.android.com/apk/res/android" android:layout_width="match_parent" android:background="@drawable/bg" android:layout_height="match_parent"> <scrollview android:layout_width="match_parent" android:fillviewport="true" android:layout_height="match_parent"> <relativelayout android:layout_width="match_parent" android:layout_height="wrap_content" android:orientation="vertical"> <linearlayout android:layout_width="match_parent" android:layout_height="w...
Read more