Şartlı makro konusu

[gertt]

A1 hücresindeki bilgi- G8 hücresindeki değerle aynıysa , A2 hücresindeki bilgi- G18 hücresindeki değerle aynıysa, A3 hücresindeki bilgi - G21 hücresindeki değerle aynıysa A10 ile D 30 arasındaki verilerin AA5 hücresine kopyalanmasıyla ilgili makronun yazılmasında yardımcı olur musunuz?

 

[Huseyinkis]

A1 hücresindeki bilgi- G8 hücresindeki değerle aynıysa , A2 hücresindeki bilgi- G18 hücresindeki değerle aynıysa, A3 hücresindeki bilgi - G21 hücresindeki değerle aynıysa A10 ile D 30 arasındaki verilerin AA5 hücresine kopyalanmasıyla ilgili makronun yazılmasında yardımcı olur musunuz?

formülü denermisiniz

Sub Kopyala()
ss = Range("A1").Value
ss1 = Range("G8").Value
ee = Range("A2").Value
ee1 = Range("G18").Value
ff = Range("A3").Value
ff1 = Range("G21").Value
If ss = ss1 And ee = ee1 And ff = ff1 Then
    Range("A10:D30").Select
    Selection.Copy
    Range("AA5").Select
    ActiveSheet.Paste
End If
End Sub

 

[Mahir64]

Altarnatif

Formülleri Değer olarak aktarır

Sub Kopyala()
d1 = Range("A1").Value
d2 = Range("G8").Value
d3 = Range("A2").Value
d4 = Range("G18").Value
d5 = Range("A3").Value
d6 = Range("G21").Value
If d1 = d2 And d3 = d4 And d5 = d6 Then
Range("A1030").Select
Selection.Copy
Range("aa5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("aa5").Select
Else
MsgBox "Tutarsız veri"
End If
End Sub

 

[gertt]

İlginize çok teşekkür ederim. Her iki makro da işimi gördü.Ellerinize sağlık.

 

[Mahir64]

İlginize çok teşekkür ederim. Her iki makro da işimi gördü.Ellerinize sağlık.

Kolay gelsin