Satır Gizleme ! ( iki sayı arası)

[elanor]

Arkadaşlar merhaba bir konuda yardımınıza ihtiyacım var;
aşağıdaki makroda sadece 0 olan satırları gizliyor benim yapmak istediğim ise
-3 ile 20 (tl) arasında olan sayıları gizletmek istiyorum bu formüle nasıl entegre edebilirim?
( 100 tane firma var bunların bakiyeleri -3 ile 20 TL ye kadar olan satırları gizletmek )
yardımlarınız için şimdiden teşekkürler.



Sub satir_gizle()
Range(" H1:H65536").EntireRow.Hidden = False
For i = 1 To Cells(65536, "H").End(xlUp).Row
If Cells(i, "H").Value = "0" Or Cells(i, "B").Value = "0" Then
Cells(i, "A").EntireRow.Hidden = True
End If
Next
MsgBox "Satırlar Gizlendi...!", vbCritical
End Sub

 

[Huseyinkis]

ekteki şekilde denermisiniz.

Sub satir_gizle()
Range(" H1:H65536").EntireRow.Hidden = False
For i = 1 To Cells(65536, "H").End(xlUp).Row
If Cells(i, "H").Value >-3 Or  Cells(i, "H").Value <21 and Cells(i, "B").Value >-3 Or  Cells(i, "B").Value <21 Then
Cells(i, "A").EntireRow.Hidden = True
End If
Next
MsgBox "Satırlar Gizlendi...!", vbCritical
End Sub

 

[elanor]

cevap verdiğiniz için teşekkürler ama muhtemelen bir yerde hata var çünkü tüm sayı bulunan satırları gizliyor.

 

[elanor]

tekrar kontrol ettim en son sayının bulunduğu satıra kadar olan yeri gizliyor.

 

[Huseyinkis]

tekrar kontrol ettim en son sayının bulunduğu satıra kadar olan yeri gizliyor.

Or ve and karıştırmışım.




Sub satir_gizle()
Range(" H1:H65536").EntireRow.Hidden = False
For i = 1 To Cells(65536, "H").End(xlUp).Row
If Cells(i, "H").Value >-3 And Cells(i, "H").Value <21 or Cells(i, "B").Value >-3 and Cells(i, "B").Value <21 Then
Cells(i, "A").EntireRow.Hidden = True
End If
Next
MsgBox "Satırlar Gizlendi...!", vbCritical
End Sub

 

[elanor]

teşekkür ederim hemen hemen oldu gibi boş satırlarıda gizlemeseydi tam süper olacaktı ama işimi görür yinede teşekkür ederim.

 

[Huseyinkis]

teşekkür ederim hemen hemen oldu gibi boş satırlarıda gizlemeseydi tam süper olacaktı ama işimi görür yinede teşekkür ederim.

Sub satir_gizle()
Range(" H1:H65536").EntireRow.Hidden = False
For i = 1 To Cells(65536, "H").End(xlUp).Row
if Cells(i, "H").Value <>"" or Cells(i, "B").Value <>"" then
If Cells(i, "H").Value >-3 And Cells(i, "H").Value <21 or Cells(i, "B").Value >-3 and Cells(i, "B").Value <21 Then
Cells(i, "A").EntireRow.Hidden = True
End If
end if
Next
MsgBox "Satırlar Gizlendi...!", vbCritical
End Sub


Boş Satırları gizlememi için yukarıdaki kodları kullabilirsiniz.

 

[elanor]

ilginize teşekkürler şimdi oldu.