vba excel 2013

hi, how can I add column 1,2,3 here instead of column 3 only? I want to compare three column to get the unique value. str=ar(i, 3) Full Code Option Explicit Sub SumandRemove() Dim ar As Variant Dim i As Long Dim j As Long Dim n As Long Dim str As String n = 1...

New to VBA, using Excel 2013. I am trying to select a rage columns and rows to copy and paste and transpose into a new sheet. I have searched for anything close and have not been successful. I am including my raw data then a generic walkthrough of what I need the Macro to do. My issue is, I need...

Hi guys, --using Excel 2013 --VBA 7.1 --dutch language By clicking a button, I would like to paste a formula into a cell that either fills the cell based on the result of the formula, or leaves it empty. For that, I use: Sheets("DSS voorafgaand aan competitie").Select Worksheets("DSS...

The line which sets MyRange gives the error with the detail of "Object variable or With block variable not set." I'm hoping that there is simply a typo or something easy I'm missing. And any tips on a better way to do this sort (or if it will even work once I get past the error LOL) would be...

Hello y'all! I'm smacking my head down with something I'm pretty sure that's simple, but I couldn't find any proper solution for it I made a code that succesfully paste an excel table to word, this table has four strings with differents text formats an each cell, after pasting I'd like to...

Putting together a time-off request template with a "Submit" button (assigned macro that will confirm required data input, validate entries, calculate hours subtracting holidays/weekends, etc., email to supervisor, etc.) that is deleted after submission. I have hidden rows with supervisors...

Hello: I have a macro enabled worksheet that I would like to essentially "save as" multiple workbooks, with each file name based on a list of cell values. My file names are listed in column A of sheet 1, while my second worksheet (titled "Template") is what I would like to duplicate and "save...

Hi All, hope everyone had a good Christmas and NY. My problem is that I have a large workbook with multiple sheets. At times users need to add 'n' rows at 20+ locations within the work book (eg sheet 1 has 2 locations, sheet 2 1 location etc). This is time consuming and prone to error, as...

hi, thanks for letting me join this community. i am very curious about vba, but my knowlwdge is very little. 1. i´d like someone to explain me why instruction APPACTIVATE doesn't work on my excel2013. 2. is this or is this not an excel2013 instruction? 3. my goal is to activate excel no matter...

i want looping all workbook book1,book2,book3,book4 and workbook master.xlsm (total 5 workbook) in 5 workbook contain sheets : sheet1,sheet2,sheet3 sheet4 i want step 1...book1.sheet1.range(M & lastrow) copy to master.xlsm sheet1 range(K10) book1.sheet2.range(M & lastrow) copy to...

This VBA is designed to loop print until all records that I have identified have been printed. This was designed based on pulling one set of data over. I have now modified it so that 4 sets of data pull over. My question: After the first time the doc prints the cell labeled as "StartRow" instead...

Sub divide() Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet, lr1 As Long, lr2 As Long, rng1 As Range, rng2 As Range, c As Range Set sh1 = Sheets("a") Set sh2 = Sheets("b") Set sh3 = Sheets("Result") lr1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row lr2 = sh2.Cells(Rows.Count...

Hi, I have a calender on my userform for the user to select a date. Is there anyway to automatically have this date set to the current date when the user opens the userform? They may want to choose a different date to the current date but the majority of the time it will be the current date...

Hi, I keep getting a runtime error 9 - subscript out of range on this one line: Private Sub btnaddjob_Click() frmDefects.Show Dim B1 As Button B1 = ActiveSheet.Buttons("btnclose") B1.Font.ColorIndex = 15 B1.Enabled = False End Sub There is no misspelling of the name and I have a...

Hi, Does anyone know if it is possible to take a value from a range of cells in a worksheet then go to another worksheet, find that same value and then find the next empty row after that value and enter data from the userform. any help would be much appreciated..... MCE

Hi, Can someone tell me where im going worng in this line of code: Dim FindString As String FindString = Sheets(cmbmachine.Value).Range("A1:E1").Value

Hi, I have a workbook which contains a list of machinery on one sheet. Then there is a corresponding worksheet for each machine number to enter defects for that machine on. I also have a worksheet called "SUMMARY" which lists each machine that has defects awating repair. I want to develope...

I need to assign headers to a table according to the file name and location. I have attached the example spreadsheet in the link below. Sheet1 contains the table with the data and Sheet2 assigns the headers to each file and location. The code is skipping headers and I can not figure it out...

Hi, I have the below code which was working at work using Excel 2010. We have upgraded to Office 2013 and it no longer works Error: Compile Error. Cant find Project or Library It does highlight this : If Right(varFile, 4) = ".xls" Then Sub PropertyName_SAVEAS() Sheets("Menu").Select...