check this code, One thing I must say in this sheet there are many columns
which are useless and blank, if you wish I can remove that too.
Sub Test()
Rows(1).UnMerge
ActiveSheet.Range("$AK$1:$AL$20500").AutoFilter Field:=1,
Criteria1:="Amount"
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisib
Hi Mandeep,
I want to unmerge the rows nos 1,15,25,31,43,113,126,193,200
This may increase or decrease in my upcoming month excel hence i want to
continue merge all the header rows as much as the headers.
Thanks
N.Sundarvelan
9600160150
On Wed, May 6, 2015 at 12:06 PM, Mandeep Baluja
wrote:
which cells you want to unmerge ??? Please clear that on which column you
need to check your physician Text. ??? Elaborate your query please as my
macro works for column 1
On Wednesday, May 6, 2015 at 11:44:50 AM UTC+5:30, Sundarvelan wrote:
>
> Please find the attached file for your reference
Please find the attached file for your reference.
When i apply your macro it doesn't work.
Thanks
N.Sundarvelan
9600160150
On Wed, May 6, 2015 at 10:02 AM, Mandeep Baluja
wrote:
> what is the error you are getting give me the snapshot.
>
> On Wednesday, May 6, 2015 at 6:44:12 AM UTC+5:30, Sund
what is the error you are getting give me the snapshot.
On Wednesday, May 6, 2015 at 6:44:12 AM UTC+5:30, Sundarvelan wrote:
>
> Thanks Mandeep,
>
> But the given solution is not working.
>
> Thanks
> N.Sundarvelan
> 9600160150
>
> On Tue, May 5, 2015 at 4:16 PM, Mandeep Baluja > wrote:
>
>> Sub
Thanks Mandeep,
But the given solution is not working.
Thanks
N.Sundarvelan
9600160150
On Tue, May 5, 2015 at 4:16 PM, Mandeep Baluja
wrote:
> Sub Search()
>>
>> Dim FirstAddress As String
>>
>> With ActiveSheet.Range("A:A")
>> Set Rng = .Find(What:="physician", After:=.Cells(.Cells.Count),
>>
>
> Sub Search()
>
> Dim FirstAddress As String
>
> With ActiveSheet.Range("A:A")
> Set Rng = .Find(What:="physician", After:=.Cells(.Cells.Count),
> LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows,
> SearchDirection:=xlNext)
>
> If Not Rng Is Nothing Then
> FirstAddress = Rng.Address
