Satır Gizleme ve Sıralama

[aktarmamd]

Arkadaşlar Merhaba;

Örnekte revize edilen tabloda;

A) L-R sütünları arasındaki veriler baz alınarak boş olan satırları gizleyen veya doludan boşa doğru sıralayabilen

B) Gizlenmemiş yani dolu olan satırların S.No larının yazılı olduğu B sütünuna Sıra nolarını 1-2-3-4 sıralaması yapabilen bir makroya ihtiyacım var;

çözüme ulaşamadım yardım bekliyorum

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub KOD()
Dim alan As Range
son = Range("B65500").End(3).Row
Range("13:" & son).EntireRow.Hidden = True
For a = 13 To son
    For b = 12 To 18
        If Cells(a, b) <> "" Then
            If alan Is Nothing Then Set alan = Cells(a, "B") Else Set alan = Union(alan, Cells(a, "B"))
            Exit For
        End If
    Next
Next
For Each hcr In alan
    sn = sn + 1
    hcr.Value = sn
Next

alan.EntireRow.Hidden = False
    
End Sub

 

[aktarmamd]

ek teki dosyaya uyguladığımda, dosya kilit oldu.. ve tarih değiştirdiğimde saklanan satırlarda yenilenecek mi?

 

[ÖmerBey]

Kullandığınız formüllerden dolayı dosyanız çok ağırlaşmış... Hesaplama seçeneklerini El ile yapıp kodu çalıştırmayı deneyiniz...