Yalnız Mesajı Göster
Eski 10-11-2017, 19:53  
antonio
Destek Ekibi
 
antonio kullanıcısının avatarı
 
Giriş: 13/02/2011
Mesaj: 1,031
Excel Vers. ve Dili:
Excel 2013
Varsayılan

Merhaba,
Aşağıdaki Formülü deneyebilirsiniz. Kırmızı işaretli Sayfa ismini kendi sayfanıza göre düzenleyiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub formul_makrolu()
With Sayfa1
    ss = .Range("A" & Rows.Count).End(3).Row
    For i = 4 To ss
        If .Range("A" & i - 1).Value < .Range("A" & i).Value Then
            .Range("H" & i).Value = .Range("H" & i - 1).Value + 1
        Else
            .Range("H" & i).Value = .Range("H" & i - 1).Value
        End If
    Next i
End With
End Sub
__________________
Özel mesaj sistemini devre dışı bıraktım.
Yardım istemeden önce Forum Kurallarını okuyunuz.
Aynı konuyu farklı bölümlerde açanların sorularını yanıtlamıyorum, bu durumu fark etmeden yanıtlamışsam, mesajımı siliyorum.
antonio Çevrimdışı   Alıntı Yaparak Cevapla