Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Найти самую нижнюю папку в указанном пути
 
Супер, спасибо всем!
Найти самую нижнюю папку в указанном пути
 
Всем привет,
снова легкая, но пока для меня нерешаемая задачка:
Есть путь к подпапке произвольной глубины, например C:\ProgramData\Microsoft\Windows\Templates

Нужно присвоить а название последней подпапки. Вопрос как натйти эту самую нижнюю подпапку (здесь Templates)
Макрос удаления нескольких столбцов не подряд
 
Всем привет,
простая вроде бы задача, но не могу решить.

Нужно удалить несоклько столбцов (не подряд), задаю их буквы. Но после удаления первого же столбца- все остальные сдвигаются (что, в общем, неплохо, мне не нужны пустые) и заданные буквы остальных столбцов на удаление уже не совпадают.

Наверняка это очень просто решается :)

Cпасибо
Отфильтровать данные и скопировать результат при наличии объединенных ячеек
 
 работает! Спасибо.
Отфильтровать данные и скопировать результат при наличии объединенных ячеек
 
Удалить оставленные фильтром строки невозможно по той же причине, что и скопировать.
Отфильтровать данные и скопировать результат при наличии объединенных ячеек
 
Всем привет.
Есть таблица, в ней есть объедененные ячейки.  Нужно отфильтровать данные (если значение столбца G  >0 и скопировать результат в отдельную таблицу.
Проблема в том,  не копируются. Знаю, что объединенные ячейки это зло, но не знаю как сделать лучше при том же функционале.

Файл пример
Убрать бегущую пунктирная линию вокруг скопированной строки
 
Цитата
Пытливый написал:
И "муравьи" испуганно прячутся.
о, спасибо!
Убрать бегущую пунктирная линию вокруг скопированной строки
 
Всем привет

После выполнения макроса
Код
Worksheets("sheet1").Rows(i).Copy
ActiveSheet.Paste Destination:=Worksheets("sheet2").Rows(i) 
на листе 1 остается бегущая змейка вокруг последней скопированной строки.
Как бы так сделать, чтобы ее не было.
Изменено: ЕжеВика - 27.12.2018 17:25:06
Поиск в таблице по условиям, заданным в форме., Игнорировать поле, если оно пустое
 
Все поля, т.к. полей много, 2 поля оставила для примера.
Попробую обработчик ошибок, спасибо, не подумала.
Изменено: ЕжеВика - 21.12.2018 19:19:02
Поиск в таблице по условиям, заданным в форме., Игнорировать поле, если оно пустое
 
Добрый день.
"Текстовое поле", в немецкой версии это так.
Видимо нужно было сказать TextBox или поле ввода.
Поиск в таблице по условиям, заданным в форме., Игнорировать поле, если оно пустое
 
Мастерю макрос для поиска в таблице, по критериям заданным в форме.
Столкнулась с проблемой, что все поля должны быть заполнены, иначе ошибка.
Требуется сделать: если одно поле пустое- то условие по нему не проверялось бы, а проверялись бы только по оставшимся полям.

(Файл пример: если Min пустое, а Max =55, то результат будет строки 2,3,4,5, т.к. Min не проверялся бы)
вывести значение поля пользовательской формы
 
Да,  проглядела. Думала это все еще вариации с числовым полем.
Работает.

Jack, Vikttur, спасибо!
вывести значение поля пользовательской формы
 
Цитата
vikttur написал:
Я Вам в коде показал, ниже написал, зачем Val - Вы это прочитали? Отсюда и вытекает предложенное, т.к. вопрос непонятен.
ок, видимо, неверно выразилась. Val сразу прочитала и поняла.
Просто у меня разные поля. Есть числовые и есть текстовые. Числовое поле теперь работает.
Мой вопрос, как вывести значение текстового  поля.
вывести значение поля пользовательской формы
 
У меня снега нет. +9. Или флудить можно только модераторам?
если просто объявляю i as Long -не работает.
Изменено: ЕжеВика - 21.12.2018 11:17:41
вывести значение поля пользовательской формы
 
Ок, спасибо, работает.
Еще вопрос, как быть в случае если  поле текстовое?
вывести значение поля пользовательской формы
 
Что-то не соображу как вывести значение поля формы. Раньше вроде делала уже так.
Но какое бы значение не вводила в форму- msgbox выдает 0. Через переменную тоже пробовала.
Код
Option Explicit

Private Sub CommandButton1_Click()
Dim Textbox1 As Integer

MsgBox Textbox1
End Sub


Private Sub Textbox1_Change()
End Sub

Private Sub UserForm_Click()
End Sub
Условие If... then выдает ошибку. Неверный синтаксис?
 
Цитата
БМВ написал:
ЕжеВика , перевод строки имеет значение
БМВ Спасибо!  Работает.
Условие If... then выдает ошибку. Неверный синтаксис?
 
Добрый день,
что-то запуталась в трех соснах.
Макрос ругается на предмет End If, мол нету для него IF, хотя вроде бы для каждого есть..
Это кусок кода, без него макрос работает нормально. Взгляните плиз, где ошибка?


Код
...
If checkcolumn Then 'если стоит чекбокс - то проверяются 3 нижестоящие условия. Если Нет- то проверку пропускаем.
        If r1.Column <> 5 Then MsgBox "error r1", vbCritical
          Exit Sub 
        End If
        If r2.Column <> 6 Then MsgBox "error r2", vbCritical
          Exit Sub 
        End If
        If r3.Column <> 7 Then MsgBox "error r13", vbCritical
           Exit Sub 
        End If       
End If
'если соблюдены все 3 условия- выполняется код ниже. если любое из 3 не соблюдено- показываем ошибку и выходим. 
...

Изменено: ЕжеВика - 11.12.2018 16:36:12
Проверить, находится ли заданный диапазон в пределах определенного столбца
 
Нет :) Видимо не стоило ставить Set в примере, забудем его.
Я понимаю, что человеку это очевидно, но мне нужно чтобы макрос проверил это условие.  
Проверить, находится ли заданный диапазон в пределах определенного столбца
 
Добрый день.
Как проверить, находится ли выбранный диапазон в пределах столбца "B".
Код
Range("A1:B44")

Здесь ячейки располагаются и в "А", и в "В" - условие не соблюдено.
Могу разве что проверить циклом каждую ячейку, но наверняка есть более короткий путь.

Изменено: ЕжеВика - 11.12.2018 01:11:30
Ошибка при проверке соблюдения условия равенства содержимого ячейки фиксированному тексту
 
Цитата
JayBhagavan написал:
Ошибка на сроке проверки соблюдения условия равенства содержимого ячейки фиксированному тексту
Спасибо и за то и за другое )
Тему я сама уже не могу исправить?
Изменено: ЕжеВика - 12.11.2018 15:15:10
Ошибка при проверке соблюдения условия равенства содержимого ячейки фиксированному тексту
 

Добрый день,
элементарная, вроде бы задачка, но что-то не справляюсь.
На строчке  If cell.Value(1, 1) = "del" Then выдает object required.
Что в ней неправильно?

Код
Sub ttt()

Dim sh As Worksheet, wb As Workbook
Set wb = ActiveWorkbook

For Each sh In wb.Worksheets
   If cell.Value(1, 1) = "del" Then
 Columns("B:B").Select
    Selection.Cut   
   End If
Next sh

End Sub
Удалить столбцы кроме заданных
 
Alemox, Спасибо, оно!  :)
Удалить столбцы кроме заданных
 
ivanok_v2, тогда удаляется вообще всё.
Удалить столбцы кроме заданных
 
StoTisteg,

если из #1 то там уже стоит NOT. Пробовала убрать- не работает. Ничего не происходит.
Удалить столбцы кроме заданных
 
ivanok_v2, ваш макрос тоже удаляет указанные в коде стоблцы.
Мне нужно удалить все столбцы кроме указанных в коде.
Удалить столбцы кроме заданных
 
Нужно удалить столбцы кроме определенных.
Искала. Но находятся макросы, удаляющие столбцы по условию, а мне нужен Оставляющий.  

Голову ломаю, не могли бы вы подправить код, чтобы прописанные в коде столбцы оставались, остальные удалялись.

Код
Sub Test()
    Dim iCell As Range, iColumn As Variant
    For Each iColumn In Array("State", "Customer name", "Gallons", "Supplier", "Carrier")
        Set iCell = ActiveSheet.UsedRange.Rows(1).Find(iColumn, , xlValues, xlWhole, , , False)
        If Not iCell Is Nothing Then iCell.EntireColumn.Delete
    Next
End Sub
Изменено: ЕжеВика - 18.09.2018 16:08:32
Найти пропущенные номера в несортированном столбце и добавить их.
 
doober, 17 Строка ругается
Найти пропущенные номера в несортированном столбце и добавить их.
 
StoTisteg, Спасибо, работает.
Вывод сообщения найду где-нибуть по урокам для начинающих, смущает только неизвестное заранее количесто выводимых в сообщении номеров, но попытаюсь.
Изменено: ЕжеВика - 28.08.2018 18:52:25
Найти пропущенные номера в несортированном столбце и добавить их.
 
Добрый день,
В столбце (днина столбца разная) пропущены номера, нужно добавить их в конец столбца и вывести сообщение:
"добавлены
12858
12861
12864" (номера в случае файла примера)
прошу помощь зала :)
Изменено: ЕжеВика - 28.08.2018 18:12:49 (некорректный файл-пример)
Страницы: 1 2 След.
Наверх