Filtreleme için yardım

[cresendo]

Merhaba arkadaşlar,

Ekteki dosyada + ile belirtilmeyen hem satırları hemde sütunları makro yada kod ile gizlemek istiyorum.
bu konuda yardımcı olabilirseniz sevinirim.

 

[Ziynettin]

Merhaba,

......

Sub gizle()
For j = 6 To 16
If Cells(1, j) <> "+" Then Columns(j).Hidden = 1
Next j
For i = 5 To 28
If Cells(i, 1) <> "+" Then Rows(i).Hidden = 1
Next i
End Sub

 

[cresendo]

Sayın Tasmed,

ilk olarak teşekkür ediyorum. Peki bu makroyu örneğin aa1 sütunu ve 500000.satıra kadar dolu olsa çalışır mı?

 

[muygun]

Merhaba;
Alternatif olsun.
Eki deneyin.
İyi çalışmalar.

 

[cresendo]

Merhaba,

......

Sub gizle()
For j = 6 To 16
If Cells(1, j) <> "+" Then Columns(j).Hidden = 1
Next j
For i = 5 To 28
If Cells(i, 1) <> "+" Then Rows(i).Hidden = 1
Next i
End Sub

Sayın Tasmed,

ilk olarak teşekkür ediyorum. Peki bu makroyu örneğin aa1 sütunu ve 500000.satıra kadar dolu olsa çalışır mı?