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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 485 След.
Возможно ли автоматическое формирование таблиц?
 
Да, такое вполне возможно. Только для начала Ваши исходные данные для анализа нужно привести (и вести далее) к виду 'плоской таблицы', а уже по ней можно строить практические любые отчеты с помощью Сводных таблиц
Согласие есть продукт при полном непротивлении сторон.
VBA. Перемещение строк между листами с использованием массивов, Помогите доработать макрос.
 
Тема: VBA. Перемещение строк между листами с использованием массивов
Без файлов как-то так (не проверял)
Скрытый текст


Согласие есть продукт при полном непротивлении сторон.
Как получить изменненый диапозон с помощью формулы
 
Цитата
Alex D написал: А можно ли сделать вот так?
Нет, нельзя
Согласие есть продукт при полном непротивлении сторон.
Макрос расширенного фильтра из события листа на кнопку
 
Цитата
Sinet написал: Переделать для использования после нажатия на кнопку?
Переделано?
Остальное не по теме
Согласие есть продукт при полном непротивлении сторон.
Макрос расширенного фильтра из события листа на кнопку
 
Код
Sub MyButton()
On Error Resume Next
With ActiveSheet
    .ShowAllData
    .Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=.Range("A1").CurrentRegion
End With
End Sub
Согласие есть продукт при полном непротивлении сторон.
Ошибка 1004 при попытке выполнить ActiveWorkbook.SaveAs, если используется переменная папки.
 
Макрос 1
Сотрите, что у Вас в переменной vFile в момент ошибки.
Может быть что-то типа задвоенного слэша или другие, недопустимые для пути данные
Макрос 2
Что-то с кодировкаой
Согласие есть продукт при полном непротивлении сторон.
Звпуск по таймеру только для определенного листа
 
Все в файле
Теория ТУТ
Согласие есть продукт при полном непротивлении сторон.
Rак определить, что ячейка входит в определенный диапазон?
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("C1")) Is Nothing Then '(подсвечивается эта строка при ошибке)
       If Target.Value <> "" Then
           If Len(Target.Value) < 30 Then
               Target.Parent.Name = Target.Value
           End If
       End If
   End If
End Sub

Private Sub CommandButton1_Click()
    Range("B11:E110, L11:O110, V11:Y110").ClearContents
End Sub
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал: Sanja , прошу прощения
Да без проблем. Просто то, что Вы хотите, гораздо проще и эффективнее решается встроенными командами VBA, а Ваш подход мало чем отличается от обычного ввода формулы в ячейку и растягивания ее на нужный диапазон.
Согласие есть продукт при полном непротивлении сторон.
Перебор файлов в папках
 
ПРОСМОТРЕТЬ ВСЕ ФАЙЛЫ В ПАПКЕ
По ссылке есть код, с возможность выбора параметра - смотреть во вложенных папках или нет
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Андрей VG написал: Хотя, можно как-то где-то так, пусть и не быстро
Цитата
Fsociety_ написал: Второй вариант вроде то что нужно
Неужели, то что предложил Андрей VG, во втором варианте, для Вас проще, чем предложенный мной вариант в сообщении #8?
Снимаю шляпу....
Согласие есть продукт при полном непротивлении сторон.
Применение функции SumByColor (суммирование по цвету) в качестве счетчика непустых ячеек
 
Я так понимаю под смещением вы имеете ввиду эту строку?

Sum = Sum + cell(1, 3).Value

Как по Вашему на какую ячейку будет смещение? Какой у нее будет адрес?
Думаете на HZ7 относительно D7?
Если Вы скрыли столбцы, то это не значит, что они исчезли
       
Согласие есть продукт при полном непротивлении сторон.
Применение функции SumByColor (суммирование по цвету) в качестве счетчика непустых ячеек
 
Цитата
Евгений И. написал: Уточнение: в функции заложено смещение по столбцам и строкам, прошу его не менять.
Вот это зря. Лучше введите еще один аргумент
Код
Public Function CountByColor(DataRange As Range, ColorSample As Range, TextRange As Range) As Double
     Dim iCount As Double
     Application.Volatile True
     For Each cell In DataRange
         If cell.Interior.Color = ColorSample.Interior.Color Then
            If Application.IsText(Cells(cell.Row, TextRange.Column)) = True Then
                iCount = iCount + 1
            End If
        End If
     Next cell
     CountByColor = iCount
 End Function
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Цитата
Fsociety_ написал: Второй вариант вроде то что нужно, но возможно ли его как то ускорить?
Цитата
Fsociety_ написал: что бы я мог любую формулу подставить в код
А если в формуле больше одного аргумента - ссылки?
Согласие есть продукт при полном непротивлении сторон.
Закрасить ячейку при вхождении в текст слова из диапазона
 
В файле
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Скажу одно - в ячейке, одновременно, не может быть И формула И значение, даже вычисленное этой формулой. Даже с помощью VBA этого не сделать
Согласие есть продукт при полном непротивлении сторон.
Поиск строки по артикулу через TextBox
 
Я исправил макрос выше
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Зачем это делать формулой? См. сообщение #8
Согласие есть продукт при полном непротивлении сторон.
Поиск строки по артикулу через TextBox
 
Код
Option Explicit
Option Compare Text

Sub Поиск()
Dim strText$, arr()
Dim lRow&, I&, J&
Dim hRows As Range
Application.ScreenUpdating = False
Rows.EntireRow.Hidden = False
lRow = Cells(Rows.Count, "A").End(xlUp).Row
With Range("A4:M" & lRow)
    arr = .Value
    .EntireRow.Hidden = True
End With
strText = ActiveSheet.TextBox1.Text
If strText <> "" Then
    For I = LBound(arr) To UBound(arr)
        For J = LBound(arr, 2) To UBound(arr, 2)
            If arr(I, J) Like "*" & strText & "*" Then
                If Not hRows Is Nothing Then
                    Set hRows = Union(hRows, Rows(I + 3))
                Else
                    Set hRows = Rows(I + 3)
                End If
            End If
        Next
    Next
    If Not hRows Is Nothing Then
        hRows.EntireRow.Hidden = False
    Else
        Rows.Hidden = False
    End If
End If
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Код
Sub ПРОПНАЧ()
Dim iCl As Range
For Each iCl In Selection
    iCl = LCase(iCl)
Next
End Sub

Sub ПРОПИСН()
Dim iCl As Range
For Each iCl In Selection
    iCl = UCase(iCl)
Next
End Sub

Согласие есть продукт при полном непротивлении сторон.
Поиск строки по артикулу через TextBox
 
Код
arr() = Range("A4:M" & lr).Value
For I = LBound(arr, 1) To UBound(arr, 1)    'цикл по 'строка'
    For J = LBound(arr, 2) To UBound(arr, 2) ' цикл по 'столбцам'
        If arr(I, J) = 0 Then
            'какой-то код
        End If
    Next
Next
Согласие есть продукт при полном непротивлении сторон.
Как извлечь данные из файла по гиперссылка из ячейки
 
А почему решение из #2 не подошло?
Согласие есть продукт при полном непротивлении сторон.
Что значит сообщение Compile error: variable not defined при попытке выполнить макрос?
 
Ошибка исчезла? Значит решение задачи, вынесенной в название Темы получено. Все остальное ЭТОЙ темы не касается.
Вы сначала разберитесь, что Вы хотите от этого макроса, а уже потом задавайте вопросы, конкретные, в других темах
Согласие есть продукт при полном непротивлении сторон.
Что значит сообщение Compile error: variable not defined при попытке выполнить макрос?
 
Цитата
nicex написал: Подскажите корректно макрос будет работать ?
А самому попробовать?  
Согласие есть продукт при полном непротивлении сторон.
Как извлечь данные из файла по гиперссылка из ячейки
 
Цитата
БМВ написал: В одном случае надо вставить путь текущей книги, а в другом оставить...и желательно вернуть обратно
Ну и у кого 'дебри'? :D Туда-сюда-обратно! Кручу-верчу, запутать хочу?
Согласие есть продукт при полном непротивлении сторон.
Работа формулы внутри макроса в выделенном диапазоне
 
Код
Sub ПРОПНАЧ()
    Selection.Formula = "=PROPER(A1)"
End Sub
Согласие есть продукт при полном непротивлении сторон.
Объединить даты с разных листов в одну таблицу
 
Цитата
Margaret написал: если есть повторения, то чтобы они сохранились
Дата '05.04.19' есть на всех 4-х листах, а на листе 'сводная' их только две. В чем подвох? С каких листов сохранять повторы а с каких нет?
Согласие есть продукт при полном непротивлении сторон.
Как отключить автоматическое восстановление книги при некорректно завершенной работе пк
 
https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=49484
Согласие есть продукт при полном непротивлении сторон.
Перенос значений в таблице(типа транспонирования)
 
Код
Sub Riddle_1()
arr = Range("A5:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
ReDim arrNew(1 To UBound(arr), 1 To 2)
For I = 1 To UBound(arr) - 1
    If arr(I, 1) <> "" Then
        N = N + 1
        arrNew(N, 1) = arr(I, 1)
    End If
    If arr(I + 1, 2) <> "" Then
        arrNew(N, 2) = IIf(arrNew(N, 2) <> "", arrNew(N, 2) & ", " & arr(I + 1, 2), arr(I + 1, 2))
    End If
Next
Range("G5").Resize(N, 2) = arrNew
End Sub
Согласие есть продукт при полном непротивлении сторон.
Как макросом удалить слова, содержащие цифры?
 
Пожалуйста
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 485 След.
Наверх