Here is what I came up with. The macro will color the text in the cell white or black depending...
Please try this as well. Sub Save2PDF() Dim Fname As String Fname = InputBox("Enter file name to save", "Save as...
Here is a simple copy and paste from cell A1 to D1 using vba Sub cpy() Range("A1").Copy Destination:=Range("C1") End Sub
I did not write this code but I think that it may help you. For more information about this code...
Hello Can you upload sample of your workbook?
Hi, Thanks for the reply. I need to find a formula for finding the column number, i can't give a...
Not sure if this will help. When you save your file click Tools>General Options and then click on Always create...
Sheet1 column "A" must have at least 2 rows (Cells A1 and A2) of data for macro to work. Less...
I would recommend you to examine the following example :
Excel Advanced Userform & More Faster Data Searching Method
Ago in the same folder with the Excel Workbook, “records” named text file is created. Later the data are transferred into text file as separated by spaces.
Sample can be examined at the following page : Transferring Data To The Text File
New folder (if folder doesn’t exist) is created at the same place with workbook.
The workbook’s sheets as new workbooks are copied in this folder.
Dim Sheet As Worksheet, SheetName$, MyFilePath$, N&
Application.ScreenUpdating = False
MyFilePath$ = ActiveWorkbook.Path & "\" & _
Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
.ScreenUpdating = False
.DisplayAlerts = False
On Error Resume Next
For N = 1 To Sheets.Count
SheetName = ActiveSheet.Name
.Name = SheetName
.SaveAs Filename:=MyFilePath _
& "\" & SheetName & ".xls"
.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "The Process Was Carried Out Successfully", vbInformation
Working Template Can Be Downloaded Here