Soru Aktif hücrede bir üst satırı kopyalama

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
    If Target.Row < 7 Then Exit Sub
    If Target.Text <> "" Then Kenarlık_Çiz Range("B7:U" & Target.Row)

Target.Offset(1, 2).Value = Target.Offset(0, 2).Value
Target.Offset(1, 3).Value = Target.Offset(0, 3).Value
Target.Offset(1, 4).Value = Target.Offset(0, 4).Value
End Sub

yukarıda yer alan kod ile örneğin 4. satırı aktif edince 5. satırda işlem görüyor.
Ben 5. satırda (B sütununda) işlem yaparsam 4. satırı kopyalasın.
Rica etsem yardımcı olabilir misiniz?

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, [b:b]) Is Nothing Then
X = ActiveCell.Row
Range("B" & X & ":U" & X).Offset(-1, 0).Copy
Else
Application.CutCopyMode = False
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target.Row < 7 Then Exit Sub
    If Target.Text <> "" Then Kenarlık_Çiz Range("B7:U" & Target.Row)

    Target.Offset(0, 2).Value = Target.Offset(-1, 2).Value
    Target.Offset(0, 3).Value = Target.Offset(-1, 3).Value
    Target.Offset(0, 4).Value = Target.Offset(-1, 4).Value
End Sub

 

[sirkülasyon]

Seyit Tiken
Korhan Ayhan
Allah razı olsun. Hakkınızı helal edin