A sütunu dolu ise bir artır

[sevensuleyman]

merhaba ;

bu formülü makroya çevirmek istiyorum. a sütununda herhangi bir hücre dolu ise b sütununda b2 hücresindeki sayı artırarak devam etsin istiyorum .

makroya çevirirseniz sevinirim şimdiden teşekkürler

=EĞER(A2<>"";B2+1;"")

 

[Carpintero]

bunu deneyebilir misiniz lütfen.
sub kod
If Cells(2,"A").value<>"" then
Cells(2,"b").value=Cells(2,"b").value+1
end ıf
end sub

 

[sevensuleyman]

 

[Carpintero]

sorunuz çok net değil
cevap bu da olabilir.

Sub Makro1()
ss = Range("A" & Rows.Count).End(3).Row
For i = 1 To ss
If Cells(i, "A").Value <> "" Then
Cells(2, "B").Value = Cells(2, "B").Value + 1
End If: Next i
End Sub

 

[sevensuleyman]

örnet excell ekledim size zahmet incelersenizsevinirim

 

[Carpintero]

maalesef üyeliğimin dosya indirme
özelliği yok.
diğer arkadaşlar yardımcı olacaklardır.
başarılar.

 

[sevensuleyman]

maalesef üyeliğimin dosya indirme
özelliği yok.
diğer arkadaşlar yardımcı olacaklardır.
başarılar.

İndir Yeni Microsoft Excel Çalışma Sayfası (2) xlsx

Dosyayı indir Yeni Microsoft Excel Çalışma Sayfası (2) xlsx

dosya.co

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub No_Yaz()
    Dim Son As Long
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    With Range("B3")
        .Resize(Rows.Count - 2).ClearContents
        If Son >= 3 Then
            .Resize(Son - 2).Formula = "=IF(A3<>"""",B2+1,)"
            .Resize(Son - 2).Value = .Resize(Son - 2).Value
        Else
            MsgBox "A sütununa veri giriniz!", vbCritical
        End If
    End With
End Sub

 

[sevensuleyman]

Deneyiniz.

Option Explicit

Sub No_Yaz()
    Dim Son As Long
   
    Son = Cells(Rows.Count, 1).End(3).Row
   
    With Range("B3")
        .Resize(Rows.Count - 2).ClearContents
        If Son >= 3 Then
            .Resize(Son - 2).Formula = "=IF(A3<>"""",B2+1,)"
            .Resize(Son - 2).Value = .Resize(Son - 2).Value
        Else
            MsgBox "A sütununa veri giriniz!", vbCritical
        End If
    End With
End Sub

çok teşekkürler tam istediğim gibi