Satırları sıralamak ve silmek

[rekkezum]

Merhabalar arkadaşlar, ekteki dosya nasıl yapılabilir benim tarif ettiğim dışında ?

 

[Necdet]

Merhaba,

Sorunuzda

B sütunu ve E sütunu dahil Eden sonraki tüm sütunlar silinsin.

Diyorsunuz da ne diyorsunuz? Tam anlayamadım.

 

[rekkezum]

Merhaba,

Sorunuzda




Diyorsunuz da ne diyorsunuz? Tam anlayamadım.

Hocam alakanız için çok teşekkür ederim öncelikle, aslında E den sonrakiler bana lazım olmayan sütunlar ama lazım olmayan sütunlardan biride B sütunu yani B sütunu ve E dahil olmak üzere E den sonrakilerin silinmesi mümkünmü ??

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Duzenle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Left(Cells(i, "A"), 4) = "TK 0" Then Rows(i).Delete
Next i
Range("B:B,F:CH").Delete 'Shift:=xlToLeft
Range("A2:D" & [A65536].End(3).Row).Sort Key1:=[C2]
Application.ScreenUpdating = True
MsgBox "Düzenleme Tamamlanmıştır"
End Sub

 

[rekkezum]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Duzenle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Left(Cells(i, "A"), 4) = "TK 0" Then Rows(i).Delete
Next i
Range("B:B,F:CH").Delete 'Shift:=xlToLeft
Range("A2:D" & [A65536].End(3).Row).Sort Key1:=[C2]
Application.ScreenUpdating = True
MsgBox "Düzenleme Tamamlanmıştır"
End Sub

Hocam ellerine sağlık harika olmuş, kusura bakmayın şimdi farkettim de D sütunu da gereksiz onu da silinecek sütunların arasına nasıl ekleriz ?

 

[Necdet]

Merhaba,

Sub Duzenle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Left(Cells(i, "A"), 4) = "TK 0" Then Rows(i).Delete
Next i
Range("B:B[B][COLOR=red],D:D,[/COLOR][/B]F:CH").Delete
Range("A2:D" & [A65536].End(3).Row).Sort Key1:=[C2]
Application.ScreenUpdating = True
MsgBox "Düzenleme Tamamlanmıştır"
End Sub

 

[rekkezum]

Merhaba,

Sub Duzenle()
Dim i As Long
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 2 Step -1
    If Left(Cells(i, "A"), 4) = "TK 0" Then Rows(i).Delete
Next i
Range("B:B[B][COLOR=red],D:D,[/COLOR][/B]F:CH").Delete
Range("A2:D" & [A65536].End(3).Row).Sort Key1:=[C2]
Application.ScreenUpdating = True
MsgBox "Düzenleme Tamamlanmıştır"
End Sub

hocam ilgin için birkez daha çok teşekkür ederim herşey çok güzel oldu, ufak bir düzelteme daha lazım bu silinen satırların arasında TK0 ile başlayanlar vardıya, şimdi onların arasında silinmemesi gereken 0096 0098 gibi gücreler de var onlara dokunmadan yani şimdi aklıma geldi şöyle olabilirmi TK100 den büyükleri sil gerisi kalsın gibi bit mantık kurulabilirmi ??