Posts by kumarapush123

Re: Pulling information from different workbooks into a daily work report and emailin

Your Post states 2 tasks. #1. Send Mail and #2. Pull data from some Excel.

Please let us know, which part you are facing issues? Is the mailing part or pulling data from another Excel.

Also, It would be more helpful if you could upload the sample excel file that you have to figure out the issue.

Re: Using Outlook email message to create Excel Dashboard

I assume, you are trying to pull data from Outlook Email to Excel and create a report.

If I am correct, please read this article on how to import data from Outlook Email to Excel. Once this is done, you can proceed with creating report.

If you need help with generating report, please post again about the format of the report that you want to generate, so that someone could help you proceed with.

Hope this Helps.

Re: Screen Shot of Work Sheet

It was good know how people take print screen on those olden days. But still old is gold.

Here is one alternative quick method.

http://officetricks.com/print-…to-sheet-automate-in-vba/

The code in this topic automates the key strokes Alt Tab, Print Screen and Save as Image file to a specific path.

Re: screen shot command

There is another alternate method to take print screen and save it as an image file.

http://officetricks.com/print-…to-sheet-automate-in-vba/

The code in this topic automates the key strokes Alt Tab, Print Screen and Save as Image file to a specific path.

Re: Pasting Printscreen Pictures causes Errors

Try the option explained in this topic, which takes screen shot of windows behind excel and saves it in image file. The code automates key strokes Alt Tab, Print Screen and save to image file.

http://officetricks.com/print-…to-sheet-automate-in-vba/

Re: Macro to Download csv file from a dynamic date based url to a specified file loca

Try searching the forum..it has lot of similar topics..one similar topic..http://www.ozgrid.com/forum/showthread.php?t=90941

Re: Delete a row using rowNumber

What is the word "Source" that you have used in that line??? is it any object?

Try replacing that with "Thisworkbook" as

SEt ws = Thisworkbook.Sheets("StoreDate")

Hope this works. By the way, Thanks RoyUK for that hint.

Re: Delete a row using rowNumber

Excel itself will generate some code for you. How??? (1) Start recording a macro. (2) Do the manual operations. In your case, Choose Row 4, right click, delete. (3). Stop Macro
(4). Go to VBE and see the recorded code in Module1. More info on recording macro is in this page <Page link>

Re: Delete a row using rowNumber

Hope this works for you.,

Sub Del_Row(iRow As Integer)
    Rows(iRow).Select
    Selection.Delete Shift:=xlUp
End Sub

Re: Filtering Month &amp; Year Excel VBA

Please post the query in correct format to get response or please post a sample excel document.

Further please eloborate a bit on what is the problem statement and what you want to correct?

Important note: Please post your code within

.

Re: Copy files from one folder to another folder depending on file names

Assuming that all the files are in the format "File_[Column_C]_11202013.pdf", this code would work for your scenario. But if the file format is different, then logic has to be modified.

'
'Copy File from Source Path to Destination
'
Sub Copy_To_Dest()
For i = 2 To 8
    File_Name = "File_" & Sheets("Sheet1").Cells(i, 3) & "_11202013.pdf" 




    Src_File = Sheets("Sheet1").Cells(i, 4) & File_Name
    Dest_File = Sheets("Sheet1").Cells(i, 5) & File_Name




    If VBA.Dir (Src_File) <> "" Then
	VBA.FileCopy Src_File, Dest_File
    End If
Next i
End Sub

Re: Copy files from one folder to another folder depending on file names

Looks interesting and complex. Please provide a sample that matches your explanation, to try for a solution.

Re: Copy files from one folder to another folder depending on file names

Haven't Tested this yet. Please post if this doesn't work.

Sub Copy_To_Dest()
For i = 2 To 8
    Src_File = Sheets("Sheet1").Cells(i, 4) & Sheets("Sheet1").Cells(i, 6)
    Dest_File = Sheets("Sheet1").Cells(i, 5) & Sheets("Sheet1").Cells(i, 6)
    VBA.FileCopy Src_File, Dest_File
Next i
End Sub

You did not mention whether the Destination folder exists or not? If it does not exist, then use the function mentioned in this page <PageLink>.

Re: How to Delete rows with specific criteria using an excel macro

To Apply it to a column use Target.Column instead of Target.Address. To Rename Sheet use.

Sheets(1).Copy After:=Sheets(Sheets.Count)
 Sheets(Sheets.Count).Name = "Sample"

To copy cells, either you can try recording a macro to copy and edit it based on your need or use this line.

ThisWorkbook.Sheets("Sample").cells(1,1)  = ThisWorkbook.Sheets("Sheet1").cells(1,1)

This copies Cell A1 from Sheet1 to Cell A1 of Sample

Re: Input in cell triggers macro to create a duplicate from a template sheet and rena

Create new empty excel workbook. Press Alt+F11. Copy paste this code and try executing it by pressing F5.

Sub Testing_Sheet_Copy()
       Sheets("Sheet1").Copy After:=Sheets(Sheets.Count) 
End Sub

If you dont have any sheet with the name 'Sheet1', replace the text "Sheet1" with any of the sheet name.
If you execute this code, it will create a Copy of Sheet1.

So, using this line you can create a copy of any sheet in same workbook.

Re: Copy cell values only from multiple sheets

Please search on different methods to refer a Worksheet or Cell, so that you could get more options to use in your loop.

Link1: Different Methods to Read Sheet.
[URL="http://www.google.co.in/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&ved=0CCoQFjAA&url=http%3A%2F%2Fmsdn.microsoft.com%2Fen-us%2Flibrary%2Foffice%2Faa224506(v%3Doffice.11).aspx&ei=Y_ffUtCqLPCQiQfetIGoDw&usg=AFQjCNHWdBT9ypi5FaIJu0dNAr2-fcAbWA&sig2=lMaS8opI8tkYRQw66K3uEw&bvm=bv.59568121,d.dGI"]Link2: MSDN[/URL]
Don't restrict to only these 2 links. There is plenty of more articles too, which would help your purpose.

Re: Input in cell triggers macro to create a duplicate from a template sheet and rena

There are 2 sub tasks in your problem statement.
1. Need to copy the template sheet. For this below line will do the process.
Sheets("TemplateSheetName").Copy After:=Sheets(Sheets.Count)

2. Task 1 has to be performed when you enter student name in a cell. To trigger a code based on input in a specific cell, click this link and read this ARTICLE. Hope this helps.

Re: How to Delete rows with specific criteria using an excel macro

After ActiveWorkBook.RefreshAll and before End Sub, just add the line
Del_Row_Scenario

If this also, didnt work, please upload a sample excel. So that anyone could help you with a solution.

-
Kumar
OfficeTricks

Re: Copy cell values only from multiple sheets

If the sheets are arranged in order and if you want data from the first 30 sheets, just include a counter and exit the loop when count reaches 30.

Sub MakeSummaryTable()
    Dim ws As Worksheet
    Dim counter As Integer
    
    Application.ScreenUpdating = False
    Sheets("Sheet1").Activate
    
    counter = 0
    For Each ws In Worksheets
        counter = counter + 1
        If counter > 30 Then GoTo exit_Loop:
        If ws.Name <> "Sheet1" Then
            ws.Range("C2").Copy
            ActiveSheet.Paste Range("A65536").End(xlUp).Offset(1, 0)
            ws.Range("H3").Copy
            ActiveSheet.Paste Range("B65536").End(xlUp).Offset(1, 0)
        End If
    Next ws
    
exit_Loop:
Application.ScreenUpdating = True
End Sub

Re: Need help copying Hyperlink to Plain text cells

The Problem statement is not clear. Please post a sample excel document to provide solution.
If you are just trying to merge 2 cell values into another cell, for example D2 + F2 into G2. then just use this formula in cell G2. =D2 + F2