Eğer j3=j2;k3=k2+1;1 ??

[vol1237]

Sub HIZ()
son = Sheets("DATA").[k65536].End(3).Row

With Sheets("DATA").Range("k3:k" & son)
    .Formula = "=IF(j3=j2,k2+1,1)"
    .Value = .Value
End With

End Sub

Bu kodda olan hata nedir arkadaşlar? kısıtlı bilgimle birşeyler yazmaya çalıştım ama bir hata var.. yapmaya çalıştığım şu;

eğer j3=j2 ise k3=k2+1 değilse 1 olsun.Bu işlemi j Sütunun bir değer içerdiği en son hücre hangisiyse ona kadar yapmalı ve k2 ye ilk değeri kendim veriyorum 1 olarak.Sayfa adı "data"

 

[YUSUF44]

With'li kýsým yerine aþaðýdaki kısmıdeneyin:

For i = 3 to son
If cells(i, "j") =cells(i-1,"j") then
cells(i, "k") = cells(i-1,"k")+1
Else
cells(i,"k") =1
end if
next

 

[vol1237]

With'li kýsým yerine aþaðýdaki kısmıdeneyin:

For i = 3 to son
If cells(i, "j") =cells(i-1,"j") then
cells(i, "k") = cells(i-1,"k")+1
Else
cells(i,"k") =1
end if
next

Bu şekilde işlem inanılmaz uzun sürüyor benim yazdığım koda bir uyarlama yapılabilir mi?

 

[feridici_genc]

Makrodan pek anlamam ama..
Sanki formül yanlış gibi...
Şöyle çalışıyor mu?

Sub HIZ()
son = Sheets("DATA").[k65536].End(3).Row

With Sheets("DATA").Range("k3:k" & son)
    .Formula = "=IF(and(j3=j2;k3<>k2+1);1;0)"
    .Value = .Value
End With

End Sub