Kopyala Yapıştır Sorunu

[iplikci_80]

Arkadaşlar bu çalışmada B2 hücresindeki okları aşağı yukarı yaptığımda C3 hücresindeki aylar değişmekte ve belgede aylar değiştikçe H7 ile AL50 hücreleri arasındaki değerleri silen bir kod mevcuttur. Bu koddan kaynakladığını tahmin ettiğim bir sorunum var KOPYALA YAPIŞTIR yapamıyorum. KOPYALA YAPIŞTIR sorununun giderilmesi hususunda yardımlarınızı rica ediyorum.

 

[Muzaffer Ali]

Merhaba.
Hangi hücreleri kopyalamak istiyorsunuz?
Nereye yapıştırmak istiyorsunuz?
Aldığınız bir hata bildirimi mi var?
Bu hata bildirimi nedir?
"KOPYALA YAPIŞTIR yapamıyorum." Bunu biraz daha açar mısınız?

(Not:Örnek dosyanızı rar içinde değilde kendisini eklerseniz açmamız daha kolay olur.)

 

[iplikci_80]

Sayın dalgalıkur ekte ki örnekte örneğin H47 ile AL48 hücrelerindeki değerleri bi aşağı satıra kopyalamaya çalıştığımda Kopyalama yapamıyorum.

 

[iplikci_80]

Arkadaşlar yardımlarınızı bekliyorum.

 

[halit3]

Merhaba Sayfada kod var (olay yordamı var) bundan dolayı
If Intersect(Target, Range("H7:AL606")) Is Nothing Then Exit Sub

kopyalama yapılamaz

 

[halit3]

BX2 hücresine sıfırdan büyük sayı yaz sayfadaki kodları sil veya kırmızı yerleri ekle sonrada kopyala yapıştır yap işlem bitince BX2 hücresindeki değeri sil.

Private Sub Worksheet_Change(ByVal Target As Range)

If Val(Range("BX2").Value) = 0 Then

    On Error GoTo Son
    If Intersect(Target, Range("H7:AL606")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Target.Row Mod 2 = 1 Then
        If Cells(2, Target.Column).Text = "Pazar" Then
            If Target.Value <> "" Then
                Target.ClearContents
            End If
        End If
    End If
    For i = 7 To 96
    If Target.Row Mod 2 = 1 Then
    If CDate(Cells(2, Target.Column)) = CDate(Cells(i, "BW")) Then
                Target.ClearContents
            End If
            End If
    Next i
   
Son: Application.EnableEvents = True
End If

End Sub

 

[iplikci_80]

Halit Bey ilginize teşekkür ederim.