Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос ключевых позиций в таблицу на другом листе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос ключевых позиций в таблицу на другом листе (Формулы/Formulas)
Перенос ключевых позиций в таблицу на другом листе
Alistersix Дата: Вторник, 04.09.2018, 11:00 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброе утро, дорогие друзья! Столкнулся с проблемой, как можно осуществить, только Вы родные можете помочь, только на Вас надежда...
Задача: после заполнения счета на оплату. При нажатии кнопки "Записать клиента" Ключевые позиции, заносились на второй странице "Клиенты" в таблицу, и при следующем нажатии, на кнопку "Записать клиента" данные так же вносили в эту таблицу но на строку ниже.

Что только не перепробовал ничего не выходит((( Очень слаб в Макросах.
К сообщению приложен файл: 9499201.xlsm(40.1 Kb)
 
Ответить
СообщениеДоброе утро, дорогие друзья! Столкнулся с проблемой, как можно осуществить, только Вы родные можете помочь, только на Вас надежда...
Задача: после заполнения счета на оплату. При нажатии кнопки "Записать клиента" Ключевые позиции, заносились на второй странице "Клиенты" в таблицу, и при следующем нажатии, на кнопку "Записать клиента" данные так же вносили в эту таблицу но на строку ниже.

Что только не перепробовал ничего не выходит((( Очень слаб в Макросах.

Автор - Alistersix
Дата добавления - 04.09.2018 в 11:00
_Boroda_ Дата: Вторник, 04.09.2018, 11:43 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 12958
Репутация: 5330 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub Df()
    Dim sh2 As Worksheet, ar(1 To 1, 1 To 10)
    Dim r1_ As Long
    Set sh2 = Worksheets("Клиенты")
    r1_ = sh2.Cells(Rows.Count, 2).End(3).Row
    ar(1, 1) = Cells(5, 3)
    ar(1, 2) = Cells(5, 5)
    ar(1, 3) = Cells(8, 5)
    ar(1, 4) = Cells(6, 3)
    ar(1, 5) = Cells(7, 5)
    ar(1, 6) = Cells(6, 7)
'    ar(1, 7) = ""
'    ar(1, 8) = ""
    ar(1, 9) = Cells(Cells(Rows.Count, 13).End(3).Row, 13)
    ar(1, 10) = Cells(Cells(Rows.Count, 9).End(3).Row - 2, 9)
    With sh2
        r1_ = .Cells(.Rows.Count, 2).End(3).Row
        If .Cells(r1_, 2) = "" Then
            r1_ = .Cells(r1_, 2).End(3).Row
        End If
        .Cells(r1_ + 1, 2).Resize(1, 10) = ar
    End With
    MsgBox "Перенесено"
End Sub
[/vba]
К сообщению приложен файл: 9499201_2.xlsm(42.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub Df()
    Dim sh2 As Worksheet, ar(1 To 1, 1 To 10)
    Dim r1_ As Long
    Set sh2 = Worksheets("Клиенты")
    r1_ = sh2.Cells(Rows.Count, 2).End(3).Row
    ar(1, 1) = Cells(5, 3)
    ar(1, 2) = Cells(5, 5)
    ar(1, 3) = Cells(8, 5)
    ar(1, 4) = Cells(6, 3)
    ar(1, 5) = Cells(7, 5)
    ar(1, 6) = Cells(6, 7)
'    ar(1, 7) = ""
'    ar(1, 8) = ""
    ar(1, 9) = Cells(Cells(Rows.Count, 13).End(3).Row, 13)
    ar(1, 10) = Cells(Cells(Rows.Count, 9).End(3).Row - 2, 9)
    With sh2
        r1_ = .Cells(.Rows.Count, 2).End(3).Row
        If .Cells(r1_, 2) = "" Then
            r1_ = .Cells(r1_, 2).End(3).Row
        End If
        .Cells(r1_ + 1, 2).Resize(1, 10) = ar
    End With
    MsgBox "Перенесено"
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 04.09.2018 в 11:43
Alistersix Дата: Вторник, 04.09.2018, 11:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Супер! Спасибо большое! Вы мой спаситель!
 
Ответить
Сообщение_Boroda_, Супер! Спасибо большое! Вы мой спаситель!

Автор - Alistersix
Дата добавления - 04.09.2018 в 11:53
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос ключевых позиций в таблицу на другом листе (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!