update - copy paste with multiple criteria

D

dbnfl

Board Regular
Joined
Aug 11, 2019
Messages
59
Hello,

I have tried to modify code that I have that works with single criteria to double criteria, however my range is not correct. Could someone point me in the right direction.
I'm a truck driver trying to make my life easy for day to day operations of my business and only new to vba


Code I am tying to make work

Sub Vessel_Update_Sheet()

Dim c As Range, f As Range, sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheets("Data")
Set sh2 = Sheets("Wharf Schedules")
For Each c In sh1.Range("C2" & "E2", sh1.Range("AR" & "AT" & Rows.Count).End(xlUp))
If c.Value <> "" Then
Set f = sh2.Range("AR:AR" & "AT:AT").Find(c.Value, , xlValues, xlWhole)
If Not f Is Nothing Then
sh1.Range("AP" & c.Row) = sh2.Range("G" & f.Row)
sh1.Range("AQ" & c.Row) = sh2.Range("I" & f.Row)
End If
End If
Next
MsgBox "Vessel details have been updated in main Data Sheet"
End Sub

Thank you in advance
 
Sort by date Sort by votes
Hello,

Sorry for the delayed responded. Been out on the road.

I’ve put the code in as per your code and its working butdoing the below.

Its not finding all vessel data. I’ve tried copying andpasting to make sure names are same and still no difference. If there is multiplyjobs with same vessel/Voyage its only copying for first job.
Wharf
ETA
ETD
Vessel
Lloyds
In Voyage

29/06/2019 11:47​

29/06/2019​
3/07/2019
DP World

27/06/2019 22:00​

29/06/2019 11:00​
CMA CGM NEW JERSEY

9351141​
101S

29/06/2019 11:47​

29/06/2019 0:00​

3/07/2019 0:00​
CMA CGM NEW JERSEY
101S
DP World

27/06/2019 14:00​

28/06/2019 22:00​
CMA CGM CORNEILLE

9409170​
9019
DP World

26/06/2019 6:00​

27/06/2019 14:00​
XIN QING DAO

9270452​
187S
CMA CGM NEW JERSEY
101S
Patricks

28/06/2019 15:10​

29/06/2019 15:00​
SPIRIT OF SINGAPORE

9362396​
921S
SPIRIT OF SINGAPORE
921S
SPIRIT OF SINGAPORE
921S
SPIRIT OF SINGAPORE
921S
Patricks

17/06/2019 7:06​

18/06/2019 6:15​
MAERSK GANGES

9694581​
917W
MAERSK GANGES
917W
DP World

23/06/2019 14:00​

24/06/2019 22:00​
YM VANCOUVER

9363364​
124S
YM VANCOUVER
124S
XIN QING DAO
187S
DP World

30/06/2019 14:00​

1/07/2019 22:00​
EVER DEVELOP

9142174​
139S
EVER DEVELOP
139S
EVER DEVELOP
139S
SPIRIT OF SINGAPORE
921S
SPIRIT OF SINGAPORE
921S
SPIRIT OF SINGAPORE
921S
Patricks

29/06/2019 23:06​

30/06/2019 17:00​
OOCL HOUSTON

9355757​
149S
SPIRIT OF SINGAPORE
921S
Patricks

1/07/2019 15:06​

2/07/2019 17:00​
OOCL LE HAVRE

9404857​
108S
SPIRIT OF SINGAPORE
921S
OOCL LE HAVRE
108S
YM VANCOUVER
124S
OOCL SEOUL
058S

<tbody>
</tbody>

Codes
Sub Import_Vessel_ETA_Update_Sheet()
Application.ScreenUpdating = False
Dim srcWS AsWorksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, ValAs String, RngList As Object
Set srcWS =Sheets("Wharf Schedules")
Set desWS =Sheets("Data")
arr1 =srcWS.Range("B6", srcWS.Range("S" &Rows.Count).End(xlUp)).Resize(, 8).Value
arr2 =desWS.Range("AO5", desWS.Range("AT" &Rows.Count).End(xlUp)).Resize(, 6).Value
Set RngList =CreateObject("Scripting.Dictionary")
For i = 1 ToUBound(arr2, 1)
If arr2(i, 4)<> "" Then
Val =arr2(i, 4) & "|" & arr2(i, 6)
If NotRngList.Exists(Val) Then
RngList.Add Key:=Val, Item:=i + 4
End If
End If
Next i
For i = 1 ToUBound(arr1, 1)
Val = arr1(i,2) & "|" & arr1(i, 4)
IfRngList.Exists(Val) Then
desWS.Range("AO" & RngList(Val)) = arr1(i, 1)
desWS.Range("AS" & RngList(Val)) = arr1(i, 3)
desWS.Range("AP" & RngList(Val)) = arr1(i, 6)
desWS.Range("AQ" & RngList(Val)) = arr1(i, 8)
End If
Next i
Application.ScreenUpdating = True
MsgBox "VesselETA & ETD dates have been updated on main Data Sheet"
End Sub

Sub Import_Vessel_Availabilty_Update_Sheet()
Application.ScreenUpdating = False
Dim srcWS AsWorksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, ValAs String, RngList As Object
Set srcWS =Sheets("Wharf Schedules")
Set desWS =Sheets("Data")
arr1 =srcWS.Range("L6", srcWS.Range("S" &Rows.Count).End(xlUp)).Resize(, 8).Value
arr2 =desWS.Range("AR5", desWS.Range("AW" &Rows.Count).End(xlUp)).Resize(, 6).Value
Set RngList =CreateObject("Scripting.Dictionary")
For i = 1 ToUBound(arr2, 1)
If arr2(i, 1)<> "" Then
Val =arr2(i, 1) & "|" & arr2(i, 3)
If NotRngList.Exists(Val) Then
RngList.Add Key:=Val, Item:=i + 3
End If
End If
Next i
For i = 1 ToUBound(arr1, 1)
Val = arr1(i,2) & "|" & arr1(i, 4)
IfRngList.Exists(Val) Then
desWS.Range("AU" &RngList(Val)) = arr1(i, 6)
desWS.Range("AV" & RngList(Val)) = arr1(i, 7)
desWS.Range("AW" & RngList(Val)) = arr1(i, 8)
End If
Next i
Application.ScreenUpdating = True
MsgBox "VesselAvailability details have been updated on main Data Sheet"
End Sub
Thank you heaps for your help.

Dale
 
Upvote 0

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK
Try:
Code: 
Sub Import_Vessel_Update2_Sheet()
   Application.ScreenUpdating = False
    Dim srcWS As Worksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, Val As String, RngList As Object, LastRow As Long
    Set srcWS = Sheets("Wharf Schedules")
    Set desWS = Sheets("Data")
    LastRow = desWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    arr1 = srcWS.Range("B6", srcWS.Range("I" & Rows.Count).End(xlUp)).Resize(, 8).Value
    arr2 = desWS.Range("AO5", desWS.Range("AT" & Rows.Count).End(xlUp)).Resize(, 6).Value
    Set RngList = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr2, 1)
        If arr2(i, 4) <> "" Then
            Val = arr2(i, 4) & "|" & arr2(i, 6)
            If Not RngList.Exists(Val) Then
                RngList.Add Key:=Val, Item:=i + 4
            End If
        End If
    Next i
    For i = 1 To UBound(arr1, 1)
        Val = arr1(i, 2) & "|" & arr1(i, 4)
        If RngList.Exists(Val) Then
            With desWS
                .Range("B4:FI" & LastRow).AutoFilter Field:=43, Criteria1:=arr1(i, 2)
                .Range("B4:FI" & LastRow).AutoFilter Field:=45, Criteria1:=arr1(i, 4)
                .Range("AO5:AQ" & LastRow).SpecialCells(xlCellTypeVisible) = Array(arr1(i, 1), arr1(i, 6), arr1(i, 8))
                .Range("AS5:AS" & LastRow).SpecialCells(xlCellTypeVisible) = arr1(i, 3)
            End With
        End If
    Next i
    desWS.Range("B4").AutoFilter
    Application.ScreenUpdating = True
  MsgBox "Vessel details have been updated in main Data Sheet"
End Sub
 
Upvote 0
Hello,

Code works beautifully. Thanks a million.
I’m trying to understand it now so I can change to make otherinformation show up.
Can you explain the .Range("B4:FI" &LastRow).AutoFilter Field:=43, Criteria1:=arr1(i, 2)

Sub Import_Vessel_ETA_Update_Sheet()
Application.ScreenUpdating = False
Dim srcWS AsWorksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, ValAs String, RngList As Object, LastRow As Long
Set srcWS =Sheets("Wharf Schedules")
Set desWS =Sheets("Data")
LastRow =desWS.Cells.Find("*", SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
arr1 =srcWS.Range("B6", srcWS.Range("I" &Rows.Count).End(xlUp)).Resize(, 8).Value
arr2 =desWS.Range("AO5", desWS.Range("AT" &Rows.Count).End(xlUp)).Resize(, 6).Value
Set RngList =CreateObject("Scripting.Dictionary")
For i = 1 ToUBound(arr2, 1)
If arr2(i, 4)<> "" Then
Val =arr2(i, 4) & "|" & arr2(i, 6)
If NotRngList.Exists(Val) Then
RngList.Add Key:=Val, Item:=i + 4
End If
End If
Next i
For i = 1 ToUBound(arr1, 1)
Val = arr1(i,2) & "|" & arr1(i, 4)
IfRngList.Exists(Val) Then
With desWS
.Range("B4:FI" & LastRow).AutoFilter Field:=43,Criteria1:=arr1(i, 2)
.Range("B4:FI" &LastRow).AutoFilter Field:=45, Criteria1:=arr1(i, 4)
.Range("AO5:AQ" & LastRow).SpecialCells(xlCellTypeVisible)= Array(arr1(i, 1), arr1(i, 6), arr1(i, 8))
.Range("AS5:AS" & LastRow).SpecialCells(xlCellTypeVisible)= arr1(i, 3)
End With
End If
Next i
desWS.Range("B4").AutoFilter
Application.ScreenUpdating = True
MsgBox "VesselETA & ETD dates have been updated on main Data Sheet"
End Sub

I want to change it, so it looks up different columns forsame match.
I’ve tried the below to modify what you have, no info is copiedand pasted. Displays msg box.

Eg.
Still same sheets
I want to copy columns Q, R & S info if match found.
Columns on Sheet(“Data”) AR & AT to Match with Sheet(“WharfSchedule”) M & O.
Sub Import_Vessel_ Availablility_Update_Sheet()
Application.ScreenUpdating = False
Dim srcWS AsWorksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, ValAs String, RngList As Object, LastRow As Long
Set srcWS =Sheets("Wharf Schedules")
Set desWS =Sheets("Data")
LastRow =desWS.Cells.Find("*", SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
arr1 =srcWS.Range("L6", srcWS.Range("I" &Rows.Count).End(xlUp)).Resize(, 7).Value
arr2 =desWS.Range("AU5", desWS.Range("AW" &Rows.Count).End(xlUp)).Resize(, 6).Value
Set RngList =CreateObject("Scripting.Dictionary")
For i = 1 ToUBound(arr2, 1)
If arr2(i, 1)<> "" Then
Val =arr2(i, 1) & "|" & arr2(i, 3)
If NotRngList.Exists(Val) Then
RngList.Add Key:=Val, Item:=i + 4
End If
End If
Next i
For i = 1 ToUBound(arr1, 1)
Val = arr1(i,2) & "|" & arr1(i, 4)
IfRngList.Exists(Val) Then
With desWS
.Range("L4:FI" & LastRow).AutoFilter Field:=43,Criteria1:=arr1(i, 2)
.Range("L4:FI" &LastRow).AutoFilter Field:=45, Criteria1:=arr1(i, 4)
.Range("AU5:AW" & LastRow).SpecialCells(xlCellTypeVisible)= Array(arr1(i, 5), arr1(i, 6), arr1(i, 7))
End With
End If
Next i
desWS.Range("L4").AutoFilter
Application.ScreenUpdating = True
MsgBox "Vessel Availablilitydates have been updated on main Data Sheet"
End Sub

Regards,

Dale.






 
Upvote 0
This part of the macro loops through column B of "Wharf Schedules". The "i" in arr(i,1) represents the position of the value in column B and the "1" represents the first column in the array which is column B. So if i=1, that would represent the value of cell B2 in "Wharf Schedules". If i=2, that would represent the value of cell B3 in "Wharf Schedules" and so on. arr(i,2) works the same way except that the "2" represents the second column in the array which is column C.
Code: 
For i = 1 To UBound(arr1, 1)
        Val = arr1(i, 2) & "|" & arr1(i, 4)
        If RngList.Exists(Val) Then
            With desWS
                .Range("B4:FI" & LastRow).AutoFilter Field:=43, Criteria1:=arr1(i, 2)
                .Range("B4:FI" & LastRow).AutoFilter Field:=45, Criteria1:=arr1(i, 4)
                .Range("AO5:AQ" & LastRow).SpecialCells(xlCellTypeVisible) = Array(arr1(i, 1), arr1(i, 6), arr1(i, 8))
                .Range("AS5:AS" & LastRow).SpecialCells(xlCellTypeVisible) = arr1(i, 3)
            End With
        End If
    Next i
This line of code:
Code: 
.Range("B4:FI" & LastRow).AutoFilter Field:=43, Criteria1:=arr1(i, 2)
therefore filters the "Data" sheet based on the 43rd column using each unique value in column C of "Wharf Schedules". The end result of the loop is that it filters the "Data" sheet for every Vessel and then fill in the missing information in "Data" with the values from "Wharf Schedules" in the appropriate columns. The macro uses array because they are very efficient. The data is stored in computer memory so most or all of the processing is done extremely quickly because the macro doesn't have to keep going back and forth to the data on the worksheet. If you have a large dataset as in your case, this makes a big difference in how fast the data is processed. This may sound confusing. You may want to do some research in how arrays work. I hope this helps.

When posting code, please use code tags as I have done in this post. Highlight your code and click the # symbol in the top menu.
 
Last edited:
Upvote 0
Hello,

I half understand.

I've tried the below code. It wont copy and paste. Can you see where I'm going wrong.


Code: 
 [FONT=Calibri][SIZE=3][COLOR=#000000]Sub Import_Vessel_ Availablility_Update_Sheet()[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]  Application.ScreenUpdating = False[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Dim srcWS AsWorksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, ValAs String, RngList As Object, LastRow As Long[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Set srcWS =Sheets("Wharf Schedules")[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Set desWS =Sheets("Data")[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    LastRow =desWS.Cells.Find("*", SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    arr1 =srcWS.Range("L6", srcWS.Range("I" &Rows.Count).End(xlUp)).Resize(, 7).Value[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    arr2 =desWS.Range("AU5", desWS.Range("AW" &Rows.Count).End(xlUp)).Resize(, 6).Value[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Set RngList =CreateObject("Scripting.Dictionary")[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    For i = 1 ToUBound(arr2, 1)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        If arr2(i, 1)<> "" Then[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]            Val =arr2(i, 1) & "|" & arr2(i, 3)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]            If NotRngList.Exists(Val) Then[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]               RngList.Add Key:=Val, Item:=i + 4[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]            End If[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        End If[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Next i[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    For i = 1 ToUBound(arr1, 1)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        Val = arr1(i,2) & "|" & arr1(i, 4)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        IfRngList.Exists(Val) Then[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]            With desWS[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]               .Range("L4:FI" & LastRow).AutoFilter Field:=43,Criteria1:=arr1(i, 2)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]                .Range("L4:FI" &LastRow).AutoFilter Field:=45, Criteria1:=arr1(i, 4)[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]               .Range("AU5:AW" & LastRow).SpecialCells(xlCellTypeVisible)= Array(arr1(i, 5), arr1(i, 6), arr1(i, 7))[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]            End With[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        End If[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Next i[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    desWS.Range("L4").AutoFilter[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]   Application.ScreenUpdating = True[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]  MsgBox "Vessel Availablilitydates have been updated on main Data Sheet"[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]
 
Upvote 0
Wharf Schedule Sheet
L6 - S Range
M & O for Match/Look up
Q, R & S Copy

Data Sheet
AR5 - AW - Range
AR & AT for Match/Look up
AU, AV & AW columns to paste into.
 
Upvote 0
I noticed some spacing issues which I have fixed.
Code: 
Sub Import_Vessel_Availablility_Update_Sheet()
    Application.ScreenUpdating = False
    Dim srcWS As Worksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, Val As String, RngList As Object, LastRow As Long
    Set srcWS = Sheets("Wharf Schedules")
    Set desWS = Sheets("Data")
    LastRow = desWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    arr1 = srcWS.Range("L6", srcWS.Range("I" & Rows.Count).End(xlUp)).Resize(, 7).Value
    arr2 = desWS.Range("AU5", desWS.Range("AW" & Rows.Count).End(xlUp)).Resize(, 6).Value
    Set RngList = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr2, 1)
        If arr2(i, 1) <> "" Then
            Val = arr2(i, 1) & "|" & arr2(i, 3)
            If NotRngList.Exists(Val) Then
               RngList.Add Key:=Val, Item:=i + 4
            End If
        End If
    Next i
    For i = 1 To UBound(arr1, 1)
        Val = arr1(i, 2) & "|" & arr1(i, 4)
        If RngList.Exists(Val) Then
            With desWS
               .Range("L4:FI" & LastRow).AutoFilter Field:=43, Criteria1:=arr1(i, 2)
                .Range("L4:FI" & LastRow).AutoFilter Field:=45, Criteria1:=arr1(i, 4)
               .Range("AU5:AW" & LastRow).SpecialCells(xlCellTypeVisible) = Array(arr1(i, 5), arr1(i, 6), arr1(i, 7))
            End With
        End If
    Next i
    desWS.Range("L4").AutoFilter
    Application.ScreenUpdating = True
    MsgBox "Vessel Availablilitydates have been updated on main Data Sheet"
End Sub
If it still doesn't work, since you've changed the column references, please upload a copy of the file which is not working.
 
Upvote 0
Try:
Code: 
Sub Import_Vessel_Availablility_Update_Sheet()
    Application.ScreenUpdating = False
    Dim srcWS As Worksheet, desWS As Worksheet, arr1 As Variant, arr2 As Variant, i As Long, Val As String, RngList As Object, LastRow As Long
    Set srcWS = Sheets("Wharf Schedules")
    Set desWS = Sheets("Data")
    LastRow = desWS.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    arr1 = srcWS.Range("B6", srcWS.Range("S" & Rows.Count).End(xlUp)).Resize(, 18).Value
    arr2 = desWS.Range("AO5", desWS.Range("AT" & Rows.Count).End(xlUp)).Resize(, 9).Value
    Set RngList = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr2, 1)
        If arr2(i, 4) <> "" Then
            Val = arr2(i, 4) & "|" & arr2(i, 6)
            If Not RngList.Exists(Val) Then
               RngList.Add Key:=Val, Item:=i + 4
            End If
        End If
    Next i
    For i = 1 To UBound(arr1, 1)
        Val = arr1(i, 12) & "|" & arr1(i, 14)
        If RngList.Exists(Val) Then
            With desWS
               .Range("B4:FI" & LastRow).AutoFilter Field:=43, Criteria1:=arr1(i, 12)
                .Range("B4:FI" & LastRow).AutoFilter Field:=45, Criteria1:=arr1(i, 14)
               .Range("AU5:AW" & LastRow).SpecialCells(xlCellTypeVisible) = Array(arr1(i, 16), arr1(i, 17), arr1(i, 18))
            End With
        End If
    Next i
    desWS.Range("L4").AutoFilter
    Application.ScreenUpdating = True
    MsgBox "Vessel Availablilitydates have been updated on main Data Sheet"
End Sub
 
Upvote 0
You must log in or register to reply here.

Similar threads

S
  • Question Question
Copy a column value when the values match to multiple sheets of the workbook
Replies
1
Views
440
sofas
S
redspanna
  • Question Question
Merge 2 VB codes and add Application.screenupdating
Replies
2
Views
514
Bosquedeguate
Bosquedeguate
H
  • Solved
VBA to Copy a worksheet from a template, then increment a drop down list in each new copy by one.
2
Replies
10
Views
1K
kevin9999
K
J
  • Question Question
VBA Help: Macro finds text string, but need it to find whole words ONLY
Replies
5
Views
1K
DanteAmor
DanteAmor
L
  • Solved
Run Dictionary Script & Find based on multiple criteria
Replies
7
Views
606
DanteAmor
DanteAmor

Forum statistics

Threads
1,223,908
Messages
6,175,304
Members
452,633
Latest member
DougMo

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