Sitem etmenize gerek yok bizlerin zaman harcayıp ailemizden ve işmizden çaldığımız zamanı sizlere yardım için harcıyoruz ve sonuçta bizlerin verdiği cevabada ne bir teşekkür nede işim görüldü diye herhangi bir dönüşte bulunulmuyor.Ama sonuçta bizler kimseye sitem etmiyoruz çünkü bizler bu işi gönüllü olarak yapıyoruz malum hepimizin geçindirmekle yükümlü olduğu bir ailesi var.
Modüle2 deki Kodlarınızı aşağıdaki şekilde düzenleyiniz ve örneği inceleyebilirsiniz.
Sub Kaydet()
For U = 2 To Sheets("Menü").Range("E65536").End(3).Row
Son_Satır = Sheets("Depo").Range("A65536").End(3).Row + 1
Sheets("Menü").Range(Cells(U, "A"), Cells(U, "H")).Copy
Sheets("Depo").Cells(Son_Satır, "A").PasteSpecial
Sheets("Depo").Cells(Son_Satır, 7) = "Sevk"
Next
Application.CutCopyMode = False
End Sub