Macro to Query Select Fields

G

Grepees

Board Regular
Joined
Apr 15, 2009
Messages
81
• I have an Excel Sheet with Fields from A to Z
• I need to create a report which will be a selection of some of the Fields. This may change from moonth to month depending on what i'd like to show
• I am looking for a Macro that can to the following;
♦ Select a list of fields in a sheet eg. A, D, F, L, S T, O
♣ Export those fields into a new sheet
◘ Save the new sheet at a designated location ( i will provide the path and File name) eg. June Month end Report

Any help on this would be very much approciated. Thank you very much in advance you good people out there.
 

Excel Facts

When did Power Query debut in Excel?
Although it was an add-in in Excel 2010 & Excel 2013, Power Query became a part of Excel in 2016, in Data, Get & Transform Data.
Sort by date Sort by votes
Grepees said:
• I have an Excel Sheet with Fields from A to Z
• I need to create a report which will be a selection of some of the Fields. This may change from moonth to month depending on what i'd like to show
• I am looking for a Macro that can to the following;
♦ Select a list of fields in a sheet eg. A, D, F, L, S T, O
♣ Export those fields into a new sheet
◘ Save the new sheet at a designated location ( i will provide the path and File name) eg. June Month end Report

Any help on this would be very much approciated. Thank you very much in advance you good people out there.
Click to expand...
When you say 'fields' do you mean columns?

Are you competent in taking VBA code and using the VBA Editor?
 
Upvote 0
Give this a go.

As it is at the moment :
Select the sheet containing the data that you want to copy.
Run the code.
It will ask you for the folder and workbook name in a dialog box.
It will create a new workbook by this name.
It will ask you to select column / multiple columns until you select Cancel.
(Select the column / columns using the column letter.)
It will create a new workbook with one sheet named Report.
It will copy the select columns to this sheet.
It will save and close the workbook.
It will confirm how many columns have been copied.

VBA Code: 
Public Sub subReports()
Dim rngColumn As Range
Dim rngUnion As Range
Dim rng As Range
Dim intColumn As Integer
Dim intCount As Integer
Dim WbSource As Workbook
Dim WbTarget As Workbook
Dim WsSource As Worksheet
Dim WsTarget As Worksheet
Dim strFileName ' As String
Dim intSave As Integer

  ActiveWorkbook.Save
  
  intSave = Application.SheetsInNewWorkbook
  Application.SheetsInNewWorkbook = 1

  Set WbSource = ActiveWorkbook
  
  strFileName = Application.GetSaveAsFilename("Dummy.xlsx", _
    "Excel files,*.xlsx", 1, "Select your folder and filename")

  If strFileName = False Then
    Application.SheetsInNewWorkbook = intSave
    Exit Sub
  End If
  
  Workbooks.Add
  
  ActiveWorkbook.SaveAs strFileName
  
  Application.SheetsInNewWorkbook = intSave
  
  Set WbTarget = ActiveWorkbook
  
  WbSource.Activate
  
  Set WsSource = ActiveSheet  ' WbSource.Sheets("TestWorksheet")

  WsSource.Activate
  
  Set WsTarget = WbTarget.Sheets(1)
  
  WsTarget.Name = "Report"

  Do While True
  
    On Error Resume Next
    Set rngColumn = Nothing
    Set rngColumn = Application.InputBox("Pick Column", , , , , , , 8)
    On Error GoTo 0
    
    If Not rngColumn Is Nothing Then
    
      intCount = intCount + rngColumn.Columns.Count
    
      If Not rngUnion Is Nothing Then
        Set rngUnion = Union(rngUnion, rngColumn)
      Else
        Set rngUnion = rngColumn
      End If

    Else
      
      Exit Do
      
    End If
  
  Loop
  
  If Not rngUnion Is Nothing Then
  
    WsTarget.Cells.Clear
    
    intColumn = 1
    For Each rng In rngUnion.Areas
      rng.EntireColumn.Copy Destination:=WsTarget.Columns(intColumn)
      Application.CutCopyMode = False
      intColumn = intColumn + rng.Columns.Count
    Next rng

  End If
  
  WbSource.Activate
  
  WsSource.Range("A1").Select
  
  With WbTarget
    .Save
    .Close
  End With
  
  MsgBox intColumn - 1 & " Columns copied.", vbOKOnly, "Confirmation"

End Sub
 
Upvote 0
HighAndWilder said:
Give this a go.

As it is at the moment :
Select the sheet containing the data that you want to copy.
Run the code.
It will ask you for the folder and workbook name in a dialog box.
It will create a new workbook by this name.
It will ask you to select column / multiple columns until you select Cancel.
(Select the column / columns using the column letter.)
It will create a new workbook with one sheet named Report.
It will copy the select columns to this sheet.
It will save and close the workbook.
It will confirm how many columns have been copied.

VBA Code: 
Public Sub subReports()
Dim rngColumn As Range
Dim rngUnion As Range
Dim rng As Range
Dim intColumn As Integer
Dim intCount As Integer
Dim WbSource As Workbook
Dim WbTarget As Workbook
Dim WsSource As Worksheet
Dim WsTarget As Worksheet
Dim strFileName ' As String
Dim intSave As Integer

  ActiveWorkbook.Save
 
  intSave = Application.SheetsInNewWorkbook
  Application.SheetsInNewWorkbook = 1

  Set WbSource = ActiveWorkbook
 
  strFileName = Application.GetSaveAsFilename("Dummy.xlsx", _
    "Excel files,*.xlsx", 1, "Select your folder and filename")

  If strFileName = False Then
    Application.SheetsInNewWorkbook = intSave
    Exit Sub
  End If
 
  Workbooks.Add
 
  ActiveWorkbook.SaveAs strFileName
 
  Application.SheetsInNewWorkbook = intSave
 
  Set WbTarget = ActiveWorkbook
 
  WbSource.Activate
 
  Set WsSource = ActiveSheet  ' WbSource.Sheets("TestWorksheet")

  WsSource.Activate
 
  Set WsTarget = WbTarget.Sheets(1)
 
  WsTarget.Name = "Report"

  Do While True
 
    On Error Resume Next
    Set rngColumn = Nothing
    Set rngColumn = Application.InputBox("Pick Column", , , , , , , 8)
    On Error GoTo 0
   
    If Not rngColumn Is Nothing Then
   
      intCount = intCount + rngColumn.Columns.Count
   
      If Not rngUnion Is Nothing Then
        Set rngUnion = Union(rngUnion, rngColumn)
      Else
        Set rngUnion = rngColumn
      End If

    Else
     
      Exit Do
     
    End If
 
  Loop
 
  If Not rngUnion Is Nothing Then
 
    WsTarget.Cells.Clear
   
    intColumn = 1
    For Each rng In rngUnion.Areas
      rng.EntireColumn.Copy Destination:=WsTarget.Columns(intColumn)
      Application.CutCopyMode = False
      intColumn = intColumn + rng.Columns.Count
    Next rng

  End If
 
  WbSource.Activate
 
  WsSource.Range("A1").Select
 
  With WbTarget
    .Save
    .Close
  End With
 
  MsgBox intColumn - 1 & " Columns copied.", vbOKOnly, "Confirmation"

End Sub
Click to expand...

Good morning,

Thank you very very much. I folllowed the steps till i got to where i have to pick the columns. When i enter the columns and click "ok" or "cancel", i get the message -1 columns copied and when i open the file, it is blank. Thanks.

1720357756847.png

1720357803666.png
 
Upvote 0
HighAndWilder said:
Give this a go.

As it is at the moment :
Select the sheet containing the data that you want to copy.
Run the code.
It will ask you for the folder and workbook name in a dialog box.
It will create a new workbook by this name.
It will ask you to select column / multiple columns until you select Cancel.
(Select the column / columns using the column letter.)
It will create a new workbook with one sheet named Report.
It will copy the select columns to this sheet.
It will save and close the workbook.
It will confirm how many columns have been copied.

VBA Code: 
Public Sub subReports()
Dim rngColumn As Range
Dim rngUnion As Range
Dim rng As Range
Dim intColumn As Integer
Dim intCount As Integer
Dim WbSource As Workbook
Dim WbTarget As Workbook
Dim WsSource As Worksheet
Dim WsTarget As Worksheet
Dim strFileName ' As String
Dim intSave As Integer

  ActiveWorkbook.Save
 
  intSave = Application.SheetsInNewWorkbook
  Application.SheetsInNewWorkbook = 1

  Set WbSource = ActiveWorkbook
 
  strFileName = Application.GetSaveAsFilename("Dummy.xlsx", _
    "Excel files,*.xlsx", 1, "Select your folder and filename")

  If strFileName = False Then
    Application.SheetsInNewWorkbook = intSave
    Exit Sub
  End If
 
  Workbooks.Add
 
  ActiveWorkbook.SaveAs strFileName
 
  Application.SheetsInNewWorkbook = intSave
 
  Set WbTarget = ActiveWorkbook
 
  WbSource.Activate
 
  Set WsSource = ActiveSheet  ' WbSource.Sheets("TestWorksheet")

  WsSource.Activate
 
  Set WsTarget = WbTarget.Sheets(1)
 
  WsTarget.Name = "Report"

  Do While True
 
    On Error Resume Next
    Set rngColumn = Nothing
    Set rngColumn = Application.InputBox("Pick Column", , , , , , , 8)
    On Error GoTo 0
  
    If Not rngColumn Is Nothing Then
  
      intCount = intCount + rngColumn.Columns.Count
  
      If Not rngUnion Is Nothing Then
        Set rngUnion = Union(rngUnion, rngColumn)
      Else
        Set rngUnion = rngColumn
      End If

    Else
    
      Exit Do
    
    End If
 
  Loop
 
  If Not rngUnion Is Nothing Then
 
    WsTarget.Cells.Clear
  
    intColumn = 1
    For Each rng In rngUnion.Areas
      rng.EntireColumn.Copy Destination:=WsTarget.Columns(intColumn)
      Application.CutCopyMode = False
      intColumn = intColumn + rng.Columns.Count
    Next rng

  End If
 
  WbSource.Activate
 
  WsSource.Range("A1").Select
 
  With WbTarget
    .Save
    .Close
  End With
 
  MsgBox intColumn - 1 & " Columns copied.", vbOKOnly, "Confirmation"

End Sub
Click to expand...

I think i figued how it works. The columns need to be selected like this:

1720359278736.png

It is working now. Thank you very very much.
 
Upvote 0
HighAndWilder said:
Give this a go.

As it is at the moment :
Select the sheet containing the data that you want to copy.
Run the code.
It will ask you for the folder and workbook name in a dialog box.
It will create a new workbook by this name.
It will ask you to select column / multiple columns until you select Cancel.
(Select the column / columns using the column letter.)
It will create a new workbook with one sheet named Report.
It will copy the select columns to this sheet.
It will save and close the workbook.
It will confirm how many columns have been copied.

VBA Code: 
Public Sub subReports()
Dim rngColumn As Range
Dim rngUnion As Range
Dim rng As Range
Dim intColumn As Integer
Dim intCount As Integer
Dim WbSource As Workbook
Dim WbTarget As Workbook
Dim WsSource As Worksheet
Dim WsTarget As Worksheet
Dim strFileName ' As String
Dim intSave As Integer

  ActiveWorkbook.Save
 
  intSave = Application.SheetsInNewWorkbook
  Application.SheetsInNewWorkbook = 1

  Set WbSource = ActiveWorkbook
 
  strFileName = Application.GetSaveAsFilename("Dummy.xlsx", _
    "Excel files,*.xlsx", 1, "Select your folder and filename")

  If strFileName = False Then
    Application.SheetsInNewWorkbook = intSave
    Exit Sub
  End If
 
  Workbooks.Add
 
  ActiveWorkbook.SaveAs strFileName
 
  Application.SheetsInNewWorkbook = intSave
 
  Set WbTarget = ActiveWorkbook
 
  WbSource.Activate
 
  Set WsSource = ActiveSheet  ' WbSource.Sheets("TestWorksheet")

  WsSource.Activate
 
  Set WsTarget = WbTarget.Sheets(1)
 
  WsTarget.Name = "Report"

  Do While True
 
    On Error Resume Next
    Set rngColumn = Nothing
    Set rngColumn = Application.InputBox("Pick Column", , , , , , , 8)
    On Error GoTo 0
   
    If Not rngColumn Is Nothing Then
   
      intCount = intCount + rngColumn.Columns.Count
   
      If Not rngUnion Is Nothing Then
        Set rngUnion = Union(rngUnion, rngColumn)
      Else
        Set rngUnion = rngColumn
      End If

    Else
     
      Exit Do
     
    End If
 
  Loop
 
  If Not rngUnion Is Nothing Then
 
    WsTarget.Cells.Clear
   
    intColumn = 1
    For Each rng In rngUnion.Areas
      rng.EntireColumn.Copy Destination:=WsTarget.Columns(intColumn)
      Application.CutCopyMode = False
      intColumn = intColumn + rng.Columns.Count
    Next rng

  End If
 
  WbSource.Activate
 
  WsSource.Range("A1").Select
 
  With WbTarget
    .Save
    .Close
  End With
 
  MsgBox intColumn - 1 & " Columns copied.", vbOKOnly, "Confirmation"

End Sub
Click to expand...
I have one more follow up question with this. When it saves the new file, the new file references links to the master file and the data somehow changes to zero. Can we add something that delinks or breaks the links so that the new file does not have any links pointing to the master file. What is hapenning is that the summary page from which i am creating another report from has formulas that reference other sheets in the master workbook and that is what is causing that.
 
Upvote 0
Grepees said:
I have one more follow up question with this. When it saves the new file, the new file references links to the master file and the data somehow changes to zero. Can we add something that delinks or breaks the links so that the new file does not have any links pointing to the master file. What is hapenning is that the summary page from which i am creating another report from has formulas that reference other sheets in the master workbook and that is what is causing that.
Click to expand...
I have amended the code to just copy the values. Please test this on your data and let me know.

I have also changed it so that if you select an existing workbook as the report, it will delete it and create a new workbook by the same name.

How do you want the report worksheet formatted?
I can add some code to do this.

Replace your existing code with that below.

VBA Code: 
Public Sub subReports()
Dim rngColumn As Range
Dim rngUnion As Range
Dim rng As Range
Dim intColumn As Integer
Dim intCount As Integer
Dim WbSource As Workbook
Dim WbTarget As Workbook
Dim WsSource As Worksheet
Dim WsTarget As Worksheet
Dim strFileName ' As String
Dim intSave As Integer

On Error GoTo Err_Handler

  ActiveWorkbook.Save
  
  intSave = Application.SheetsInNewWorkbook
  Application.SheetsInNewWorkbook = 1

  Set WbSource = ActiveWorkbook
  
  strFileName = Application.GetSaveAsFilename("Dummy.xlsx", _
    "Excel files,*.xlsx", 1, "Select your folder and filename")

  If strFileName = False Then
    Application.SheetsInNewWorkbook = intSave
    Exit Sub
  End If
  
  If Dir(strFileName) <> "" Then
    On Error Resume Next
    Kill strFileName
    On Error GoTo 0
  End If
  
  Workbooks.Add
  
  ActiveWorkbook.SaveAs strFileName
  
  Application.SheetsInNewWorkbook = intSave
  
  Set WbTarget = ActiveWorkbook
  
  WbSource.Activate
  
  Set WsSource = ActiveSheet  ' WbSource.Sheets("TestWorksheet")

  WsSource.Activate
  
  Set WsTarget = WbTarget.Sheets(1)
  
  WsTarget.Name = "Report"

  Do While True
  
    On Error Resume Next
    Set rngColumn = Nothing
    Set rngColumn = Application.InputBox("Pick Column", , , , , , , 8)
    On Error GoTo 0
    
    If Not rngColumn Is Nothing Then
    
      intCount = intCount + rngColumn.Columns.Count
    
      If Not rngUnion Is Nothing Then
        Set rngUnion = Union(rngUnion, rngColumn)
      Else
        Set rngUnion = rngColumn
      End If

    Else
      
      Exit Do
      
    End If
  
  Loop
  
  If Not rngUnion Is Nothing Then
  
    WsTarget.Cells.Clear
    
    intColumn = 1
    For Each rng In rngUnion.Areas
      rng.EntireColumn.Copy
      WsTarget.Columns(intColumn).PasteSpecial xlPasteValuesAndNumberFormats
      Application.CutCopyMode = False
      intColumn = intColumn + rng.Columns.Count
    Next rng

  End If
  
  WbTarget.Activate
  
  With WbTarget
    .Sheets(1).Range("A1").Select
    .Save
    .Close
  End With
  
  WbSource.Activate
  
  WsSource.Range("A1").Select
  
  MsgBox intColumn - 1 & " Columns copied.", vbOKOnly, "Confirmation"
    
Exit_Handler:

  Exit Sub

Err_Handler:

  MsgBox "An error has occured.", vbOKOnly, "Warning"
    
  Resume Exit_Handler
  
End Sub
 
Upvote 0
HighAndWilder said:
I have amended the code to just copy the values. Please test this on your data and let me know.

I have also changed it so that if you select an existing workbook as the report, it will delete it and create a new workbook by the same name.

How do you want the report worksheet formatted?
I can add some code to do this.

Replace your existing code with that below.

VBA Code: 
Public Sub subReports()
Dim rngColumn As Range
Dim rngUnion As Range
Dim rng As Range
Dim intColumn As Integer
Dim intCount As Integer
Dim WbSource As Workbook
Dim WbTarget As Workbook
Dim WsSource As Worksheet
Dim WsTarget As Worksheet
Dim strFileName ' As String
Dim intSave As Integer

On Error GoTo Err_Handler

  ActiveWorkbook.Save
 
  intSave = Application.SheetsInNewWorkbook
  Application.SheetsInNewWorkbook = 1

  Set WbSource = ActiveWorkbook
 
  strFileName = Application.GetSaveAsFilename("Dummy.xlsx", _
    "Excel files,*.xlsx", 1, "Select your folder and filename")

  If strFileName = False Then
    Application.SheetsInNewWorkbook = intSave
    Exit Sub
  End If
 
  If Dir(strFileName) <> "" Then
    On Error Resume Next
    Kill strFileName
    On Error GoTo 0
  End If
 
  Workbooks.Add
 
  ActiveWorkbook.SaveAs strFileName
 
  Application.SheetsInNewWorkbook = intSave
 
  Set WbTarget = ActiveWorkbook
 
  WbSource.Activate
 
  Set WsSource = ActiveSheet  ' WbSource.Sheets("TestWorksheet")

  WsSource.Activate
 
  Set WsTarget = WbTarget.Sheets(1)
 
  WsTarget.Name = "Report"

  Do While True
 
    On Error Resume Next
    Set rngColumn = Nothing
    Set rngColumn = Application.InputBox("Pick Column", , , , , , , 8)
    On Error GoTo 0
   
    If Not rngColumn Is Nothing Then
   
      intCount = intCount + rngColumn.Columns.Count
   
      If Not rngUnion Is Nothing Then
        Set rngUnion = Union(rngUnion, rngColumn)
      Else
        Set rngUnion = rngColumn
      End If

    Else
     
      Exit Do
     
    End If
 
  Loop
 
  If Not rngUnion Is Nothing Then
 
    WsTarget.Cells.Clear
   
    intColumn = 1
    For Each rng In rngUnion.Areas
      rng.EntireColumn.Copy
      WsTarget.Columns(intColumn).PasteSpecial xlPasteValuesAndNumberFormats
      Application.CutCopyMode = False
      intColumn = intColumn + rng.Columns.Count
    Next rng

  End If
 
  WbTarget.Activate
 
  With WbTarget
    .Sheets(1).Range("A1").Select
    .Save
    .Close
  End With
 
  WbSource.Activate
 
  WsSource.Range("A1").Select
 
  MsgBox intColumn - 1 & " Columns copied.", vbOKOnly, "Confirmation"
   
Exit_Handler:

  Exit Sub

Err_Handler:

  MsgBox "An error has occured.", vbOKOnly, "Warning"
   
  Resume Exit_Handler
 
End Sub
Click to expand...

Thanks a Billion. Excellent question on how i want it to be formatted. Can it just copy the formats from the master file? That is what i can think of unless there is an option you want to recommend. Thanks.
 
Upvote 0
Grepees said:
Thanks a Billion. Excellent question on how i want it to be formatted. Can it just copy the formats from the master file? That is what i can think of unless there is an option you want to recommend. Thanks.
Click to expand...

The destination worksheet now takes on the source worksheet formatting.

Anything is possible so just let me know what you need.

Do you need a title bar?

Do you need column headings repeated on each page?

A few enhancements to the code.

Replace the existing code with this code.

VBA Code: 
Public Sub subReports()
Dim rngColumn As Range
Dim rngUnion As Range
Dim rng As Range
Dim intColumn As Integer
Dim intCount As Integer
Dim WbSource As Workbook
Dim WbTarget As Workbook
Dim WsSource As Worksheet
Dim WsTarget As Worksheet
Dim strFileName ' As String
Dim intSave As Integer
Dim i As Integer
Dim strMsg As String
Dim strPad As String
Dim strReportTitle As String

On Error GoTo Err_Handler

  ActiveWorkbook.Save
  
  If MsgBox("Copy data from this worksheet?", vbYesNo, "Check") = vbNo Then
    Exit Sub
  End If
  
  intSave = Application.SheetsInNewWorkbook
  Application.SheetsInNewWorkbook = 1

  Set WbSource = ActiveWorkbook
  
  strFileName = Application.GetSaveAsFilename("Dummy.xlsx", _
    "Excel files,*.xlsx", 1, "Select your folder and filename")

  If strFileName = False Then
    Application.SheetsInNewWorkbook = intSave
    Exit Sub
  End If
  
  Call subUnloadWorkbook(strFileName)
  
  WbSource.Activate
  
  If Dir(strFileName) <> "" Then
    On Error Resume Next
    Kill strFileName
    On Error GoTo Err_Handler
  End If
  
  Workbooks.Add
  
  ActiveWorkbook.SaveAs strFileName
  
  Application.SheetsInNewWorkbook = intSave
  
  Set WbTarget = ActiveWorkbook
  
  WbSource.Activate
  
  Set WsSource = ActiveSheet

  WsSource.Activate
  
  Set WsTarget = WbTarget.Sheets(1)
  
  WsTarget.Name = "Report"

  intColumn = 0
  
  Do While True
  
    On Error Resume Next
    Set rngColumn = Nothing
    Set rngColumn = Application.InputBox(strMsg, "Select columns.", , , , , , 8)
    On Error GoTo 0
    
    If Not rngColumn Is Nothing Then
    
      intCount = intCount + rngColumn.Columns.Count
      
      For i = 1 To rngColumn.Columns.Count
        intColumn = intColumn + 1
        If intColumn <= 9 Then
          strPad = " "
        Else
          strPad = ""
        End If
        strMsg = strMsg & vbCrLf & strPad & intColumn & " " & rngColumn.Cells(1, i)
      Next i
    
      If Not rngUnion Is Nothing Then
        Set rngUnion = Union(rngUnion, rngColumn)
      Else
        Set rngUnion = rngColumn
      End If

    Else
      
      Exit Do
      
    End If
  
  Loop
  
  WsTarget.Activate
  
  If Not rngUnion Is Nothing Then
  
    WsTarget.Cells.Clear
    
    intColumn = 1
    For Each rng In rngUnion.Areas
      
      rng.EntireColumn.Copy
      
      WsTarget.Cells(1, intColumn).Select
      
      Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
            
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      
      Application.CutCopyMode = False
      
      intColumn = intColumn + rng.Columns.Count
    
    Next rng

  End If
  
  WbTarget.Activate
    
  With WbTarget
    .Sheets(1).Range("A1").Select
    .Save
    .Close
  End With
  
  WbSource.Activate
  
  WsSource.Range("A1").Select
  
  If intColumn = 0 Then
    MsgBox "No columns have been copied.", vbOKOnly, "Confirmation"
  Else
    MsgBox intColumn - 1 & " Columns copied." & vbCrLf & strMsg, vbOKOnly, "Confirmation"
  End If
  
Exit_Handler:

  Exit Sub

Err_Handler:

  MsgBox "An error has occured.", vbOKOnly, "Warning"
    
  Resume Exit_Handler
  
End Sub

Public Sub subUnloadWorkbook(ByVal strWorkbook As String)
Dim Wb As Workbook

  For Each Wb In Application.Workbooks
    If strWorkbook = Wb.FullName Then
      Wb.Close True
      Exit For
    End If
  Next Wb

End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

R
  • Question Question
VBA for Cut, move, paste, delete rows
Replies
6
Views
305
RForster6
R
M
  • Solved
VBA Help - Duplicate & Unwanted Data Removal
Replies
6
Views
983
MoonDancer
M
L
  • Question Question
I'm crashing Excel with AutoFilter.Apply
Replies
1
Views
234
Anthony47
A
J
  • Solved
VBA/Macro: Adding Pivot table with connection string
Replies
1
Views
273
Jette3173
J
M
  • Solved
Please help with excel
Replies
1
Views
165
mosteanuv
M

Forum statistics

Threads
1,224,823
Messages
6,181,181
Members
453,022
Latest member
Mohamed Magdi Tawfiq Emam

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top