copy-pastespecial

[green sight]

Merhabalar aşağıdaki kodları yazınca program çalışıyor fakat başka bir hücreye tıklayamıyorum. yani sayfa öylece kalıyor. sebebi ne olabilir?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Copy
Range("b1").PasteSpecial Paste:= xlPasteValues
End Sub

 

[İhsan Tank]

Merhabalar aşağıdaki kodları yazınca program çalışıyor fakat başka bir hücreye tıklayamıyorum. yani sayfa öylece kalıyor. sebebi ne olabilir?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1").Copy
Range("b1").PasteSpecial Paste:= xlPasteValues
End Sub

merhaba
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
Range("A1").Copy
Range("B1").PasteSpecial
Application.CutCopyMode = False
End Sub

sadece C1 hücresine tıkladığınızda çalışır.

sizin yazdığınız kod herhangi bir hücreyi seçtiğinizde otomatik A1 hücresini B1 hücresine kopyala dediğiniz için sabit gibi duruyor.

 

[green sight]

TAmam. Daha sonra başka işlem yapmak istediğimde ne yapmam gerekiyor. çünkü nereye tıklarsam tıklayayım hiç bir yere gitmiyor.

 

[İhsan Tank]

benim verdiğim kodu kullanabilirsin.
koda belli bir aralık girmelisiniz ki ona göre hareket etsin.
yada şöyle yapalım
siz nasıl bir işlem istiyorsunuz ne zaman kopya alsın siz onu söyleyin belki farklı bir çözüm yolu buluruz

 

[green sight]

benim yapmak istediğim tam olarak şu. aralık vermek istemiyorum. sadece a1 'i b1 e özel yapıştır ile yapıtırmak istiyorum. daha sonra c1,d1,e1 vs vs herhangi bir hücreye tıkladığım zaman o hücreye gidbilmek istiyorum.

 

[peleryn]

Merhabalar;

Bir de şöyle deneyin bakalım dediğiniz gibi mi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] = [b1] Then Exit Sub
Range("a1").Copy
Range("b1").PasteSpecial Paste:=xlPasteValues

End Sub

 

[İhsan Tank]

benim yapmak istediğim tam olarak şu. aralık vermek istemiyorum. sadece a1 'i b1 e özel yapıştır ile yapıtırmak istiyorum. daha sonra c1,d1,e1 vs vs herhangi bir hücreye tıkladığım zaman o hücreye gidbilmek istiyorum.

merhaba

Private Sub Worksheet_Change(ByVal Target As Range)
Range("B1") = Range("A1").Text
End Sub

bu kod işinizi görür mü_?

 

[green sight]

Çok teşekkürler yardımlarınız için. Sn İhsan Tank ve Sn Peleryn.

 

[İhsan Tank]

Çok teşekkürler yardımlarınız için. Sn İhsan Tank ve Sn Peleryn.

rica ederim
:yazici: