biçim kopyalama kodu,

[kucukdunyam]

dolu son hücrenin altındaki hücreye bilgi girilirse, bir üst satırın biçimi veri girilen satıra kopyalansın istiyorum. bunu nasıl yapabilirim.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:A65536]) Is Nothing Then
If Cells(Target.Row, "A") <> "" Then
?????????????????????????????????
End If
End If
End Sub

soru işareti olan yere hangi kodu yazmalıyım,

Yardım edecek kimse yok mu

 

[hamitcan]

Böyle deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Empty Then Exit Sub
If Not Intersect(Target, [A1:A65536]) Is Nothing Then

Target.Offset(-1, 0).Copy
Target.Select
Application.EnableEvents = False
    Selection.PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
Application.EnableEvents = True
End If
End Sub