bir koşula göre kopyalama

[best23]

merhablar
a2 > 0 ise b1:b10 aralığını kopyala ve C1:c10 a yapıştır kodunu yazmak istiyorum acaba yardımcı olur musunz
şimdiden teşekkürler

 

[asi_kral]

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub koşullu_kopyala_1967()
'Konu       :   A2 hücresine göre koşullu kopyala
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
If Range("A2") > 0 Then
Range("B1:B10").Copy Destination:=Range("C1")
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
Else
MsgBox "İşlem Yapılmadı" & vbLf & Application.UserName, _
vbCritical, "asi_kral_1967"
End If
End Sub

 

[best23]

teşekkürler çok

 

[asi_kral]

teşekkürler çok

Kolay Gelsin.

 

[Murat OSMA]

teşekkürler çok

ederiz Rica. k::