asterisk (Все сообщения пользователя)

Поиск по номеру в одной книге и подставить данные в другую книгу

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 22.03.2017 09:38:02 Ребята кто нибудь подскажите хотя-бы пример куда копать.
	Перейти

Поиск по номеру в одной книге и подставить данные в другую книгу

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

21.03.2017 14:19:43

Доброе время суток!
Подскажите пожалуйста как сделать поиск по номеру и подставить данные в другую книгу.
Есть две книги Главная и Справка. Нужно ввести номер в книге Главная, далее делать поиск в книге Справка
и подставлять в колонку количество +1 и данные вывести на книгу Главная. А на лист 2 в колонку количество добавить 1.
Если номер повторяется просто добавлять 1 в колонку количество в книге Справка и также выводить в книгу Главная.
Но при этом книга Справка должна быть закрыта. Получилось сделать только поиск в книге Справка.

Перейти

В форме Combobox и textbox связь

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 13.08.2016 18:27:51 Спасибо будем разбираться,
	Перейти

Как закрасить ячейку с тем же значение после подстановки значения в textbox

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 13.08.2016 18:22:58 Спасибо огромное приму во внимание.
	Перейти

Как закрасить ячейку с тем же значение после подстановки значения в textbox

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

13.08.2016 17:30:55

Доброе время суток!
Задача такая. После подстановки в textbox значение, нужно чтобы закрашивалась именно та ячейка с тем же значением.
Просто в VBA я еще пока не силен, но сегодня мне jeyCI уже сильно помог с этим файлом. И некоторые записи в коде для меня еще не известны.
Пока разбираюсь. Помогите дописать код и если можно с комментарием. Буду очень признателен.
Пример прилагается.

Перейти

В форме Combobox и textbox связь

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 13.08.2016 15:25:18 JeyCi Огромное спасибо то что нужно.
	Перейти

В форме Combobox и textbox связь

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

13.08.2016 11:02:57

Доброе время суток!
Подскажите пожалуйста как сделать чтобы в форме при выборе в combobox1 значения, в textbox1 подставлялось значение из листа макароны с столбца В последняя не закрашенная ячейка. И после подстановки в textbox1 чтобы эта ячейка закрашивалась. И при следующем открытии формы продолжала выбирать следующую ячейки.

Перейти

Скопировать и переименовать с одного листа на другой лист через форму макросом

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 05.06.2015 20:53:42 Спасибо ВСЕМ за отклик буду пробовать. Заранее благодарен!!!
	Перейти

Скопировать и переименовать с одного листа на другой лист через форму макросом

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

05.06.2015 19:14:58

Доброе время суток!
У меня еще один вопрос к специалистам.
Сделал запись макрорекордером, подскажите пожалуйста можно ли подредактировать код и сделать, чтобы через форму можно было переименовывать лист.
Я имею ввиду нажал кнопку появилась форма в ней переименовал лист и в форме нажал кнопку скопировать на другой лист.

Код

 Range("C6:FS10778").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    Range("A2").Select
    ActiveSheet.Paste
    Columns("A:A").ColumnWidth = 10.29
    Columns("B:B").ColumnWidth = 61
    Columns("K:K").ColumnWidth = 10.43
    Columns("L:L").ColumnWidth = 10.43
    Columns("O:O").EntireColumn.AutoFit
    Columns("U:U").EntireColumn.AutoFit
    Columns("Z:Z").EntireColumn.AutoFit
    Columns("AE:AE").EntireColumn.AutoFit
    Columns("AJ:AJ").EntireColumn.AutoFit
    Columns("AO:AO").EntireColumn.AutoFit
    Columns("AT:AT").EntireColumn.AutoFit
    Columns("AY:AY").EntireColumn.AutoFit
    Columns("BD:BD").EntireColumn.AutoFit
    Columns("BI:BI").EntireColumn.AutoFit
    Columns("BN:BN").EntireColumn.AutoFit
    Columns("BS:BS").EntireColumn.AutoFit
    Columns("BX:BX").EntireColumn.AutoFit
    Columns("CC:CC").EntireColumn.AutoFit
    Columns("CH:CH").EntireColumn.AutoFit
    Columns("CM:CM").EntireColumn.AutoFit
    Columns("CR:CR").EntireColumn.AutoFit
    Columns("CW:CW").EntireColumn.AutoFit
    Columns("DB:DB").EntireColumn.AutoFit
    Columns("DG:DG").EntireColumn.AutoFit
    Columns("DL:DL").EntireColumn.AutoFit
    Columns("DQ:DQ").EntireColumn.AutoFit
    Columns("DV:DV").EntireColumn.AutoFit
    Columns("EA:EA").EntireColumn.AutoFit
    Columns("EF:EF").EntireColumn.AutoFit
    Columns("EK:EK").EntireColumn.AutoFit
    Columns("EP:EP").EntireColumn.AutoFit
    Columns("EU:EU").EntireColumn.AutoFit
    Columns("EZ:EZ").EntireColumn.AutoFit
    Columns("FE:FE").EntireColumn.AutoFit
    Columns("FJ:FJ").EntireColumn.AutoFit
    Columns("FO:FO").EntireColumn.AutoFit
    Columns("D:G").Select
    Selection.EntireColumn.Hidden = True
    Columns("M:R").Select
    Selection.EntireColumn.Hidden = True
    Range("A5").Select
    ActiveWindow.DisplayGridlines = False
    Range("S5").Select
    ActiveWindow.FreezePanes = True
    Sheets("Основной").Select
    Range("C9").Select

Перейти

Помогите вставить в код сообщение "MsgBox Заполните поля!"

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 05.06.2015 18:55:15 Спасибо Вам огромное ikki. Уже опробовал. Все работает. Еще раз Вам спасибо!!!!
	Перейти

Помогите вставить в код сообщение "MsgBox Заполните поля!"

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

05.06.2015 17:41:07

Доброе время суток!
Помогите пожалуйста вставить в этот код сообщение "MsgBox Заполните поля!", по TextBox1,2,3.
Заранее благодарен!!!

Код

Private Sub CommandButton1_Click()
Dim FR As Range, i%
With Sheets("Лист1")
Set FR = .Columns("A").Find(Me.ComboBox1.Text)
   If Not FR Is Nothing Then
    i = FR.Row
    .Rows(i).EntireRow.Insert
    .Cells(i, 1) = Me.ComboBox1.Text
    .Cells(i, 2) = Me.TextBox1
    .Cells(i, 3) = Me.TextBox2
    .Cells(i, 4) = Me.TextBox3
     
     Me.TextBox1 = ""
     Me.TextBox2 = ""
     Me.TextBox3 = ""
   End If
   ' правим границы
  With .Range(.Cells(i, 1), .Cells(i, 4))
  .Borders(xlInsideVertical).Weight = xlThin
  .Borders(xlEdgeBottom).Weight = xlThin
  .Borders(xlEdgeTop).Weight = xlMedium
  End With
End With
End Sub
 
Private Sub UserForm_Initialize()
Dim Sd As Object, i%
'формируем список для ComboBox1
With Sheets("Лист1")
Set Sd = CreateObject("Scripting.Dictionary")
For i = 8 To .Cells(Rows.Count, 1).End(xlUp).Row
   If Cells(i, 1) <> "" Then Sd.Item(.Cells(i, 1).Value) = ""
Next
' список сформирован заносим его в ComboBox1
ComboBox1.List = Sd.Keys
End With
End Sub

Перейти

Добавление новой записи через форму по категориям, макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

27.05.2015 23:07:23

Да конечно! Теперь порядковый номер добавляется автоматически при добавлении новой записи по порядку 1,2,3, и т.д., в колонку Е.

Код
.Cells(i, 5) = Application.Max(Range("E:E") + 1

Перейти

Добавление новой записи через форму по категориям, макрос

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 26.05.2015 21:49:19 Спасибо ВСЕМ уже нашел решение.
	Перейти

Добавление новой записи через форму по категориям, макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

25.05.2015 21:14:25

Добрый вечер! V.
Скажите пожалуйста как добавить автоматический порядковый номер в ячейку .Cells(i, 5) в этом коде. Пытаюсь сделать макрорекордером ничего не получается. Заранее благодарен!

Код

Private Sub CommandButton1_Click()
Dim FR As Range, i%
With Sheets("Лист1")
Set FR = .Columns("A").Find(Me.ComboBox1.Text)
   If Not FR Is Nothing Then
    i = FR.Row
    .Rows(i).EntireRow.Insert
    .Cells(i, 1) = Me.ComboBox1.Text
    .Cells(i, 2) = Me.TextBox1
    .Cells(i, 3) = Me.TextBox2
    .Cells(i, 4) = Me.TextBox3
     
     Me.TextBox1 = ""
     Me.TextBox2 = ""
     Me.TextBox3 = ""
   End If
   ' правим границы
  With .Range(.Cells(i, 1), .Cells(i, 4))
  .Borders(xlInsideVertical).Weight = xlThin
  .Borders(xlEdgeBottom).Weight = xlThin
  .Borders(xlEdgeTop).Weight = xlMedium
  End With
End With
End Sub
 
Private Sub UserForm_Initialize()
Dim Sd As Object, i%
'формируем список для ComboBox1
With Sheets("Лист1")
Set Sd = CreateObject("Scripting.Dictionary")
For i = 8 To .Cells(Rows.Count, 1).End(xlUp).Row
   If Cells(i, 1) <> "" Then Sd.Item(.Cells(i, 1).Value) = ""
Next
' список сформирован заносим его в ComboBox1
ComboBox1.List = Sd.Keys
End With
End Sub

Перейти

Добавление новой записи через форму по категориям, макрос

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 19.05.2015 20:18:33 Спасибо Вам огромное за помощь!!!!!!!!!!!!! А макрорекордером Вы имеете ввиду это запись макроса?
	Перейти

Добавление новой записи через форму по категориям, макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

19.05.2015 12:36:26

Доброе время суток! V.
Большое Вам спасибо за код. Вроде бы все работает как надо. Вы меня конечно извините за сверх наглость но не могли бы Вы еще помочь сделать, чтобы можно было сортировать от А до Я при добавлении новой записи. Я имею ввиду например добавили в категорию "Макароны" или "Шоколад" новую запись и сразу от сортировалась запись от А до Я.
Еще раз прошу прощение за сверх наглость.
Заранее благодарен!

Перейти

Добавление новой записи через форму по категориям, макрос

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 18.05.2015 19:24:34 Доброе время суток! Спасибо Вам за отклик!!! Буду пробовать.
	Перейти

Добавление новой записи через форму по категориям, макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

17.05.2015 18:47:16

Доброе время суток!
Есть пример в нем написан макрос добавление новой записи через форму. Помогите пожалуйста подкорректировать макрос, чтобы через форму добавлялась запись по категориям. Я имею ввиду если в форме поставить категорию "Макароны", чтобы запись добавилась к категории "Макароны".
Заранее благодарен!

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 25.04.2015 22:49:46 Доброе время суток! Да. Извините что-то не по теме...
	Перейти

Сдвиг столбцов с продолжением суммирвание формулы, макрос или формулой

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

25.04.2015 22:44:44

Доброе время суток! Слэн.
Вы пример не смотрели? В примере когда вводишь цифру 1 в колонку F6 прибавляется 1 в колонку B10, а потом нажимаешь кнопку сдвиг происходит сдвиг колонок и в колонке B10 становится начальное значение 10.

Перейти

Сдвиг столбцов с продолжением суммирвание формулы, макрос или формулой

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

25.04.2015 13:34:11

Доброе время суток!
Подскажите пожалуйста как написать макрос или формулу, чтобы формула продолжала считать. Сделал запись макроса нажимаю кнопку сдвиг он мне сдвигает а формулу сбрасывает. Вот никак не могу сообразить что нужно сделать, чтобы формула продолжала считать.Пример прилагается.
Заранее благодарен.

Извините забыл сказать сдвиг столбцов хотел бы сделать по дням с 1 по 31.

Изменено: asterisk - 25.04.2015 13:52:12

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

23.04.2015 21:00:28

Доброе время суток! Пытливый.
Подскажите пожалуйста как сократить вот эту формулу:

=СУММ(E10;G10;I10;AF10;AH10;AL10;AN10;AR10;AT10;AX10;AZ10;BD10;BF10;BJ10;BL10;BP10;BR10;BV10;
BX10;CB10;CD10;CH10;CJ10;CN10;CP10;CT10;CV10;CZ10;DB10;DF10;DH10;DL10;DN10;DR10;DT10;
DX10;DZ10;ED10;EF10;EJ10;EL10;EP10;ER10;EV10;EX10;FB10;FD10;FH10;FJ10;FN10;FP10;FT10;FV10;
FZ10;GB10;GF10;GH10;GL10;GN10;GR10;GT10;GX10;GZ10;HD10;HF10)-СУММ(H10;J10;K10;L10;AG10;AI10;
AJ10;AK10;AM10;AO10;AP10;AQ10;AS10;AU10;AV10;AW10;AY10;BA10;BB10;BC10;BE10;BG10;BH10;BI10;BK10;
BM10;BN10;BO10;BQ10;BS10;BT10;BU10;BW10;BY10;BZ10;CA10;CC10;CE10;CF10;CG10;CI10;CK10;CL10;CM10;
CO10;CQ10;CR10;CS10;CU10;CW10;CX10;CY10;DA10;DC10;DD10;DE10;DG10;DI10;DJ10;DK10;DM10;DO10;DP10;
DQ10;DS10;DU10;DV10;DW10;DY10;EA10;EB10;EC10;EE10;EG10;EH10;EI10;EK10;EM10;EN10;EO10;EQ10;ES10;
ET10;EU10;EW10;EY10;EZ10;FA10;FC10;FE10;FF10;FG10;FI10;FK10;FL10;FM10;FO10;FQ10;FR10;FS10;FU10;
FW10;FX10;FY10;GA10;GC10;GD10;GE10;GG10;GI10;GJ10;GK10;GM10;GO10;GP10;GQ10;GS10;GU10;GV10;GW10;
GY10;HA10;HB10;HC10;HE10;HG10;HH10;HI10)

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk Пользователь Сообщений: 37 Регистрация: 21.03.2015	# 02.04.2015 17:58:41 Добрый вечер! Пытливый. Спасибо за разъяснение, буду пробовать.
	Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

02.04.2015 11:31:25

Доброе время суток! Пытливый.
Спасибо Вам огромное! Все работает.
А не подскажите как в этой строчке .Range(.Cells(lngI, 1), .Cells(lngI, 6)).Copy WhReport.Cells(lngJ + 1, 1) сделать вывод определенных столбцов например .Cells(lngI, 1), .Cells(lngI, 2), .Cells(lngI, 5), .Cells(lngI, 6). Пробую сделать не получается там как-то через квадратные скобки и не могу понять.

А так все работает ка нужно. Еще раз огромное Вам спасибо.

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

01.04.2015 18:08:49

Добрый вечер! Пытливый.
ВСЕ ЗАРАБОТАЛО!!! ОГРОМНОЕ ВАМ СПАСИБО!!! Если бы не Вы я бы наверно месяц а то и больше разбирался. Попробую на реальном списке.

А можно еще один вопрос!
Как сделать чтобы в А3 ввел 5 цифр ( ну допустим 10485) и макрос срабатывал автоматически без нажатия кнопки и enter.

И еще раз хочу по благодарить ВАС.
Заранее спасибо.

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

31.03.2015 18:19:55

Доброе время суток! Пытливый.
Вы конечно меня извините но так же без изменений. Вводишь 1 код нормально. Вводишь 2,3,4, коды на листе 1 он все равно прибавляет к 1 коду, особенно когда вводишь последную строку он постоянно добавляет к 1 коду на листе 1.

А можно как нибудь сделать условие примерно такое я правда не знаю как описать переменную и там еще что-то...... После того как код есть на листе 1 сравнивать с ячейкой А3 и так же добавлять 1 на лист 2 в 6 столбец и копировать.

Код

if WhReport.Range("A3") =cells(столбец А лист 1) then 
.Cells(lngI, 6) = .Cells(lngI, 6) + 1   
и копировать всю строку с листа 2  на лист 1
или только 6 столбец с листа 2 в столбец 6 на лист 1

сверху этого кода ну или после этого кода

Код

If .Cells(lngI, 1) = WhReport.Range("A3") Then
lngJ = WhReport.Cells(WhReport.Rows.Count, 1).End(xlUp).Row                       
 .Cells(lngI, 6) = .Cells(lngI, 6) + 1
.Range(.Cells(lngI, 1), .Cells(lngI, 6)).Copy WhReport.Cells(lngJ + 1, 1

Еще раз извините если что-то не так написал. Заранее благодарен.

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

30.03.2015 21:38:31

Добрый вечер! Пытливый.
Проверил работает не корректно. Ввожу первый код все хорошо, ввожу второй код работает нормально, когда ввожу еще раз второй код начинает прибавлять первому коду. Бывает что вводишь четвертый код тоже прибавляет первому коду. Если Вам не трудно могли бы Вы сказать что означают эти строчки

Код

If Not .Range("A5:A" & .Range("A5").CurrentRegion.Rows.Count + 5).Find(.Range("A3"), LookIn:=xlValues) Is Nothing Then
Cells(.Range("A5").CurrentRegion.Find(.Range("A3"), LookIn:=xlValues).Row, 6) = _
Cells(.Range("A5").CurrentRegion.Find(.Range("A3"), LookIn:=xlValues).Row, 6) + 1

Извините копирую и вставляет смайлики.

Изменено: asterisk - 31.03.2015 22:12:00

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

28.03.2015 16:42:56

Добрый вечер! Пытливый.
Извините, что не ответил на Ваш вопрос. Да алгоритм должен быть такой.
Но 3 позиция в алгоритме: если код есть в таблице на лист 1 - увеличиваем значение в столбце "количество", не срабатывает.

Изменено: asterisk - 29.03.2015 22:22:33

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

28.03.2015 16:21:38

Добрый день! Пытливый.
Скажите пожалуйста как сделать если код есть в таблице на листе 1 то не добавлять новую строку этого же кода на листе 1, а просто делать изменения прихода.
И как в этой строчке .Range(.Cells(lngI, 1), .Cells(lngI, 6)).Copy WhReport.Cells(lngJ + 1, 1) выводить определенные столбцы (к примеру A,B,D). Что то у меня не получается там как-то через квадратные скобки нужно делать и не могу понять.

Перейти

Ввод кода в ячейку и поиск данных, Макрос

asterisk

Пользователь

Сообщений: 37 Регистрация: 21.03.2015

25.03.2015 20:57:19

Добрый вечер еще раз!
ВСЕ РАЗОБРАЛСЯ!!!!!! Поменял местами строчки
.Cells(lngI, 6) = .Cells(lngI, 6) + 1
и в этой строке изменил на 6 .Range(.Cells(lngI, 1), .Cells(lngI, 6)).Copy WhReport.Cells(lngJ + 1, 1)
ОГРОМНОЕ ВАМ СПАСИБО!!!!!!!!!!!!!!!!!!!!

Изменено: asterisk - 27.04.2015 23:26:34

Перейти