Satırdaki belli hücreleri kopyalama

[unfors]

Application.ScreenUpdating = False
Range("A" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(ss, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False

Range("B" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False

Range("C" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False

Range("D" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False

Range("E" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False

Range("F" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 6).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False

Range("N" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 7).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False

Range("G" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 8).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False


Range("J" & ActiveCell.Row).Copy
Sheets("ÜRÜN_MALİYET_FORMU").Select
ss = Cells(Rows.Count, 1).End(xlUp).Row
Cells(ss, 12).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("HAMMADDE_LİSTESİ").Select
Application.CutCopyMode = False



Bu dizini kısa olarak nasıl yazabilibilirim? İşlem yapması çok zaman alıyor.

 

[Necdet]

Merhaba,

Ne yapmak istediğinizi örnek bir dosyada anlatırsanız çözüm daha hızlı gelir. Kodları incelemek zaman kaybı. Üstelik dosya da olmayınca tam olarak ne yapmak istediğiniz de anlaşılamayabilir.

Örnek dosyanızı paylaşım sitelerinden birine koyabilirsiniz.

 

[alicimri]

Galiba böyle bir kod işinizi görür. HAMMADDE_LİSTESİ sayfası açıkken makroyu çalıştırın.

Sub a()
Set s1 = Sheets("HAMMADDE_LİSTESİ")
Set s2 = Sheets("ÜRÜN_MALİYET_FORMU")
ss = s2.Cells(Rows.Count, 1).End(xlUp).Row + 1
dd = ActiveCell.Row
s1.Range("A" & dd & ":" & "F" & dd).Copy s2.Cells(ss, 1)
s1.Range("N" & dd).Copy s2.Cells(ss, 7)
s1.Range("G" & dd).Copy s2.Cells(ss, 8)
s1.Range("J" & dd).Copy s2.Cells(ss, 12)
End Sub

 

[unfors]

Evet gördü teşekkür ederim