Sıralama makrosunda Run time error 1004 hatası

[ozuberk]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba aşağıdaki kodu çalıştırdığımda Run time error 1004 hatası alıyorum. Koda sıralama nasıl ekleyebilirim.

Sub Kayit ()
Set sf1 = Sheets("G01")
ad = sf1.Range("V3").Text
Set sf2 = Sheets(ad)

Son = sf2.Cells(Rows.Count, 1).End(3).Row + 1

sf2.Range("A" & Son) = sf1.Range("L3")
sf2.Range("B" & Son) = sf1.Range("L4")
sf2.Range("C" & Son) = sf1.Range("L6")
sf2.Range("D" & Son) = sf1.Range("A1")
sf2.Range("E" & Son) = sf1.Range("L7")
sf2.Range("F" & Son) = sf1.Range("L8")
sf2.Range("G" & Son) = sf1.Range("Z9")
sf2.Range("H" & Son) = sf1.Range("Z5")
sf2.Range("I" & Son) = sf1.Range("L5")
sf2.Range("J" & Son) = sf1.Range("L10")
sf2.Range("K" & Son) = sf1.Range("L11")
sf2.[B2:K1001].Sort Key1:=[B2]
Range("A2").Select
End Sub

 

Userformsuz Textbox1 deki değeri kopyalama

Satır Sütun Seçme ve Silme İçin 7 Kod

[okutkan]

Aşağıdaki şekilde bir deneyin.

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

 

[ozuberk]

Aşağıdaki şekilde bir deneyin.

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

Yardımlarınız için teşekkür ederim. Kolay gelsin