Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
ZyabakiN
0 / 0 / 0
Регистрация: 02.12.2015
Сообщений: 28
#1

Ошибка method range of object global failed в чем ошибка

01.06.2016, 19:00. Просмотров 442. Ответов 1
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub ПроверкаВвода()
 
    Dim A As Range                          
    Dim B As Range                              
    Dim i As Integer                            
    Dim j As Integer                               
    i = 2
    j = 1
    Do While True                                
         Set A = Range("Платежи!A" & i)  
            If A = "" Then                      
                Exit Do             
            End If
        Do While True                   
            Set B = Range("Наименования!A" & j)    
                If A = B Then               
                    Exit Do         
                End If
                If B = "" Then          
                    If MsgBox("Неправильное наименование в ячейке A" _
                    & i & ": " & A & vbNewLine & "Исправить ошибку?", vbYesNo) = vbYes Then                         
                        A = InputBox("Введите корректное значение: ")          
                        ПроверкаВвода   
           Else
                        If MsgBox("Xотите добавить это нименование в список?", vbYesNo) = vbYes Then     
 
                        Range("Наименования!A" & j) = A            
                        Range("Наименования!B" & j) = InputBox("Введите цену нового наименования:")    
                        End If
                    End If
                Exit Do                   
                End If
        j = j + 1                         
        Loop
    i = i + 1                           
    j = 1                            
    Loop
End Sub
Добавлено через 29 секунд
Горит желтым вот эта строчка Set A = Range("Платежи!A" & i) 'Ячейка с обрабатываемым платежом

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2016, 19:00
Ответы с готовыми решениями:

Ошибка Method 'Range' of 'object' Global Failed
помогите пожалуйста разобраться с возникшей ошибкой (Снимок.png) Код: Sub...

Сравнение массивов - Ошибка Method 'Range' of 'object' Global Failed
Здравствуйте, в Vba новичок, погуглил, не могу понять в чем ошибка. Есть два...

Ошибка method range of object _global failed
Sub Ìàêñðîñ2() Z = InputBox("âûáðàòü íîìåð ìåñÿöà") mounth = 1 + Z Max =...

Ошибка method range of object _global failed
Dim AAAC As Long Dim strSuchen As Variant Private Sub ComboBox1_Change()...

Method 'Range' of object '_worksheet' failed
Доброе утро. Помогите разобраться, не пойму откуда руки растут у моей...

1
The_Prist
1302 / 283 / 63
Регистрация: 13.11.2008
Сообщений: 589
01.06.2016, 21:53 #2
1. Нет листа Платежи в активной книге.
2. Код запускается из модуля листа. И этот лист называется не "Платежи"

Попробуйте так:
Visual Basic
1
Set A = Sheets("Платежи").Range("A" & i)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2016, 21:53

Ошибка method cells of object _worksheet failed, Вылетает ексель
При первом запуске макроса все хорошо, а вот при втором постоянно выдает ошибку...

Ошибка VBA: Run time error ‘-2147417848 (80010108)’: Method ‘Paste’ of object ‘_Worksheet’ failed
Пожалуйста, помогите! При записи макроса для копирования столбцов с одного...

Method apply of object sort failed
Добрый день, год макрос работал идеально, но последние 3 три дня зависает....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru