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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 234 След.
ошибка в Replace
 
Где тут MERCEDES?
И зачем столько metro? (кстати s, тоже 2)
Если хотите работать со списками, то создавайте их корректно, а не превращайте в помойку

По второй группе - макрос удаляет то, что нашел первым. Либо запускайте его несколько раз, либо уберите Exit For
И третье "(HYUNDAI" <>"HYUNDAI", "OPEL/" <> "OPEL"
Изменено: RAN - 03.10.2022 17:24:10
ошибка в Replace
 
зато s есть
попробуйте так
Код
k = InStr(1, ar2(i, 1), " " & ar1(j, 1) & " ", vbTextCompare)
Изменено: RAN - 03.10.2022 13:55:11
Как поменять числа на дату.
 
Отключите "Показать формулы"
ошибка в Replace
 
Внес исправления, код заменил.
ошибка в Replace
 
Код
Sub qq()
    Dim ar1, ar2
    Dim i&, j&, k&
    ar1 = Sheets("список").Range(Sheets("список").Cells(1, 1), Sheets("список").Cells(Sheets("список").Rows.Count, 1).End(xlUp)).Value
    ar2 = Sheets("Лист2").Range(Sheets("Лист2").Cells(1, 1), Sheets("Лист2").Cells(Sheets("Лист2").Rows.Count, 1).End(xlUp)).Value
    For i = 1 To UBound(ar2)
        For j = 1 To UBound(ar1)
            k = InStr(1, ar2(i, 1), " " & ar1(j, 1), vbTextCompare)
            If k > 1 Then
                ar2(i, 1) = Left(ar2(i, 1), k)
                Exit For
            End If
        Next
    Next
    Sheets("Лист2").Range("A1").Resize(UBound(ar2)).Value = ar2
End Sub
Изменено: RAN - 03.10.2022 11:49:09
On Error игнорирует ошибку в первый раз, но не игнорирует во второй
 
Цитата
whateverlover написал:
теперь все понятно :-)
На мой взгляд, количество непоняток просто удвоилось
Было не понятно, почему не работает  GoTo 0
Яснее не стало, но добавилось почему работает  GoTo -1
Вставить кнопку в документ
 
.
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
whateverlover, браво!
Сергей Фенев, тут лечим, тут калечим?
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Сравните свои картинки.
VBA запрет на добавление дубликата значения
 
testuser, зачем в данном случае код в модуле листа? Чтобы был? И выполнял бестолковую работу?
Или вы специально учите "плохому"?
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Оказалось третье...
Внимательно сравните, что написал New, и что вы. Буковки посчитайте.
VBA запрет на добавление дубликата значения
 
Вам в #5 подсказали, что нужно делать, а в #7 продублировали...
Для чего продолжать пытаться применить макрос, предназначенный для других задач?
Код
Private Sub CommandButton_Save_Click()

 ' If Me.ComboBox_Name = "" Then MsgBox "Please enter name", vbCritical, "Error": Exit Sub
 ' If Me.ComboBox6 = "" Then MsgBox "Please enter all data", vbCritical, "Error": Exit Sub
 ' If Me.ComboBox7 = "" Then MsgBox "Please enter all data", vbCritical, "Error": Exit Sub
  
   Dim cell As Range: Set cell = [a65000].End(xlUp).Offset(1)
    If Application.CountIf(Columns(1), Me.TextBox_Date) > 0 Then MsgBox "isn't correct", vbCritical, "Error": Exit Sub
   cell(1, 1) = Me.TextBox_Date
   cell(1, 2) = Me.ComboBox_Name
   cell(1, 3) = Me.ComboBox6
   cell(1, 4) = Me.ComboBox7
   cell(1, 5) = Me.ComboBox9
 
End Sub
Журнал учёта ., Журнал учёта , с переход на новую строку при заполнении текущей
 
Либо не совпадают имя книги или имя листа, либо глюк Excel.
проверка ячейки на правильное отражение даты
 
Судя по хрени в файле из #43, единственный вариант - UDF отсюда
проверка ячейки на правильное отражение даты
 
Господа, вам не кажется, что вы пытаетесь решить проблему, которая существует исключительно в воображении ТС?
И, с учетом, что ему наплевать на форматы, а 10.30.2022 вполне корректная дата, все изыски ведут в тупик.
Автосумма через макрос
 
А вам готового кода мало?
Как разархивировать архив RAR через VBA
 
Мне код из #11 не удалось исковеркать до ошибки из #12.
VBA - получение значений из файлов по цвету ячейки, получение макросом значений ячеек из файлов по цвету заливки ячейки
 
Если в ячейку поверх значения записать Empty, то в ячейке и будет Empty.
А вы это проделываете трижды.
Поиск похожих значений в двух столбцах
 
Цитата
Алексей Бальцер,  написал:
Есть... список номеров телефонов в формате 7900111000000
Даже на вашей картинке нет
Изменено: RAN - 27.09.2022 19:04:35
VBA - получение значений из файлов по цвету ячейки, получение макросом значений ячеек из файлов по цвету заливки ячейки
 
Цитата
Nik1980 написал:
Может пример прислать .. ?  
Какой интересный вопрос.  :D
Сколько раз определенное слово встречается в таблице, НЕ количество ячеек, Необходимо посчитать количество повторений именно определенного слова, а не ячеек. Не макроссом, формулой
 
Цитата
Begemoth написал:
однако в вашем примере
Люди, что же вы такой хреновые примеры сделали? Как не ай ай ай!
VBA - получение значений из файлов по цвету ячейки, получение макросом значений ячеек из файлов по цвету заливки ячейки
 
Цитата
Nik1980 написал:
В  открываемых файлах эти ячейки закрашены 16247773
Значит нет. Чем докажите?
проверка ячейки на правильное отражение даты
 
Я вот только не пойму никак, зачем проверять правильность даты, если макрос никогда не вставляет дату, а всегда текст? Т.е. если видим в ячейке дату, значит там ошибка.
Как разархивировать архив RAR через VBA
 
ne.bla.bla,
Код
DowloadFolder = Environ("USERPROFILE") & "\Documents"
Поиск определённых сочетаний
 
=ПСТР(B3;НАЙТИ("AK";B3);7)
выдает что LoadPicture не определена ...
 
Вероятно, в другом файле была (и есть) функция LoadPicture.
Ошибка Duplicate declaration in current scope
 
И что это даст?
Во первых, все рано останется 2 dim i, а во вторых, одну  переменную для вложенных циклов использовать нельзя.
И в третьих, переменные лучше объявлять cразу после Sub().
Колонтитул листа (макрос отображения для нескольких, выбранных листов книги
 
Код
.LeftFooter = ""
.CenterFooter = ""
.RightFooter =""
Отследить пересчет формул, добавить пять секунд и выполнить следующие строки кода, Vba
 
Никак не въеду...
Пока формулы не вставятся, и не пересчитаются, макрос просто не перейдет к следующей строке кода. Перешел - значит пересчиталось.
Отобразить в ListBox время
 
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 234 След.
Наверх