Hey Muneera,
One last change has been done in this code where I mentioned * '*Change
done here', basically it was not taking a Slash to get inside a directory.
Now it's is working fine.
Sub XLS_to_CSV()
Dim wb As Workbook
Dim SourcePath As String
Dim strFile As String, strDir As String
Dim
Replace source line with this
Set j = Application.FileDialog(msoFileDialogFolderPicker)
j.Show
SourcePath = j.SelectedItems(1)
On Wednesday, November 26, 2014 4:40:03 PM UTC+5:30, Muneera Shabana wrote:
>
> Good Morning,
>
> Hope you are having a great day!
>
> *Objecti
Thanks Mandeep
But I dont to define the source path, rather browse and open the folder for
converting the files.
please help!
On Wednesday, 26 November 2014 12:57:30 UTC+1, Mandeep Baluja wrote:
> Sub XLS_to_CSV()
>
> Dim wb As Workbook
> Dim strFile As String, strDir As String
>
> SourcePat
Sub XLS_to_CSV()
Dim wb As Workbook
Dim strFile As String, strDir As String
SourcePath = "C:\Users\pc\Desktop\45.November.2014\"
strFile = Dir(SourcePath & "*.xlsx")
Do While strFile <> ""
Set wb = Workbooks.Open(Filename:=SourcePath & strFile, Local:=True)
newpath = "C:\Users
Sub CSV_to_XLS()
Dim wb As Workbook
Dim strFile As String, strDir As String
SourcePath = "C:\Users\pc\Desktop\45.November.2014\"
strFile = Dir(SourcePath & "*.xlsx")
Do While strFile <> ""
Set wb = Workbooks.Open(Filename:=SourcePath & strFile, Local:=True)
newpath = "C:\Users
Thank you so much It works. I made some changes to the loops to locate
the data exactly where I wanted.
Thank you again.
On Tuesday, March 25, 2014 5:41:34 PM UTC-4, Rafael DeLeon wrote:
>
>
> Hello all,
>
> I have a SQL Server Database with a store procedure that I would like to
> displa
You upload 1 Workbook, which contains 20 Worksheets with Data and Worksheets
requirements.
2013/6/1 Bv Dileep
>
> On Sunday, May 26, 2013 8:50:22 PM UTC-5, Bv Dileep wrote:
>>
>> Hello,
>>
>> ** **
>>
>> Please find attached the sheet.
>>
>> ** **
>>
>> Macro Requirement : I will receive
On Sunday, May 26, 2013 8:50:22 PM UTC-5, Bv Dileep wrote:
>
> Hello,
>
> ** **
>
> Please find attached the sheet.
>
> ** **
>
> Macro Requirement : I will receive the data for 20 associates in my team
> in a separate sheets (20 Sheets) in the attached format. Now I want a macro
> whic
Thank you one and all for your help; Really awesome
On Sunday, May 26, 2013 8:50:22 PM UTC-5, Bv Dileep wrote:
> Hello,
>
> ** **
>
> Please find attached the sheet.
>
> ** **
>
> Macro Requirement : I will receive the data for 20 associates in my team
> in a separate sheets (20 Sheets
Please Use This It may help You.
Sub test()
Dim rngData As Range
Dim intCol As Integer
Dim intRow As Integer
Dim strCol As String
With ThisWorkbook.Worksheets("Sheet1")
Set rngData = .Range("A1").CurrentRegion
intRow = rngData.Rows
Hi,
see the attached File,, it meets the operational requirement
On Fri, Apr 15, 2011 at 10:17 PM, rajan verma wrote:
> see if it help
>
> Rajan
>
>
> On Fri, Apr 15, 2011 at 9:32 PM, ashish koul wrote:
>
>>
>>
>> -- Forwarded message --
>> From: David Stevans
>> Date: Fri, Apr
see if it help
Rajan
On Fri, Apr 15, 2011 at 9:32 PM, ashish koul wrote:
>
>
> -- Forwarded message --
> From: David Stevans
> Date: Fri, Apr 15, 2011 at 6:37 PM
> Subject: Macro Help again
> To: ashish koul
>
>
> Hi,
>
> How are you I need some more help with the macr you gav
First of all, it is not "easy" to disable this
SECURITY FEATURE. The whole idea is to make is
so that those EVIL people out there that get their
kicks out of writing virus' and finding some method
to get them spread as far as possible have made
it difficult for the rest of us.
Microsoft is allowi
Hi Karthikeyan,
Greetings!
Please follow the below steps to avoid the Enable/Disable macros :
1. Look in C:\Program Files\Microsoft Office\Office (or C:\Program
Files\Microsoft Office\Office10), and there should be a program called
selfcert.exe.
2. Run the selfcert.exe program (just double
I am not clear on what you want to write code for. Do you want to
eliminate the space or do you want to intercept Excel's response to
the (invalid) space in the e-mail address?
On Oct 11, 3:44 am, karthikeyan
wrote:
> Hi,
> I have enter E-mail id in one cell with space:e.g(karthi keyan
> sankar.
Hi,
You don't need VBA for this you can do this with custom validation. Check
column A in attached file.
To know how to do this
Select any cell in column A ad goto
DATA->Validation
and check SETTING and ERROR ALERT tab.
Regards
Sandeep
- Original Message -
From: "karthikeyan"
To: "
Never mind, I received help elsewhere.
On Oct 2, 11:55 pm, vespid wrote:
> I'm making excel macros for the first time and getting things figured
> out, but I have a few questions:
>
> What code do I use to delete columns that have all empty cells EXCEPT
> the top cell (row 1) that contains any o
The following code worked for me. You may give it a try.
Before running the following code write something on each of the three
sheets.
You can just copy and paste the following code and run. Hope it helps.
'==START
Sub createPrintJobs()
Dim i As Integer
Dim batPRN As String
ba
I was not able to get this to work. I have heard that PDF creator has
hooks in it for this kind of thing, but I have not investigated that
yet.
On May 21, 11:05 am, Dustin wrote:
> I'll try that out and get back to you.
>
> For this example, creating multiple print jobs is trivial - but the
> ac
I'll try that out and get back to you.
For this example, creating multiple print jobs is trivial - but the
actual application involved many thousands of records that will be
printed, so it is a little more important to have separate print jobs
if possible.
On May 21, 3:45 am, Akhilesh Karna w
As far as I know it will not be possible to achieve what you are trying to,
by a simple macro.
Other way, I can think of, is to print each invoice to a file (prn file)
using the following code. Then combine all the prn files into one(using
macro). Then sending the print command using shell_execute
Akhilesh,
Thank you for your response. Though that line is helpful, it is not
what I need. Maybe this simple example will help clarify:
Sub test()
For i = 0 To 10
Range("A1").Select
ActiveCell.FormulaR1C1 = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub
The way that this is curr
Maybe I got it wrong. But if I understand correctly, then you can use the
following code at the end of the loop ( when your data is being read to the
invoice).
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Hope you make your problem more clear if the above does not help.
Akhilesh Kumar Karn
Hi Karan,
If you're accessing the forums directly on web then you can't attach
the files with the message. But if you're accessing group via email
subscription then you can attach files as you does normally with your
e-mail client.
Regards
Ashish Jain
www.excelitems.com
Developer of OpenXL
---
Hi Karan.. you can upload the excel file in reply to this email please
regards,
Andy
On Sun, Apr 26, 2009 at 12:36 AM, karan wrote:
>
> Hi guys
> i m trying to make a macro but i m not able to get it
> can any1 help me in making a macro. I need a macro whcih gives me the
> foll :
>
> 1)the cel
You guys are awesome. Solved now, since you pointed out there is a
second syntax option for specifying a range.
Also, Paul. Thanks for that tip about the emails! I agree, as well.
I've learned most, if not all, of my VBA from here. I've been at it
for about a week so far. =) So,... experience awa
Dustin,
it looks like you've had several replies to your question.
I tested it, and it looks like Habeeb's answer works just fine
(except for needing a couple of spaces:
Worksheets("RAW").Range("A3:CE4900").Copy _
Destination:=Worksheets("ExecServices").Range("A" _
& iNextRow & ":CE" & iNextRow)
I
Just try this
Worksheets("RAW").Range("A4701:CE4900").Copy _
Destination:=Worksheets("ExecServices").Range("A" & iNextRow&":CE" &
iNextRow)
> Date: Thu, 23 Apr 2009 10:54:34 -0700
> Subject: $$Excel-Macros$$ Macro Help
> From: dustin.ho...@gmail.com
> To: excel-macros@googlegroups.com
>
Hi Dustin,
You have to use the 'Cells' thingy instaed of the 'Range' thingie. Then you can
use variables. But you have to use Column numbers, not Column letters, and you
have to put the Row first, then the Column, separated by a comma.
Example:
YourRow=5 'Row
YourCol=3'Column
Ce
29 matches
Mail list logo