excel - I want to copy column D:I,K,O,AG,AH,AA but it currently copies D:AH -


sub autofillData () dim dimmed as the wkbkSource workbook strpath string dim myRange as the range dims as I rounded the integer As the range dim wkbkTarget workbook application. Screen upting = set the wrong straddle = "\\ temp \" wkbkA = set this workbook wkbkB = workbooks. Open (Streets and Range ("E8"). Value) set myRange = wkbkA.Sheets ("stand-up request"). Range ("B13: B25") off = 0 for every C in my range i = C. Value wkbkB.Worksheets ("Chief Data"). Range ("D" & amp;;: "AH" & Amp; i) .Copy wkbkA.Sheets ("stand-up request") Range ("C13") Offset (Offs, 0). Paste Special Paste: = xlPasteValues, Operation: = xlNone, _ SkipBlanks: = True, Transpose: = False application.CutCopyMode = False offs = offs + 1 Error restart Next Next wkbkB.Close savechanges: = False application.ScreenUpdating = True E Nd Sub

If you do not pay attention to the column order, One should change the line:

wkbkB.Worksheets ("main data"). Category ("D" & amp; I & amp; nbsp; & quot;: & quot; & quot; & amp; & quot; & quot; & quot; & quot; & quot; & quot; & amp; & amp; & amp; Amp; & amp; nbsp; & amp; nbsp; & amp; quot; AH & amp; I & amp;;, AA & amp;;). Copy

Note that this is pasted before AA AG If you keep the column order in mind, then you should split your threshold and copy them separately: 

  wkbkB.Worksheets ("main data"). Category ("D" & amp; I: I & amp; A & amp; A & amp;;, & quot ;, & quot; & & amp; & amp; Copy wkbkA.Sheets ("Range (" C13 ") Offset (Offs, 0) .Paste Special Paste: = XLPistEvices, Operation: = xlNone, _ SkipBlanks: = True, Transpose: = False wkbkB.Worksheets (" Main Data Range ("AA" & amp; i) .copy wkbkA.Sheets ("stand-up request"). Range ("C13") offset (off, 10) .Paste Special Paste: = xlPasteValues, Operation: XlNone, _ SkipBlanks: = True, Transpose: = False

Note that this is a static code, if you want to If you change the column to copy, you should also set the column value of the offset of the second paste accordingly. If you want a dynamic code, then you should create another range object that you copy and you get the dimension of that limit Besides,

wkbkA.Sheets ("stand-up request") can also save copy / paste completely by using code. Range ("C13") Offset (Offs, 0). Resize (1, 6) ). Value = wkbkB.Worksheets ("Main Data"). Category ("D" and "I:" I "& amp; i). Value

But it is necessary for each sub-limit to be done, so it becomes more complex .

Also keep in mind that your code works properly on the ActiveSheet without any error , so that you check your code again :)


Comments

Post a Comment

Popular posts from this blog

python - Overriding the save method in Django ModelForm -

I'm having trouble overriding a ModelForm save method. I get this error I'm: Exception type: TypeErier Exception Value: Save () found an unexpected keyword argument 'committed' My intentions include a form 3 fields Submit several values ​​for, then create an object for each combination of those areas, and to save each object file models.py class collarsult type (models.Model): id = model. AutoField (db_column = 'icontact_result_code_type_id', primary_key = true) callResult = models.ForeignKey ( 'CallResult', db_column = 'icontact_result_code_id') campaign = models.ForeignKey ( 'campaign', db_column = 'icampaign_id') CALLTYPE = models.ForeignKey ( 'CALLTYPE', db_column = 'icall_type_id') agent = models.BooleanField (db_column = 'bagent', default = true) teamLeader = models.BooleanField (db_column = 'bTeamLeader', default = true) active = models.BooleanField (db_column = Django.form...
Read more

html - CSS autoheight, but fit content to height of div -

I have a div in which there are three children- div in the left and middle div: float: left while true: float: true because it is my layout Actually will spoil, I've used ClearFix Hack: .cf {zoom: 1; }. Cf: First,. Cf: {content: ""; Display: Table; }. Cf: After {clear: both; } It still works, but I want to be the right div an indicator. So it should fill 100% of the parent unit of height. How can I complete this? PS is the full code: & Lt; / Div & gt; & Lt; Div class = "mobile_content" & gt; & Lt; H5 & gt; {{Data.titel}} & lt; / H5> & Lt; Table & gt; & Lt; TR & gt; & Lt; Th & gt; Komponist: & lt; / Th & gt; & Lt; TD & gt; {{Data.komponist}} & lt; / TD & gt; & Lt; / TR & gt; & Lt; TR & gt; & Lt; Th & gt; Instrument: & lt; / Th & gt; & Lt; TD & gt; {{Data.instrumente}} & lt; / TD & gt; & Lt; / TR & gt;...
Read more

qt - How to prevent QAudioInput from automatically boosting the master volume to 100%? -

I have been trying to use Qt5 multimedia to record audio with QAudioInput, however, when I see If QAudioInput is started, it increases the master volume of my sound device to 100%. How can I prevent QAudioInput from changing the master volume? My current development platform is Linux with PalsAdio (with flat audio disabled). How can I use QAudioInput : QAudioDeviceInfo device_info = QAudioDeviceInfo :: defaultInputDevice (); QAudio format format; Format.setSampleRate (44100); Format.setChannelCount (1); Format.setSampleSize (16); Format.setCodec ("Audio / PCM"); Format.setSampleType (QAudioFormat :: SignedInt); Format.setByteOrder (QAudioFormat :: LittleEndian); Std :: cout & lt; & Lt; Device_info.deviceName (). ToUtf8 (). ConstData () & lt; & Lt; Std :: endl; QAudioInput * default_device = new QAudioInput (device_info, format); QIODevice * default_io_device = default_device-> Start (); a QAudioInput.setVolume () method is not you I ...
Read more