Üstteki Satırı Kopyalama

[mahmutcan16]

Arkadaşlar şimdi a | b | hücersine bir değer yazıyoruz c ye yazdıktan sonra enter bastığımızda a ile b hüceri aynı şekilde aşağıya geçicek böle bişi nasıl yaparım acaba ?

 

[Necdet]

Merhaba,

Aşağıdaki kod C sütunu ve 2. satırdan itibaren çalışır. C sütununa yazdığınızda A ve B sütununu kopyalar.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, [C:C]) Is Nothing Or Target.Row = 1 Then Exit Sub
    Cells(Target.Row + 1, "A") = Cells(Target.Row, "A")
    Cells(Target.Row + 1, "B") = Cells(Target.Row, "B")
 
End Sub

Bir başka kod :

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [C:C]) Is Nothing Or Target.Row = 1 Then Exit Sub
    Range("A" & Target.Row & ":B" & Target.Row + 1).FillDown
    
End Sub

 

[mahmutcan16]

çok teşekkür ederim hocam son bi isteğim daha olucak mesela bn barkod okutuyorm hücrede 00042.5m yazıyo ben bunu 42.5 olarak göstermek istiyorm bunu nasıl yapa bilirim acaba

 

[Necdet]

Merhaba,

Noktayı Virgül ile değiştirirseniz sorunuz çözülür.