Excel de başka verileri sıralı veriler arasına otomatik ekle

[invisibleagle]

Örnekte A sütununa karşılık gelen B sütununun bazı değerleri eksiktir.D sütununa karşılık gelen E sütunundaki verileri otomatik olarak A ve karşılık gelen B sütünuna ekleyen kod lazım.A daki eksik değerler D sütunundadır.Örnek olarak 3 ve 5 değerleri otomatik olarak A sütununa eklensin istiyorum.Yardımlarınız için şimdiden teşekkürler.

 

[Seyit Tiken]

Bu kodu bir deneyiniz.

Sub Düğme1_Tıklat()
[D1:E2].Copy
sat = WorksheetFunction.CountA([A1:A65536]) + 1
Cells(sat, "a").PasteSpecial
Application.CutCopyMode = False
Range("A1:A100").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B1:B100").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub