如何解决如何使用偏移量通过 application.inputbox 发送值
我正在尝试修改代码,使用 application.inputBox 更改具有特定文本的范围单元格中的值,然后选择该范围和值以使用其他 application.inputBox 将它们移动到其他列中,但开始单元格被修改,新值与我不需要的单元格一起传递。我真的需要使用两个 application.inputBox 来自由选择发送更改值的范围。
这是我的代码:
Sub frankity5() ' MUYYYYYYYYYYYY,aquí modifica erráticamente la columna objetivo
Dim cell As Range
Dim rng2 As Range
Dim yy() As Variant
Dim mirango As Range
Dim OutRng As Range
yy = Array("ARMA CORTA","PISTOLA","ARMA DE FUEGO","ARMA LARGA","CORTO CARTUCHO","PLOMAZO","disPARO","REVOLVER","EScopETA",_
"FUSIL","TIPO EScuaDRA")
xTitleId = "Selecciona Celdas"
Set mirango = Application.Selection
Set mirango = Application.InputBox("Selecciona Rango :",xTitleId,mirango.Address,Type:=8) 'se adaptó
Set OutRng = Application.InputBox("Pega Rango:",Type:=8)
Application.ScreenUpdating = False
For Each cell In mirango
If Not IsError(Application.Match(9E+99,Application.Find(yy,cell.Value))) Then cell.Value = "FUEGO"
Next cell
Application.ScreenUpdating = False
For Each rng2 In OutRng
If rng2.EntireRow.RowHeight > 0 Then
mirango.copy
rng2.PasteSpecial xlPasteValues
Set OutRng = rng2.Offset(1).Resize(OutRng.Rows.Count)
Exit For
End If
Next
End Sub
提前致谢
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。