Yapıştır sorunu

[gertt]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I5")) Is Nothing Then
Exit Sub
Else
Call liste
Call ÖG_ŞIKLARI_SİL
End If
End Sub

Sayfanın kod bölümünde yukarıdaki kod varken aynı sayfaya yapıştır işlemi yapılamamkta.Sebebi ne olabilir?Altı çizili sıra.

Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

 

[Skorpiyon]

Sayın gertt,

Eğer yapıştırma işleminiz "I5" hücresine veri yazıyor ise, "liste" ve "ÖG_ŞIKLARI_SİL" makroları devreye girerek çalışacaktır.

İlgili makroların kodlarını görmek lazım veya siz yapıştırma işleminde I5 hücresini boş geçmelisiniz ki, liste ve ÖG_SIKLARI_SIL makroları çalışmasın.

 

[gertt]

Sayın Şaban Bey,ilginiz için teşekkür ederim.Yapıştırma işlemi I5 hücresine veri yazmıyor.Sayfanın herhangi bir yerine de maus üzerinden kopyala ve yapıştır işlemini gerçekleştiremiyorum. Aynı sayfada;

Private Sub Calendar1_Click()
ActiveCell.Value = FormatDateTime(Sayfa2.Calendar1.Value, vbShortDate)
ActiveCell.Offset(1, 0).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "I10" Then
Sayfa2.Calendar1.Visible = True
Else
Sayfa2.Calendar1.Visible = False
End If
End Sub

Takvim makrosu da var.Bunu silince kopyala yapıştır makrosu çalışıyor.Bu durumda takvimi de kullanabilmem için ne yapmalıyım?

Teşekkürler.

 

[gertt]

Yardımcı olabilecek arkadaş var mı?

 

[tahsinanarat]

Kodlarınızın başına kırmızı renkli satırları ekleyiniz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
If Target.Address(0, 0) = "I10" Then
Sayfa2.Calendar1.Visible = True
Else
Sayfa2.Calendar1.Visible = False
End If
End Sub

 

[gertt]

Tahsin Bey, teşekkür ederim.Sorun çözüldü.