Excel VBA activate worksheet -

-

i need activate specific worksheet. code meant create worksheets specif name. need paste worksheet these newly created worksheets. code i'm using below. i'm having hard time activating newly created worksheet paste want. 

sub octo()  'dim ws worksheet     dim ki range     dim listsh range     workbooks.open ("c:\users\dash\dropbox\randika\misc\emmash timesheets\timesheet.xlsx")     worksheets("ppe 05-17-15")         set listsh = .range("b4:b" & .cells(.rows.count, "b").end(xlup).row)     end      on error resume next     each ki in listsh         if len(trim(ki.value)) > 0             if len(worksheets(ki.value).name) = 0                  worksheets.add(after:=worksheets(worksheets.count)).name = ki.value 'open template     workbooks.open ("c:\users\dash\dropbox\randika\misc\emmash timesheets\octo_template.xls")     range("a1:l31").select     selection.copy      worksheets(ki.value).activate          if thisworkbook.saved = false         thisworkbook.save     end if             end if         end if     next ki  end sub

i think need.
been mentioned chris, there no need activate or select. hope following code solve problem.

option explicit dim mytemplateworkbook workbook dim mydataworkbook workbook dim mytemplateworksheet worksheet dim mydataworksheet worksheet dim mynewdataworksheet worksheet dim currentrange range dim listrange range  sub addwsandgetdata()  set mytemplateworkbook = workbooks.open("c:\users\lengkgan\desktop\testing\mytemplate.xlsx") set mytemplateworksheet = mytemplateworkbook.sheets("template") set mydataworkbook = workbooks.open("c:\users\lengkgan\desktop\testing\mydata1.xlsx") set mydataworksheet = mydataworkbook.sheets("ppe 05-17-15") set listrange = mydataworksheet.range("b4:b" & mydataworksheet.cells(rows.count, "b").end(xlup).row) application.screenupdating = false  on error resume next each currentrange in listrange if len(trim(currentrange.value)) > 0     if len(mydataworksheet(currentrange.value).name) = 0      worksheets.add(after:=worksheets(worksheets.count)).name = currentrange.value     set mynewdataworksheet = mydataworkbook.sheets(activesheet.name)     mynewdataworksheet.range("a1:l31").value = mytemplateworksheet.range("a1:l31").value      if mydataworkbook.saved = false         mydataworkbook.save     end if      end if end if next currentrange mytemplateworkbook.close (false) 'close template without saving end sub

Comments

Post a Comment

Popular posts from this blog

python - TypeError: start must be a integer -

-
i trying draw 5 turtles, getting typeerror on line 25. here code: import turtle wn = turtle.screen() redrose = turtle.turtle() color = input("what background color be?") fillcolor_f = input("what color of rose be?") redrose.hideturtle() redrose.speed(30) redrose.penup() redrose.left(180) redrose.forward(175) redrose.right(90) redrose.forward(30) redrose.right(90) redrose.pendown() def drawrose(red): redrose.color("pink") redrose.fillcolor(fillcolor_f) redrose.fill(true) in range(red): redrose.forward(i) redrose.right(49) in range(5): drawrose(redrose) redrose.penup() redrose.forward(350) redrose.right(144) redrose.pendown() redrose.fill(false) drawrose(50) wn.bgcolor(color) i trying draw 5 roses, produces errors. doing in interactivepython.org. you recursively calling drawrose wrong parameter. on line 23 ( for in range(red): ) expect red integer...
Read more

c# - DevExpress RepositoryItemComboBox BackColor property ignored -

-
i have following code almost works properly; private void cbstatus_drawitem(object sender, listboxdrawitemeventargs e) { string item = e.item string; if (item != null) { switch (item) { case "1": e.appearance.forecolor = color.green; e.appearance.backcolor = color.green; break; case "2": e.appearance.forecolor = color.orange; e.appearance.backcolor = color.orange; break; case "3": e.appearance.forecolor = color.red; e.appearance.backcolor = color.red; break; } } } when dropdown shown, items forecolor correct, backcolor remains whatever backcolor of theme is; i.e. if i've got set dark theme, backcolor dark, cells in gridview, rather being green/orange/red. i've tried setting e.appearance.options.usebackcolor trying set e....
Read more

django - Creating multiple model instances in DRF3 -

-
1) create multiple model instances 1 api call, asked here: how create multiple model instances django rest framework? tried solution named in link, no success. i trying upload multiple files in 1 api call. result: files uploaded (only once overwrote perform_create) 1 instance created (if send 2 files, latter created instance). my code: class fileuploadserializer(serializers.modelserializer): def __init__(self, *args, **kwargs): many = kwargs.pop('many', true) super(fileuploadserializer, self).__init__(many=many, *args, **kwargs) class meta: model = fileupload read_only_fields = ('created', 'datafile', 'owner') class fileuploadviewset(viewsets.modelviewset): queryset = fileupload.objects.all() serializer_class = fileuploadserializer parser_classes = (multipartparser, formparser, ) def perform_create(self, serializer): file_list = self.request.data.getlist('file') ...
Read more