makroda dolu hücre say karşısına numara yaz

[CEMİL16]

kolay gelsin
makroda
b2 hücresi vaya e2 hücresi dolu ise a2 hücresinne 1 yazsın eğer boşsa bir şey yazmayıp boş bıraksın bu olay 20 ye kadar devem etsin
bukonuda bana yardımcı olurmusunuz

 

[EmrExcel16]

Kolay gelsin.

Sub Emr()
For i = 2 To 20
If Cells(i, "B") <> "" Or Cells(i, "E") <> "" Then
    Cells(i, "A") = 1
End If
Next
End Sub

 

[CEMİL16]

EMRE HOCAM TEŞEKÜR EDERİM ÇALIŞTI AMA BÜTÜN DOLU HÜCRELERE 1 YAZDI
BU NUMARALAR 1,2,3,...….20 NASIL YAPILIR

 

[çıtır]

Sayfanın kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, say As Long
If Intersect(Target, [B2:B40000,E2:E40000]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
   Range("A2:A" & Rows.Count).Cells.ClearContents
     say = 1
    For i = 2 To Selection.SpecialCells(xlCellTypeLastCell).Row
       If Cells(i, "B") <> "" Or Cells(i, "E") <> "" Then
               Cells(i, "A") = say
                 say = say + 1
                 End If
                If say = 21 Then GoTo cık
        Next
cık:
    Application.ScreenUpdating = True
End Sub

 

[CEMİL16]

hocam çalışmadı

 

[çıtır]

Sayın CEMİL16;
Foruma hoş geldiniz.
İşlem yapaçağınız sayfa da sayfa adı sekmesinde fare sağ tuş tıklayınız.Açılan pencerede(1.Resim) kod görüntüle seçiniz.Çıkan boş alana(2.Resim) kodu kopyalayınız. Şimdi sayfanın B ve E kolanlarına değe girdiğinizde sıralama yapaçakdır.20 ye kadar sıralar.20 den sonra tekrar 20 den başlar.Dosyanızı makro içeren dosya olarak kayıt ediniz.Belirttiğimgibi işlemleri yapdıkdan sonra sonuçu yazınız.Kolay gelsin.

 

[CEMİL16]

Sub Makro1()
Dim ? As Long, Say As Long
Application.ScreenUpdating = False
Say = 1
For i = 2 To 20
If Cells(i, "B") <> "" Or Cells(i, "E") <> "" Then
Cells(i, "A") = Say
Say = Say + 1
End If
If Say = 21 Then GoTo C?k
Next
C?k:
Application.ScreenUpdating = True
End Sub
Bu Kod İle Çalıştı teşekürler

 

[çıtır]

Çalıştı teşekürler

Dönüş yaptığınız için teşekkür ederim.