Posts by Rajat28

Hi,
This is a complex one.
I have an excel file containing supplier responses, names and codes.
Like any cases pending against you? Yes or No.

I want the data to be pasted in a word doc against specific headers. The word doc is of Terms and Conditions. For each supplier, the format of doc will be same. But the responses may differ. I want to populate the responses from excel sheet.
Can anyone help!

Thanks in advance.

Hi everyone,I wrote the following code. When I am running the code step by step, it is properly running. But when I am running it as a whole it is not giving me desired result.Please help.

Sub Refresh_Summary()
    Dim LastRow As Long
    Dim r As Long
    Dim Counter As Long

    ActiveWorkbook.RefreshAll
    Columns("D:D").Select
    Selection.Delete Shift:=xlToLeftRange
    ("D1").Select
    ActiveCell.FormulaR1C1 = "Financial Score"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-1]"
    Selection.CurrentRegion.Select
    Selection.CopySelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    LastRow = ActiveSheet.UsedRange.Rows.Count + _
              ActiveSheet.UsedRange.Rows(1).Row - 1
    For r = LastRow To 1 Step -1
        If Len(Range("A" & r)) = 0 Then
            ActiveSheet.Rows(r).Delete
            Counter = Counter + 1
        End If
    Next r
    Range("A1").Select
End Sub

Hi everyone,

I wrote the following code. I am running a query through power query. Selecting the data. Copying it as values. And then Selecting the blank cells and trying to delete the the entire row.

Bit I am getting the error on the last line of code. "Selection.EntireRow.delete"

Error - Delete method of Range has failed.

Following is the code:-

Sub delete()
Selection.CurrentRegion.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.delete
End Sub

Please help.

Hello folks. Need some help regarding the following.

I have a "Summary" worksheeet in my master workbook- "Supplier EWS - P&C" . I have multiple workbooks in a folder. Each workbook is of same format and has 3 sheets. I want to copy specific cells from my "Financial - Summary" worksheet of each workbook into my "Summary" sheet of master workbook.

I want B8 to get copied to A2, C8 to get copied to B2, I8 to get copied to C2, I12 to get copied to D2.

And this should be repeated for all the workbooks in folder. So, lets say for next workbook, B8 should get copied to A3, C8 should get copied to B3 and so on.

Please help.

I need to repeat this this exercise for approximately 1000 times. Thatsy looking for some VBA solution. Anyways I wrote the code and it worked.
Thanks for the help.

Hi,
I have a workbook containing multiple named sheets. I want to copy 3 of these sheets (predetermined) into a new workbook. The name of the workbook should be a reference cell in one of these worksheets. I have written the code for opening a new workbook. Can someone help me for copying these sheets? The sheets should be pasted as paste special.

Sub NewWb()
Dim Aname As String
Aname = ActiveWorkbook.Sheets("Financial - Summary").Range("C8").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\Users\rajat.shrivastava\Desktop\Database - Supplier EWS - P&C\Output Folder" & Aname
End Sub

Thanks in advance.

Thanks Carim. VBA worked for this.

Hi,

I have the following code. But its not saving the workbook with the pre-defined name that I want it to.

Sub NewWb()
Dim Aname As String
Aname = ActiveWorkbook.Sheets("Financial - Summary").Range("C8").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=("C:\Users\rajat.shrivastava\Desktop\Database - Supplier EWS - P&C\Output Folder\ Aname")
End Sub

I want the name of the workbook to be that cell value that I referred to. Instead it is saving it as Aname.

Please help.

Thanks a lot. It helped.

I have a folder consisting of financial statements of multiple companies in a standard template. I have a master template in a different workbook in which I copy data from 1 company, the ratios get calculated and financial analysis is done. I want to automate the process. I want that I should select the name of the company from drop down menu, and the values should automatically get extracted from that company file into my master template.
Any help would be great.

Thanks Alan.
I tried building the code by myself and it worked. Thanks a lot though

Rajat

I have a workbook containing 2 sheets. Sheet 1 has 3 columns - Name , Postal Code & Address. Sheet 2 has 2 columns - Name and Postal Code. I want to paste address from sheet 1 to sheet 2 if name and postal code in both the sheets meet. So it is basically a Vlookup if multiple criteria are met. I want to use VBA programming for it. I am new to VBA. Please help. Thanks in advance

Hello,

I want some help with VBA code.I have few workbooks and each workbook has multiple sheets. I want to move the data from the different workbooks into one master file. The files are in different location & all have the same headers.
I want to be able to copy the data & paste into the master sheet. Folders have multiple files. Also the header in each file is same. So I don't want the header to get copied.

Please help me out here.
Thank you for the help.