Makro ya kod eklenmesi hk.

[kemal turan]

Merhaba ustadlar,
aşağıda bir sıralama makrom var.
Bu sıralanan h21:k42 arasında ;
eğer 0 (SIFIR) değeri varsa silsin.
Şeklinde ekleme yapabilirmisiniz.
Tşk.

Sub Faturasırala()
'
' Faturasırala Makro
'

'
Range("H21:K42").Select
ActiveWorkbook.Worksheets("GİDEN PLANLAMA").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("GİDEN PLANLAMA").Sort.SortFields.Add Key:=Range( _
"H21:H42"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("GİDEN PLANLAMA").Sort
.SetRange Range("H20:K42")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("H21").Select
End Sub

 

[Korhan Ayhan]

Merhaba,

Kemal bey soruyu çok genel sormuşsunuz. Silmekten kastınız satırı silmek midir? Yoksa hücrenin içeriğinimi temizlemektir.

 

[kemal turan]

Merhaba Korhan bey,
Sıraladığı veriler arasında hücre değeri eğer 0 ise o hücreyi silsin.
Teşekkür ederim.

 

[asi_kral]

Merhaba

Option Explicit
Sub sırala_sıfır_sil()
Dim SAT As Long
Application.ScreenUpdating = False
For SAT = 21 To Range("H42").End(xlUp).Row
If Cells(SAT, "H") = 0 Then
Cells(SAT, "H") = Empty
End If: Next
Range("H21:H42").Sort key1:=Range("H21"), order1:=xlAscending
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation
End Sub

Bu kod işinizi görür mü_?

 

[kemal turan]

Merhaba kardeşim.
Çok teşekkür ederim.İşimi görmek ne demek.Çok güzel olmuş.
İşiniz rast gitsin, selametle kalın.

 

[asi_kral]

Merhaba kardeşim.
Çok teşekkür ederim.İşimi görmek ne demek.Çok güzel olmuş.
İşiniz rast gitsin, selametle kalın.

Kolay Gelsin.