Makromu geliştirme konusunda yardım.

[td877]

Arkadaşlar merhaba,

Şöyle bir makro yazdım,

Sub hesapla()
For Each rng In Range("A4:A5")
If rng <> "" Then
Range("A4:A5").Select
    Selection.copy
    Range("J4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        SendKeys "{ESCAPE}"
        Else       
    End If
    Next     
Range("B16").Select
End Sub

Yapmak istediğim şu A4:A5 hücreleri dolu ise iki hücreyi kopyala, J4:J5 hücrelerine değer yapıştır. Boş ise hiçbirşey yapma. Ama olmuyor yardımlarınızı rica ediyorum.

Saygılarımla.

 

[askm]

Aşağıdaki şekilde deneyin.

Sub hesapla()
If Range("A4") <> "" And Range("A5") <> "" Then
Range("A4:A5").Select
    Selection.Copy
    Range("J4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        SendKeys "{ESCAPE}"
End If
Application.CutCopyMode = False
Range("B16").Select
End Sub

 

[td877]

Aşağıdaki şekilde deneyin.

Sub hesapla()
If Range("A4") <> "" And Range("A5") <> "" Then
Range("A4:A5").Select
Selection.Copy
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
SendKeys "{ESCAPE}"
End If
Application.CutCopyMode = False
Range("B16").Select
End Sub

Çok teşekkür ederim. Deneyip yorumumu duzenleyecegim.

Nokia 5.1 Plus cihazımdan Tapatalk kullanılarak gönderildi