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

Страницы: 1
Перемещение значение ячейки в диапазоне без удаление строк
 
Благодарно благодарю, видимо смещение строк никак)))
Перемещение значение ячейки в диапазоне без удаление строк
 
Ой. Извините. Вот приложил дефолтный файл.
1) При запуске макроса происходит отчистка строк содержащий 0 и очистка от значении двух соседних ячеек
2) Перемещение значении ячейки вверх чтобы избавиться от пустых строк. И не нарушала последовательность.
3) И ссылки указывали на получившийся значение.

Но при этом слева у меня порядковая нумерация и простое удаление строк не подходит
Изменено: Тони Ривский - 05.05.2022 10:54:50
Перемещение значение ячейки в диапазоне без удаление строк
 
Спасибо большое! Решение хорошее, но у меня слетают ссылки на ячейки(
Изменено: Тони Ривский - 05.05.2022 05:49:26
Перемещение значение ячейки в диапазоне без удаление строк
 
Доброе всем! Требуется помощь. Есть диапазон и в нем есть строки с данными и пустые строки. Как можно убрать пустые строки не нарушая последовательность и не удаляя строки? Мне кажется путем перемещение но не могу сообразить макрос для этого. Заранее благодарен!
Проверка условии если есть #Н/Д или 0
 
Код
If cell.Text = "0" Or cell.Text = "#Н/Д" Then


О Темные Боги это сработало! Благодарно благодарю)
Проверка условии если есть #Н/Д или 0
 
Вот
Проверка условии если есть #Н/Д или 0
 
Не сработало. #Н/Д у меня и есть просто как текст  
Изменено: Тони Ривский - 18.08.2021 07:43:16
Проверка условии если есть #Н/Д или 0
 
Доброе всем! Нужна помощь. Не могу прописать еще условие проверки на #Н/Д. Ругается на ошибку 2042. Как решить эту проблему?
Код
Sub Save()
Dim Fname As String
    Application.ScreenUpdating = False
    Fname = ThisWorkbook.Path & "\" & Sheets("AVK").Range("C2").Value & " " & Range("B1").Text & ".xlsx"
    Sheets(Array("AVK")).Copy
    
        Range("A1:AA169").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    With ActiveWorkbook
        Application.DisplayAlerts = False
        .SaveAs Filename:=Fname
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True
    End With
    
    
Dim rng As Range, cell As Range, cdel As Range
    Set rng = Range("K80:K99, C73:C75, F27:F46")
    For Each cell In rng
        If cell = "0" Or cell = "#Н/Д" Then
        If cdel Is Nothing Then
            Set cdel = cell
        Else
            Set cdel = Union(cell, cdel)
        End If
        End If
    Next cell
If Not cdel Is Nothing Then cdel.EntireRow.Delete
    

End Sub
Изменено: Тони Ривский - 18.08.2021 07:07:06
Удаление нескольких определенных диапазонов ячеек по условию
 
Вот это сработала так как надо! Вначале тоже пытался засунуть все диапазону в rng, но не дошло как именно. Спасибо большое!
Изменено: Тони Ривский - 15.08.2021 09:16:10
Удаление нескольких определенных диапазонов ячеек по условию
 
Код
    Dim all As Variant
    Dim element As Range
    Dim j As Integer
     Set a = Range("K80:K99")
     Set b = Range("C73:C75")
     Set c = Range("F27:F46")

     all = Array(a, b, c)
     
     For j = LBound(all) To UBound(all)
      
        Dim rng As Range
        Dim i As Integer, counter As Integer
    
        Set rng = element
    
        i = 1

        For counter = 1 To rng.Rows.Count
    
            If rng.Cells(i) = "0" Then
                rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
    
        Next

    Next

теперь ошибка в counter, он почему то равен 0 =(
Удаление нескольких определенных диапазонов ячеек по условию
 
Хорошо. Как в таком случае задать действие для каждого диапазона без массива?
Удаление нескольких определенных диапазонов ячеек по условию
 
Код
Dim all As Variant
Dim element As Range

     Set a = Range("K80:K99")
     Set b = Range("C73:C75")
     Set c = Range("F27:F46")

     all = Array(a, b, c)
     
     For Each element In all
      
        Dim rng As Range
        Dim i As Integer, counter As Integer
    
        Set rng = element
    
        i = 1

        For counter = 1 To rng.Rows.Count
    
            If rng.Cells(i) = "0" Then
                rng.Cells(i).EntireRow.Delete
            Else
                i = i + 1
            End If
    
        Next

    Next element
Доброе! Хочу удалять строки в определенных диапазонах по условию но код останавливается на element и дальше не идет. Может здесть по другому должно выглядеть оформление?
Значение с нижнем индексом без потери вида
 
Решил проблему путем создания своего символа)
Значение с нижнем индексом без потери вида
 
Эм. Просто я использую условия и именно такой вид с нижнем индексом мне нужен.
Значение с нижнем индексом без потери вида
 
Доброе). Задался такой задачей. Есть значение с нижнем индексом. При использование этого значения в ссылках, условиях, и тому подобное, значение с нижнем индексом теряет свой первоначальны вид. Как сделать так чтобы вид значения с нижнем индексом не терялся при ссылках, условиях и т.д. ? Подскажите пожалуйста)
Изменено: Тони Ривский - 14.01.2021 15:38:13
Поиск значения в диапазоне и выдача результата при условии
 
О боги! Благодарно благодарю) :)  
Поиск значения в диапазоне и выдача результата при условии
 
Доброе всем и с наступающем!

Если дата (A1), будет до даты действия  (A3:A5) то вы дает имя владельца(B3:B6) удостоверения.
Я это сделал путем сдвига ячейки вниз, срока действия, но потом данные будут пополняться и да выглядит не очень суразно.
Скрытый текст

Подскажите пожалуйста как можно решить чтобы вид был такой и при этом выполнялось условие?
Скрытый текст
Страницы: 1
Наверх