Makro ile kaydedilen uzun kodu kısa ve öz hale getirme

[Kavinsky]

Üstatlar merhaba.
Ben makro kaydederek aşağıdaki kodları oluşturdum. Fakat bu kodlar makro mantığında olduğu için çalıştırınca görsel olarakta önce fatura sayfasını seçiyor sonra muhasebeyi seçiyor yani kısacası kısa bir işlem çok uzun hale geliyor. Kodun açılımı ise şu FATURA sayfasındaki E2 hücresindeki veriyi MUHASEBE sayfasında G hücresinin ilk boş olanını bul ve yapıştır. Aşağıdaki kodun daha sade ve sistemi yormayacak hale gelmesi mümkün müdür ? Şimdiden teşekkür ederim.

Sheets("FATURA").Select
Range("E2").Select
Selection.Copy
Sheets("MUHASEBE").Select
Range("G65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

 

[Haluk]

Bunu deneyin ...

NoG = Sheets("MUHASEBE").Range("G" & Rows.Count).End(xlUp).Row + 1
Sheets("MUHASEBE").Range("G" & NoG) = Sheets("FATURA").Range("E2")

.

 

[Kavinsky]

Hocam ilginiz için çok teşekkür ederim. Emeğinize sağlık çok daha pratik ve anlaşılır oldu.

 

[Haluk]

Kolay gelsin...

.