Formülü makro ya çevirmek

[yanginci34]

Merhaba arkadaşlar; Dosyam da şöyle bir formül var =EGER(A3<A4;H3+1;H3) ben bu formülü makro ya ve H sütununda A sütununun son dolu hücresine kadar uygulamak istiyorum. Bir de formül hücrelerde görünmese iyi olur. Şimdiden teşekkürler.

 

[antonio]

Merhaba,
Aşağıdaki Formülü deneyebilirsiniz. Kırmızı işaretli Sayfa ismini kendi sayfanıza göre düzenleyiniz.

Sub formul_makrolu()
[COLOR="Red"][B]With Sayfa1[/B][/COLOR]
    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

 

[umit1907]

Merhaba,
Aşağıdaki Formülü deneyebilirsiniz. Kırmızı işaretli Sayfa ismini kendi sayfanıza göre düzenleyiniz.

Sub formul_makrolu()
[COLOR="Red"][B]With Sayfa1[/B][/COLOR]
    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.

 

[yanginci34]

Sayın Antonio çok teşekkür ederim. Sayın Ümit bey kod anladığım kadarıyla sadece A3 olarak değil A sütununun son dolu hücresine kadar kapsıyor.

 

[antonio]

Sayın Antonio çok teşekkür ederim. Sayın Ümit bey kod anladığım kadarıyla sadece A3 olarak değil A sütununun son dolu hücresine kadar kapsıyor.

Evet doğru anlamışsınız.
.Range("A" & Rows.Count).End(3).Row kodu, A sütununun son dolu satırını verir.
İyi çalışmalar.