Tablodaki dolu hücreleri aynı şekildeki diğer tabloya sıra numarası vererek aktarmak

[mehmetuca]

Merhaba arkadaşlar. Renkli tabloda dolu hücreleri yandaki tabloya dolu hücrelerdeki yerlerine sıra numarası vermek istiyorum. Dosya ektedir. Teşekkürler

 

[Orion1]

Buyurun.

Sub sira59()
Dim alan As Range, hcr As Range, say As Integer
Range("E1:G12").ClearContents
Set alan = Range("A1:C12")
For Each hcr In alan
    If hcr.Value <> "" Then
        say = say + 1
        hcr.Offset(0, 4).Value = say
    End If
Next
End Sub

 

[mehmetuca]

Orion1 hocam formülle bir yolu yok mu?

 

[Orion1]

Orion1 hocam formülle bir yolu yok mu?

Onu bilemiycem.
Formüller konusunda forumda çok yetenekli arkadaşlar var.
Olursa yapacaklardır.
En kolayı vba kodlama ile yapmaktır.