MrOldFox (Все сообщения пользователя)

Вставка номера текущей строки в формулу (VBA)

MrOldFox Пользователь Сообщений: 6 Регистрация: 19.01.2020	# 22.10.2020 15:41:10 Дмитрий(The_Prist) Щербаков, вроде разобрался, спасибо за помощь.
	Перейти

Вставка номера текущей строки в формулу (VBA)

MrOldFox Пользователь Сообщений: 6 Регистрация: 19.01.2020	# 22.10.2020 11:20:46 Дмитрий(The_Prist) Щербаков, почему то при попытке вставить формулу через .Cells(iRow, 4) =, с RC пишет ошибку: Run-time error '1004': Application-defined or object-defind error К примеру формула похожая .Cells(iRow, 9) = "=WORKDAY(RC7;2;0)"
	Перейти

Вставка номера текущей строки в формулу (VBA)

MrOldFox

Пользователь

Сообщений: 6 Регистрация: 19.01.2020

22.10.2020 10:12:29

Цитата
vikttur написал: Ответить помощнику в первой своей теме не считаете нужным?

Исправился

Перейти

Условное форматирование значений по нескольким критериям

MrOldFox Пользователь Сообщений: 6 Регистрация: 19.01.2020	# 21.10.2020 15:02:53 Сергей, с большим запозданием, но большое спасибо, данный способ помог
	Перейти

Вставка номера текущей строки в формулу (VBA)

MrOldFox

Пользователь

Сообщений: 6 Регистрация: 19.01.2020

21.10.2020 10:56:49

Прошу помочь найти способ решения, есть код в VBA который по запросу добавляет новую строку с необходимыми значениями из формы

Код

Sub Submit()

    Dim sh As Worksheet
    Dim iRow As Long
    
    Set sh = ThisWorkbook.Sheets("Database")
    
    
    If frmForm.txtRowNumber.Value = "" Then
    
        iRow = [Counta(Database!A:A)] + 1
    Else
    
        iRow = frmForm.txtRowNumber.Value
        
    End If
    
    
    With sh
    
        .Cells(iRow, 1) = "=Row()-1"
        
        .Cells(iRow, 2) = frmForm.naryad.Value
                
        .Cells(iRow, 3) = frmForm.rew.Value
        
        .Cells(iRow, 4) = frmForm.adres.Value
                
        .Cells(iRow, 5) = frmForm.tech.Value
        
        .Cells(iRow, 6) = frmForm.dinstal.Value
        
        .Cells(iRow, 7) = frmForm.dtp.Value
        
        .Cells(iRow, 8) = "=ЕСЛИ(Q2="";(РАЗНДАТ(F2;СЕГОДНЯ();"d"));(РАЗНДАТ(F2;Q2;"d")))"


    
    End With


End Sub

Но нужно в один из столбцов добавить формулу, в которой должна присутствовать ссылка на ячейку в текущей строке

Код
=ЕСЛИ(Q2="";(РАЗНДАТ(F2;СЕГОДНЯ();"d"));(РАЗНДАТ(F2;Q2;"d")))

При условии, что номера ячеек (Q2,F2) менялись в зависимости от номера строки при добавлении новой, т.е. если будет строка №3 были уже Q3,F3.

Перейти

Условное форматирование значений по нескольким критериям

MrOldFox

Пользователь

Сообщений: 6 Регистрация: 19.01.2020

19.01.2020 22:50:00

Прошу помочь в создании условного форматирования по нескольким условиям, есть несколько усложнений, которые будут понятны в примере, но по сути нужно следующее:

Первое условие, должно быть поиск повторяющихся значений в определенном столбце (в примере это B)
Второе условие, опредмеченное слово в другом столбце (в примере это слово "Нет" в столбце G)

Пытался сделать с помощью условия ЕСЛИ и СЧЕТЕСЛИ, но получается либо выделить повторяющиеся, либо столбца с определенным словом, но не вместе. Во вложении пример, в нем более подробно, что я хочу сделать.

Перейти