excel-2010

i have 2 workbooks, workbook A and workbook B. Each workbook has a table. workbook A has 2 columns. All three columns are filled. product_id Machine_number and Workbook B has the same 2 columns but only one column, Product_id, is filled. The other 1 column is vacant. I need to match the cells of product_id of both workbooks. If the product_id found in workbook A matches workbook B, then the machine number of that product id should be copied from workbook A to workbook B. I have performed this using this code: Sub UpdateW2() Dim w1 As Worksheet, w2 As Worksheet Dim c As Range, FR As Long

I have criteria where I need to count if a column B is not blank. But I have a formula in Cell B, So if I do a simple =Countifs(B1:B10,"<>") This returns the count of the cells which have the formula but I just need the blanks when the formula does not populate anything. Try this formula [edited as per comments] To count populated cells but not "" use =COUNTIF(B:B,"*?") That counts text values, for numbers =COUNT(B:B) If you have text and numbers combine the two =COUNTIF(B:B,"*?")+COUNT(B:B) or with SUMPRODUCT - the opposite of my original suggestion =SUMPRODUCT((B:B<>"")*(B:B<>0)) 来源： https:/

My code is super slow (10+ min for each sheet) due to the quantity of data i have. I believe there may be a way to speed it up using arrays, but i am not sure how to go about it. I will try to explain the situation in detail. I have two worksheets with invoice#s, part#s and sale prices (among other info) that I am trying to compare to find differences. I've created a unique number for each line of data using a concatenation of the invoice# and the part# on both sheets. I've also sorted both sheets manually by that number. I'd like to find which of those unique#s are on sheet1 and not on sheet2

I am facing some difficulty in achieving the desired result for my macro . Intention : I have a list of data in sheets(input).column A (the number of rows that has value will vary and hence I created a loop that will run the macro until the activecell is blank). My macro starts from Range(A2) and stretches all the way down column A, it stops only when it hits a blank row Desired result for the macro will be to start copying the cell value in sheet(input).Range(A2) paste it to sheet(mywork).Range(B2:B6) . For example, if "Peter" was the value in cell sheet(input),range(A2) then when the marco

So i'm making a macro to do a bunch of things. one thing is find duplicates of cells in sheet1 from sheet2. given columnA in sheet 1, do any values in columnB on sheet2 match any of the values in columna sheet1. I know theres a remove duplicates, but I just want to mark them, not remove. I was thinking something with the filtering. I know when you filter you can select multiple criteria, so if u have a column with 20 different values in it, you can select 5 values in the filter and it will show rows with those 5 values for the particular column. So i recorded a macro of that, and checked out

I'm trying to define my own data type and put it in a Dictionary as a value. VBA complains that it does not accept my data type. Any ideas about how to get this working? Option Explicit Public Type Translation german As String french As String italian As String End Type Private resource As Object Public Sub addTranslation(key As String, g As String, f As String, i As String) Dim trx As Translation trx.german = g trx.french = f trx.italian = i resource.add key, trx '<== here VBA is complaining End Sub Public Sub initResource() If resource Is Nothing Then Set resource = CreateObject("scripting

I'm building a python script that will allow me to open a Excel 2010 worksheet and print it out. I got most of the way import win32com.client office = win32com.client.Dispatch("Excel.Application") wb = office.Workbooks.Open(r"path\to\excel\file\to\print.xlsm") count = wb.Sheets.Count for i in range(count): ws = wb.Worksheets[i] pivotCount = ws.PivotTables().Count for j in range(1, pivotCount+1): #TODO code to refresh each pivot table ws.PrintOut() print "Worksheet: %s - has been sent to the printer" % (ws.Name) As you can see I'm still missing the refreshing of the pivot tables in the