Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » asterisk
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Поиск по номеру в одной книге и подставить данные в другую книгу
 
#
21.03.2017 14:19:43
Доброе время суток!
Подскажите пожалуйста как сделать поиск по номеру и подставить данные в другую книгу.
Есть две книги Главная и Справка. Нужно ввести номер в книге Главная, далее делать поиск в книге Справка
и подставлять в колонку количество +1 и данные вывести на книгу Главная. А на  лист 2 в колонку количество добавить 1.
Если номер повторяется просто добавлять 1 в колонку количество в книге Справка и также выводить в книгу Главная.
Но при этом книга Справка должна быть закрыта. Получилось сделать только поиск в книге Справка.
 
Перейти    
Как закрасить ячейку с тем же значение после подстановки значения в textbox
 
#
13.08.2016 17:30:55
Доброе время суток!
Задача такая. После подстановки в textbox значение, нужно чтобы закрашивалась именно та ячейка с тем же значением.
Просто в VBA я еще пока не силен, но сегодня мне jeyCI уже сильно помог с этим файлом. И некоторые записи в коде для меня еще не известны.
Пока разбираюсь. Помогите дописать код и если можно с комментарием. Буду очень признателен.
Пример прилагается.
 
Перейти    
В форме Combobox и textbox связь
 
#
13.08.2016 11:02:57
Доброе время суток!
Подскажите пожалуйста как сделать чтобы в форме при выборе в combobox1 значения, в textbox1 подставлялось значение из листа макароны  с столбца В последняя не закрашенная ячейка. И после подстановки в textbox1 чтобы эта ячейка закрашивалась. И при следующем открытии формы продолжала выбирать следующую ячейки.
 
Перейти    
Скопировать и переименовать с одного листа на другой лист через форму макросом
 
#
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 Заполните поля!"
 
#
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
 
Перейти    
Добавление новой записи через форму по категориям, макрос
 
#
17.05.2015 18:47:16
Доброе время суток!
Есть пример в нем написан макрос добавление новой записи через форму. Помогите пожалуйста подкорректировать макрос, чтобы через форму добавлялась запись по категориям. Я имею ввиду если в форме поставить категорию "Макароны", чтобы запись добавилась к категории "Макароны".
Заранее благодарен!  
 
Перейти    
Сдвиг столбцов с продолжением суммирвание формулы, макрос или формулой
 
#
25.04.2015 13:34:11
Доброе время суток!
Подскажите пожалуйста как написать макрос или формулу, чтобы формула продолжала считать. Сделал запись макроса нажимаю кнопку сдвиг он мне сдвигает а формулу сбрасывает. Вот никак не могу сообразить что нужно сделать, чтобы формула продолжала считать.Пример прилагается.
Заранее благодарен.

Извините забыл сказать сдвиг столбцов хотел бы сделать по дням с 1 по 31.
Изменено: asterisk - 25.04.2015 13:52:12
 
Перейти    
Ввод кода в ячейку и поиск данных, Макрос
 
#
21.03.2015 16:17:56
Доброе время суток!
Прошу сразу не ругать если не туда обратился я в этом деле новичок. Вообще задача такова: на листе 1 в ячейку А2 вводить код и делать поиск с листа 2 и выводить данные в лист 1 в таблицу. В колонку приход на листе 2 добавлять единицу. Если код повторяется то в колонку приход на листе 2 добавлять плюс единицу. Не знаю правильно ли я объяснил. Также прикрепляю файл в котором написал макрос ввод кода в таблице и вывод информации в этой же таблице, а на листе 2 добавляю единицу. Извините но не знаю ка добавить файл 11МБ пришлось разбить. Заранее благодарен.
 
Перейти    
Страницы: 1
Наверх