So, there can be more companies/adgroups like Sales Pvt ltd and Apparel Pvt ltd. Then there will be many columns hike G,H or each adgroup and then in column B and C only the Adgroup with highest % score for the new keyword and the corresponding score will be displayed. So, if this whole calculation and comparison of the scores for adgroups for each new keyword can be coded so that for each new keyword when entered in A it will show the highest scored adgroup and its score then it will be perfect solution for me.

In the attached file I have hidden the column  F to H as it should be coded in backend/made dynamic for the output needed to be generated in column B and C with repecct to each new keyword in column A.
29040844_mod.xlsm

Hi

I am a newby, however I am progressing with a treeview project. My latest problem is;

3061 Too few parameters. Expected 1

This comes up after stepping through the following;

    Dim rsReqs As DAO.Recordset
    Dim db As DAO.Database
    Dim strSQL As String
   
   
    strSQL = "SELECT dbo_BomHeaders.ID, dbo_BomHeaders.BomReference, dbo_BomHeaders.Description " _
    & "FROM dbo_BomHeaders " _
    & "WHERE (((dbo_BomHeaders.ID)=[Forms]![frm_Treeview_Example]![Combo0])); "
   
    'Debug.Print strSQL

    Set db = CurrentDb
    Set rsReqs = db.OpenRecordset(strSQL)   (3061 appears at this point)

The SQL string is copied from the query (criteria) which is the record source for the form on which the combo box resides. I have also implemented Alan Brownes 'Return to the same record next time form is opened' so that the combo box is populated on the form opening.

Deleteaftersubmit = True

Sir, Even after doing this.
Mail is seen in the deleted items folder.

In case, i want it to be deleted from DELETED ITEMS Folder as well.

Then, can we do it using VBA.

Hi Guys, within an Excel macro, I use the following code which filters Column 12 for a Range called "PrevDay" (which is a Cell which has the Previous Day's Date) but it does not work. What's wrong with the code?

Sheets("PL Star Accrual").Select


    Rows("26:26").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$26:$AZ$242").AutoFilter Field:=15, Criteria1:="0"

    ActiveSheet.Range("$A$26:$AZ$242").AutoFilter Field:=12, Criteria1:=Range("Prevday")

I've been trying to get the total from a column to a textbox, but I can't get the form to open when use the same code from my other worksheet.  schedules.xlsm

Good day,
I have an excel file at 407KB and around 2,000 rows. I'm trying to filter the information to copy it to a different sheet within the workbook. however, when I try I always get a prompt saying excel is out of memory. Also, when I copy the entire data without filters, it works fine. Is there any way to fix this?
I am running Office Pro 2016 64bit, 8GB RAM, Win 10. Thanks.

Hello,

I have a database (attached) that allows for the cost of bids to be calculated. Right now, the button Generate Work Items allows for new sheets to be created based off the amount of rows in the Work Item column in the summary sheet. These new sheets are based off of a template and are linked to the summary page as well as the rate sheet.

However, I now want to change the purpose of this Generate Work Items button to something different .. I now need the button to instead just create a new row in the summary table and a new worksheet for that new row. But still having that new worksheet linked to the summary table, template, and rates sheets as it is now in the macro. Also when the new row is created the total at the bottom of the table should also move down a row. And when the button is clicked to create a new worksheet it would be great if excel could take the user to the new sheet directly afterwards.

For the name of new sheet, it should be the Work Item number from column B in the summary sheet, but the user will not have input that yet when creating the new sheet.. (Right now the work item number in column B is connected to cell B3 on the template sheet that the new worksheets are based off of) Maybe when the user clicks the Generate Worksheets button a prompt could come up that asks the user for the work item number and then the sheet would be created and whatever the user entered as the work item would be the name of the sheet?

Thanks so much, please…

Word 2013; VBA. I have a series of macros that I would like to use on another computer. (All the macros are initiated by a form.)  All I need to do is initiate the form and I am off and running.

I cannot change the other computer's normal.dotm file. So I put the macros in another dotm file (I'll call it mydotm.dotm), which I can make available on the other computer.

On that other computer, I open mydotm.dotm. I can see my macros there. In another window, I open the document on which I wish to use the macros. But from there I cannot see (View/Macros) the macros that are in my mydotm.dotm file. All I get is a blank slate.

I'm stuck.

So I thought if I started with the mtdotm.dotm file active (and the other file open in another window), initiated the startup macro from there, had the macro first switch to the other document, then I could continue with the macro execution there.

As the first statement in the startup macro, I used      ActiveWindow.Next.Activate to switch to the other document. That blows up with an error 91 - "Object variable or With block variable not set" message.

Huh?

Am I taking the wrong approach, or is my switch document command wrong?

Can you point me in the right direction, please?

Thank you.

Hi -
I have an app that was written in 2022 in 32 bit. I need now to revisit it and migrate to 64 bit. I am getting the error:


can anyone help?
thanks in advance
joao

Tables are related 1 to many in a structure:
Parent Folder
       Sub-folder
             Files

Parent Folder holds the Main starting Folder Name
       Sub-Folder holds all of the names of the individual folders in this first layer
              Files holds all of the names of each file contained in each sub-folder.

Can this be done using VBA ?

Example Data:

Parent Folder:  2017-06-29
      Subfolders:  1, 2, 3, 4, 5, 6, 7, etc (always numerical)
            Files:  (In Subfolder 1: 01.pdf, 02.pdf, o3.pdf)

Or, do I just record the entire details of the structure and then break it out with an action query ?

Thanks,

Bill

I have a code that creates a code in a module, but when it does the VBA window flashes up while the code is running.
I have tried 'Application.screenupdating = false', and it does not work, I have also tried    'ThisWorkbook.VBProject.VBE.MainWindow.Visible = False' at the beginning and end of the code but the window still pops up for a short time. I would like to run the code without the vba window being visable at all.

this is the code:



Sub code
   
        Set vbp = Application.VBE.ActiveVBProject
    Set vbc = vbp.VBComponents.add(vbext_ct_StdModule)
    vbc.Name = "CreateButton"
    strCode = "Sub CreateButtons()" & vbNewLine & _
    "ActiveSheet.Buttons.Add(840, 10, 95, 25).Select " & vbNewLine & _
   " Selection.OnAction = ""ClaimsLog""" & vbNewLine & _
    "Selection.Characters.Text = ""Claims Log"" " & vbNewLine & _
  "  With Selection.Characters(Start:=1, Length:=35).Font " & vbNewLine & _
      "  .Size = 10" & vbNewLine & _
   " End With" & vbNewLine & _
 "ActiveSheet.Buttons.Add(840, 40, 95, 25).Select " & vbNewLine & _
   " Selection.OnAction = ""UNM23Report""" & vbNewLine & _
    "Selection.Characters.Text = ""UNM23 Report"" " & vbNewLine & _
  "  With Selection.Characters(Start:=1, Length:=35).Font " & vbNewLine & _
      "  .Size = 10" & vbNewLine & _
   " End With" & vbNewLine & _
 "ActiveSheet.Buttons.Add(840, 70, 95, 25).Select " & vbNewLine & _
   " Selection.OnAction = ""SPLEtool""" & vbNewLine & _
    …

Hi Experts. I was able to source this VBA code from a question answered but I need to modify it slightly. I have X number of workbooks with Y number of worksheets in each book. I have information that I would like to compile onto a single master data workbook. The code below is able to gather the data from the first sheet from all the selected workbooks. I need it to do the same for the remaining worksheets. Please help me with this request! Would really appreciate the help. :)

Sub MergeTest()

    Dim SummarySheet As Worksheet
    Dim FolderPath As String
    Dim SelectedFiles() As Variant
    Dim NRow As Long
    Dim FileName As String
    Dim NFile As Long
    Dim WorkBk As Workbook
    Dim SourceRange As Range
    Dim DestRange As Range
    Dim LastRow As Long

    ' Create a new workbook and set a variable to the first sheet.
    Set SummarySheet = Workbooks.Add(xlWBATWorksheet).Worksheets(1)

    ' Open the file dialog box and filter on Excel files, allowing multiple files
    ' to be selected.
    SelectedFiles = Application.GetOpenFilename(filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=True)

    ' NRow keeps track of where to insert new rows in the destination workbook.
    NRow = 1

    ' Loop through the list of returned file names
    For NFile = LBound(SelectedFiles) To UBound(SelectedFiles)
        ' Set FileName to be the current workbook file name to open.
        FileName = SelectedFiles(NFile)

        ' Open the …

Getting a Type Mismatch error in excel vba when trying to open a form.schedules.xlsm