Posts by ashu1990

ashu1990 · Jun 11th 2013

Re: Can't click hyperlink in locked cells.

Try this
Use the range to unlock the cells which contains hyperlink

Code

Sub test()
Range("A1:A10").Locked = False
ActiveSheet.Protect "pass"  ''''---->password for sheet
 
End Sub

Hope this helps

ashu1990 · Jun 11th 2013

Re: multiplying a smaller array with consecutive sub arrays of a larger array

This is a kind of home work what you are asking for..
we can just let you to the path you have to walk the way on your own if possible you can hire a developer who can do this for you..

ashu1990 · Jun 11th 2013

Re: Excel Macro to Add Border to Cells in Rows Based on Criteria in Column

try this

Code

Sub test()
Dim linestyle As Variant, line   As Variant
Range("A1").Select
Do While ActiveCell.Address <> Range("A65536").End(xlUp).Offset(1, 0).Address
If ActiveCell.Value > 0 Then
 linestyle = Array(xlDiagonalDown, xlDiagonalUp, xlInsideVertical, xlInsideHorizontal)
line = Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight)
For i = 0 To UBound(linestyle)
Selection.Borders(linestyle(i)).linestyle = xlNone
    With Selection.Borders(line(i))
        .linestyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Next i
Else
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

Display More

if you got what you want please mark the thread as closed.

ashu1990 · Jun 11th 2013

Re: Alphanumeric Sorting for multiple columns

try this

Code

sub test()
range("A1").select
Do While ActiveCell.Address <> Range("IV1").End(xlToLeft).Offset(0, 1).Address
''''your code here
ActiveCell.Offset(0, 1).Select
Loop
End Sub

hope this helps