Прошу прощения за дурацкий вопрос (перешерстил уже кучу форумов), как правильно реализовать присвоение имя листа переменной? Что бы не прописывать каждый раз длинное название Ниже привел код, что то в нем не работает. Может кто подскажет как правильно записать его?
Код
Dim x, y As Sheets
Set x = Sheets("Основные_данные")
Set y = Sheets("Ввод_пробега")
x.Cells(5, 3) = y.Cells(1,1)
На Листе1 в ячейке A1 указывается номер строки...Затем этот номер ищем на листе2. После того как нашли совпадающий номер нужно удалить полностью строку на ЛИСТЕ2 .....Загвоздка с кодом удалния(уже всю голову сломал)..помогите пожалуйста.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Dat As Range
Set Dat = Sheets("Лист2").Range("A1:A100").Find(what:=Sheets("Лист1").Range("A1").Value) 'Ищем значение ячейки А1 на листе2
MsgBox ("Адрес ячейки на листе2 где находится искомое выражение- " & Dat.Address & " Удаляем строку на Листе2 номер- " & Dat.Row)
Dat(Row).Delete 'Удаляет какую то странную строку, но не ту
End Sub
Если записать Dat(Row) - выдает какое то другое значение от Dat.Row Спасибо.
Открыл окно изображение(элемент ActiveX) вcтавил картинку. Но хотелось бы усовершенствовать программу чтобы при открытии excel выводилось изображение, а через некоторое время закрывалось. С формами все получается, но хочется что бы было без крестиков и названия окна.