- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
Merhaba;
B sütununa veri yazdığımda hizasındaki C:H sütunlarına formül kopyalanıyor. Nerede hata yaptığımı çözemedim. B sütununa veri girip kaydettiğim zaman formül ilgili satıra göre kopyalıyor. Kaydetmeden formülün kopyalanmasını nasıl sağlarım.
B sütununa veri yazdığımda hizasındaki C:H sütunlarına formül kopyalanıyor. Nerede hata yaptığımı çözemedim. B sütununa veri girip kaydettiğim zaman formül ilgili satıra göre kopyalıyor. Kaydetmeden formülün kopyalanmasını nasıl sağlarım.
Kod:
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ğı
If Target.Column = 2 And Target.Row = 1 Then Exit Sub 'formülün hangi satırda uygulanmayacağın belirtir
If Target.Column = 2 And Target.Row = 1 Then Exit Sub 'Target.Row = 1 formülsüz .nci satır sayısı
Range("C2").Copy Range("C" & Target.Row)
Range("D2").Copy Range("D" & Target.Row)
Range("E2").Copy Range("E" & Target.Row)
Range("f2").Copy Range("f" & Target.Row)
Range("g2").Copy Range("g" & Target.Row)
Range("h2").Copy Range("h" & Target.Row)
Application.CutCopyMode = False
End If
End Sub
Ekli dosyalar
-
95 KB Görüntüleme: 8
-
23.7 KB Görüntüleme: 7