Sütundaki hücrelerdeki bilgilerin ENTER ile başka bir hücreye gönderilmesi

[ÖmerFaruk]

Hata veren satırı pasif edip,E6 hücresinin içeriğini silin ve aşağıdaki satırı oraya yazın. ne sonuç verecek
Range("E6")= Range("E6")+1

 

[Tevfik_Kursun]

Merhaba Sayın Hocam,
sonuçlar ekte (önce aynı dosyayı iki defa koymuşum)
Saygılarımla

 

[ÖmerFaruk]

Sayfa1 de B6:B9 aralığında yazanlar ENTER tuşu basılan hücrenin değeri E6 ya ilave ediliyor
Sayfa2 de B6:B11 aralığında yazanlar ENTER tuşu basılan hücrenin değeri E6 ya ilave ediliyorve o hücrenin içierği siliniyor.

Kodlar bu şekilde çalışıyor.

Hata veren satırlar neden hata veriyor bilmiyorum ama aşağıdaki gibi makroyu değiştirerek deneyin.

Sub Makrom()
    If ActiveWorkbook.Name = ThisWorkbook.Name Then
    If ActiveSheet.Name = "Sayfa1" And ActiveCell.Column = 2 And ActiveCell.Row >= 6 And ActiveCell.Row <= 9 Then
        Application.EnableEvents = False
        Range("E6") = Trim(Range("E6") & " " & ActiveCell)
        Application.EnableEvents = True
    End If
    If ActiveSheet.Name = "Sayfa2" And ActiveCell.Column = 2 And ActiveCell.Row >= 6 And ActiveCell.Row <= 11 Then
        Application.EnableEvents = False
        Range("E6") = Trim(Range("E6") & " " & ActiveCell)
        ActiveCell = ""
        Application.EnableEvents = True
    End If
    End If
    ActiveCell.Offset(1, 0).Select
End Sub

 

[Tevfik_Kursun]

Merhaba Sayın Hocam,
İlgi ve sabrınıza çok teşekkür ederim. Bu tam istediğim gibi çalıştı.
Saygılarımla