Yalnız Mesajı Göster
Eski 11-11-2017, 09:16  
umit1907
Altın Üye
 
Giriş: 09/05/2007
Mesaj: 95
Excel Vers. ve Dili:
2010 TR
Varsayılan

Alıntı:
antonio tarafından gönderildi Mesajı Görüntüle
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
Merhabalar,
Buradaki kodların formüldeki değerleri nasıldır. Mantığını anlamak için size zahmet olmazsa yazabilirmisiniz. Örneğin. =EGER(A3<A4;H3+1;H3) Burdaki A3 hücresi kodda nasıl belirtilmiştir.
umit1907 Çevrimdışı   Alıntı Yaparak Cevapla