Автор Тема: Вставить из листа  (Прочитано 1111 раз)

Оффлайн Screen

  • Посетитель форума
  • Сообщений: 26
Re: Вставить из листа
« Ответ #30 : 08 Октябрь 2022, 21:30 »
да, со столбца G.
Мне кажется, что не вставляется в другие ячейки, потому что заголовки объединены. Вставилось только там, где заголовки не объединены. Только не ругайтесь)

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #31 : 08 Октябрь 2022, 21:31 »
А что находится в G8, какой-то текст или ещё что?

Оффлайн Screen

  • Посетитель форума
  • Сообщений: 26
Re: Вставить из листа
« Ответ #32 : 08 Октябрь 2022, 21:32 »
Да, текст, эл.почта

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #33 : 08 Октябрь 2022, 21:33 »
Щёлкните в ячейке G8 и посмотрите, что в адресной строке, какой там адрес?

Оффлайн Screen

  • Посетитель форума
  • Сообщений: 26
Re: Вставить из листа
« Ответ #34 : 08 Октябрь 2022, 21:46 »
G8

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #35 : 08 Октябрь 2022, 21:46 »
Эта ячейка объединённая: Worksheets("Отчёт").Cells(r, "J")?

Оффлайн Screen

  • Посетитель форума
  • Сообщений: 26
Re: Вставить из листа
« Ответ #36 : 08 Октябрь 2022, 21:49 »
Нет, в Отчёте нет объединенных ячеек (кроме заголовков)

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #37 : 08 Октябрь 2022, 21:54 »
Да, объединение заголовков может иметь значение.
Если строки таблицы ещё не заполнены, а на листе только заголовок и он объединённый, то последняя строка будет определена неправильно. Но у вас в ответе #15 на скриншоте не видно столбца J.
Макрос получается вставляет значение в заголовок, в невидимую ячейку.
Значит последнюю строку ищите по тому столбцу, в котором всегда будут данные или в котором нет объединённых заголовков.

Оффлайн Screen

  • Посетитель форума
  • Сообщений: 26
Re: Вставить из листа
« Ответ #38 : 08 Октябрь 2022, 21:58 »
Когда отменяла объединение заголовков, то всё работало. Просто так не очень удобно. Я вас поняла, буду переделывать заголовки. Спасибо большое за терпение!

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #39 : 08 Октябрь 2022, 22:03 »
А зачем вы ищите в отчёте последнюю строку для каждого столбца?
Почему бы не найти её один раз?

Оффлайн Screen

  • Посетитель форума
  • Сообщений: 26
Re: Вставить из листа
« Ответ #40 : 08 Октябрь 2022, 22:09 »
Я думала каждый раз нужно. Если планируется большое кол-во новых заявок, чтобы автоматом они подгружались. Я вот разобралась с этим. Единственное, некоторые поля не заполнены в заявке и поэтому ищу как вместо пустой ячейки писать тире. Если вам не сложно показать, буду рада)

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #41 : 08 Октябрь 2022, 22:11 »
Теперь вы будете искать последнюю строку в отчёте один раз? В этом случае тогда вы можете искать последнюю строку по тому столбцу, в котором нет объединённых ячеек в заголовке, и вам не надо менять внешний вид заголовков.

Оффлайн Screen

  • Посетитель форума
  • Сообщений: 26
Re: Вставить из листа
« Ответ #42 : 08 Октябрь 2022, 22:15 »
Ого, спасибо))))

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #43 : 08 Октябрь 2022, 22:17 »
Вот так должно получиться:

Макрос
Sub Макрос()
   
    Dim r As Long
   
    r = Worksheets("Отчёт").Cells(Worksheets("Отчёт").Rows.Count, "N").End(xlUp).Row + 1
    Worksheets("Отчёт").Cells(r, "N").Value = Range("F11").Value
    Worksheets("Отчёт").Cells(r, "M").Value = Range("E11").Value
    Worksheets("Отчёт").Cells(r, "L").Value = Range("D11").Value
    Worksheets("Отчёт").Cells(r, "K").Value = Range("C11").Value
    Worksheets("Отчёт").Cells(r, "J").Value = Range("G8").Value
    Worksheets("Отчёт").Cells(r, "I").Value = Range("C8").Value
   
End Sub

Оффлайн Администратор

  • Administrator
  • Сообщений: 2162
Re: Вставить из листа
« Ответ #44 : 08 Октябрь 2022, 22:28 »
Работает то, что я предложил? Вместо столбца N можете выбрать другой столбец для поиска последней строки.