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

Страницы: 1
[ Закрыто] Снятие галок макросом, Снятие галок
 
Цитата
написал:
Это прикол такой?
Иван,извиняюсь!Пробовал с телефона создать,но не мог,связь пропадала
Перенос данных с одного листа на другой, перенос данных
 
Интересует когда "копируем 2 столбик"
Перенос данных с одного листа на другой, перенос данных
 
Цитата
написал:
Про какой перенос вы пишите?
Код
Sub ЗаполнитьПоЦвету()
  Calculate
  ' Очистмелкую Макрос
 Sheets("ГРАФИК").Select
    Range("AM5:AO14", "AQ5:AQ14").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("AM5").Select
    
    ' закрасить Макрос
    Range("AM5:AO14", "AQ5:AQ14").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
    Range("AM5").Select
    
  ' чистим табл
    Sheets("врем").Select
    Range("Таблица3").Select
    Selection.ClearContents
    Range("Таблица32").Select
    Selection.ClearContents
    Range("E7").Select
    Sheets("ГРАФИК").Select
    Calculate
    ' копируем
    Dim Src As Range, Res As Range
    Dim Color As Long
    Dim r As Long, i As Long, j As Long
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set Src = ThisWorkbook.Worksheets("ГРАФИК").Range("AL3:AO14")
    Set Res = ThisWorkbook.Worksheets("врем").Range("E7:H220")
    Color = ThisWorkbook.Worksheets("ГРАФИК").Range("A2").Interior.Color
    
    Res.ClearContents
    
    For i = 3 To Src.Rows.Count
        If Src.Cells(i, 1) = 0 Then
            Exit For
        End If
        For j = 2 To Src.Columns.Count
            If Src.Cells(i, j) <> 0 Then
                If Src.Cells(i, j).Interior.Color = Color Then
                    r = r + 1
                    Res.Cells(r, 1) = Src.Cells(i, 1)
                    Res.Cells(r, 2) = Src.Cells(2, j)
                    Res.Cells(r, 3) = Src.Cells(1, j)
                    Res.Cells(r, 4) = Src.Cells(i, j)
                End If
            End If
        Next j
    Next i
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    
 ' копируем 2 столбик
 Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set Src = ThisWorkbook.Worksheets("ГРАФИК").Range("AP3:AQ14")
    Set Res = ThisWorkbook.Worksheets("врем").Range("L7:O220")
    Color = ThisWorkbook.Worksheets("ГРАФИК").Range("A2").Interior.Color
    
    Res.ClearContents
    
    For i = 3 To Src.Rows.Count
        If Src.Cells(i, 1) = 0 Then
            Exit For
        End If
        For j = 2 To Src.Columns.Count
            If Src.Cells(i, j) <> 0 Then
                If Src.Cells(i, j).Interior.Color = Color Then
                   r = r + 1
                    Res.Cells(r, 1) = Src.Cells(i, 1)
                    Res.Cells(r, 2) = Src.Cells(2, j)
                    Res.Cells(r, 3) = Src.Cells(1, j)
                    Res.Cells(r, 4) = Src.Cells(i, j)
                End If
            End If
        Next j
    Next i
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub
Перенос данных с одного листа на другой, перенос данных
 
Добрый вечер!Подскажите пожалуйста как убрать при переносе 2 таблицы поиск последней занятой строки,а то она встаёт во вторую таблицу ниже чем заполненая первая
[ Закрыто] Снятие галок макросом, Снятие галок
 
Добрый вечер!Не могу понять почему макрос не отрабатывает на снятие ИСТИНА на ЛОЖЬ.
через поиск и замену всё работает,а вот макрос не отрабатывает
Изменено: GGE29 - 28.02.2026 19:39:37
Изменить состояние чекбоксов на листе макросом
 
Не мог прикрепить
Изменить состояние чекбоксов на листе макросом
 
Добрый день! Подскажите в чём проблема, через поиск и замену Истина на ложь всё работает, записал макрос и не работает?
Изменено: Sanja - 28.02.2026 10:40:52 (Эти галки называются чекбоксами)
Порядковый номер по условию, порядковый номер
 
Цитата
написал:
 =IF(C3<>C2;MAX($D$2:D2)+1;"")
Спасибо!То что надо!
Порядковый номер по условию, порядковый номер
 
Добрый вечер,искал,но не смог найти подходящее.Суть проблемы в порядковом номере без повтора,как должно получится файл прилагается
Копирование данных с одного листа на другой
 
Всё отлично заработало 👍спасибо Вам огромное за помощь 🤝
Копирование данных с одного листа на другой
 
Согласен, сейчас сам ничего не могу понять, но кнопка обращается к макросу с названием "sub macro_01" в котором должен быть данный макрос
Копирование данных с одного листа на другой
 
Сейчас это стало кнопкой риббона, там всего 3 кнопки, остальное заблокировано, оно ещё и от названия влияет 🤔
Копирование данных с одного листа на другой
 
Это получается 3 кода🤔как их склеить под рибон
sub macro_01(control IRibbonControl)
End sub
Копирование данных с одного листа на другой
 
Добрый день! Подскажите пожалуйста, как добавить второй лист, чтобы комировало сразу 2 листа
Set rSource = Sheets("ОДНОСТРОЧНЫЙ").Range("H13:AL27"), диапазон H13:AL27 и H61:AL75
Ошибка сохранения в PDF
 
Однострочный, судовой, график, но потом будут ещё добавлять
Ошибка сохранения в PDF
 
Так и не получается с ПДФ.Файл тяжёлый.Закинул на яндекс диск https://disk.yandex.ru/i/wJ2a0wnkUJUr7w
Цитата
написал:
Перенесите нужные листы в новую книгу и пересохранитесь
При добавлении листов макрос не работает :(  
Ошибка сохранения в PDF
 
Может быть проблема в Лист4 Который не удаляется.Если получится удалить,то как?С компа получилось прикрепить
Ошибка сохранения в PDF
 
Даже архивом, который весит 50кб, попробую через Яндекс диск
Ошибка сохранения в PDF
 
Не даёт прикрепить файл, он весит 90kb, а горит красным
Изменено: GGE29 - 11.02.2026 12:57:40
Ошибка сохранения в PDF
 
Дмитрий, не получилось с телефона прикрепить файл. Может быть Лист4 мешает (не могу его удалить)
Изменено: GGE29 - 11.02.2026 12:55:03
Ошибка сохранения в PDF
 
Здравствуйте, помогите пожалуйста разобраться с ошибкой, есть файл шаблон(работает отлично) оригинал только фото
Копирование данных с одного листа на другой
 
А я заменил For Each vv In Array(Array(1, 15, True на False и всё норм. Но всё равно огромное спасибо Вам за помощь
Копирование данных с одного листа на другой
 
Добрый день!Снова проблема 16 число не корректно переносится на другую строку,а точнее пропадает
Копирование данных с одного листа на другой
 
Цитата
написал:
В варианте  #5.  не теряется.
Спасибо!Завтра на оригинале проверю и отпишусь
Копирование данных с одного листа на другой
 
Последняя строка потерялась🤔
Копирование данных с одного листа на другой
 
Тема была создана на http://www.excelworld.ru/forum/10-55200-1
Копирование данных с одного листа на другой
 
Добрый вечер! Помогите пожалуйста доработать макрос копирования. Столкнулся с проблемой,если на чистый лист, всё копируется как надо, а в форме объединённые ячейки
Страницы: 1
Наверх