end

Hello, I have a code that will activate in a set range where the words "complete" are changed. I would like the active cell to select that row, however only from columns B:AB. All i have found is how to select the entire row. Private Sub Worksheet_Change(ByVal Target As Range)If...

I have a number of functions that reference sheets which are only used for lookup, a typical example of this code is; Public Function HaeLaitteet(BoxAr, prdFam) Application.ScreenUpdating = False On Error Resume Next srcSheet = ActiveSheet.Name 'Sheets("My_Sheet_Name").Select For j = 2 To...

I have a table layout as below, it used to work with the code below until I inserted the column under “M” then replaced all 12 with the 13 you see in the code. For i = 2 To 13 And rCell.Offset(, 13).Value = Rnk & GetOrdinalSuffixForRank(Rnk) I was thinking that will fix...

I would like to add a pop-up Message box that happens in this code after the DoCmd.RunCommand acCmdSaveRecord. "Do you want to return to the TSL?" If Yes then then DoCmd.OpenForm "frm_NIS_TSL", acNormal, "", "", , acNormal If No then the DoCmd.GoToRecord , "", acNewRec command Any help is...

Hi I have the below code to copy rows with data from one workbook to another ignoring the first two rows as these are header rows however it is only copying column 1. Where am I going wrong? Sub Export_data() Dim ws As Worksheet, wb As Worksheet Set ws = Sheets("Triage") Set wb =...

Hello, I use the below code to transfer rows from the "LOG" Tab to the "RTN HISTORY" tab when "SCRAP", or "RELEASED" in Col Z is selected from the drop down. My question is how would I have it transfer back to the LOG tab if "HOLD" is selected from the dropdown? Thanks for all...

Hi there, I have a diagram where I've created over a 100 arrows. However I am trying to reverse the arrow heads from flat to triangle and vice versa but my code doesn't seem to be working. The code doesn't recognise the line/connector type so that I can reverse it. any ideas? Sub...

Hi, I've been creating a macro to filter on column N in the Raw Data tab and then copy and paste columns A-J into the Report Log at the bottom. It works, except theres currently one result with Check in Column N but it is copy and pasting this in twice. Any idea why? Sub...

Hi, I have a userform which has Comboboxes for which i select an item from the drop down list. Once all the boxes are complete i then click my transfer button to entere it on my worksheet. This is the code on my transfer button. Private Sub CommandButton1_Click() Dim i As Integer Dim...

Afternoon, Working code in use shown below. Currently this code operates the whole of column B where i would like it to stop at the last row. So currently my last row with data in is row 19 BUT then i also see the message if i type in row 369 where at present its empty. Basically find last row...

I have a workbook that will convert multiple word documents at once into PDF format. I am combining two macros I found on the web to try and get them to open a word doc, place a watermark on the doc, and then export it as a PDF. It will do this once for each file in a folder that I specify in...

I have some vba code that copies rows from a table to another table on another sheet. The headers for columns D, F and G on the destination table keep being replaced with column1, column 2 and column 3, instead of being left the as they are. I can't see where it is doing it in the code. Could...

Hello all, I have a For Each statement piece of code that adds a value to a column at the end of my report. My current code is processing 30k rows in excel and runs in 40 seconds. I was hoping someone may see a better way to write the code I have in a more efficient way to speed up the run...

Private Sub Form_BeforeUpdate(Cancel As Integer) Dim strMissingInfo As String Dim strMsg As String If IsNull(Me.[Debarred]) Then Cancel = True strMissingInfo = strMissingInfo & "Debarred" End If If IsNull(Me.[Restricted]) Then Cancel = True...

Private Sub Command228_Click() 'Save On Error GoTo Command228_Click_Err On Error Resume Next DoCmd.RunCommand acCmdSaveRecord If (MacroError <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" End If Command228_Click_Exit: Exit Sub...

I have the following table for which I would like to create groups of consecutive weeks by min and max values. <caption>Automatics</caption><thead> AREA Code Week </thead><tbody> 330 1 330 2 330 3 330 4 330 33 330 34 330 35 330 36 330 37 330 38 330 39 330 40 330 41...

I have a macro that I would like to run externally using a bat file. I would have done this using vbs but with the company policy it doesnt work. Here is my code below. I want the code to be run externally because in the coming months, I wont be the one to run the code and I would like to make...

Hello - I have the following macro and it is hanging up with a "next without for" compile error. I don't see what is wrong with it? Could someone please help me? It is hanging up on the line 'Next mycell". Public Sub ProjNumbrReq() 'Call ProjNumbrReq Dim myCell As Range With...

Hello, I have this code that filters data by the selection in cell 8 (data variation). Can I please have your help to modify ByVal Target As Range to ByVal Target As Object so it filters by the selection made in combobox1? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address...

Running a very basic test code to try out on a large amount of data, but having trouble, getting the "1004" error. Sub HugeSort() Dim c As Integer 'LOOPS THROUGH ALL ROWS For c = 2 To 10 If IsEmpty(ActiveSheet.Cells(c, 1)) = False Then ActiveSheet.Cells(c, 2) =...