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

Страницы: 1 2 3 След.
Код для поиска файла по альтернативному пути., Как заставить код искать файл label.xlsx по альтернативному пути ?
 
#
26.08.2020 12:07:39
DANIKOLA,
теперь ясно что и эту строку нужно менять
'Workbooks.Open Filename:="label.xlsx"
на
Workbooks.Open Filename:=FilePath & "label.xlsx"
Код
Application.ScreenUpdating = False
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "2"
    Range("C3").Select
FilePath = Environ("USERPROFILE") & "\Desktop\"
Workbooks.Open Filename:=FilePath & "label.xlsx"
    Range("A2:AL19999").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.ClearContents
    Range("S6").Select
ActiveWorkbook.Save
ActiveWorkbook.Close


В таком виде все работает.
Изменено: cliff99 - 26.08.2020 12:08:25
 
Перейти    
Код для поиска файла по альтернативному пути., Как заставить код искать файл label.xlsx по альтернативному пути ?
 
#
26.08.2020 11:48:50
DANIKOLA, не работает.
Пишет, что не удалось найти файл.

я так понял поменять
'ChDir "C:\Users\Oleg\Desktop

на
Environ ("USERPROFILE") & "\Desktop"
Изменено: cliff99 - 26.08.2020 11:55:59
 
Перейти    
Код для поиска файла по альтернативному пути., Как заставить код искать файл label.xlsx по альтернативному пути ?
 
#
26.08.2020 11:21:48
Код
Selection.Copy
ChDir "C:\Users\Oleg\Desktop"
Workbooks.Open Filename:="label.xlsx"

Range("D2").Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats


ActiveWorkbook.Save

ActiveWorkbook.Close


Нужно чтобы работало на разных компьютерах, а там разные имена пользователей. А файл должен быть именно на рабочем столе.
В идеале файл должен искаться в ChDir "C:\Users\Oleg\Desktop", если его там нету,
то в ChDir "C:\Users\Igor\Desktop" а если и там нету , то сообщение MessageBox об отсутствии
 
Перейти    
Видимость "кнопки" в зависимости от цвета ячейки в столбце "А"
 
#
25.08.2020 21:52:36
Цитата
Юрий М написал:
Нет события, которое срабатывает при смене заливки. Придётся искать другое событие.
Цвет текста тоже не пойдет ?
 
Перейти    
Видимость "кнопки" в зависимости от цвета ячейки в столбце "А"
 
#
25.08.2020 21:25:58
Перерыл форум, подобных тем нету.
Возможно ли сделать чтобы кнопка отображалась только если в столбце  "А" есть хотя бы одна строка с зеленым цветом.
 
Перейти    
Как с помощью VBA вводить значения через ComboBox столбцы со смещением.
 
#
25.08.2020 18:17:31
Igor67, СПАСИБО.  
 
Перейти    
Как с помощью VBA вводить значения через ComboBox столбцы со смещением.
 
#
25.08.2020 17:46:43
Доброго времени.
В приложенном примере при выборе из списка в ComboBox вносятся значения в столбцы начиная с А.
С четвертой строки.
Как сделать , чтобы значения вносились начиная со столбца AM ?
 
Перейти    
Как через текстовое поле ввести значения в зависимости от выбора в списке
 
#
06.08.2020 20:16:11
New, благодарю.
 
Перейти    
Как через текстовое поле ввести значения в зависимости от выбора в списке
 
#
06.08.2020 17:31:03
New, сейчас проверю, вроде работает. Только вылетает ошибка если в список ввести название, которого там нет.
Изменено: cliff99 - 06.08.2020 17:37:45
 
Перейти    
Как через текстовое поле ввести значения в зависимости от выбора в списке
 
#
06.08.2020 17:16:29
New, ОШИБКА.
runtime error "9"
sub script out of range
 
Перейти    
Как через текстовое поле ввести значения в зависимости от выбора в списке
 
#
06.08.2020 16:54:28
New, спасибо, отлично все. Как только мне переименовать покупателей сейчас ? У них имена разные ведь будут.
Изменено: cliff99 - 06.08.2020 17:04:57
 
Перейти    
Как через текстовое поле ввести значения в зависимости от выбора в списке
 
#
06.08.2020 16:43:35
New, проверил, вроде работает, только мне нужно вводить 11-значные числа.
А это не получается. Только одну цифру можно.
Изменено: cliff99 - 06.08.2020 16:44:10
 
Перейти    
Как через текстовое поле ввести значения в зависимости от выбора в списке
 
#
06.08.2020 16:14:04
Вопрос в том, как сделать чтобы значения в текстовом поле вводились в нужный столбец. ПРИ НАЖАТИИ ENTER
Для "ПОКУПАТЕЛЬ1" в столбец A5,  "ПОКУПАТЕЛЬ2" в столбец B5 И ТАК ДАЛЕЕ
 
Перейти    
Макрос для замены цвета ячеек с кодом цвета "4" например на "3"
 
#
22.05.2020 19:26:55
Спасибо, все работает. Про встроенный инструмент в курсе. Но мне нужно часто это делать.
 
Перейти    
Макрос для замены цвета ячеек с кодом цвета "4" например на "3"
 
#
22.05.2020 17:38:54
Первый код не работает, у меня по крайней мере.
Потом я нашёл второй способ.
Мне всё равно какой способ, главное, чтобы в один клик производить замену цвета.  
 
Перейти    
Макрос для замены цвета ячеек с кодом цвета "4" например на "3"
 
#
22.05.2020 12:33:03
Спасибо за помощь в стиле "помоги себе сам"
Вот решение для таких как я.
код меняет цвет зеленых ячеек на желтые.
Код
Sub test()
With Application.FindFormat.Interior
    .PatternColorIndex = xlAutomatic
    .Color = 65280
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
With Application.ReplaceFormat.Interior
    .PatternColorIndex = xlAutomatic
    .Color = 65535
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub
Изменено: cliff99 - 22.05.2020 12:33:29
 
Перейти    
Макрос для замены цвета ячеек с кодом цвета "4" например на "3"
 
#
21.05.2020 18:32:04
вроде нашёл, но не работает.
Код
Sub заменацвета()
'
' заменацвета
'

'
Application.FindFormat.Interior.ColorIndex = 4
Application.ReplaceFormat.Interior.ColorIndex = 3
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:58:38
Mershik, спасибо, теперь - работает.
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:53:30
Юрий М, Пробовал - не работает.
Изменено: cliff99 - 16.03.2020 14:53:48
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:46:00
Цитата
Юрий М написал:
cliff99 , ну ведь Вам УЖЕ  показали, как при выделении ячейки запускать нужный макрос.
Так, как подсказали - не работает.
через "горячую клавишу" работает.
Пол дня вожусь, чтобы заставить через ячейку работать.
Изменено: cliff99 - 16.03.2020 14:47:45
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:33:53
Цитата
RAN написал:
Цитата cliff99  написал:сейчас при нажатии кнопки запускается надстройка Showsearch.Для запуска по событию активации нужно, как минимум, знать имя макроса в этой надстройке, который нужно запустить.
Это имя - Showsearch
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:27:58
я скинул саму надстройку
и вот код запускающий ее через кнопку.

Private Sub Worksheet_Change(ByVal Target As Range)

   Application.OnKey "{'}", "Showsearch"

End Sub

нужно задать диапазон ячеек чтобы при активации определенных ячеек она запускалась.
Я думаю если видя как она запускается через кнопку, то вы сможете заставить запустить ее через активацию ячейки.
Изменено: cliff99 - 16.03.2020 14:29:25
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:23:57
Надстойка The List Search Add-in) запускается нажатием кнопки.
я привел этот код.
А нужно через активацию ячейки.
мне ее через кнопку неудобно запускать.
Если бы указать диапазон ячеек.
Изменено: cliff99 - 16.03.2020 14:25:53
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:20:17
Выдаёт ошибку.
Может я неправильно спрашиваю.
сейчас при нажатии кнопки запускается надстройка Showsearch.
А нужно при активации ячейки.

Private Sub Worksheet_Change(ByVal Target As Range)

  Application.OnKey "{'}", "Showsearch"

End Sub
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 14:10:05
Нужно чтобы запускался модуль с именем Showsearch
у меня он сейчас запускается клавишей. А нужно при активации ячеек.
Изменено: cliff99 - 16.03.2020 14:12:46
 
Перейти    
Как запустить код при выделение ячейки.
 
#
16.03.2020 13:51:04
Private Sub Worksheet_Change(ByVal Target As Range)

   Application.OnKey "{'}", "Showsearch"

End Sub

Есть надстройка расширенного поиска (The List Search Add-in) которая запускается при нажатии клавиши  "'"
Возможно ли сделать чтобы он запускался когда выделяешь определенные ячейки.
И только на этом листе.
 
Перейти    
Как с помощью VBA скопировать данные из одной книги в другую , вставляя только значения.
 
#
17.01.2020 10:24:30
Благодарю. Все работает. Хотя вроде бы использовал эту же команду.
Selection.PasteSpecial Paste:=xlPasteValues
 
Перейти    
Как с помощью VBA скопировать данные из одной книги в другую , вставляя только значения.
 
#
17.01.2020 09:33:40
Это не дубликат. Там вопрос был в том как реализовать это самое копирование.
В итого я нашёл решение.
А здесь вопрос в том чтобы копировать только значения.
 
Перейти    
Как с помощью VBA скопировать данные из одной книги в другую , вставляя только значения.
 
#
17.01.2020 09:19:08
Задача состоит в том, чтобы скопировать определенный диапазон текущего листа, открыть другую книгу, и вставить эти скопированные данные в определенную ячейку, сохранить этот файл и закрыть. Что собственно макрос и делает. Что в нём дописать, чтобы вставлялись только значения ?
У самого ничего не получается.
Вот код:
Код
Sub Kopirovanie()

'
' Kopirovanie Макрос

'

'Выделить диапазон который необходимо скопировать
Range("Таблица1").Select
'Скопировать то, что выделено
Selection.Copy
ChDir "C:\Users\Oleg\Desktop"
Workbooks.Open Filename:="Книга2.xlsm"
'Выделить начальную ячейку в которую необходимо вставить скопированные данные
Range("A2").Select
'Вставить данные
ActiveSheet.Paste

'сохранить текущую книгу
ActiveWorkbook.Save
'Закрыть книгу
ActiveWorkbook.Close
End Sub
 
Перейти    
Макрос для Копирование таблицы в определённую книгу и ее сохранения, Нужно скопировать данные из "Таблица252" в файл Книга2й.xlsm , затем его сохранить.
 
#
16.01.2020 16:46:40
Так и выкладывать то нечего.
Есть файл 1 и файл 2
Нужно чтобы диапазон , в моём случае  Range("Таблица252").Select
копировался в файл 2.
Файл 2 должен перед этим, если закрыт - открыться.
Workbooks.Open Filename:= _
"C:\Users\Oleg\Desktop\файл 2.xlsm"
туда вставились данные, и файл сохранился.
 
Перейти    
Страницы: 1 2 3 След.
Наверх