ÇÖZÜLDÜ: Makrolu çözüm nasıl olur?

[assenucler]

Merhabalar;


Ekli dosyanın K12 hücresinde topla.çarpım işlevini uyguladım, ancak sonuç 137,80 TL. yerine 2,80 çıkıyor.

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

 

[Ziynettin]

fonGelir D49 olarak tanımlamısınız. Ad yöneticisinden D19501 olarak düzeltiniz.

 

[assenucler]

Sayın Ziynettin,


İlginiz için teşekkürler.

Düzelttim ama sonuç değişmedi, bu kez de YOK hatası çıkıyor.

 

[Merhum İdris SERDAR]

.

FonGelir aralığı =Sayfa1!$D$19:$D$501 olması gerekir.

.

 

[assenucler]

Sayın İdris SERDAR,

Sayın Ziynettin de, belirttiğiniz aralığı yazmasına karşın, dikkatimden kaçdığını, sizin uyarınız üzerine yaptığım kontrolde farkettim. Sorun çözüldü.

Teşekkürler.

Sevgi ve saygılar.

 

[kemal turan]

Merhaba,
Sorun çözülmüş ama çözüm için kod ile bir çalışma yaptım.
K13 Hücresindeki hesapla butonuna basın sonucu görün.
Selametle kalınız.
Not:Benim fikrim sutundaki formülleri de ustaların yardımıyla kod ile çözseniz dosyada veri çoğaldığında kasma yapmasını önlersiniz.

Selametle

 

[assenucler]

Bir ricam olabilir mi?

Saygıdeğer üstatlarım;



Sizlerin yardımı ile formüllerle yapmaya çalıştığım bu dosyanın, işlem sayısı arttıkça ağırlaşacağını düşünüyorum.

Acaba, rica etsem; bana makroyla çözüme ilişkin yardımcı olabilir misiniz?

Yardımcı olacak dostlara, şimdiden en içten sevgi ve saygılarımı sunarım.

 

[kemal turan]

6 noldu mesaja baktınızmı

 

[assenucler]

Sayın kemal turan,


Mesaj yazarken sizin adınızı yazmayı unuttuğumu farkettim. Emeğiniz ve katkınız için teşekkürler.

Dediğiniz gibi, formüllerden dolayı olmalı kasma var.

Makrolu farklı çözümleri de bekliyorum.

İstanbul'dan Adana'ya selam ve sevgiler..

 

[assenucler]

Makrolu çözüm

Değerli Üstatlar;


Aşağıdaki dosyada banka işlemlerinin sayısı artınca, ağırlaşıyor.

Makroyla çözümler için yardımlarınızı bekliyorum.

 

[assenucler]

Yukarıdaki soruya ilişkin ayrıntılı açıklamalarım aşağıdadır.

Bankadaki hesaba yatan paranın 500 TL. aşan her 150 TL ve katları için, banka firma adına b tipi likit fon kağıdı almakta;

hesabımızdan (vergi, sgk, elektrik, su vb) ödemeler yapıldığında ise fon kağıdı satmaktadır.

Alım ve satım arasındaki fark, gelir olmakta ve %10 gelir vergisi kesilmektedir.

Fon Alışında:
Fon alış ve satış adedi “G” sütununda, Fon Alışı bedeli “N ve O” sütunlarında;

Fon Satışında:
Satış bedeli brüt tutarı “C” sütununa,
Fon geliri “D” sütununa,
Fon Alış Bedeli “E” sütununa,
Fon geliri sırasıyla Hane Borçlandırma “H ve I” , Tahsilat Girişi ise “J ve K” sütunlarına,
Gider Girişi ise “L ve M” sütunlarına

Kaydedilmektedir.

Yukarıdaki şekilde yapılan gün içindeki alış ve satış kayıtları, tablonun üst kısmında gün bazında adet, tutar, gelir tutarında özetlendikten sonra, kayıtlara aktarılmaktadır.

İşlem sayısı arttıkça formüller dosyayı kasdığından, makro ile çözüm konusunda sizlerin yardımına ihtiyacım var.

 

[Ziynettin]

Değerli Üstatlar;


Aşağıdaki dosyada banka işlemlerinin sayısı artınca, ağırlaşıyor.

Makroyla çözümler için yardımlarınızı bekliyorum.

Merhaba,

Sayfa1 Özeti için,

Eki deneyiniz.

 

[assenucler]

Sayın Ziynettin,


Dinlence gününüzde zaman ayırarak yaptığınız katkı ve emek için teşekkürler.

Sevgi ve saygılar.

 

[assenucler]

Değerli dostlar merhabalar;


Sayfa1 B sütunu "Alış/Satış" başlığındaki satıra "FON ALIŞ" yazıp, Enter'e tıkladığımda, "N" sütununa atlasın.

"N" sütununa kayıt girip ikinci kez Enter'ladığımda, bu kez de "G" sütununa gitmesi için Sayfa1'deki koda nasıl ekleme yapmak gerekiyor?

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

 

[assenucler]

Dostlar tekrar merhabalar;


Sayfa1 G8 ve J8'e girdiğim tarihe göre, verilerin süzülmesi için nasıl bir kod gereklidir?

Teşekkürler.

 

[assenucler]

Yukarıda 15. iletideki sorun Sayın kemal turan'ın yazdığı kodla çözüldü. Bu arada sayın Yusuf44'e de ilgisi nedeniyle teşekkür ederim.

14. iletideki konu güncel...

 

[kemal turan]

Yukarıda 15. iletideki sorun Sayın kemal turan'ın yazdığı kodla çözüldü. Bu arada sayın Yusuf44'e de ilgisi nedeniyle teşekkür ederim.

14. iletideki konu güncel...

Kodu ben yazmadım.
Ustalarımınızın çalışmalarından alıntıdır.

Selametle

 

[assenucler]

Sizin daha önceki bir kodunuzdan yararlandım.
Her şey gönlünüzce olsun. İstanbul'dan Adana'ya selam ve sevgiler.

 

[assenucler]

Güncel

Değerli dostlar merhabalar;


Sayfa1 B sütunu "Alış/Satış" başlığındaki satıra "FON ALIŞ" yazıp, Enter'e tıkladığımda, "N" sütununa atlasın.

"N" sütununa kayıt girip ikinci kez Enter'ladığımda, bu kez de "G" sütununa gitmesi için Sayfa1'deki koda nasıl ekleme yapmak gerekiyor?

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

Bu mesajım güncel olduğundan son mesaja dikkat çekmek için ekledim.

 

[YUSUF44]

Aşağıdaki kodları Sayfa1'in kod bölümüne yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B19:B1000, N19:N1000]) Is Nothing Then Exit Sub
If Target.Column = 2 And Target = "FON ALIŞ" Then
    Target.Offset(0, 12).Select
ElseIf Target.Column = 14 Then
    Target.Offset(0, -7).Select
End If

End Sub