Formül yerine kod

[sdegirmenci]

Değerli Hocalarım Merhaba;
sayfa 1 de "H" sütunu boyunca yazdığım, "M5-O5" formulünün işlevini kod ile halledebilirmiyiz.Şimdiden yardımlarınız için teşekkür ederim.

 

[Necdet]

Örnek dosya ile sorunuzu destekleyiniz.
Kafalarda kuşku kalmaz.

 

[sdegirmenci]

Özür dilerim Hocam,
benim niyetim foruma fazla yük vermemekti .dosyamı ekledim.

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("p5:p21")) Is Nothing Then MsgBox "Bu hücre formüllüdür"
For j = 5 To 21
Cells(j, "P").Value = Cells(j, "m").Value - Cells(j, "o").Value
Next j
End Sub

 

[masuk500]

merhaba hocam
çok güzel bir uygulama olmuş peki bunu msgbox kısmını çıkarırsak nasıl olur ayrıca diyelimki r,s,t sütunlarında başka formül var herbiri için yukarıdaki kodu mu yazacağız

 

[masuk500]

sayın ayhan ercan hocam dediğim gibi bu msgbox kısmını koddan nasıl çıkarabiliriz?

 

[sdegirmenci]

Sayın Ayhan Ercan Hocam;
İlginize çok teşekkür ederim.Her halde cevaplanmayacak demiştim. Tekrar teşekkür ederim. Yalnız
kodu esas proğram üzerine kopyaladım (Satır ve sütun adreleri aynı yere) bir problem var,tek hücre seçtiğimizde sayfa kilitleniyor. Tekrar bakabilirseniz çok sevinirim.

 

[masuk500]

hocam ben bu kodları denedim çalışıyor ama bir problem var.10000 satırlık bir tablom var bu kodları yazdığım anda sonsuz döngüye giriyor excel çalışma sayfasında hiçbirşey yapamıyorum.
1.sorun msg box olayını nasıl kaldırabiliriz?
2.sorun sadece işlem yapılan satırda kodu nasıl çalıştırabiliriz.
3.sorun
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("p5:r21")) Is Nothing Then MsgBox "Bu hücre formüllüdür"
For j = 5 To 21
Cells(j, "P").Value = Cells(j, "m").Value - Cells(j, "o").Value
Cells(j, "r").Value = Cells(j, "k").Value * Cells(j, "l").Value
Next j
End Sub
bu şekilde olur mu?

 

[kelkitli]

Selamlar,
Dosyayı incelermisiniz.

 

[masuk500]

denedim yalnız tabloda 10000 satırlık bir veri varsa işlemleri çok geç yapıyor aktif olan satırda bu kodu nasıl çalıştırırız

 

[kelkitli]

Önceki mesajda 1000 satırlık olarak güncelledim. Bakarmısınız. Yada sizin dosyanızı ekleyin

 

[masuk500]

müstahsil giriş sayfasında mavi ile gösterilen yerlerde formüller var bunlara uyarlamak istiyorum dosya ektedir



not:sayfa koruma şifreside 8630764862

 

[masuk500]

merhaba sayın kelkitli
eklediğiniz dosya da sürekli sayfada hesap yaparak sonsuz döngüye sokuyor sayfayı

 

[masuk500]

arkadaşlar çözüm yok mu