excel - Copying a variable based range of cells to another Range -

-

hello code should evident trying @ point. attempting copy range of cells static portion of worksheet created column keep running error on part of formula i'm hoping here has either solution error, or better method of taking 1 range of cells can static , bringing hard reference point

sub mapping()  dim map worksheet dim ath worksheet dim lastmap long dim lastath long set ath = sheets("athena greek god") set map = sheets("mapping") lastmap = map.cells(rows.count, "d").end(xlup).row lastath = ath.cells(rows.count, "a").end(xlup).row    columns("a:a").select selection.insert shift:=xltoright, copyorigin:=xlformatfromleftorabove selection.insert shift:=xltoright, copyorigin:=xlformatfromleftorabove selection.insert shift:=xltoright, copyorigin:=xlformatfromleftorabove selection.insert shift:=xltoright, copyorigin:=xlformatfromleftorabove  range("a1") = "edited" range("b1") = "edited 2" range("c1") = "edited 3" range("d1") = "edited 4" columns("a:d").autofit range("a1:d" & lastath).select selection.interior     .pattern = xlsolid     .patterncolorindex = xlautomatic     .themecolor = xlthemecolordark1     .tintandshade = -0.149998474074526     .patterntintandshade = 0 end  clastath = ath.cells(1, columns.count).end(xltoleft).column  x = clastath 1 step -1 if ath.cells(1, x) = "the principals book"     ath.range("d2: d" & lastath) = ath.range(ath.cells(2, x), ath.cells(lastath, x)) end if next end sub

error occurs here:

ath.range("d2: d" & lastath) = ath.range(ath.cells(2, x), ath.cells(lastath, x))

you should use .value or .value2 transfer data between ranges :

ath.range("d2: d" & lastath).value2 = ath.range(ath.cells(2, x), ath.cells(lastath, x)).value2

the main difference between these two :

  1. .value2 gives underlying value of cell (unformatted data)
  2. .value gives formatted value of cell

for more details, take @ charles william's blog here.

as seem working on 2 sheets (not on "mapping" 1 in code gave, if got right. if not change ath. map. need be), don't forget use references created (i added them everywhere, before rows.count , columns.count avoid errors if open old document on new excel version)

i got rid of selects , shorten code could, let "mapping" sheet guessed you'll use later in code.

also don't forget free abject variables this, when won't use afterwards : 

set ath = nothing set map = nothing

here your code corrected, cleaned , tested :

sub mapping()  dim map worksheet, _     ath worksheet, _     lastath long, _     lastmap long, _     clastath long, _     x integer   set ath = sheets("athena greek god") set map = sheets("mapping") lastmap = map.cells(map.rows.count, "d").end(xlup).row lastath = ath.cells(ath.rows.count, "a").end(xlup).row  ath.columns("a:d").insert shift:=xltoright, copyorigin:=xlformatfromleftorabove ath.range("a1:d1").value = array("edited", "edited 2", "edited 3", "edited 4") ath.columns("a:d").autofit  ath.range("a1:d" & lastath).interior     .pattern = xlsolid     .patterncolorindex = xlautomatic     .themecolor = xlthemecolordark1     .tintandshade = -0.149998474074526     .patterntintandshade = 0 end   clastath = ath.cells(1, ath.columns.count).end(xltoleft).column  x = clastath 1 step -1     if ath.cells(1, x) <> "the principals book"     else         ath.range("d2: d" & lastath).value = ath.range(ath.cells(2, x), ath.cells(lastath, x)).value     end if next x  set ath = nothing set map = nothing  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