Hi All,
One of my colleague asked me how to make chart like as shown in the attached screenshot. Can anyone help? Link is also provided herewith.
http://blogs.office.com/2012/09/27/inserting-charts-in-excel-2013/
With Regards
Rudra
Hi little mid of modification from Matheen's code.
Sub assdata()
Application.DisplayAlerts = False
Dim wks As String
Dim wkd As Workbook
Dim dpath As String
Dim fltr As String
Dim i As Integer
Dim lr As Integer
i = 2
wks = ThisWorkbook.Name
dpath = ThisWorkbook.Path & "\"...
Sometimes you may have to delete rows(filtered data) from big spreasheets. It may take long time and sometimes even excel might crash also.I have encountered this may times and learnt a better way to deal with this situation.
Instead of deleteing entire rows(Ctrl + -) it is advisable to clear...
If you have office 2003 installed, you can convert to .tif with the help of MICROSOFT OFFICE DOCUMENT IMAGING(Modi).However if you have later version of office, upload the file. I will try to convert it in excel/doc etc.
With Regards
Rudra
Hi,
Another way is.
Copy your data to range B2:C50. Select B2:B50 and hit Ctrl + H. In Find what: type " to*"(without quote). Leave 'Replace with' as it is. Now hit replace all button. You are left with first part of the text. Now select Range C2:C50 and Ctrl + H. If the find what type "*to...
Aaron,
Check to see if you have any unseen text box like objects in any of your sheet. If your spreadsheet responds very slowly , I am sure you have those tiny objects.'GoTo Special' command should help you, if any, to get rid of them. It has happened many times with me.
With Regards
Rudra
Hi,
I would use something like this.
Option Explicit
Sub InsertLine()
Dim Cell As Range, MyRange As Range
Set MyRange = Cells(1, 1).CurrentRegion ' change to suit your need
For Each Cell In MyRange
Cell.Value = Cell.Value & Chr(10)
Next Cell
End Sub
With Regards
Rudra
What is your file format? xls or xlsx? I have noticed xls's size is double than xlsx. Also if you multiple sheets your filesize baloons. Even with just 2 used sheets,file size doubles.Size increases with live pivot table(s) and conditional fomatting, formulas, charts etcs.
Hi,
Can't this action(Text to Columns) be automated? I tried doing it with macro recorder and got this code.
Option Explicit
Sub TextToDate()
With Selection
.TextToColumns , DataType:=xlDelimited, FieldInfo:=Array(1, 3)
.NumberFormat = "mmm yy"
End With
End Sub
Hi BSM,
I had done something similar in recent past, since that data is sensitive I can't share it here.
I used mostly find and replace to extract the desired text. Soundy bizarre?
First of all try to find out possible start point and end point of your link for e.g start point may be 'href=' or...
@SirJB7
Thanks for differentiating these two types. I had not noticed that while 'Coloring' the code one has to compromise with the indent of it..
Just pasting your codes under different tag.(This is for experiment only)
PHP
Sub WTFAli2gnment()
' description
' constants
Const ki1 = 1...
example:
Dim FSO, FileObj, FolderObj As Object
Dim WB As Workbook
Dim MyPath, Msg As String
Dim MyRow As Integer
Dim TDSAmt As Long
Dim TDSDetail, Response As String
I was just wondering why the codes pasted by me(despite using code tags) lose formatting? Whereas codes pasted by others appears exactly as in VBE?
With Regards
Rudra
Hi Anant,
I use excel 2003 style of coding for sorting my data. I find it very easy to understand and code.
Option Explicit
Sub SortData()
'Since you have already selected your data,hence using selection as range here
Selection.Sort Range("A3"), xlAscending, Header:=xlGuess
End Sub
With...
Hi Lymm,
You have already solved it but I couldn't stop myself when I saw five lines of codes for applying borders;
rng.Borders.LineStyle = xlContinuous
should do the trick.
With Regards
Rudra