yandaki hücreyi nasıl kopyalabilirim

[muhasebeciyiz]

Arkadaşlar ekte sunmuş olduğum dosya içinde açıklamasını yapmış olup bilgi girilen çizelge için kopyala yapıştırı nasıl pratik hale getirebilirim.Yardım ederseniz sevinirim.

Saygılar.

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayarak deneyin..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:AO18]) Is Nothing Then Exit Sub
    If Target = 1 Then
        Target.Offset(0, -1).Copy Target
    End If
End Sub

.

 

[muhasebeciyiz]

Sayın Ömer' bey

Vermiş olduğunuz emek için teşekkürler.