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

Страницы: 1
Как правильно ссылаться на переменный диапазон, ошибка 1004
 
#
07.04.2019 08:29:54
Цитата
БМВ написал:
1bbb = "C"&a&":C"&b
"C"&aa&":C"&bb
красным подсвечивается
и так тоже: ""C"&a&":C"&b"
 
Перейти    
Как правильно ссылаться на переменный диапазон, ошибка 1004
 
#
07.04.2019 08:07:22
Добрый день уважаемые форумчане.
Мне нужно  обращаться к переменному диапазону вида Сх:Су,. При запуске вылезает ошибка 1004 ((
Как правильно это делается?
С Уважением!
Sub test()
Dim itog As Range
Dim a As Long
Dim b As Long
Dim bbb As String
aa = 5
bb = 20
bbb = "C&aa:c&bb"
With Workbooks("2018").Worksheets("февраль").Range(bbb)

Set itog = .Find("Итого по сотруднику", LookAt:=xlPart)

If Not itog Is Nothing Then
MsgBox itog.Row
End If
End With

End Sub
Изменено: nikmet - 07.04.2019 08:18:22
 
Перейти    
копирование относительных ссылок
 
#
13.11.2018 17:22:53
Цитата
Казанский написал:
ПопробуйтеКод ? 123Range("BO26:BO71").FormulaR1C1 = Range("EY26:EY71").FormulaR1C1'илиRange("EY26:EY71").Copy Range("BO26")
Огромное спасибо!
 
Перейти    
копирование относительных ссылок
 
#
13.11.2018 13:56:03
Цитата
vikttur написал:
Пример - это не рабочий файл с кучей бесполезной для решения вопроса информации. Чем меньше отвлекающих данных, тем меньше помощники тратят времени, тем быстрее помощь.
спасибо, вечером сделаю более читабельный пример
 
Перейти    
копирование относительных ссылок
 
#
13.11.2018 13:04:33
Здравствуйте уважаемые форумчане!

По событию в ячейке g6 (лист протокол у меня подставляется 2 таблицы.
Например для ВКТ-7-01
Код
 Range("A23:BH71").Value = Range("CK23:ER71").Value
           Range("BO26:BO71").Formula = Range("EY26:EY71").Formula

Моя проблема: формулы для  BO26:BO71 ссылаются на CK23:ER71, а нужно на A23:BH71.
Подскажите пожалуйста как реализовать копирование формул правильно.
Код можно посмотреть на лист 1, кому лень:
Код
Sub Worksheet_Change(ByVal Target As Range)
    t = Target.Address
    If Target.Address = "$G$6" Then
       Select Case Target.Value
        Case "ВКТ-7-01"
         
           Range("A23:BH71").Value = Range("CK23:ER71").Value
           Range("BO26:BO71").Formula = Range("EY26:EY71").Formula
       Case "ВКТ-7-02"
        
            Range("A23:BH71").Value = Range("CK73:ER121").Value
             Range("BO26:BO71").Formula = Range("EY76:EY121").Formula
         Case "ВКТ-7-03"
         
             Range("A23:BH71").Value = Range("CK122:ER170").Value
              Range("BO26:BO71").Formula = Range("EY125:EY170").Formula
         Case "ВКТ-7-04"
              Range("A23:BH71").Value = Range("CK172:ER220").Value
               Range("BO26:BO71").Formula = Range("EY175:EY220").Formula
        
          Case "ВКТ-7-04Р"
              Range("A23:BH71").Value = Range("CK222:ER270").Value
               Range("BO26:BO71").Formula = Range("EY225:EY270").Formula
         
         
        End Select

    End If
End Sub
С уважением nikmet

П.С. вопрос не по теме удален [МОДЕРАТОР]
Изменено: nikmet - 13.11.2018 14:54:36
 
Перейти    
Как скопировать значение диапазона А1:Х100 из 1.xlsx в 2.xlsx не открывая файлы
 
#
29.09.2018 15:29:59
... конечно с заданными листами книг
Собственно сабж, уважаемые форумчане!
Изменено: nikmet - 29.09.2018 15:31:20
 
Перейти    
Внимание Баян: работа с Range
 
#
28.09.2018 23:40:34
Прошу переименовать тему  или подсказать  как сформулировать поиск--запрос. С Уважением.
 
Перейти    
Внимание Баян: работа с Range
 
#
28.09.2018 23:26:07
Доброе время суток уважаемые форумчане.
Ниже код, работает при открытом файле. Хотелось бы работать с объектами когда они спокойно лежат в папке( по аналогии с Append, output  и тд для текстовых файлов). Сорри, раз пишу, значит ума составить запрос для поиска нет и не получается.
Прошу Вашей помощи.
П.С.  Было бы круто найти грааль ввиде  отлично структурированной книги, что бы больше не тратить время на такие дебильные вопросы.
Джона Уолкена прошу не предлагать )))
Код
Sub hello yep()
 Application.Workbooks("test.xlsx").Worksheets("лист1").Range("A1") = 1
End Sub
 
Перейти    
Заполнение таблицы в зависимости от выбранного в списке значения, в зависимости от модели подставить таблицу с формулами.
 
#
04.09.2018 15:47:18
Прошу прощения за не правильно сформулированную задачу.
Прикрепил новый файл.
Смысл такой: ячейки для ручного заполнения после копирования шаблона в зависимости от выбора из выпадающего списка, отмечены в самом шаблоне синим цвето, остальные- ячейки будут защищены.
 
Перейти    
Заполнение таблицы в зависимости от выбранного в списке значения, в зависимости от модели подставить таблицу с формулами.
 
#
04.09.2018 08:17:38
Здравствуйте уважаемые форумчане!
Помогите решить следующую задачу:

Дано: -несколько таблиц -шаблонов одной формы;
        - выпадающий список с их названиями;
        -Таблица, которую нужно заполнить;

Требуется заполнить таблицу по одному из шаблонов при выборе названия из выпадающего списка.

Важно: После заполнения, некоторые ячейки таблицы буду заполняться в ручную.
И можно ли реализовать такую задачу без макросов?

 
 
Перейти    
Связанные списки: при смене элемента списка А, Элемент в списке Б отображался заданным по умолчани
 
#
05.07.2018 11:23:10
Спасибо за ссылку. Однако у меня имена цифры, поэтому двссыл не работает. Я связываю выпадающие списки через диспечер имен и функцию "счещ". Есть другие идеи?
 
Перейти    
Связанные списки: при смене элемента списка А, Элемент в списке Б отображался заданным по умолчани
 
#
03.07.2018 10:13:12
Добрый день.

Есть связанные выпадающие списки. Условно А и Б.
При выборе элемента из А, хотелось бы что бы в ячейке для Б по умолчанию отображался: пустой элемент/ элемент по алфавиту.

Прошу уважаемых форумчан поделиться идеей реализации данной задачи
 
Перейти    
Перебор Rows: ошибка 13
 
#
18.10.2017 15:34:16
потому что я его в таком виде скопировал.
Чем плох селект?

Всем спасибо!
 
Перейти    
Перебор Rows: ошибка 13
 
#
18.10.2017 15:27:40
Цитата
Зачем вам цикл для одной строки?
строка не одна, для отладки поставил. Я начинающий, мне так проще.

Цитата
И что такое Rows("X:X")
строка х

Цитата
а что Вы хотите получить?
Скопировать с листа на лист строки X
есть критерий. зашит в переменную Х.
Х-вые строки я хочу скопировать на новый лист
 
Перейти    
Перебор Rows: ошибка 13
 
#
18.10.2017 15:16:16
Дорогие, друзья, здравствуйте!
Прошу помочь тупому :)

записал макрос: скопировал строку на листе A  и вставил в лист B
вот он
Код
[P]Rows("5:5").Select
Selection.Copy
Sheets("B").Select
Rows("5:5").Select
ActiveSheet.Paste

В свей процедуре  определил  тип переменной х и присвоил значение х=5, определил тип и присвоил значение для i

цикл for i=1 to 1

Rows("X:X").Select
Selection.Copy
Sheets("B").Select
Rows("X:X").Select
ActiveSheet.Paste
next i

выдает ошибку 13. Поскольку я бездумно скопировал и ошибку найти не смогу
Подскажите пожалуйста как в процедуру интегрировать данный макрос.[/P]

П.С. буду рад и за ссылку на литературу или ресурс,  который поможет мне в работе с ячейками, рядами , столбцами и тд.
 
Перейти    
Страницы: 1
Наверх