kopyalama hakkında yardım

[cdroy1]

listem a dan başlayıp bz ye kadar uzanmakta ve ben b satırına veri girdiğimde c den bz ye kadar olan bütün hücrelerin bir üst satırdan kopya almasını istiyorum kendim önceden kopyaladığımda çalışma sayfam hep büyüyor hemde kasıyor nasıl yapabilirim varsa bi yönteminiz benimle paylaşırmısınız şimdiden teşekkür ederim

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
sat = Target.Row
If Target <> "" Then Range("c" & sat - 1 & ":bz" & sat - 1).Copy Range("c" & sat)
End Sub

 

[cdroy1]

harika harika harika çok teşekkür ederim beni büyük bi dertten kurtardın ellerin dert görmesin

 

[ileriexcel]

Aynı işlem için değişik bir kodlama.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
If ActiveCell.Offset(-1, 0) <> "" Then
Range(ActiveCell.Offset(-2, 1), ActiveCell.Offset(-2, 76)).Copy
ActiveCell.Offset(-1, 1).PasteSpecial
Application.CutCopyMode = False
End If
End Sub

 

[cdroy1]

teşekkür ederim bunuda kopyaladım nede olsa fazla bigi göz çıkarmaz