Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Keilash
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Ошибка VBA error Expected then or goto
 
#
02.11.2015 09:07:04
Catboyun,Благодарю, проблема была в неправильном расположении)) выручили!!!
 
Перейти    
Ошибка VBA error Expected then or goto
 
#
02.11.2015 08:49:39
Catboyun, Спасибооо! все,последний вопрос. Если вместо цифры надо вставить букву?
 
Перейти    
Ошибка VBA error Expected then or goto
 
#
02.11.2015 08:40:52
Catboyun,есть случай,когда необходимо при наличии AO "ABC" заполнить ячейку цифрой 15,ее решили прописывать вот таким образом "AO  ""ABC""", а как быть в случае с "AO "ABC" ?
 
Перейти    
Ошибка VBA error Expected then or goto
 
#
02.11.2015 08:29:55
Catboyun,спасибо! у Вас прекрасно работает. А как быть в случае,когда нужно вытащить "AO "ABC" ?
 
Перейти    
Ошибка VBA error Expected then or goto
 
#
02.11.2015 08:21:29
Catboyun,скиньте свой вариант пожалуйста
 
Перейти    
Ошибка VBA error Expected then or goto
 
#
02.11.2015 08:01:34
Catboyun, Вы по таким образом прописывали? Мне нужно проверить именно AO "ABC", а не AO ""ABC""
Код
Sub replace()
Dim ws As Worksheet
Dim i As Integer
For i = 1 To 1000
If Cells(i, 4) = "AO  ""ABC""" Then Cells(i, 5) = 15
If Cells(i, 4) = "AO  ""BCA""" Then Cells(i, 5) = 16
If Cells(i, 4) = "AO  ""CCA""" Then Cells(i, 5) = 16
Next
End Sub
Изменено: Keilash - 02.11.2015 08:05:12
 
Перейти    
Ошибка VBA error Expected then or goto
 
#
02.11.2015 07:43:21
Апострофф,ошибка исчезла,но не срабатывает,так как не находит .Лишние кавычки меняют условие
Изменено: Keilash - 02.11.2015 07:47:19
 
Перейти    
Ошибка VBA error Expected then or goto
 
#
02.11.2015 06:50:13
Доброе утро! Подскажите в чем проблема?Выводит ошибку


Код
If Cells(i, 4) = "AO  "ABC"" Then Cells(i, 5) = 15
Изменено: Keilash - 02.11.2015 06:50:41
 
Перейти    
Поиск по всем листам
 
#
15.10.2015 14:46:31
Пытливый,Спасибо!!!!!
 
Перейти    
Ячейка с ссылкой на файл
 
#
15.10.2015 11:44:26
Максим Зеленский,Файл не известен заранее,я ведь писала,что файл может быть любой
 
Перейти    
Ячейка с ссылкой на файл
 
#
14.10.2015 16:22:07
JayBhagavan, вот так выглядит Таблица в Файле1, а файл2 может быть любой(!), главное путь к нему вывести  :)
Изменено: Keilash - 14.10.2015 16:23:03
 
Перейти    
Ячейка с ссылкой на файл
 
#
14.10.2015 16:11:16
Здравствуйте! Кто сможет помочь с такой вот задачей.
Есть файл1 с макросом, который открывает файл2 и забивает в ячейку Таблицы файла1 путь к Файлу2 (расположение файла)
Возможно ли это решить с помощью макроса?
 
Перейти    
Поиск по всем листам
 
#
14.10.2015 15:10:59
Пытливый, он  обманывает меня 8-0
 
Перейти    
Поиск по всем листам
 
#
14.10.2015 14:50:48
Пытливый,Спасибо большущее! но вот с полным документом как быть? RefEdit - это тот же TextBook :)  
Изменено: Keilash - 14.10.2015 14:53:46
 
Перейти    
Поиск по всем листам
 
#
14.10.2015 06:09:45
Код
Sub t49()
Dim objWh As Worksheet
Dim objC As Range
Dim strS As String
    'для каждого листа в книге
    For Each objWh In ThisWorkbook.Worksheets
        With objWh
        'формируем строку
        strS = strS & Chr(10) & .Name & "Нет первой ячейки"
            'на каждом листе в книге проверяем определенный набор ячеек, сформированный через Union
            For Each objC In Union(.Range("A1"))
            
                    strS = strS & Chr(10) & .Name & "Нет второй ячейки ячейки"
            
              For Each objC In Union(.Range("B1"))
              
               strS = strS & Chr(10) & .Name & "Нет третьей ячейки"
                   
              For Each objC In Union(.Range("С1"))
              
                'если значение ячейки пусто
                If objC = "" Then
                    'добавляем ее адрес в строку
                    strS = strS & " " & objC.Address & ","
                End If
            Next objC
        End With
    Next objWh
'выводим результирующую строку с заголовком
MsgBox strS, , "в книге не заполнены ячейки"
End Sub
Попробовала сделать проверку для каждой ячейки, ведь у каждой свое значение. Макрос ругает строчку. Говорит "argument not optional"
Код
For Each objC In Union(.Range("A1"))
Изменено: Keilash - 14.10.2015 09:19:03
 
Перейти    
Поиск по всем листам
 
#
14.10.2015 06:00:20
Пытливый,ух ты!классно! а как это вытаскивать на RefEdit табло,а не через MsgBox и еще в случае заполненности всех ячеек выводить: Документ полный
Изменено: Keilash - 14.10.2015 08:03:56
 
Перейти    
Поиск по всем листам
 
#
13.10.2015 16:08:03
Пытливый,Спасибо! если есть возможность можно пример или ссылочку на пример кинуть?
 
Перейти    
Поиск по всем листам
 
#
13.10.2015 15:56:28
Дорогие форумчане, назрел очередной вопрос:
В документе я проверяю листы на наличие определенных ячеек (B2, B3, B6) на заполненность,а затем они выводятся на табло через RefEdit.
Макрос работает,но показывает лишь первую из незаполненных ячеек из Активного Листа.
Мне же необходимо,чтобы на Табло выводились результаты всех Листов со всеми пустыми ячейками(B2, B3, B6)
Код
If Range("B2") = "" Then
       RefEdit1 = "Отсутствует предприятие" & " " & ActiveSheet.Name
       
    ElseIf Range("B3") = "" Then
       RefEdit1 = "Отсутствует Период" & " " & ActiveSheet.Name
        
    ElseIf Range("B6") = "" Then
       RefEdit1 = "Отсутствует Продукт" & " " & ActiveSheet.Name
    
    Else
       RefEdit1 = "Документ полный"
    End If
Изменено: Keilash - 13.10.2015 15:57:46
 
Перейти    
Единый запрос и открытие файла
 
#
13.10.2015 08:06:54
Михаил Лебедев, хотела бы узнать почему RefEdit выводит сообщение только об одном отсутствующем элементе, возможно ли реализовать так,чтобы он показывал,все ячейки,которые отсутствуют ?
 
Перейти    
Единый запрос и открытие файла
 
#
13.10.2015 07:52:09
Михаил Лебедев, Супер!!! Все заработало) Спасибо!
Изменено: Keilash - 13.10.2015 07:52:22
 
Перейти    
Единый запрос и открытие файла
 
#
13.10.2015 07:34:47
Михаил Лебедев,в вашем случае путь к файлу не отображается
Label во всех случаях отображает "Файл не выбран"
Изменено: Keilash - 13.10.2015 10:08:59
 
Перейти    
Единый запрос и открытие файла
 
#
13.10.2015 07:33:33
Михаил Лебедев, да я это вижу.
1. В первом случае я открываю файл,чтобы получить путь к файлу в окошке
2. во втором случае проверка листов на наличие некоторых ячеек,там же опять открытие файла идет.
А мне нужно,чтобы оба этих условия выполнялись с единого открытия  
 
Перейти    
Единый запрос и открытие файла
 
#
13.10.2015 06:52:22
Файл,где необходимо это выполнить правильно. У меня дважды запрашивает файл
 
Перейти    
Копирование значения ячеек из одного файла в другой
 
#
13.10.2015 06:31:49
Файл с таблицей  
Изменено: Keilash - 13.10.2015 07:56:48
 
Перейти    
Единый запрос и открытие файла
 
#
13.10.2015 06:18:47
В данном случае при вызове Button документ выбирается 2 раза и открывается при второй части кода. Как осуществить единый запрос и открытие файла и не потерять проверку листов
Код
Dim varFileName As Variant
    varFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", , "Pick a file")
    If varFileName = False Then
        Label1.Caption = "Файл не выбран"
    Else
        Label1.Caption = varFileName
         
 Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
      
   With fd
      .AllowMultiSelect = False
      .Title = ""
      .Filters.Clear
      .Filters.Add "Excel 2003", "*.xls"
      .Filters.Add "All Files", "*.*"
      If .Show = True Then
        txtFileName = .SelectedItems(1)
         End If
   End With
'MsgBox (txtFileName)
Workbooks.Open txtFileName
   
If Range("B2") = "" Then
   RefEdit1 = "Отсутствует Предприятие" & " " & ActiveSheet.Name
ElseIf Range("B3") = "" Then
   RefEdit1 = "Отсутствует Продукт" & " " & ActiveSheet.Name
   
ElseIf Range("B6") = "" Then
   RefEdit1 = "Отсутствует Цех" & " " & ActiveSheet.Name

  
Else
   RefEdit1 = "Документ полный"
End If
Изменено: Keilash - 13.10.2015 06:39:48
 
Перейти    
Копирование значения ячеек из одного файла в другой
 
#
12.10.2015 20:59:18
Hugo,есть код в файле Таблица,я обновила. Гляньте пожалуйста
Изменено: Keilash - 12.10.2015 21:06:14
 
Перейти    
Копирование значения ячеек из одного файла в другой
 
#
12.10.2015 20:49:47
Hugo,ошибка выходит,теперь в другой части
Код
iSebes = Split(FormSht.Cells(1, j), "-")(1)
 
Перейти    
Копирование значения ячеек из одного файла в другой
 
#
12.10.2015 20:44:30
Hugo, Подскажите пожалуйста каким образом копировать значение ячеек и перенести в общую таблицу Другого(!) файла Таблица.xls:

1. По ее адресу (5 ячеек) Желтые
B2 в столбец B,
B3 в столбец A,
B6 в столбец C
C9 в столбец F
G9 в столбец G
2. По названию строки и столбца(2 ячейки) Зеленые
(Себестоимость(столбец) - Сумма(план)), адрес ячейки в разных файлах в этом случае будет меняться и копировать эту ячейку опять же в общую таблицу в столбец D
(Себестоимость(столбец) - Сумма(факт)) в столбец E

Файл Таблица копит в себе значения из файлов(Предприятие1, Предприятие2....)
Изменено: Keilash - 12.10.2015 20:58:35
 
Перейти    
Разные условия копирования ячеек
 
#
12.10.2015 20:00:32
Здравствуйте!
Подскажите пожалуйста каким образом копировать значение ячеек и перенести в общую таблицу Другого(!) файла Таблица.xls:
1. По ее адресу (5 ячеек) Желтые
B2 в столбец B,  
B3 в столбец A,
B6 в столбец C
C9 в столбец F
G9 в столбец G
2. По названию строки и столбца(2 ячейки) Зеленые
(Себестоимость(столбец) - Сумма(план)), адрес ячейки в разных файлах в этом случае будет меняться и копировать эту ячейку опять же в общую таблицу в столбец D
(Себестоимость(столбец) - Сумма(факт)) в столбец E

Файл Таблица копит в себе значения из файлов(Предприятие1, Предприятие2....)
Изменено: Keilash - 12.10.2015 20:06:21
 
Перейти    
Копирование значения ячеек из одного файла в другой
 
#
12.10.2015 18:52:24
Hugo,а Вы можете помочь с безупречным кодом?)
 
Перейти    
Страницы: 1 2 3 След.
Наверх