I am trying to make a macro that groups up rows and sums the amount of items that they have on a column, I made it so it works but after a few rows it just crashes and displays
Error 13: Type mismatch.
When I open the code it highlights this line
stringb = Cells(cont2, 7)
The code is this one:
Sub Juntarfilas()
Dim Av1 As Double
Dim cont As Long
Dim cont2 As Long
Dim numcol As Integer
Dim comp1 As Integer
Dim check As String
Dim string1 As String
Dim string2 As String
Dim stringa As String
Dim stringb As String
Dim Rango As Variant
Sheets("RESULTADO").Select
numcol = Range("E2").Column
cont = 2
cont2 = 3
If IsEmpty(Range("E2").Value) = True Then
check = 0
Else
check = 1
End If
While (check = 1)
string1 = Cells(cont, 5)
string2 = Cells(cont2, 5)
stringa = Cells(cont, 7)
stringb = Cells(cont2, 7)
comp1 = StrComp(string1, string2)
If (comp1 = "0") Then
Rango = Range(Cells(cont, 7), Cells(cont2, 7))
Av1 = Application.WorksheetFunction.Sum(Rango)
Cells(cont, 7) = Av1
cont = cont
cont2 = cont2
Rows(cont2).EntireRow.Delete
Else
cont = cont + 1
cont2 = cont2 + 1
End If
If IsEmpty(string1) = True Then
check = 0
Else
check = 1
End If
Wend
End Sub
I can’t come up with a solution and I came here to see if someone could help me, thanks in advance.
If it’s necessary I can send the excel file too.
w82hans 0 / 0 / 0 Регистрация: 06.05.2015 Сообщений: 1 |
||||
1 |
||||
29.09.2015, 05:53. Показов 5300. Ответов 3 Метки нет (Все метки)
Код не мой, подскажите в чем беда
Ругается на 11 строку, здесь не весь код, если нужно больше скину, макрос был сделан для старого excel, на 2013 не робит…
0 |
The_Prist 1337 / 308 / 74 Регистрация: 13.11.2008 Сообщений: 635 |
||||
29.09.2015, 13:37 |
3 |
|||
Трудно сказать. Скорее всего там код вызывался либо через устаревшие процедуры автоматизации(Auto_Open, Auto_Close, Auto_Activate или Auto_Deactivate), либо через кнопку на листе. Сейчас же идет попытка вызвать с панели или через событийные процедуры Workbook_Open и им подобные, которые Caller не может определить и возвращает тип Variant() или Error.
0 |
46 / 46 / 6 Регистрация: 28.04.2015 Сообщений: 151 Записей в блоге: 4 |
|
29.09.2015, 14:27 |
4 |
У меня тоже Application.Caller выдает ошибку: Error 2023. Caller является свойством, которое возвращает информацию о том, как был вызван код. Если это функция пользователя — то Caller будет являться объектом Range, ссылкой на ячейку, в которой записана функция пользователя. Если это функция массива — то все ячейки, в которые записана функция. К сожалению, ссылку дать не могу, так как ссылки на другие форумы здесь запрещены правилами.
1 |
275
14 апреля 2005 года
pashulka
985 / / 19.09.2004
На самом деле всё просто и ответ уже частично заключён в самом вопросе. У Вас в извлекаемых ячейках находятся значения ошибки, и Вы сами это подтвердили в последнем посте.
Вот список ошибок и их коды :
#ПУСТО! — 2000
#ДЕЛ/0! -2007
#ЗНАЧ! — 2015
#ССЫЛКА! — 2023
#ИМЯ! — 2029
#ЧИСЛО! — 2036
#Н/Д! — 2042
Однако если в некоторых ячейках всё же находятся числовые значения, то Вы можете воспользоваться нижеприведённым кодом :
Код:
arg = «‘» & temp & «[MIS.» & temp6 & «.» & temp2 & «.xls]Teller1’!» & _
Range(a).Address(, , xlR1C1)
iTemp = ExecuteExcel4Macro(arg)
If Not IsError(iTemp) Then
If IsNumeric(iTemp) Then
GetValueFromClosed = GetValueFromClosed + iTemp
End If
End If
Советы :
1) Уберите из Вашей пользовательской функции метод Activate. А вместо активации рабочего листа используйте инструкцию With или создайте об’ектную переменную с помощью инструкции Set
2) В начале программы поместите инструкцию On Error Resume Next
Примечание :
Я бы ещё добавил, что вот эта часть кода, довольно странная, так как в Вашем случае при запуске функции m всегда будет равно 2, во всяком случае если исходить из текста Вашей пользовательской функции. Конечно можно предположить, что переменная m у Вас об’явлена на уровне модуля, но повторюсь, ничто в коде на это не указывает.
m = m + 2
temp6 = Cells(m, 1).Value
Содержание
- ExecuteExcel4Macro Error 2023 VBA
- 4 ответа
- How to fix the Runtime Code 2023 Excel Error 2023
- Как исправить ошибку Microsoft Excel 2023
- Анализ «Excel Error 2023»
- Что вызывает ошибку времени выполнения 2023?
- Распространенные проблемы Excel Error 2023
- Excel Error 2023 Истоки проблем
ExecuteExcel4Macro Error 2023 VBA
Помогите, пожалуйста. За 2 дня уже начала биться головой и не могу сдвинуться с мертвой точки. Программа должна доставать данные из книг Экселя (соответственно из ячеек), они закреплены в одной строке, нужна сумма. Как поняла, самый простой способ и быстрее чем открытие-доставание-закрытие — это ExecuteExcel4Macro. Не могу с ним справиться, Ошибка вида 2023 #Ref.
Function GetValueFromClosed(temp, temp2)
Dim arg, temp6 As String
Dim r As Byte
Worksheets(«bd»).Activate
m = m + 2
temp6 = Cells(m, 1).Value
Application.ScreenUpdating = False
For r = 1 To 9
a = Cells(r, 1).Address
arg = «‘» & temp & «[MIS.» & temp6 & «.» & temp2 & «.xls]Teller1’!» & _
Range(a).Range(«A1»).Address(, , xlR1C1)
GetValueFromClosed = ExecuteExcel4Macro(arg) ‘Error2023
Next r
End Function
4 ответа
Никакие мои манипуляции с Вашим кодом не заставили Excel выдать сообщение об ошибке с указанным номером (экспериментировал с Excel 2000). Макрос работает. В связи с этим хотелось бы увидеть текст сообщения об ошибке и узнать версию Вашего офиса.
Поиск по базе Microsoft тоже не дал ничего утешительного: описание ошибки с таким кодом нашлось для Visual FoxPro, но не для VBA. Впрочем, ошибка с таким же кодом характерна и для Windows. Так что может быть не офис виноват, а именно ОС.
Мои советы:
— упростите имя файла-донора (ошибка FoxPro, например, связана с невозможностью сопоставить расширение файла какому-либо приложению, а у Вас в имени файла целых 3 точки);
— попробуйте макрос на другой машине и/или другом офисе.
Кроме того, предлагаю некоторые сображения по поводу кода макроса:
1. Dim r As Byte заменил бы на Dim r As Integer;
2. Выражение Range(a).Range(«A1»).Address(, , xlR1C1) явно избыточно. Судя по контексту нужно Range(a).Address(, , xlR1C1).
3. Если значения расположены в одной строке, то Cells(r, 1) нужно заменить на Cells(1, r).
4. Если нужна сумма значений, то GetValueFromClosed = ExecuteExcel4Macro(arg) надо заменить на GetValueFromClosed = GetValueFromClosed + ExecuteExcel4Macro(arg). В противном случае функция вернёт только последнее значение, а не сумму.
Originally posted by Dmitrii
Никакие мои манипуляции с Вашим кодом не заставили Excel выдать сообщение об ошибке с указанным номером (экспериментировал с Excel 2000). Макрос работает. В связи с этим хотелось бы увидеть текст сообщения об ошибке и узнать версию Вашего офиса.
Поиск по базе Microsoft тоже не дал ничего утешительного: описание ошибки с таким кодом нашлось для Visual FoxPro, но не для VBA. Впрочем, ошибка с таким же кодом характерна и для Windows. Так что может быть не офис виноват, а именно ОС.
Мои советы:
— упростите имя файла-донора (ошибка FoxPro, например, связана с невозможностью сопоставить расширение файла какому-либо приложению, а у Вас в имени файла целых 3 точки);
— попробуйте макрос на другой машине и/или другом офисе.
Кроме того, предлагаю некоторые сображения по поводу кода макроса:
1. Dim r As Byte заменил бы на Dim r As Integer;
2. Выражение Range(a).Range(«A1»).Address(, , xlR1C1) явно избыточно. Судя по контексту нужно Range(a).Address(, , xlR1C1).
3. Если значения расположены в одной строке, то Cells(r, 1) нужно заменить на Cells(1, r).
4. Если нужна сумма значений, то GetValueFromClosed = ExecuteExcel4Macro(arg) надо заменить на GetValueFromClosed = GetValueFromClosed + ExecuteExcel4Macro(arg). В противном случае функция вернёт только последнее значение, а не сумму.
Операционная система — Windows 2000, Офис тот же. К сожалению, версию поменять не могу, здесь все такие =)
Пробовала с точками, без точек — не помогает. С помощью Watches увидела, что значение переменной GetValueFromClosed = Error 2023, а в соответствующей ячейке высвечивается #Ref.Не ссумировала, GetValueFromClosed = GetValueFromClosed + ExecuteExcel4Macro(arg), выскакивает ошибка Type mismatch, а потому пыталась вначале хоть какое-то значение получить.
Источник
How to fix the Runtime Code 2023 Excel Error 2023
This article features error number Code 2023, commonly known as Excel Error 2023 described as Error 2023: Microsoft Excel has encountered a problem and needs to close. We are sorry for the inconvenience.
Error Information
Error name: Excel Error 2023
Error number: Code 2023
Description: Error 2023: Microsoft Excel has encountered a problem and needs to close. We are sorry for the inconvenience.
Software: Microsoft Excel
Developer: Microsoft
This repair tool can fix common computer errors like BSODs, system freezes and crashes. It can replace missing operating system files and DLLs, remove malware and fix the damage caused by it, as well as optimize your PC for maximum performance.
About Runtime Code 2023
Runtime Code 2023 happens when Microsoft Excel fails or crashes whilst it’s running, hence its name. It doesn’t necessarily mean that the code was corrupt in some way, but just that it did not work during its run-time. This kind of error will appear as an annoying notification on your screen unless handled and corrected. Here are symptoms, causes and ways to troubleshoot the problem.
Definitions (Beta)
Here we list some definitions for the words contained in your error, in an attempt to help you understand your problem. This is a work in progress, so sometimes we might define the word incorrectly, so feel free to skip this section!
- Excel — Only for questions on programming against Excel objects or files, or complex formula development
Symptoms of Code 2023 — Excel Error 2023
Runtime errors happen without warning. The error message can come up the screen anytime Microsoft Excel is run. In fact, the error message or some other dialogue box can come up again and again if not addressed early on.
There may be instances of files deletion or new files appearing. Though this symptom is largely due to virus infection, it can be attributed as a symptom for runtime error, as virus infection is one of the causes for runtime error. User may also experience a sudden drop in internet connection speed, yet again, this is not always the case.
(Excel Error 2023) Repair Tool»/>
(For illustrative purposes only)
Causes of Excel Error 2023 — Code 2023
During software design, programmers code anticipating the occurrence of errors. However, there are no perfect designs, as errors can be expected even with the best program design. Glitches can happen during runtime if a certain error is not experienced and addressed during design and testing.
Runtime errors are generally caused by incompatible programs running at the same time. It may also occur because of memory problem, a bad graphics driver or virus infection. Whatever the case may be, the problem must be resolved immediately to avoid further problems. Here are ways to remedy the error.
Repair Methods
Runtime errors may be annoying and persistent, but it is not totally hopeless, repairs are available. Here are ways to do it.
If a repair method works for you, please click the upvote button to the left of the answer, this will let other users know which repair method is currently working the best.
Источник
Как исправить ошибку Microsoft Excel 2023
Номер ошибки: | Ошибка 2023 | |
Название ошибки: | Excel Error 2023 | |
Описание ошибки: | Ошибка 2023: Возникла ошибка в приложении Microsoft Excel. Приложение будет закрыто. Приносим извинения за неудобства. | |
Разработчик: | Microsoft Corporation | |
Программное обеспечение: | Microsoft Excel | |
Относится к: | Windows XP, Vista, 7, 8, 10, 11 |
Анализ «Excel Error 2023»
Эксперты обычно называют «Excel Error 2023» «ошибкой времени выполнения». Чтобы убедиться, что функциональность и операции работают в пригодном для использования состоянии, разработчики программного обеспечения, такие как Microsoft Corporation, выполняют отладку перед выпусками программного обеспечения. К сожалению, такие проблемы, как ошибка 2023, могут быть пропущены, и программное обеспечение будет содержать эти проблемы при выпуске.
В выпуске последней версии Microsoft Excel может возникнуть ошибка, которая гласит: «Excel Error 2023». Когда это происходит, конечные пользователи программного обеспечения могут сообщить Microsoft Corporation о существовании ошибки 2023 ошибок. Команда программирования может использовать эту информацию для поиска и устранения проблемы (разработка обновления). Таким образом при выполнении обновления программного обеспечения Microsoft Excel, он будет содержать исправление для устранения проблем, таких как ошибка 2023.
Что вызывает ошибку времени выполнения 2023?
Ошибки выполнения при запуске Microsoft Excel — это когда вы, скорее всего, столкнетесь с «Excel Error 2023». Три распространенные причины, по которым ошибки во время выполнения, такие как всплывающее окно ошибки 2023:
Ошибка 2023 Crash — это распространенная ошибка 2023 во время выполнения ошибки, которая приводит к полному завершению работы программы. Если Microsoft Excel не может обработать данный ввод, или он не может получить требуемый вывод, это обычно происходит.
Утечка памяти «Excel Error 2023» — при утечке памяти Microsoft Excel это может привести к медленной работе устройства из-за нехватки системных ресурсов. Возможные искры включают сбой освобождения, который произошел в программе, отличной от C ++, когда поврежденный код сборки неправильно выполняет бесконечный цикл.
Ошибка 2023 Logic Error — логическая ошибка возникает, когда компьютер производит неправильный вывод, даже если вход правильный. Обычные причины этой проблемы связаны с ошибками в обработке данных.
Microsoft Corporation проблемы с Excel Error 2023 чаще всего связаны с повреждением или отсутствием файла Microsoft Excel. Как правило, решить проблему можно заменой файла Microsoft Corporation. В качестве дополнительного шага по устранению неполадок мы настоятельно рекомендуем очистить все пути к неверным файлам и ссылки на расширения файлов Microsoft Corporation, которые могут способствовать возникновению такого рода ошибок, связанных с Excel Error 2023.
Распространенные проблемы Excel Error 2023
Усложнения Microsoft Excel с Excel Error 2023 состоят из:
- «Ошибка программы Excel Error 2023. «
- «Ошибка программного обеспечения Win32: Excel Error 2023»
- «Возникла ошибка в приложении Excel Error 2023. Приложение будет закрыто. Приносим извинения за неудобства.»
- «Не удается найти Excel Error 2023»
- «Excel Error 2023 не найден.»
- «Ошибка запуска в приложении: Excel Error 2023. «
- «Файл Excel Error 2023 не запущен.»
- «Excel Error 2023 выйти. «
- «Ошибка пути программного обеспечения: Excel Error 2023. «
Ошибки Excel Error 2023 EXE возникают во время установки Microsoft Excel, при запуске приложений, связанных с Excel Error 2023 (Microsoft Excel), во время запуска или завершения работы или во время установки ОС Windows. Отслеживание того, когда и где возникает ошибка Excel Error 2023, является важной информацией при устранении проблемы.
Excel Error 2023 Истоки проблем
Большинство проблем Excel Error 2023 связаны с отсутствующим или поврежденным Excel Error 2023, вирусной инфекцией или недействительными записями реестра Windows, связанными с Microsoft Excel.
Точнее, ошибки Excel Error 2023, созданные из:
- Недопустимая (поврежденная) запись реестра Excel Error 2023.
- Вредоносные программы заразили Excel Error 2023, создавая повреждение.
- Excel Error 2023 злонамеренно или ошибочно удален другим программным обеспечением (кроме Microsoft Excel).
- Excel Error 2023 конфликтует с другой программой (общим файлом).
- Поврежденная установка или загрузка Microsoft Excel (Excel Error 2023).
Совместима с Windows 2000, XP, Vista, 7, 8, 10 и 11
Источник
Sub CreateItemValidation()
'
' CreateItemValidation Macro
' Macro recorded 5-8-2005 by Danny Batenburg
'
'
Sheets("Equiped Items").Select
Union(Range( _
"FL:FL,FN:FN,FP:FP,FR:FR,FT:FT,FV:FV,FX:FX,FZ:FZ,GB:GB,GD:GD,GF:GF,GH:GH,GJ:GJ,GL:GL,GN:GN,GP:GP,DN:DN,DB:DB,DD:DD,DF:DF,DH:DH,DJ:DJ,DL:DL,DN:DN,DP:DP,DR:DR,DT:DT,DV:DV,DX:DX,DZ:DZ,EB:EB,ED:ED" _
), Range( _
"EF:EF,EH:EH,EJ:EJ,EL:EL,EN:EN,EP:EP,ER:ER,ET:ET,EV:EV,EX:EX,EZ:EZ,FB:FB,FD:FD,FF:FF,FH:FH,FJ:FJ" _
)).Select
Selection.ClearContents
Range("'Equiped Items'!DA2:DA2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DC2:DC2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DE2:DE2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DG2:DG2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DI2:DI2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DK2:DK2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DM2:DM2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DO2:DO2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DQ2:DQ2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DS2:DS2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DU2:DU2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DW2:DW2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!DY2:DY2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EA2:EA2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EC2:EC2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EE2:EE2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EG2:EG2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EI2:EI2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EK2:EK2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EM2:EM2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EO2:EO2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EQ2:EQ2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!ES2:ES2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EU2:EU2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EW2:EW2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!EY2:EY2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FA2:FA2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FC2:FC2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FE2:FE2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FG2:FG2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FI2:FI2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FK2:FK2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FM2:FM2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FO2:FO2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FQ2:FQ2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FS2:FS2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FU2:FU2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FW2:FW2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!FY2:FY2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GA2:GA2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GC2:GC2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GE2:GE2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GG2:GG2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GI2:GI2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GK2:GK2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GM2:GM2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!GO2:GO2000").Select
Application.Run _
"'Kopie van Kopie van Kansloos Sheet.xls'!OneColumnRemoveBlanks"
Range("'Equiped Items'!D2:D2").Select
Range("'Equiped Items'!B2:B2").Select
End Sub