Harcamaları izlemede makro kodu niye düzgün çalışmıyor?

[assenucler]

Değerli Dostlar Merhabalar;


Harcamalarımı izlediğim dosyamı ekte yolluyorum.

İlk sayfada, makro kodunu çalıştırdığımda, karşılaştığım sorunları sizlere yazdığım için ayrıca burada detaya girmedim.
İkinci sayfada; makro çalıştırılmadan önceki doğru kayıtların bir örneği bulunmaktadır.

Yardımlarınızı rica ediyorum.

Saygılar,

 

[assenucler]

[TR][TD]
Aşağıdaki sorunların çözümü için, makro kodlarında nasıl bir değişiklik gerekiyor?
[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]
SORUN -1:

GelirGiderKayıt sayfası H sütununda ÖDENDİ olanları FİLTRELEME ​

[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD][/TR]
[TR][TD]
yapıp, EKSİ YAP düğmesi çalıştırıldığında,
[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD][/TR]
[TR][TD]
G (Tutar) sütunundaki gerçek harcama TL değerleri
[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD][/TR]
[TR][TD]
değişebiliyor; aynı tutarda, 10 - 15 kayıt alt alta sıralanıyor.
[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD][/TR]
[TR][TD]
Kodda nasıl bir değişiklik gerekiyor?
[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD]
[TD]

​

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]
SORUN - 5

GelirGiderKayıt sayfası G (Tutar) sütununda (-) kayıtları​

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]
kaldırmak için "Eksi Yap" düğmesine tekrar tıkladığımda, "
[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]
G (tutar) sütunu 11-14 nolu satırlardaki depozito bedelleri
[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]
NİYE SİLİNİYOR?
Ayrıca, 257. satırdaki unutulan (-) işaretini kod niye düzeltmiyor?
[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]
[TR][TD]
NOT: Gerçek kayıtlar "GelirGiderKayıt2" sayfasındadır.
[/TD]
[TD]

[/TD]
[TD]

[/TD]
[TD]

[/TD][/TR]

 

[assenucler]

2. iletiyi yazıp gönder'e basınca, yukarıdaki görüntüde kaydedildiğini farkettim. Düzeltmeyi bir türlü yapamadım. Sorunu Word'e yazdım.

 

[assenucler]

Günaydın.

Günceldir.

 

[assenucler]

Sayın Korhan Ayhan ve Değerli Dostlar;


Yaşadığım sorunu daha basit olarak anlatarak, sizlere koda nasıl bir ekleme yapılması gerektiğini sormak istiyorum.

Ekteki dosya ilk hazırlandığında:
H (Durumu) sütununda bulunan "Veri Doğrulama" listesinde 2 adet "Ödendi" ve "Ödenmedi" seçenekleri vardı.

İsteğim; "Ödendi" seçili olan satırların, G (Tutar) sütunu satırlarındaki para değerinin başına (-) simgesi konulmasıydı.

Aşağıdaki kodla, işlemleri hızlı ve doğru olarak son haftaya kadar yapıyordum.

Sayın Korhan Ayhan üstat kodu:
---------------------------------------------------------------------------------------------------------------------------------------------------------
Option Explicit Sub Eksi_Yap() Dim Veri As Variant, Son As Long, X As Long Son = Cells(Rows.Count, 1).End(3).Row Veri = Range("G2:H" & Son).Value ReDim Liste(1 To UBound(Veri), 1 To 1) For X = 1 To UBound(Veri) If Veri(X, 2) = "Ödendi" Then If Veri(X, 1) > 0 Then Liste(X, 1) = Veri(X, 1) * -1 Else Liste(X, 1) = Veri(X, 1) * -1 End If [B] ElseIf Veri(X, 2) = "Ödenmedi" Or Veri(X, 2) = Empty Then Liste(X, 1) = Abs(Veri(X, 1))[/B] End If Next Range("G2").Resize(X - 1) = Liste MsgBox "İşleminiz tamamlanmıştır.", vbInformation


----------------------------------------------------------------------------------------------------------------------------------------------------------

Ancak, daha sonra H (Durumu) sütunundaki "Veri Doğrulama" Listesi'ne "Ödendi;Ödenmedi" dışında "Alacaklar;Tahsilat;Finansman" seçenekleri de eklenmiştir.

01- Yukarıdaki ilk koda, nasıl bir ekleme yapmak gerekmektedir?
02- Yukarıdaki kod çalıştırıldığında, "GelirGiderKayıt" sayfası 11 - 14 satırlardaki değerler niye silinmektedir?

NOT: GelirGiderKayıt2 sayfası olması gereken doğru kayıtları göstermek için yaratılmıştır.

Yardımınız için teşekkürler.

 

[assenucler]

Yukarıda değindiğim gibi; H (Durumu) sütunundaki "Veri Doğrulama" Listesi'nde "Ödendi;Ödenmedi" dışında "Alacaklar;Tahsilat;Finansman" seçenekleri de bulunuyor.

Eksi_Yap makrosu, sadece "Ödendi" seçildiğinde G sutunu değerlerinin başına (-) getirmeli, diğer 4 seçenekte hiç bir işlem yapmamalıdır. Kod üzerinde nasıl bir değişiklik yapılmalıdır?

 

[assenucler]

İnşallah, olumlu ya da olumsuz bir yanıt alırım.

 

[Ziynettin]

Merhaba.

Ödendi ve ödenmedi seçeneklerini etkiler diğerleri aynı kalır.

Sub Eksi_Yap()
Dim Veri As Variant, Son As Long, X As Long
Son = Cells(Rows.Count, 1).End(3).Row
Veri = Range("G2:H" & Son).Value
ReDim Liste(1 To UBound(Veri), 1 To 1)
For X = 1 To UBound(Veri)
    If Veri(X, 2) = "Ödendi" And Veri(X, 1) > 0 Then
        Liste(X, 1) = Veri(X, 1) * -1
    ElseIf Veri(X, 2) = "Ödenmedi" Or Veri(X, 2) = Empty Then
        Liste(X, 1) = Abs(Veri(X, 1))
    Else
        Liste(X, 1) = Veri(X, 1)
    End If
Next X
Range("G2").Resize(X - 1) = Liste
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[assenucler]

Sayın Ziynettin,


Hayırlı Cuma'lar dilerim. İlginiz ve yardımınız için teşekkürler. Sorun 6. iletide istediğim gibi çözüme ulaşmıştır.

Sağ olun, var olun.


Saygılar,