excel 根据多种条件传输数据

x7rlezfr 于 2023-04-22 发布在其他

关注(0)|答案(1)|浏览(124)

如果单元格DA 9中显示“无”，如果下面的进程显示“存在”，您能否帮助我获得“记录存在”的警告。
如果它显示“无”;让它复制主页上的单元格DD 9：DX11（存在具有公式的单元格）让它找到数据表BY 3单元格之后的空单元格并将其传输（不使用公式）
保护在两个页面上（密码12345）
我请求你在这件事上的帮助。

Dim rngSource As Range
Dim rngTarget As Range
Dim iRow As Integer

Sheets("Giriş").Unprotect "12345"
Sheets("Data").Unprotect "12345"

If Sheets("Giriş").Range("DA9") = "Yok" Then
Set rngSource = Worksheets("Giriş").Range("Girişdata") 
iRow = Worksheets("Data").Cells(Rows.Count, 77).End(xlUp).Row + 1
Set rngTarget = Worksheets("Data").Range("BY" & iRow)
rngSource.Copy Destination:=rngTarget

Else Sheets（“Giriś”）.Range（“DA9”）=“Var”MsgBox（“Bu veri var”）End If

Sheets("Giriş").Protect Password:="12345"

excel

来源：https://stackoverflow.com/questions/76006063/transferring-data-according-to-multiple-conditions

1条答案

按热度按时间

nlejzf6q1#

Application.ScreenUpdating = False
Dim Pieces As Integer
Sheets("Login").Select
If Range("da9").Value = "None" Then
Sheets("Input").Range("DD9:DX11").Select
Selection.Copy
Sheets("Data").Select
Range("BY3").Select
Quantity = Range(Selection, Selection.End(xlDown)).Count
Range("BY" & 3 + Pieces).PasteSpecial (xlPasteValues)
ElseIf Range("da9").Value = "There is" Then
MsgBox ("Record Exists")
End If
End Sub

赞(0）回复(0）举报 2023-04-22

我来回答

excel 根据多种条件传输数据

1条答案

相关问题

热门标签

最新问答