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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 2554 След.
Поиск значение в столбце по переменной и добавление значения другой переменной в ячейку слева от найденной
 
Штрих-коды на двух листах не совпадают. Что искать?
При активном листе2 запустить макрос
Код
Sub iZakaz()
Dim i As Long
Dim iLastRow As Long
Dim FoundKod As Range
 iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
 With Worksheets("Лист1")
   For i = 2 To iLastRow
     If Cells(i, "C") <> "" Then
       Set FoundKod = .Columns(2).Find(Cells(i, "B"), , xlValues, xlWhole)
         If Not FoundKod Is Nothing Then
           .Cells(FoundKod.Row, "F") = Cells(i, "C")
         Else
         End If
     End If
   Next
 End With
End Sub
Изменено: Kuzmich - 07.05.2021 13:26:02
Удаление только слов из ячейки
 
Сергійко Сергійко,
Я такого не писал, о чем вы упомянули в сообщении #15
Возможно вам нужно это
Код
Sub iWordDel()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 With CreateObject("VBScript.RegExp")
     .Global = True
     .MultiLine = True
     .Pattern = "\s[A-Z]+$"
   For i = 2 To iLastRow
    Cells(i, "B") = .Replace(Cells(i, "A"), "")
   Next
 End With
End Sub
Удаление только слов из ячейки
 
UDF
Код
Function iWordDel(cell$)
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "\s[A-Z]+$"
   If .test(cell) Then
     iWordDel = .Replace(cell, "")
   End If
 End With
End Function
Изменено: Kuzmich - 06.05.2021 15:40:32
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 2554 След.
Наверх