makroda düzeltme

[igultekin2000]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = Empty Then Exit Sub
If Target.Column = 1 Then     'hangi satırda işlem olacağı
Range("B6").Copy Range("B" & Target.Row)
Range("C6").Copy Range("C" & Target.Row)

Range("D6").Copy Range("D" & Target.Row)
Range("E6").Copy Range("E" & Target.Row)
Range("F6").Copy Range("F" & Target.Row)
Range("G6").Copy Range("G" & Target.Row)
Range("H6").Copy Range("H" & Target.Row)
Range("I6").Copy Range("I" & Target.Row)
Range("J6").Copy Range("J" & Target.Row)

Application.CutCopyMode = False
End If
End Sub

iyi akşamlar hücrelerdeki formülleri alt satıra kopyalamak için bu makroyu kullanıyorum. bu formül " Imalat " sayfasında ancak bu makronun çalışması için " KumasC " sayfasının " 2 " ci kolonunu atamam mümkün mü? çünkü bu sayfadaki formüller " KumasC " sayfasındaki veriye göre çalışması gerekiyor.
Teşekkürler.

 

[muygun]

Merhaba;
If Target.Column = 1 Then
satırındaki sayıyı 2 yapın.
sonra tüm makroyu KumasC sayfasının kod bölümüne yapıştırın.
Tabi bu değişikliğe göre 2. sütunda işlem varsa makro tetikleneceği için;
Range("B6").Copy Range("B" & Target.Row)
buradaki işlemide düzenlemeniz gerekiyor.
İyi çalışmalar.

 

[igultekin2000]

sorum eksik olmuş

Merhaba;
aynı formül KumasC çalışma sayfasında var. orada kullanıyorum. benim yapmak istediğim. KumasC sekmesinde oluşan ürün isimlerinin orada oluştuğu gibi aynı zamanda "Imalat" sayfasının B7 hücresinden itibaren aşağı doğru kaydetmesini de istiyorum.

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

bu "KumasC" sayfasındaki kod, buradaki "H" sütününda oluşan değerin ayın zamanda "Imalat" sayfasındaki" B7" hücresinden itibaren aşağı doğru kaydetmesi.