Перенос данных на др. лист построчно с кнопкой - Страница 3

Старая форма входа

Страница 3 из 3 « 1 2 3
Модератор форума: китин, _Boroda_

Перенос данных на др. лист построчно с кнопкой (Макросы Sub)

Перенос данных на др. лист построчно с кнопкой

Hugo

Дата: Среда, 31.07.2013, 00:36 | Сообщение № 41

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3703

Репутация: 792 ±

Замечаний: 0% ±

365

Так у Вас вероятно стиль ссылок R1C1 в книге? Цифры сверху и слева?
Поменяйте в настройках Параметры-Формулы.
Или я не угадал?

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

SkyPro

Дата: Среда, 31.07.2013, 00:42 | Сообщение № 42

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Как вариант:
[vba]

Код

Private Sub CommandButton1_Click()
Dim rRange As Range
ns$ = Лист1.[b5].Value
kol$ = Лист1.[g10].Value
       Set rRange = Лист2.Cells(Лист2.Cells.Find(what:="Номер станка:").Row, Лист2.Cells.Find(what:="Номер станка:").Column)
           If kol <> "" Then
               rRange.End(xlDown)(2).Formula = ns
               rRange.End(xlDown)(2).Offset(-1, 1).Formula = kol
           End If
Лист1.[g10].ClearContents
End Sub

[/vba]
или так:
[vba]

Код

Private Sub CommandButton1_Click()
Dim rRange As Range
ns$ = Sheets(1).[b5].Value
kol$ = Sheets(1).[g10].Value
     Set rRange = Sheets(2).Cells(Sheets(2).Cells.Find(what:="Номер станка:").Row, Sheets(2).Cells.Find(what:="Номер станка:").Column)
         If kol <> "" Then
             rRange.End(xlDown)(2).Formula = ns
             rRange.End(xlDown)(2).Offset(-1, 1).Formula = kol
         End If
Sheets(1).[g10].ClearContents
End Sub

[/vba]

Только "Номер станка" нужно заменить на "Номер станка:". Или удалить тексты содержащие слова "Номер станка" на листе 2, кроме шапки.