değer var ise bir yan sutunun değerini bir arttır

[BG]

ardakaşlar sorum örnek dosya ekindedir, ilgilenirseniz memnun olurum.

 

[Ömer]

Merhaba,

Yanlış anlamışta olabilirim,

=E&#286;ER(A1<>"";BA&#286;_DE&#286;_DOLU_SAY($A$1:A1);"")

&#304;stedi&#287;iniz bu mu?

 

[BG]

tesekkur ederim hocam, ama makro ile yapilisini merak ettigim icin sormustum aslinda, sizi cok ugratirmayacaksa makro kodunu gonderebilirmisiniz.

 

[BG]

değer var ise bir yan sutunun değerini bir arttır kod ile

sorum ektedir arkadaşlar, teşekkür ederim.

 

[Ayhan Ercan]

Merhaba sn brain

A&#351;a&#287;&#305;daki kodlar&#305; denermisiniz...

Private Sub CommandButton1_Click()
Dim son As Long, a As Long
son = [a65536].End(3).Row
a = 1
For i = 1 To son
    If Cells(i, 1) <> "" Then
        Cells(i, 2) = a
        a = a + 1
    End If
Next

 

[BG]

Sayın Ayhan Ercan

değerli zamanınızı ayırdığınız için çok teşekkür ederim, tam olarak böyle bir şeydi emeğinize sağlık.

 

[Ayhan Ercan]

değerli zamanınızı ayırdığınız için çok teşekkür ederim, tam olarak böyle bir şeydi emeğinize sağlık.

Rica ederim.
İyi Çalışmalar... k::