Open Ms-Excel Move the cursor to the sheet name "Sheet1" or whatever you have renamed your sheet and right click, then click on view code. A new Visual Basic window will open. In the left corner double click on "This workbook" and type or copy/paste the following codes in the blank space. Sub DelStrikethroughText() Dim xRg As Range, xCell As Range Dim xStr As String Dim I As Long On Error Resume Next Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8) If xRg Is Nothing Then Exit Sub Application.ScreenUpdating = Fase For Each xCell In xRg If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then xCell.Value = "" ElseIf Not IsNumeric(xCell.Value) The...
Open Excel Create three columns with following titles: 1. First Name 2. Last Name 3. Phone Number Fill your data row wise in the respective columns and then press Alt+F11 to enter the Visual Basic mode. In the left corner you will see This workbook under VBA Project (Your file name). Right click on This workbook - Move the cursor to Insert - Click Module A new window will appear, paste the following codes there: Private Sub Create_VCF() 'Open a File in Specific Path in Output or Append mode Dim FileNum As Integer Dim iRow As Double iRow = 2 FileNum = FreeFile OutFilePath = "D:\OutputVCF.VCF" Open OutFilePath For Output As FileNum 'Loop through Excel Sheet each row and write it to VCF File While VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) <> "" LName = VBA.Trim(Sheets("Sheet1").Cells(iRow, 1)) ...
Dear Friends, Sometime we arrive to a situation when our pendrive shows that a certain amount of space is captured but no files are visible. Try the following: Check if the file is not in hidden mode. If the above doesn't work then try the following: Click on "Start" -->Run --> Type cmd and press Enter. Here I assume your pendrive drive letter as G: Enter this command. attrib -h -r -s /s /d g:\*.* --> Press Enter You can copy the above command --> Right-click in the Command Prompt and paste it. Note : Replace the letter g with your pen drive letter. Now check your pen drive for the files. Good luck..... Neil
Comments