If I run VBA routine (Win XP. excel 2003):
ActiveSheet.PivotTables("PivotTable1").PivotSelect ("'Row Grand Total'"), xlDataAndLabel, True
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.Italic = True
I get 1004 ERROR (about false...
With opening txt to xls I add additional data (new columns), calculated from imported columns so I need to open it. First imported row txt to xls become range names and pivot items. I want to examine if imported first txt row
have structure, not conflict with names, created with VBA.
I...
When import txt and save as xls need VBA control if first cell in column range (cell value) is not valid to create names:
NAME examples 1
Cell B1=:
B1=111
B1= blank
B1=///
B1=A1%
B1=01_02
Msg = Msg & ActiveSheet.Name
MsgBox Msg
ActiveWorkbook.Names.Add Name:=Range("B1").value, RefersToR1C1:= _...
How to control (with VBA) cell value in column header (restricted characters,blanks,...), before creating (changing) range name and before creating (changing) pivot table (excel 2000 and more). Are both limitations the same or different?
Thanks
Bojzon
Is it possible (in MS excel graph) to change the line color or the marker style of a data series IN THE "MIDLE" OF DATA?
EX.: data series include DATA UP TO NOW (DATA FROM DATABASE) AN REST (PROJECTION) TO THE END OF YEAR?
Need "projection" with different marker or color.
Thanks
Bojzon
WinXP, off2003, PC RAM 2 Gb, procesor 3,8 GHz
Problem:
I should (VBA sub)create xls pivot table report from txt file with 150.000 recors or more. I used ODBC text driver connection and first 56.000 recors are reading normaly, but others 100.000 with speed about 60 records per second. (the same...
In xls book with data column (50.000) numbers as text - (about 10.000 unique, others are duplicates -must not delete duplicates)I need to replace all numbers with new text (OBV, BLAG,..)
I have separate table with unique 10.000 numbers (1032226,1020051,...).They must be converted with defined...
Need to replace about 10.000 items in xls column with 50.000 data. In Module I exceed maximum number lines of code. How to reduce number of lines with code? (WIN XP, Off2003). Any suggestions? (arrays?, list?,..)
Bojzon
I have difficulties with execute macros within macros.(First wkb run macro, call another wkb with macro, when second wkb macro finished, first wkb macro stop running too - without errors..)
Application.Run "Izpisek2006.xls!TXT_v_XLS"
Application.Run "'C:\IzpiskiNLB\VNO.xls'!Print1"...
Need help with correct reference with two workbooks with more then 1 sheets.
First one Wkb is opened and other Wkb is closed (could not open both , because of RAM resources). PT from opened is referenced to closed Wkb range (ex.: \Plan\Plan2006\ Model.xls!RangeDynamic).
How input correct...
I have pivot table (left upper corner - J1) on sheet with data (A1:D50000). Number of rows changes a lot, and I always DELETE PREVIOUS PIVOT TABLE AND NAME!!, and create new new pivot table from the beginning (Data are named "RangeDynamic" and "=OFFSET(" & ShtName & "!R1C1,0,0,COUNTA(" &...
How create in VBA "MyRAND" for random selecting only some noncontiguous (40) numbers. (ex. 20,25,30,40,41,....75..)
Round(RAND() * (40-1)+1, 0) > use contiguos numbers in between 1 to 40.
Thanks for advice
(excel 2000, xls)
In selected columns need every cell convert data to NUMBER with multiplier *1.
Is there any quicker way than cell by cell?
Thanks
Bojzon
In a large xls table (excel 2000) I selected data with Autofilter with 3 Criteria at once .:
Field:1, Criteria1:=X
Field:3, Criteria1:=Y
Field:11, Criteria1:=N
Need VBA code to delete (or copy) selected visible rows and reset used range.
Thanks
Bojzon
In some columns I need to find if exist more then one number format. Is it possible to select cells and rows "with custom number format" using autofilter?
Any alternative for large xls tables? I tried with additional column with
ActiveCell.Value = Cell.Offset(0, -1).NumberFormat
with no...
I tried insert equal = but I got error : Run time error 1004
(offXP, xls2003).
CODE above - without equal (=) In DEFINE NAME>NAMES>REFERS TO: produce ="Offset..........." (like text)
This part of code produce in DEFINE NAME>NAMES>REFERS TO: result with quote -"".
Need suggestion how to get result without guote?
CODE
ActiveWorkbook.Names.Add Name:="Data" , RefersToR1C1:= _
"Offset(" & ShtName & "!$" & FC & "$" & FR & ";0;0;CountA(" & ShtName & "!$" & FC & ":" & "$" & FC &...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.