Some Useful Excel Macros

Replace Line in a text file

Sub OpenEditSaveCloseTextFile()
    Dim fso As Object
    Dim fil As Object
    Dim txt As Object
    Dim str_path As String
    Dim str_change As String

    str_path = "e:\test"
    Set fso = CreateObject("Scripting.FileSystemObject")
    MsgBox ("Starting Replacement")
    For Each fil In fso.GetFolder(str_path).Files
        'If fil.Type = "Text Document" Then
            Set txt = fil.OpenAsTextStream(1)
            str_change = txt.ReadAll
            txt.Close
            str_change = Replace(str_change, "FIND_WHAT", "REPLACE_WITH", , , vbTextCompare)
            With fil.OpenAsTextStream(2)
                .Write str_change
                .Close
            End With
        'End If
    Next fil
    MsgBox ("Replacement Completed")
End Sub

#Remove beginning “-“ from the cell content

Sub Test()
For Each cell In ActiveSheet.UsedRange
On Error Resume Next
    If Left(cell.Formula, 2) = "=-" Then
            cell.Formula = "'" & Mid(cell.Formula, 2, Len(cell.Formula) - 1)
    End If
Next
End Sub


#Remove duplicates in a cell
Sub remDup()
Dim dic As Object, cell As Range, temp As Variant
Dim i As Long
Set dic = CreateObject("scripting.dictionary")
With dic
    For Each cell In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
        .removeall
        If Len(cell.Value) > 0 Then
            temp = Split(" " & cell.Value, ",")
            For i = 0 To UBound(temp)
                If Not .Exists(temp(i)) Then .Add temp(i), temp(i)
            Next i
            cell.Value = Mid(Join(.Keys, ","),2)
        End If
    Next cell
End With
       
End Sub

Reverse String (in a new module)


Option Explicit

Public Function ReverseString(Text As String)
    
    ReverseString = StrReverse(Text)
    
End Function

Popular posts from this blog

Image
If you had gone through my blog entry here, i would have talked about using UDML as a way for automating migration from dev to test/prod environments. But the major problem with UDML is that one cannot update the passwords of Connection Pools, Users etc since the UDML expects them to be encoded. In such a case, for updating passwords alone we can use an undocumented command line switch option for the AdminTool. For example, look at the screenshot below. If you had gone through my blog entry here, i would have talked about using UDML as a way for automating migration from dev to test/prod environments. But the major problem with UDML is that one cannot update the passwords of Connection Pools, Users etc since the UDML expects them to be encoded. In such a case, for updating passwords alone we can use an undocumented command line switch option for the AdminTool. For example, look at the screenshot below. Open Dev_Machine.rpd Administrator Administrator SetProperty "Connecti...
Read more

How To Unlock Bootloaders on your Xperia Arc S

UPDATE : Before you proceed, please visit  this link  to check if your phone’s boot loader can be unlocked or not? NOTE:  If the light above the USB port on your phone doesn’t turn blue when you connect your phone using the USB cable to your PC while holding the “MENU” button (on Xperia Arc. For Xperia Play – “SEARCH” button), then it means that you cannot connect to fastboot, and hence you cannot unlock the boot loader. Here’s a Step by Step guide (w/ video) on how to unlock bootloaders on your Xperia Arc, Play, Neo & Pro. [info]Although this guide is made using Xperia arc, I can assure that it would work perfectly with Xperia Play, Neo & Pro too. NOTE : Xperia Play users should press the “ Search ” button instead of “ Menu ” button in Step 8th of this tutorial.[/info] [warning]The methods and procedures discussed here are considered risky and you should not attempt if you don’t know completely what it is. If any damage occurs to you or your device, w...
Read more

Inherited Colour Vision Deficiency

Image
Red/green colour blindness is a common hereditary condition which means it is usually passed down from your parents. Colour blindness is usually passed from mother to son on the 23rd chromosome, which is the sex chromosome. Chromosomes are structures which contain genes – these contain the instructions for the development of cells, tissues and organs. If you are colour blind it means the instructions for the development of your cone cells are wrong and the cone cells might be missing, or less sensitive to light or it may be that the pathway from your cone cells to your brain has not developed correctly. The X chromosome is the sex chromosome: males have an X chromosome and a Y chromosome and females have two X chromosomes. For a male to be colour blind the faulty colour blindness gene only has to appear on his X chromosome. For a female to be colour blind it must be present on both of her X chromosomes. This is why red/green colour blindness is far more common in men than women. Bl...
Read more