makro kaydet ile oluşturulmuş makroya ek makro yazma

[mtdrgn]

Merhaba.

Makro kaydet komutu ile bir makro oluşturdum. Bu makronun sonuna yine çalıştığım sayfada (sayfanın adı "konsinye raporu") E sütununda "İptal Edilmemiş", "Birim" ve "Fatura Durumu" yazıyorsa satırı sil makrosu yazmak istiyorum ama başaramadım. Yazdığım makronun kısa halini ekliyorum. SAtır sil makrosunu ekleyebilirim?

Sub Makro3()
'
' Makro3 Makro
'

'
Cells.Select
Range("A10157").Activate
ActiveWorkbook.Worksheets("konsinye raporu").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("konsinye raporu").Sort.SortFields.Add Key:=Range( _
"B1:B11545"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("konsinye raporu").Sort
.SetRange Range("A1:Y11545")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[muygun]

Merhaba;
Eki deneyin. Modüldeki kodları aynen taşıyın yada makronuza adapte edin.
İyi çalışmalar.

 

[mtdrgn]

Yardım için dosyayı yüklüyorum. ekleme işlemini tam olarak yapamadım. silme işlemini a sütununa c ve f sütunuyla birleştirip aşağıya doğru formülü kopyaladıktan sonra yapmak istiyorum.

Teşekkürler