• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

kayıt sorunu

Katılım
5 Eylül 2007
Mesajlar
1,247
Excel Vers. ve Dili
ofis 2010
iyi akşamlar;
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ğı

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
makrosu ile "KumasC sayfasında B ve C hücrelerine veri girdikçe H hücresinde ürün ismi oluşuyor. " bu esnada H hücresinde oluşan ürün isminin aynı zamanda " Imalat çalışma sayfasının B7 hücresinden aşağı doğru kopyalanmasını sağlamak istiyorum.
 
örnek çalışmanızı paylaşırsanız daha anlaşılır olacaktır.
 
Geri
Üst