Cikarma isleminin makrosu

[dennisf06]

kusura bakmayin Saban bey belki de biraz önce benden kaynaklanan bir sorunla makro calismadi. sebebi F2-H2 seklindeki cikarma isleminde F sütunundaki sayilari hücreye ben giriyorum. H sütunundaki sayilar ise TOPLA.ÇARPIM((Sayfa2!$B$3:B3000=D2)*(Sayfa2!$C$3:C3000=E2);(Sayfa2!$D$33000)) formülüyle baska bir sayfadan geliyor.( ben sayfa3 te calisiyorum ) bu sekilde olunca bu makro calismiyor. yani H sütununu göremiyor. caresi varmidir acaba bunun. yoksa formül yerine H sütunu icinde makro mu kullanmam lazim.tesekkür ederim.

 

[Skorpiyon]

Aklıma gelen tek yöntem; (denemedim)
Formülleri başka bir sütuna taşıyın. Taşıdığınız veriyi seçip kopyala deyin ve boşalttığınız H sütununa sağ tuş yapıp, özel yapıştır "Değerleri" seçeneğini seçerek deneyin.

 

[masuk500]

merhaba şaban hocam
dün kü dosyaya gözatabildinizmi acaba

 

[dennisf06]

Tesekkür ederim Saban bey ilginiz icin. ama olmadi. baska bir sütuna formülleri tasiyip, degerleri H sütununa yapitirdigim zaman girdiler degistigi zaman H sütunundaki degerler kopyaladigim sekilde kaliyor. saygilarimla...

 

[Necdet]

Merhaba,

Örnek dosya olmadığı için kendimce fonksiyon uydurdum.

D sütununda yine sizin Çift Kayıt Kontrolü yapıyor.
F sütununa siz giriş yapıyorsunuz ve H sütununa formülle değer geliyor.
I sütununda ise sizin istediğiniz çıkarma işlemi makro ile gerçekleşiyor.

İnceleyiniz bakalım olmuş mu?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D, F:F]) Is Nothing Then Exit Sub
If Target.Column = 4 And Target.Value = "" Then Exit Sub
If Target.Column = 4 Then
    If WorksheetFunction.CountIf(Range("d:d"), Target.Value) >= 2 Then
        MsgBox "[ " & Target.Value & " ] Bu rakamla daha önce kayit yapildi.!", vbCritical, "DIKKAT"
        Target = ""
        Target.Offset(0, 0).Select
    End If
Else
    If Target <> Target.Offset(0, 2) Then
        Target.Offset(0, 3) = Target.Offset(0, -2) - Target
        Target.Offset(0, 3).Interior.ColorIndex = 3
    Else
        Target.Offset(0, 3) = ""
        Target.Offset(0, 3).Interior.ColorIndex = xlNone
    End If
End If
Son:
End Sub

 

[dennisf06]

Sn Necdet bey her zaman ki gibi olaya el koydunuz. sonuc süper. sadece kücük bir sorun var. oda makro I sütununda D-F yapiyor F-H olmasi lazim aslinda. birde mükerrer kayit hatasi verdikten sonra ok dedikten sonra hatali sayi hücrede kalabilir mi.gerekirse hücre icini kendim sileyim.otomatik silinmesin yani. tesekkür ederim. saygilarimla...

 

[Necdet]

Merhaba Sayın dennisf06,


Aşağıdaki kodları ilgili sayfanın kodu bölümüne kopyalayınız. Umarım sorunuz çözülmüş olur.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [D:D, F:F]) Is Nothing Then Exit Sub
If Target.Column = 4 And Target.Value = "" Then Exit Sub
If Target.Column = 4 Then
    If WorksheetFunction.CountIf(Range("d:d"), Target.Value) >= 2 Then
        MsgBox "[ " & Target.Value & " ] Bu rakamla daha önce kayit yapildi.!", vbCritical, "DIKKAT"
        Target.Offset(0, 0).Select
    End If
Else
    If Target <> Target.Offset(0, 2) Then
        Target.Offset(0, 3) = Target.Offset(0, 2) - Target
        Target.Offset(0, 3).Interior.ColorIndex = 3
    Else
        Target.Offset(0, 3) = ""
        Target.Offset(0, 3).Interior.ColorIndex = xlNone
    End If
End If
Son:
End Sub

 

[dennisf06]

siz sayin hocalarimi takdir etmemek mümkün mü? bizlerin ardi arkasi kesilmeyen sorularimiza sabirla cevap veriyorsunuz. Tesekkürler sn Necdet hocam hersey icin. saygilarimla...