Makromu geliştirme konusunda yardım.

Katılım
11 Ağustos 2015
Mesajlar
80
Excel Vers. ve Dili
2016
TÜRKÇE
Arkadaşlar merhaba,

Şöyle bir makro yazdım,

Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Aşağıdaki şekilde deneyin.
Kod:
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
 
Katılım
11 Ağustos 2015
Mesajlar
80
Excel Vers. ve Dili
2016
TÜRKÇE
Aşağıdaki şekilde deneyin.
Kod:
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
 
Üst