Koşullu kopyalama makrosu

[refaeli]

Arkadaşlar merhaba küçük bir sıkıntım var. Bir buton koyarak oraya bir kopyalama makrosu record ettim. Bastığım zaman B2'den B14'e kadar kopyalıyor. Ancak şu an onu koşullu yapmam gerek. Yani A1 hücresinde 1 yazarsa B2'den B8'e kadar, diğer her türlü durumda ise B2'den B14'e kadar olan hücreleri kopyalamalı. Nasıl yapabileceğimi yazarsanız minnettar olurum. Saygılar

 

[Mahmut Kök]

Aşağıdaki gibi deneyiniz.

if range("a1")="1" or range("a1")=1 then
 
range("b2:b8").copy
 
else
 
 range("b2:b14").copy
 
end if

 

[refaeli]

Mahmut Bey çok teşekkür ederim