Kodların Sadeleştirmesi ve Alternatif Kod Talebi

[Ergün Güler]

Selam,
linkteki Örnek Dosyam'ın "insört" sayfasındaki aşağıdaki kodlar mevcuttur. Daha sade ve hızlı veya alternatif nasıl kodlar yazabiliriz?

örnek dosyamdaki insört sayfasında açıklamalar ve örnekler vardır.
Yardımcı olabilirseniz sevinirim.
İyi çalışmalar.

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False

Set s1 = Sheets("insört")
Set veri = Sheets("veri")

son = veri.Cells(65536, 1).End(3).Row

For i = 2 To son
s1.Cells(i, "A") = veri.Cells(i, "A") 'üretim No.
s1.Cells(i, "B") = veri.Cells(i, "B") ' İnsört no.
s1.Cells(i, "C") = veri.Cells(i, "C").Value 'Tarih
s1.Cells(i, "D") = veri.Cells(i, "D") 'Operatör
s1.Cells(i, "E") = veri.Cells(i, "H") 'İnsört Adı
s1.Cells(i, "F") = veri.Cells(i, "I") ' Formatı
s1.Cells(i, "G") = veri.Cells(i, "J") ' Ebatı
s1.Cells(i, "H") = veri.Cells(i, "K") 'Sayfa
s1.Cells(i, "J") = veri.Cells(i, "L") ' gsm
s1.Cells(i, "L") = veri.Cells(i, "M") ' Miktarı
s1.Cells(i, "N") = veri.Cells(i, "N") ' Hız
s1.Cells(i, "O") = veri.Cells(i, "O") ' Notlar
If veri.Cells(i, "I") = "BS" Then
fg = "1"
Else
fg = "0,5"
End If
s1.Cells(i, "I") = veri.Cells(i, "K") * CDbl(fg) 'yaprak
s1.Cells(i, "K") = (CDbl(fg) * Val(Mid(veri.Cells(i, "J"), 1, 3)) * Val(Mid(veri.Cells(i, "J"), 5, 3)) * Val(veri.Cells(i, "K")) * Val(veri.Cells(i, "L"))) / 1000000 'Birim Ağırlık
s1.Cells(i, "M") = (CDbl(fg) * Val(Mid(veri.Cells(i, "J"), 1, 3)) * Val(Mid(veri.Cells(i, "J"), 5, 3)) * Val(veri.Cells(i, "K")) * Val(veri.Cells(i, "L")) * Val(veri.Cells(i, "M"))) / 1000000000 'Toplam Ağırlık

Next i

s1.Range("A" & (s1.Cells(65536, "A").End(3).Row + 1) & ":K65536").ClearContents

Application.ScreenUpdating = True

End Sub

 

[Ergün Güler]

Selam,
Herhangi bir fikri olan var mı?
İyi çalışmalar.