A kolonundan istenmeyen numarayı sil

[mosmos2009]

Merhabalar,

Ek'li dosyanın Makro yardımı ile "a" kolununda birden fazla "160" ve "182" rakamların bulunup satırı silen makroya ihtiyacım var yardımarınızı rica ederim

 

[Orion1]

Dosyanız ektedir.

Sub sil59()
Dim i As Long, sat As Long
'a sütununda 160 ve 182 olan hücrenin satırını komple silmek.
sat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = sat To 2 Step -1
    If CDbl(Cells(i, "A").Value) = 182 Or CDbl(Cells(i, "A").Value) = 160 Then
        Rows(i).Delete
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Veriler Silindi." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mosmos2009]

tesskürler üstad tam istediiğim gibi

 

[mosmos2009]

üstad, aynı tabloya 10981 satırlık veri kopyala yapıstır yapınca makroyu calıstırında "Type mismatch" hatası verdiğinden calısmamaktadır, fazla satır olduğundanmı kaynaklanmaktadır. nasıl calıstırabilirz, tsk

 

[Orion1]

üstad, aynı tabloya 10981 satırlık veri kopyala yapıstır yapınca makroyu calıstırında "Type mismatch" hatası verdiğinden calısmamaktadır, fazla satır olduğundanmı kaynaklanmaktadır. nasıl calıstırabilirz, tsk

Ondan değil.a sütununa sayısal olmayan değerler yapıştırılmış ,ondan.
İlgili satırı aşağıdaki ile değiştirin.

If Cells(i, "A").Text = "182" Or Cells(i, "A").Text = "160" Then

 

[monelogg]

Dosyanız ektedir.
If CDbl(Cells(i, "A").Value) = 182 Or CDbl(Cells(i, "A").Value) = 160 Then
End Sub[/CODE]

Merhaba, yukarıdaki kodda CDbl ne işe yarıyor, açıklayabilir misiniz?

 

[Orion1]

Merhaba, yukarıdaki kodda CDbl ne işe yarıyor, açıklayabilir misiniz?

Veriyi double(sayısal) değişken olarak tanımlıyor.

 

[monelogg]

Teşekkürler Orion1...

 

[mosmos2009]

tsk üstad dediğin gibi ilgili satırı değistirince düzeldi eline sağlk