Здравствуйте уважаемый форумчане,
У меня есть несколько идентичных макросов (макросы в определенном стоблце ищут совпадения со списком), в которых часто меняется строка c кодом "Const codesToFind". Возможно ли дать возможность через UserForm выбирая в каком макросе сделать изменения отредактировать эту строку?
Спасибо.
У меня есть несколько идентичных макросов (макросы в определенном стоблце ищут совпадения со списком), в которых часто меняется строка c кодом "Const codesToFind". Возможно ли дать возможность через UserForm выбирая в каком макросе сделать изменения отредактировать эту строку?
Код |
---|
Sub offshorecountryben(control As IRibbonControl) Dim rng As Range, c As Range, sToFind() As String Dim i As Long, n As Long, k As Long, f As Boolean Dim rFst As Long, rLst As Long Const codesToFind = "LU AD MU BS BH CW KY CY JE MT PA UY GG MC BZ VU BM BN BB AG AI AW IM CK WS DM GI CR SC LI CV BW KN MO SX MS NR MH PW LC VC GD VG LV NU LT MV AN VI LR LI HK AN" Application.ScreenUpdating = False With ActiveWorkbook n = .Sheets.count With .Sheets("Report 1") With .UsedRange With .Find("Beneficiary Bank") k = .Column rFst = .Row + 1 End With rLst = .Row + .Rows.count - 1 End With Set rng = .Range(.Cells(rFst, k), .Cells(rLst, k)) .Copy After:=ActiveWorkbook.Sheets(n) End With With .Sheets(n + 1) .Range(rng.Address).EntireRow.Delete For Each c In rng f = False For i = 0 To UBound(sToFind) If c Like "????" & sToFind(i) & "*" Then f = True Exit For End If Next i If f Then c.EntireRow.Copy .Rows(rFst) rFst = rFst + 1 End If Next c End With End With Application.ScreenUpdating = True End Sub |
Спасибо.