Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 180 След.
Что значит сообщение Compile error: variable not defined при попытке выполнить макрос?
 
Вить, коды-то разные, причина одна.
И название ничем не хуже этого, или этого
Ввод уникального неповторяющегося номера строки по условию
 
Я, грешным делом, подумал, что единичку прибавить вы и самостоятельно можете. :D
Ввод уникального неповторяющегося номера строки по условию
 
Код
Sub t()
    x = Мяу
End Sub
Function Мяу&()
    Мяу = Application.Max((Sheets(1).Columns(1)), (Sheets(2).Columns(1)))
End Function
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
Цитата
extrafant написал:
то я забыл добавить вот этот участок кода:
Что значит "забыл"? И зачем в мой код вообще что-либо добавлять? Тем паче эдакое?
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
Цитата
extrafant написал:
Хотя я заменил содержимое макроса Private Sub openfile()
Если это реакция на мой ответ, то весь код, и текст одной процедуры - вещи разные.
Запускайте сразу openfile.
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
По ошибке. Строка
 
Код
 ActiveSheet.Cells.Clear

сбрасывает буфер, и вставлять нечего.
Run-time error 1004: Метод Paste из класса Worksheet завершен неверно., Ошибка. Метод Paste из класса Worksheet завершен неверно.
 
Замените ВЕСЬ ваш код. Ему припарками не помочь.
Будет и открываться, как надо, и вставляться, и заменяться.
Код
Private Sub openfile()
    Dim filename$, cl As Range
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .AllowMultiSelect = True
        .Title = "Please select the folder containing the files you want to Import"

        If .Show = -1 Then
            filename = .SelectedItems(1)
        End If
    End With
    If filename = Empty Then End
    Application.ScreenUpdating = False
    With Workbooks.Open(filename)
        shData.UsedRange.Clear
        .Sheets(1).Range("A8").CurrentRegion.Copy shData.Cells(1)
        .Close savechanges:=False
    End With
    On Error Resume Next
    shData.Cells.WrapText = False
    shData.Columns(3).AutoFit
    For Each cl In Intersect(shData.UsedRange, shData.Columns(3))
        cl.Value = Left(cl.Value, InStrRev(cl.Value, " ") - 1)
    Next
    Application.ScreenUpdating = True
End Sub 
Разный результат при выборе файла
 
FolderNames = .SelectedItems(1) & "\"
Код
filename = .SelectedItems(1) 

filename = Dir(filename & "*.xl??")
Разный результат при выборе файла
 
В коде черным по белому написано - открыть первый попавшийся файл в выбранной папке.
С какой радости при повторном запуске этот первый попавшийся файл должен быть другим?
Передача списка ListBox в процедуру
 
Я представил, а макрос все равно не работает.
Копирование значения ячейки из гиперссылки, Нажимая на гиперссылку-значение гиперссылки копировалось
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Hyperlinks.Count Then Target.Copy Sheets(2).[a2]
End Sub
Изменено: RAN - 10 Июл 2019 10:07:12
Макрос: поменять местами первые два слова
 
Цитата
Veronikali написал:
Слова могут состоять из двух и более слов.
Конгениально!  :D
макрос закрытия всех файлов по событию открытия файла
 
Application.Quit в разных версиях Excel ведет себя по разному.
Сейчас точно не помню все тонкости, но код, работающий в 2010, в 2016 работать отказался, пришлось химичить.
Удаление китайского
 
В макросе все так, а вот в файле, думаю, нет.
Рост области числа, с ограничением препятствиями
 
Виталий, ну ты и садюга!
Рост области числа, с ограничением препятствиями
 
Цитата
КошкаСофи написал:
Хотя бы теоретически
Как теоретически не скажу, а практически - см сообщение #9.

Я вам задал вопросы, вы их проигнорировали. Переметнулись на другой форум.
Пила в руки, и удачи в допиливании!
Залить разные диапазоны в разные массивы (VBA).
 
Цитата
Vitaliy Ptashnik написал:
способ наполнения массива выборочными диапазонами по условию.
напрямую зависит от этих условий, и искать универсальное решение - только время терять.
Залить разные диапазоны в разные массивы (VBA).
 
Код
Sub Мяу()
    Dim ar0, ar1(), ar2()
    Dim i&, k&, n&, j&
    ar0 = [a1].CurrentRegion.Value
    ReDim ar1(1 To UBound(ar0) / 2, 1 To UBound(ar0, 2))
    ReDim ar2(1 To UBound(ar0) / 2, 1 To 3)
    For i = 1 To UBound(ar0)
        If i Mod 2 Then
            k = k + 1
            For j = 1 To UBound(ar1, 2)
                ar1(k, j) = ar0(i, j)
            Next
        Else
            n = n + 1
            For j = 1 To UBound(ar2, 2)
                ar2(n, j) = ar0(i, j + 2)
            Next
        End If
    Next
End Sub
Определенное действие по изменению любого из группы Textbox
 
Копируем с листа в модуль желтый столбец, и радуемся, что не пришлось мучать классы  :)
Изменено: RAN - 5 Июл 2019 19:24:53
Определенное действие по изменению любого из группы Textbox
 
Цитата
OlegO написал:
при изменению ЛЮБОГО
12 обработчиков с одним кодом
Код
Private Sub TextBox6_Change()
    For i = Val(Mid(ActiveControl.Name, 8)) + 1 To 12
        Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i - 1).Value
    Next i
End Sub

Или классы.
Определенное действие по изменению любого из группы Textbox
 
Код
Private Sub TextBox5_Change()
    For i = Val(Mid(ActiveControl.Name, 8)) + 1 To 12
        Me.Controls("TextBox" & i).Value = Me.Controls("TextBox" & i - 1).Value
    Next i
End Sub
Рост области числа, с ограничением препятствиями
 
Цитата
КошкаСофи написал:
так никто ничего не объясняет.
Или кто-то не пытается понять объяснения?
Цитата
КошкаСофи написал:
какая строка в макросе за это ограничение отвечает?
Никакая. За это отвечает адрес ячейки S16. От нее строк вниз не может быть больше, чем вверх, а вверху строки закончились. Аналогично лево/право.
Переделка макроса сцепки слов со строк на столбцы
 
Как "причем"? Его нужно переделать.  :)
Рост области числа, с ограничением препятствиями
 
Что самое интересное, макрос работает "как надо", а не "как должен", исключительно благодаря ошибке в алгоритме!  :D
Рост области числа, с ограничением препятствиями
 
Цитата
Fidgy написал:
это очень порочная практика
Вы уверены? А ваша фамилия не Остер?
Привязка выдачи результата макросом к заполненным рядом строчкам
 
Код
Sub мяу()
    With Range("A1").CurrentRegion
        .Offset(1, 8).Resize(.Rows.Count - 1, 1).FormulaR1C1 = _
        "=Проплаты!RC[-2]+SUMIFS('База клиентов'!R2C6:R19C6,'База клиентов'!R2C10:R19C10,Проплаты!RC1,'База клиентов'!R2C1:R19C1,Проплаты!RC2)+IF(INDEX('База клиентов'!R2C6:R19C6,MATCH(RC[-7],'База клиентов'!R2C1:R19C1,0),1)>0,10,0)"
    End With
End Sub
Ошибка Ambiguous name detected: Range
 
У вас глюкнул календарь. Замените его.
Вывод макросом в одну ячейку всех уникальных значений видимого диапазона
 
Код
Sub ОтборУникальных()
  
'Объявляем переменные
'myRange - диапазон ячеек, заполненный исходным списком элементов
'myCell - отдельная ячейка диапазона
'myCollection - коллекция
'myElement - элемент коллекции (должен быть типа "Variant")
Dim myRange As Range, myCell As Range, myCollection As New Collection, _
myElement As Variant, i As Long
  
'присваиваем переменной myRange диапазон ячеек с исходным списком элементов
Set myRange = Range("V5:V30").SpecialCells(xlCellTypeVisible)
  
'заполняем новую коллекцию уникальными элементами
On Error Resume Next
For Each myCell In myRange
If Len(myCell) Then
myCollection.Add CStr(myCell.Value), CStr(myCell.Value)
If Err.Number = 0 Then s = s & ", №" & myCell.Value
Err.Clear
End If
Next myCell
s = Mid(s, 3)
On Error GoTo 0
Range("A1").Value = "Найдены следующие договоры:" & s
End Sub
Рост области числа, с ограничением препятствиями
 
Цитата
Fidgy написал:
В функции которую я вам сделал "FCh_Area" установите проверку
Не поможет.
[ Закрыто] Макрос сэкономит время, Прошу помочь
 
Судя по вашему сообщению, помощь вам не нужна, вам нужна готовая работа.
Так для этих целей есть отдельная ветка форума.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 180 След.
Наверх