sayın hocalarım sayın arkadaşlar makronun tek satırda çalışması

[mustafayılmaz]

Sub GÖRECELİ()
'
' GÖRECELİ Makro
' Makro mustafa tarafından 05.01.2007 tarihinde kaydedildi.
'

For r = 3 To 65536
If Cells(r, 9).Value = "" Then End
Range("I" & r + 1).Select
a = Cells(r, 10) - Cells(r, 10) * Cells(r, 11) / 100
b = a - a * Cells(r, 12) / 100
c = b - b * Cells(r, 13) / 100
d = c - c * Cells(r, 14) / 100
e = d - d * Cells(r, 15) / 100
g = e + e * Cells(r, 16) / 100
H = Cells(r, 9) * g
ı = g / Cells(r, 17)
K = ı + ı * Cells(r, 18) / 100
Cells(r, 22).Value = K
Cells(r, 21).Value = ı
Cells(r, 19).Value = g
Cells(r, 20).Value = H
Cells(r, 23).Value = Cells(r, 7) + (Cells(r, 9) * Cells(r, 17))
Cells(r, 7) = Cells(r, 23)
If Cells(r, 6) > Cells(r, 22) Then Cells(r, 6) = Cells(r, 6)
If Cells(r, 6) < Cells(r, 22) Then Cells(r, 6) = Cells(r, 22)
If Cells(r, 6) = Cells(r, 22) Then Cells(r, 6) = Cells(r, 22)




Application.OnKey ("{RETURN}"), "ENTER"
Next
End Sub
yukarıdaki makroyu çalıştırdığımda örneğin 10.satırdaysam
3.satırdan başlayarak 10.satıra kadar tekrardan hesaplıyor
sadece üzerinde bulunduğum satırı hesaplatmak istiyorum.
diğer satırlarda tekrardan hesaplama yapmasın
ilginize şimdiden çok teşekkürler.

 

[mustafayılmaz]

lütfen yardımcı olurmusunuz

ilgilenirseniz çok sevineceğim

 

[xxcell]

for ... ile ba&#351;layan sat&#305;r&#305; ve next sat&#305;r&#305;n&#305; sil.
r yazan yerlere ise activecell.row yaz d&#252;zelir.

 

[xxcell]

Sub GÖRECELİ()
'
' GÖRECELİ Makro
' Makro mustafa tarafından 05.01.2007 tarihinde kaydedildi.
'

If Cells(ActiveCell.Row, 9).Value = "" Then End
a = Cells(ActiveCell.Row, 10) - Cells(ActiveCell.Row, 10) * Cells(ActiveCell.Row, 11) / 100
b = a - a * Cells(ActiveCell.Row, 12) / 100
c = b - b * Cells(ActiveCell.Row, 13) / 100
d = c - c * Cells(ActiveCell.Row, 14) / 100
e = d - d * Cells(ActiveCell.Row, 15) / 100
g = e + e * Cells(ActiveCell.Row, 16) / 100
H = Cells(ActiveCell.Row, 9) * g
ı = g / Cells(ActiveCell.Row, 17)
K = ı + ı * Cells(ActiveCell.Row, 18) / 100
Cells(ActiveCell.Row, 22).Value = K
Cells(ActiveCell.Row, 21).Value = ı
Cells(ActiveCell.Row, 19).Value = g
Cells(ActiveCell.Row, 20).Value = H
Cells(ActiveCell.Row, 23).Value = Cells(ActiveCell.Row, 7) + (Cells(ActiveCell.Row, 9) * Cells(ActiveCell.Row, 17))
Cells(ActiveCell.Row, 7) = Cells(ActiveCell.Row, 23)
If Cells(ActiveCell.Row, 6) > Cells(ActiveCell.Row, 22) Then Cells(ActiveCell.Row, 6) = Cells(ActiveCell.Row, 6)
If Cells(ActiveCell.Row, 6) < Cells(ActiveCell.Row, 22) Then Cells(ActiveCell.Row, 6) = Cells(ActiveCell.Row, 22)
If Cells(ActiveCell.Row, 6) = Cells(ActiveCell.Row, 22) Then Cells(ActiveCell.Row, 6) = Cells(ActiveCell.Row, 22)
Application.OnKey ("{RETURN}"), "ENTER"

End Sub

 

[mustafayılmaz]

sayın xxcell çok teşekkürler

yazdığınız kodu denedim yalnız hesap yapmıyor

 

[xxcell]

l&#252;tfen kodun &#231;al&#305;&#351;t&#305;&#287;&#305; &#246;rnek dosyay&#305; g&#246;nderiniz.