Makroda düzenleme

[igultekin2000]

iyi günler ; verileri aşağı kopyalayan makroyu kullanıyorum. ama bazı satırlarda formülün uygulanmasını istemiyorum. B sütununa veri girdikçe formül çalışıyor. mesela B20 nolu hücrede makronun çalışmaması için ne yapabilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Target = Empty Then Exit Sub
If Target.Column = 2 Then     'hangi satırda işlem olacağı
Range("D3").Copy Range("D" & Target.Row)
Range("E3").Copy Range("E" & Target.Row)
Range("F3").Copy Range("F" & Target.Row)
Range("G3").Copy Range("G" & Target.Row)
Range("H3").Copy Range("H" & Target.Row)
Range("I3").Copy Range("I" & Target.Row)
Range("J3").Copy Range("J" & Target.Row)


    
Application.CutCopyMode = False
End If
End Sub

 

[NBATMAN]

Merhaba,

B20 için makrodan çıkmak adına yapılabilecek düzenleme aşağıdaki gibidir.

If Target.Column = 2 and Target.Row = 20 Then Exit Sub

 

[igultekin2000]

Teşekkürler

Merhaba,

B20 için makrodan çıkmak adına yapılabilecek düzenleme aşağıdaki gibidir.

If Target.Column = 2 and Target.Row = 20 Then Exit Sub

evet sorun çözülmüş oldu.