マクロで質問します。

質問

初心者です。
下記のようなマクロの式があるのですが、条件を一つ増やしたいのですが、
イロイロ試してみたのですが、うまくゆきませんので教えてください！

Sub 給与支払一覧()
Application.ScreenUpdating = False
Dim Sh As Worksheet
For Each Sh In Worksheets
If Sh.Name <> "給与支払一覧" And Sh.Name Like "Sheet*" Then
With Worksheets("給与支払一覧")
If Sh.Range("D14").Value > 0 Then
With .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
Sh.Range("O2:X14").Copy .Cells(1)
.Resize(13, 10).Value = Sh.Range("O2:X14").Value
End With
End If
End With
End If
Next Sh
Set Sh = Nothing
End Sub

この中で　If Sh.Range("D14").Value > 0 Then　とありますが、
同じ条件で　I14も　０より大きいな時としたいのですが、　うまくゆきませんでした。
たぶん基本できな簡単な事と思いますが　分かりません。

If Sh.Range("D14").Value > 0 Then

If Sh.Range("I14").Value > 0 Then　並べてみたり

If Sh.Range("D14、I14").Value > 0 Then　こんなのや

If Sh.Range("D14、I14").).Value > 0 Then　このような事も

他にも笑われるようなことも・・・・・　よろしくお願いします。

回答No.1

mu2011 · ベストアンサー

一例です。
If Sh.Range("D14") > 0 And Sh.Range("I14") > 0Then

お礼

ありがとうございます
Andで、よかったのですね！
おかげさまで解決しました。ありがとうございます。