makroda toplama işlemi yaptıktan sonra o toplamla ilgili verileri getirme

[Hazallkara]

Merhaba, gönderdiğim ekte P sütununda sayılarla bir if 'li döngü yazmak istiyorum. örneğin P2<= 435 ise P2 ' e karşı gelen code kısmını ve Sim Start D kısmını getirsin değilse döngü dursun demek istiyorum makroda. Teşekkür ederim şimdiden.

 

[EmrExcel16]

Merhaba istediğiniz böyle bir şey mi acaba ?

Sub Emr()
Dim i As integer

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    If Cells(i, "P") <= 435 Then
        Cells(i, "Q") = Cells(i, "A")
        Cells(i, "R") = Cells(i, "J")
    End If
Next
End Sub

 

[Hazallkara]

Bir şey daha sorabilir miyim? sizin yazdığınız koda ekleme yaptım ama istediğim gibi olmadı. P sütunundakiler 435 den küçükse bir sonraki hücredekiyle toplayıp 435 ' e eşitlemeye çalışıyorum. Yardımınız için teşekkür ederim.

 

[EmrExcel16]

Ilk sorunuzun cevabini aldiniz diye tahmin ediyorum. Ikinci sorunuzu tam olarak anlamadim anlayan arkadaşlarim cevap vereceklerdir.