cari nosunun otomatik verilmesi

[kemal turan]

Merhabalar,
ek örnek dosyada açıklamasını yaptım.
B sutununa değer girdiğimde a sutununda cari noyu veriyor.
Fakat başka bir yerden kopyala yapıştır yöntemi ile b sutununz değerleri yapıştırdığımda b,c,d,e sutunlarını siliyor.
Sayfanın kod bölümündeki makronun düzeltilmesine ihtiyacım var.
Bu sayfada başka etkileyecek başka kod yok.
Teşekkür ederim.

 

[acolkesen1]

Merhaba,
Baştaki kısmı silerek
On Error GoTo son
If Not Intersect(Target, [b:b]) Is Nothing Then
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Range("a1").Value

End If
End If
son:
şeklinde deneyin. Diğer hücreleri silmez ancak cari noyu otomatik yazması için b sütunundaki ilgili hücrenin aktif edilmesi gerekir.

 

[kemal turan]

Çok teşekkür ederim.
Selametle kalınız.