Заполнение 2-ух таблиц одновременно / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заполнение 2-ух таблиц одновременно

13 сообщений из 13, страница 1 из 1

Заполнение 2-ух таблиц одновременно

#34262260

Evrodiller

Гость

Есть Форма (таблица) ввожу в нее данные и при нажатие на кнопку архив отправляю данные на другой лист Архив , там идет поиск последней введеной ячейке и производиться копирование данных из Формы в таблицу Архив , теперь возникла необходимость сделать возможным отправки данных в две таблицы одновременно , условно назову ее Архив 2 , чтобы при нажатие кнопки данные отправлялись в две таблицы сразу.

...

Рейтинг:

0 / 0

17.01.2007, 16:24:32

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34262279

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

хорошая мысль. так будет лучше :)

...

Рейтинг:

0 / 0

17.01.2007, 16:28:48

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34263553

Evrodiller

Гость

Видать дело трудное, раз все молчат ((

...

Рейтинг:

0 / 0

18.01.2007, 09:37:13

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34263587

talgat

Участник

Откуда: Tallinn Estonia

Сообщения: 571

Рейтинг: 0 / 0

EvrodillerВидать дело трудное, раз все молчат ((
Потому и молчат, что СЛИШКОМ ПРОСТО
Private Sub Worksheet_Change(ByVal Target As Range)
Здесь твой код
End Sub

...

Рейтинг:

0 / 0

18.01.2007, 09:48:06

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34263828

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

talgat EvrodillerВидать дело трудное, раз все молчат ((
Потому и молчат, что СЛИШКОМ ПРОСТО

2Evrodiller
не понятно о чем спрашиваете, если смог сделать что данные попадают в одну таблицу, в чем проблема, чтоб скопировать пару строк кода и поменять название листа в них?

...

Рейтинг:

0 / 0

18.01.2007, 10:44:11

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265258

Evrodiller

Гость

И в самом деле ступил (( Спасибо, ребята
А можно ли как нить сделать, чтобы перехода (мерцания ) не было видно. Мелочь,но приятно ))

...

Рейтинг:

0 / 0

18.01.2007, 15:06:50

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265320

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

избавься от activate или покажи код

...

Рейтинг:

0 / 0

18.01.2007, 15:15:18

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265406

Evrodiller

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.

Sub Arxiv ()
'Макрос находит последнею пустую ячейку и копирует данные из Формы Накладные (распечатка)
'далее переходит на лист БД и вставляет скопированное в первую пустую ячейку.

If Range("O1") =  1  Then
   
   
For y =  8  To  52  'Строка от 8 до 52
 If Cells(y,  2 ).Value =  0  Then
  Rows(y).Hidden = True
  
  End If
  Next
Dim Rk, Rk0
Rk = Columns("B").Rows( 65000 ).End(xlUp).Row ' определение первой пустой ячейки в колонке А
    Range("A9:O" & Rk).Select
    Selection.Copy
    Sheets("БД").Select
    Rk0 = Columns("B").Rows( 65000 ).End(xlUp).Row
        
    
    Range("A" & Rk0 +  1 ).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
Sheets("Форма Накладные").Select
    Range("D2").Select
    Application.CutCopyMode = False
    End If
    If Range("O1") =  1  Then
   
   
For y =  8  To  52  'Строка от 8 до 52
 If Cells(y,  2 ).Value =  0  Then
  Rows(y).Hidden = True
  
  End If
  Next
    Dim Rk1, Rk01
Rk1 = Columns("B").Rows( 65000 ).End(xlUp).Row ' определение первой пустой ячейки в колонке А
    Range("A9:O" & Rk).Select
    Selection.Copy
    Sheets("БД1").Select
    Rk01 = Columns("B").Rows( 65000 ).End(xlUp).Row
    
    Range("A" & Rk01 +  1 ).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Application.CutCopyMode = False
Sheets("Форма Накладные").Select
    Range("D2").Select
    Application.CutCopyMode = False
     End If
End Sub

...

Рейтинг:

0 / 0

18.01.2007, 15:34:08

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265470

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

если копируешь простым копированием, то используй

Код: plaintext

Range1.Copy Destination:=Range2

если специальное копирование, то

Код: plaintext

Range1.Copy
Range2.PasteSpecial

без промежуточных .Select

а самое простое решение - Application.ScreenUpdating = False в начале поставить, а Application.ScreenUpdating = True в конце процедуры

...

Рейтинг:

0 / 0

18.01.2007, 15:49:09

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265543

Evrodiller

Гость

vbaproа самое простое решение - Application.ScreenUpdating = False в начале поставить, а Application.ScreenUpdating = True в конце процедуры

Если не трудно покажите, пжлста на примере данном, чуть не понял куда вставлять

...

Рейтинг:

0 / 0

18.01.2007, 16:08:16

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265561

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

EvrodillerSub Arxiv ()
'Макрос находит последнею пустую ячейку и копирует данные из Формы Накладные (распечатка)
'далее переходит на лист БД и вставляет скопированное в первую пустую ячейку.
Application.ScreenUpdating = False
If Range("O1") = 1 Then

For y = 8 To 52 'Строка от 8 до 52
If Cells(y, 2).Value = 0 Then
Rows(y).Hidden = True

End If
Next
Dim Rk, Rk0
Rk = Columns("B").Rows(65000).End(xlUp).Row ' определение первой пустой ячейки в колонке А
Range("A9:O" & Rk).Select
Selection.Copy
Sheets("БД").Select
Rk0 = Columns("B").Rows(65000).End(xlUp).Row

Range("A" & Rk0 + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Форма Накладные").Select
Range("D2").Select
Application.CutCopyMode = False
End If
If Range("O1") = 1 Then

For y = 8 To 52 'Строка от 8 до 52
If Cells(y, 2).Value = 0 Then
Rows(y).Hidden = True

End If
Next
Dim Rk1, Rk01
Rk1 = Columns("B").Rows(65000).End(xlUp).Row ' определение первой пустой ячейки в колонке А
Range("A9:O" & Rk).Select
Selection.Copy
Sheets("БД1").Select
Rk01 = Columns("B").Rows(65000).End(xlUp).Row

Range("A" & Rk01 + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Форма Накладные").Select
Range("D2").Select
Application.CutCopyMode = False
End If
Application.ScreenUpdating = True
End Sub

...

Рейтинг:

0 / 0

18.01.2007, 16:14:05

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265582

Evrodiller

Гость

Спасибо огромное... Все просто и идеально

...

Рейтинг:

0 / 0

18.01.2007, 16:20:12

| Ответить | Цитировать | Написать

Заполнение 2-ух таблиц одновременно

#34265600

vbapro

Участник

Сообщения: 1 112

Рейтинг: 0 / 0

EvrodillerСпасибо огромное... Все просто и идеально
пожалуйста,
:) "просто" - согласен, "идеально" - будет когда избавишься от Select. почитай на форуме, пару раз это обсуждалось, много хороших для парктики мыслей высказывались

...

Рейтинг:

0 / 0

18.01.2007, 16:23:45

| Ответить | Цитировать | Написать

13 сообщений из 13, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заполнение 2-ух таблиц одновременно

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=34263553&tid=2183619]:	0ms
get settings:	10ms
get forum list:	19ms
check forum access:	3ms
check topic access:	3ms
track hit:	46ms
get topic data:	9ms
get forum data:	2ms
get page messages:	52ms
get tp. blocked users:	1ms
others:	216ms

total:	361ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы