bir değişkenli süzme işlemi

[gezgin-49]

Sayın üstadlarım ekte gönderilen dosyada "esas-karar" sayfasında H2:H2500 aralığında olan karar numaralarını eğer J2:J2500 arasında tarih yazılıysa N2 hücresinde yukarıdan aşağıya doğru sıralama yapmak istiyorum. Bu konudaki yardımlarınızdan dolayı sizlere şimdiden teşekkür ediyorum.

 

[gezgin-49]

Sayın üstadlarım acil yardıma ihtiyacım var, hepinize saygılar sunuyorum.

 

[Huseyinkis]

Sayın üstadlarım acil yardıma ihtiyacım var, hepinize saygılar sunuyorum.

Ekteki Kodu denermisiniz.

Sub Sırala()
Sheets("esas-karar").Select
Range("N1:O65536").ClearComments
For i = 2 To Range("H65536").End(3).Row
If Cells(i, "H").Value = "" Then
ElseIf Cells(i, "J").Value <> "" Then
Satır = Range("N65536").End(3).Row + 1
Cells(1, "N").Value = "Karar No"
Cells(1, "O").Value = "Tarih"
Cells(Satır, "N").Value = Cells(i, "H").Value
Cells(Satır, "O").Value = Cells(i, "J").Value
End If
Next
MsgBox "İşlem Tamam"
End Sub