.value

Hi guys, i would like to know how to add the transpose option to that part of code Thx! Set DestSh = ActiveWorkbook.Worksheets.Add Last = LastCol(DestSh) Set Copy1 = sh.Range("C10:AZ10") With Copy1 DestSh.Cells(1, Last...

A different number is inputed in cell cd31 every day. Today's number in cd31 is 401 Then I want CD35 to be 402 Then I want CD40 to be 403 Then I want CD44 to be 404 Then I want CD49 to be 405 until last cell: CD926 = 600 Need a macro to increase by 1 every 4th then 5th then 4th then 5th cell...

Using Excel on MAC (Latest) My program worked fine a few days ago. I haven't done anything but now the start up macro fails. The error is:- Run Time Error '6' Overflow This is the code Sub MG01Apr57() Private Sub Workbook_Open() Dim Ans As String Ans = MsgBox("Update the Invoice Number"...

Hi I have formula that works in excel but doesn't work in vba. Formula: =A2 & " - " &D2 VBA: With .Range("AC2:AC" & lr) .Formula = "=A2 & " - " &D2" .Value = .Value End With It gives me error - Run Time Error, Type Mismatch Please help how to fix Regards Bill

Hey community, i use following formula to convert time to numbers. Sub Convert() With Worksheets("DATA").Columns(10) .NumberFormat = "0" .Value = .Value End With End Sub But for some reason it is working wrong, instead of converting it replace most of cells with column name. ( column name...

I use following formula to convert Time to numbers, but for some reason VBA converting some cells to column name ( column name is HOUR ) Can anyone tell me what is problem? Sub Convert() With Worksheets("DATA").Columns(10) .NumberFormat = "0" .Value = .Value End With End Sub

I have the following code that won't work. Ideally, I would like for any cell in column Q in the chart to toggle values from "" to "P" upon selection. Also I need Range("L5") to toggle 5 different values upon selection Please see code below. Private Sub Worksheet_SelectionChange(ByVal Target...

Hi folks, long time since I came to this board for help and many thanks to all those who have helped me in past years. I'm trying to improve my code so that instead of actually selecting a range and then pasting as values I am trying to use the following code Sheet1.Range("B2:F" &...

Hello, I have the below code which is on Sheet “Data” View Code andwhen it runs it takes approx. 2mins to run through 560 Rows. E.g. ‘Calculating (4 Threads): 27%’ When it runs its like it changes all cells in that column toone of the options then updates. Its working with what I’m trying to...

Hey community, i use following VBA Sub BonaquaASM1()Application.ScreenUpdating = False Dim Markets As Worksheet, lr As Long lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row Set Markets = Sheets("sheet4") Sheets("DATA").Range("A1:A" & lr).Name = "run"...

hi, I want sum of f2:h2 with the following formula, if i remove .value=.value , formula works fine but with .value=.value only summing f2:g2 Please help. With Range("d2").Formula = "=Sum(f2:h2)" .Value = .Value End With Thanks

Hi, I currently have a macro which is copying data from a form and pasting it into a log in a different workbook. The form is pulling data from an external database and thus takes a long time to refresh and my macro is looping this 262 times! At the moment it's taking circa 40 minutes to...

Hello, Hoping someone can help me with he below. I have onemore I’m trying to add in, but I have no clue on how to do it. Last FreeDay Sheets(1) “Data” Column B:B = (Date Value) I Need toget a date value based on multiple criteria and sum 1st- Match Sheets(1) “Data” Column AZ...

Hello, I have the below code and I want to add more to theworksheet change code. Current Code I have Private Sub Worksheet_SelectionChange(ByVal Target AsRange) 'my formula on worksheet =INDEX('WharfSchedules'!B:B,MATCH(Data!AO59&Data!AQ59,'Wharf Schedules'!C:C&'WharfSchedules'!E:E,0))...

Hello, I'm trying to convert a work sheet formula to VBA. I enter a new job in a user form, when I hit continue and info transfers to "Data" sheet I want code to run and update. Sub Vessel_Details_WorksheetChange() 'my formula on worksheet =INDEX('Wharf...

Hey Dear community, I am using VBA+ formulas to analyz sales data ( about 1000,000rows ) it takes 7-8 minutes for calculation, i wanna know if there any other way to make it faster? because i need to calculate this report daily. I use following VBA for 80-90 different ranges on that report...

Hi guys, Macro basic level user here. I have created a macro but I need some help to get it a bit slicker as I have bolted it together like lego. I would also like the macro to repeat by looking at a list as opposed to me running it 200+ times. Current code: Sub NEXTINLIST() Dim v...

I need to store the results of my for each If statement in the results worksheet of the active workbook. My loop works but I need to be able to store the results in column a and c from the results worksheet This is the code for the loop For Each cel In Range("A4:A85")...

Thanks Dante Amor for your assistance with the rows query. This is a separate query regarding deleting columns once criteria is met, then stopping at a point. I have a variable named value "MAX" which can be between 1 & 12. 1 to 12 is numbered in 'E3' to 'P3' of the worksheet, 'A3' to 'D3'...

Hello all, I am trying to write VBA to do a specific task, and I am almost there. I simply need a little bit of help to figure out how to do the remaining actions. Here is what I am trying to do with this code: 1) For rows 11 to 185, search range L11:DK185 for the cell value "X" 2) If "X" is...