excel - Error 13 Type mismatch and Error 9 Script out of range -

-

I created a similar macro to generate pivot tables and charts, and it worked fine. Now let me create a new one. Is required, so I applied the same code, but accordingly amended it. But this time, VBA told me that I have error 9 'script is out, and sometimes error 13' type mismatch after I execute the code. I repeated the code several times, but sometimes this error was given 13, sometimes it got 9 error. That's why I am confused. This is almost the code that worked for my last job. I am thinking that a person can tell the place where I am wrong. I appreciate it. Thanks!

Diff_Milg () Dynamic Range Dim Range as SourceRange ObjField PivotField Dim ObjPivot PivotTable Dim LastRow Range DimLRRng as Range Dim GRng as Range LastRow = Cells (Rows.Count, As 1) .end (xlDown) .Row Sheet ("Sheet1") Select Set SourceRange = Sheet ("Sheet1") Range ("A2: D" .. & LastRow) After Sheets.Add: = Sheet (Sheets.Count) ActiveSheet .Name = "Various Milg" ActiveWorkbook.PivotCaches.Add (_ SourceType: = xlDatabase, _ SourceData: = SourceRange) .CreatePivotTable _ TableDestination: Sheet ("Various Milg") range ("A1 "), _ TableName :. = "Different mileage", _ DefaultVersion: = xlPivotTableVersion11 * error here ActiveSheet.PivotTableWizard TableDestination: = ActiveSheet.Cells (1, ActiveSheet.PivotTables ( "different mileage with 1)") PivotFields ( "ProductionYM") .Orientation = xlRowField .. With ActiveSheet.PivotTables ("Different Mileage") with status = 1 termination. PivotFields ("Milg") .Articles = xlColumnField .Position = 1 End ActiveSheet.PivotT with ables ("various mileage") along with. PivotFields ("FailPartId") .Orientation = xlDataField .Name = "CountofMilg" .Function = xlCount.Status = 1 set with objPivot = ActiveSheet.PivotTables ("various mileage") set range area label whose items are divided Are: set lblRng = objPivot.PivotFields ("Milg") LabelRange lblRng.Group Start:. = 0, By: = 36000, By: = 5000 'Ungrouping: Set to set' lblRng.Ungroup 'set range, grRng = objPivot.PivotFields ("ProductionYM"). DataRange


Comments

Post a Comment

Popular posts from this blog

import - Python ImportError: No module named wmi -

-
I followed the instructions for downloading WMI for Python When I try to run the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = wmi.WMI (): if Raw_input ("restart% s?"% S.Caption) .upper () == "Y": s.StartService () I got the error traceback (most recent call end): file ". \", Line 1, edit: I am using Python 2.7.6 EDIT2: I am running 64-bit Windows 2008 R2, and I've downloaded WMI-1.4.9.zip (md5). I removed the content and put it in D: Python \ Tools \ Scripts I executed dragon setup.py.install I said D : \ Python \ tools \ scripts to% PATH% and when I execute the code for C.Win32_Service (StartMode = "Auto", state = "Stopped") import wmi c = Wmi.WMI (): If raw_input ("Restart% s?"% S. Caption). () == "Y": s.StartService () error me Gets traceback (most recent call final): File ". See \", line 1, & lt; Modu...
Read more

Editing Python Class in Shell and SQLAlchemy -

-
I am working on the terminal on a shell script after this tutorial SQLAlchemy tutorial. I need to type gt; & Gt; & Gt; Sqlalchemy import column, integer, string & gt; & Gt; & Gt; Class user (base): __tablename__ = 'users' id = column (integer, primary_key = true) name = column (string) absolute name = column (string) password = column (string) def __repr __ (self): return "& lt ; User (name = '% s', absolute name = '% s', password = '% s') & gt; "% (Self.name, self.fullname, self.password) After the problem I have typed the password = column (string) I hit twice and changed .... >> I then took everything back but then an error was thrown because the class already exists ... I am not completely sure how to fix it. How do I open that slip in the shell script and edit it (Add DF to DRR) The error thrown below: / user / giripeters / TFSQLLX / Lib / python2.7 / site-packages / sqlalchemy / ext / decla...
Read more

lua - HowTo create a fuel bar -

-
I would like to create a fuel bar (empty with full tank). When the user touches the screen, the fuel once Dairejh these is my code: lifeBar = display.newImage ( "fuel_bar1.png") lifeBar.anchorX = 0 lifeboats. ======================== Lifetime Y = 37 screens Group: The Insert function (called Laifbar) However, I fuel Kansmoshn (equivalent to "pressed" variable to reduce the fuel tank "true") Have used. When pressed == is true, it means that the user is touching the screen: processed (fuel) processed () if life & gt; 0 and pressed == true remains = life - life 1 Life = life =. Wide-1 remains Value.text = string.format ("% d", life) End of this This function is active as the entrance event: runtime: addEventListener ( "Antrfrem" fuel Snsadna) it is very well, but my question is: pressed variable each time 5 seconds (once = = True) How is it possible to reduce the vitality width? I tried to add it to my touch even...
Read more