• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Eğer Formülünü Koda Uyarlama,

S

sabri şirin

Katılım
30 Haziran 2007
Mesajlar
44
Excel Vers. ve Dili
Ofis XP Türkçe
Selamlar,
Aşağıda belirtilen Eğer Formülünü Aşağıdaki kodlara uyarlama işlemini bir türlü yapamadım. Yardımcı olursanız çok memnun olurum.

=EĞER('Bilanço Makbuz'!Y4=1;EĞER('Bilanço Makbuz'!P3="TL";"A Kodları";"B Kodları");EĞER('Bilanço Makbuz'!Y4=2;EĞER('Bilanço Makbuz'!P3="TL";"C Kodları";"D Kodları")))
A
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("K5:K21").End(3).Row + 1
Worksheets("Gider").Range("K" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("L" & say) = Worksheets("Bilanço Makbuz").Range("N6")
Worksheets("Gider").Range("M" & say) = Worksheets("Bilanço Makbuz").Range("F11")
B
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("K5:K21").End(3).Row + 1
Worksheets("Gider").Range("K" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("L" & say) = Worksheets("Bilanço Makbuz").Range("N6")
Worksheets("Gider").Range("N" & say) = Worksheets("Bilanço Makbuz").Range("F11")
C
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("C9:C13").End(3).Row + 1
Worksheets("Gider").Range("C" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("D" & say) = Worksheets("Bilanço Makbuz").Range("N12")
Worksheets("Gider").Range("E" & say) = Worksheets("Bilanço Makbuz").Range("F11")
D
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("C9:C13").End(3).Row + 1
Worksheets("Gider").Range("C" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("D" & say) = Worksheets("Bilanço Makbuz").Range("N12")
Worksheets("Gider").Range("F" & say) = Worksheets("Bilanço Makbuz").Range("F11")

Saygılarımla...
 
sabri şirin' Alıntı:
Selamlar,
Aşağıda belirtilen Eğer Formülünü Aşağıdaki kodlara uyarlama işlemini bir türlü yapamadım. Yardımcı olursanız çok memnun olurum.

=EĞER('Bilanço Makbuz'!Y4=1;EĞER('Bilanço Makbuz'!P3="TL";"A Kodları";"B Kodları");EĞER('Bilanço Makbuz'!Y4=2;EĞER('Bilanço Makbuz'!P3="TL";"C Kodları";"D Kodları")))
A
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("K5:K21").End(3).Row + 1
Worksheets("Gider").Range("K" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("L" & say) = Worksheets("Bilanço Makbuz").Range("N6")
Worksheets("Gider").Range("M" & say) = Worksheets("Bilanço Makbuz").Range("F11")
B
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("K5:K21").End(3).Row + 1
Worksheets("Gider").Range("K" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("L" & say) = Worksheets("Bilanço Makbuz").Range("N6")
Worksheets("Gider").Range("N" & say) = Worksheets("Bilanço Makbuz").Range("F11")
C
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("C9:C13").End(3).Row + 1
Worksheets("Gider").Range("C" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("D" & say) = Worksheets("Bilanço Makbuz").Range("N12")
Worksheets("Gider").Range("E" & say) = Worksheets("Bilanço Makbuz").Range("F11")
D
Kod: 
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("C9:C13").End(3).Row + 1
Worksheets("Gider").Range("C" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("D" & say) = Worksheets("Bilanço Makbuz").Range("N12")
Worksheets("Gider").Range("F" & say) = Worksheets("Bilanço Makbuz").Range("F11")

Saygılarımla...
Genişletmek için tıkla ...

Merhaba
uygulamaya ait örnek bir dosya eklerseniz ve yapmak istediğinizi biraz açıklarsanız daha çabuk yardım alırsınız.
 
Dosyanızı görmeden birşeyler yapmaya çalıştım denermisiniz olmuşmu?

Sub düzenle()
Application.ScreenUpdating = False
If Sheets("Bilanço Makbuz").Range("Y4").Value = 1 And Sheets("Bilanço Makbuz").Range("P3").Value = "TL" Then
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("K5:K21").End(3).Row + 1
Worksheets("Gider").Range("K" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("L" & say) = Worksheets("Bilanço Makbuz").Range("N6")
Worksheets("Gider").Range("M" & say) = Worksheets("Bilanço Makbuz").Range("F11")

Else
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("K5:K21").End(3).Row + 1
Worksheets("Gider").Range("K" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("L" & say) = Worksheets("Bilanço Makbuz").Range("N6")
Worksheets("Gider").Range("N" & say) = Worksheets("Bilanço Makbuz").Range("F11")
End If
If Sheets("Bilanço Makbuz").Range("Y4").Value = 2 And Sheets("Bilanço Makbuz").Range("P3").Value = "TL" Then
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("C9:C13").End(3).Row + 1
Worksheets("Gider").Range("C" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("D" & say) = Worksheets("Bilanço Makbuz").Range("N12")
Worksheets("Gider").Range("E" & say) = Worksheets("Bilanço Makbuz").Range("F11")
Else
Application.Dialogs(xlDialogPrint).Show
say = Worksheets("Gider").Range("C9:C13").End(3).Row + 1
Worksheets("Gider").Range("C" & say) = Worksheets("Bilanço Makbuz").Range("I3")
Worksheets("Gider").Range("D" & say) = Worksheets("Bilanço Makbuz").Range("N12")
Worksheets("Gider").Range("F" & say) = Worksheets("Bilanço Makbuz").Range("F11")
End If

Application.ScreenUpdating = True
End Sub
 
Son düzenleme:
numan şamil' Alıntı:
Merhaba
uygulamaya ait örnek bir dosya eklerseniz ve yapmak istediğinizi biraz açıklarsanız daha çabuk yardım alırsınız.
Genişletmek için tıkla ...

Numan Bey,
Kullandığım Çalışma,Çok fonksiyonlu Entegre bir çalışma olduğundan sadece Makbuz ve Gider sayfalarını gönderiyorum. Aslında Yukarıdaki Soru Örnek Dosya Eklemeye gerek yok gibi ama...yinede dosyayı Ekliyorum.
Selam ve saygılarımla..
 

Ekli dosyalar

3. mesajdaki kodlarda düzeltme yapıldı tekrar kontrol edermisiniz
 
Son düzenleme:
Numan Bey,
If Sheets(“Bilanço Makbuz”).Range(“Y4”).Value = 1 And Sheets(“Bilanço Makbuz”).Range(“P3).Value = ”TL” Then
Genişletmek için tıkla ...
ile
If Sheets(“Bilanço Makbuz”).Range(“Y4”).Value = 2 And Sheets(“Bilanço Makbuz”).Range(“P3).Value = ”TL” Then
Genişletmek için tıkla ...
Modüle kopyaladığımda (Kırmızı) kalıyor ve Hata veriyor (Syntax error)
 
sabri şirin' Alıntı:
Numan Bey,
ile

Modüle kopyaladığımda (Kırmızı) kalıyor ve Hata veriyor (Syntax error)
Genişletmek için tıkla ...

Merhaba
Sanırım son halini kopyalamadınız
4. mesajdaki son halini tekrar kopyalayıp denermisiniz
Yada hata veren yerlerdeki kodları
If Sheets("Bilanço Makbuz").Range("Y4").Value = 1 And Sheets("Bilanço Makbuz").Range("P3").Value = "TL" Then
ile
If Sheets("Bilanço Makbuz").Range("Y4").Value = 2 And Sheets("Bilanço Makbuz").Range("P3").Value = "TL" Then
Şeklinde değiştirirmisiniz
 
Son düzenleme:
Numan Bey,
Merhaba... Hangi durumda olursa olsun yinede hep Gider bölümüne atıyor. İster "TL" olsun, isterse "USD" olsun fark etmiyor. hep aynı Gider TL bölümüne atıyor.Sanki ilk koddan sonrasını dikkate almıyor.
Selamlar..
 
sabri şirin' Alıntı:
Numan Bey,
Merhaba... Hangi durumda olursa olsun yinede hep Gider bölümüne atıyor. İster "TL" olsun, isterse "USD" olsun fark etmiyor. hep aynı Gider TL bölümüne atıyor.Sanki ilk koddan sonrasını dikkate almıyor.
Selamlar..
Genişletmek için tıkla ...

Merhaba
Benim yaptığım sadece 1 nolu mesajınızdaki formülü kodlara uygulamaktı A-B-C-D kodlarınızı incelemedim

=EĞER('Bilanço Makbuz'!Y4=1;EĞER('Bilanço Makbuz'!P3="TL";"A Kodları";"B Kodları");EĞER('Bilanço Makbuz'!Y4=2;EĞER('Bilanço Makbuz'!P3="TL";"C Kodları";"D Kodları")))
Yukarıdaki formülünüze göre düzenleme yaptım
1)Örnek dosyanızda ne yapmak istediğnizi tam olarak anlamadım
2) Application.Dialogs(xlDialogPrint).Show buna neden ihtiyaç duyuyorsunuz?
3) "P3" = Eura olursa veya boş olursa ne olacak bunlarla ilgili bir şartınız yok mu?
4)Gider sayfasının Gelir bölümü "F" sutunu koşullu biçimlendirme ile $ tanımlanmış bu devamlı bu şekilde olmasımı gerekiyor?
5) "Y4"= 1 veya "Y4"= 2 değiştirerek deneme yaptınız mı?
 
Son düzenleme:
numan şamil' Alıntı:
Merhaba
Benim yaptığım sadece 1 nolu mesajınızdaki formülü kodlara uygulamaktı A-B-C-D kodlarınızı incelemedim

=EĞER('Bilanço Makbuz'!Y4=1;EĞER('Bilanço Makbuz'!P3="TL";"A Kodları";"B Kodları");EĞER('Bilanço Makbuz'!Y4=2;EĞER('Bilanço Makbuz'!P3="TL";"C Kodları";"D Kodları")))
Yukarıdaki formülünüze göre düzenleme yaptım
1)Örnek dosyanızda ne yapmak istediğnizi tam olarak anlamadım
2) Application.Dialogs(xlDialogPrint).Show buna neden ihtiyaç duyuyorsunuz
3) "P3" = Eura olursa veya boş olursa ne olacak bunlarla ilgili bir şartınız yokmu
4)Gider sayfasının Gelir bölümü "F" sutunu koşullu biçimlendirme ile $ tanımlanmış bu devamlı bu şekildeolmasımı gerekiyor
Genişletmek için tıkla ...
Numan Bey Merhaba,
- Örnek Dosyada makbuz kesileceği zaman,Ödeme yapan kişi ödemeyi para birimi olarak ne ile ödüyorsa buna göre Bilanço sayfasında ilgili yere yazmasını düşünmüştüm.
- Ayrıca Application.Dialogs(xlDialogPrint).Show Yazıcıya göndermeden önce Sayfa adedini belirlemek için ihtiyaç duyuyorum.
-"P3" EURO veya boş olursa Boş geçsin (euro ile pek işimiz olmadığından veya çok nadir olduğundan koymuştum ama dikkate almazsakda olur.
-"y4"=1 veya -"y4"=2 Olarak da denedim. 1 Olursa Gider, 2 olursa Gelir'e atıyor.Değişiklik yapmazsam hep Gider'e atıyor.
Şimdiden ilginize teşekkür ederim.
 
Son düzenleme:
sabri şirin' Alıntı:
Numan Bey Merhaba,
- Örnek Dosyada makbuz kesileceği zaman,Ödeme yapan kişi ödemeyi para birimi olarak ne ile ödüyorsa buna göre Bilanço sayfasında ilgili yere yazmasını düşünmüştüm.
- Ayrıca Application.Dialogs(xlDialogPrint).Show Yazıcıya göndermeden önce Sayfa adedini belirlemek için ihtiyaç duyuyorum.
-"P3" EURO veya boş olursa Boş geçsin (euro ile pek işimiz olmadığından veya çok nadir olduğundan koymuştum ama dikkate almazsakda olur.
-"y4"=1 veya -"y4"=2 Olarak da denedim. 1 Olursa Gider, 2 olursa Gelir'e atıyor.Değişiklik yapmazsam hep Gider'e atıyor.
Şimdiden ilginize teşekkür ederim.
Genişletmek için tıkla ...

Merhaba
ekli dosyayı incelermisiniz
Şayet verilerin Gider sayfasının gelir bölümünde 5. satırdan itibaren (C5) başlamasını istiyorsanız
Kodları (kırmızı olan yerler) Yani 9 lar 5 olacak

Sheets("Gider").Range("C5:C13,D5:D13,E5:E13").ClearContents
say2 = Worksheets("Gider").Range("C5:C13").End(3).Row + 1

Sheets("Gider").Range("C5:C13,D5:D13,F5:F13").ClearContents
say3 = Worksheets("Gider").Range("C5:C13").End(3).Row + 1
Şeklinde değiştirmeniz gerekiyor
 

Ekli dosyalar

Son düzenleme:
sabri şirin' Alıntı:
Numan Bey,
ilginize çok teşekkür ederim.

Kaldırdım..şimdi hiç sorun yok.
Selam ve sevgiler...
Genişletmek için tıkla ...

Merhaba
dosyanızda ve kodlarda biraz değişiklik yaptım
1) Yazdır butonu ekledim
2) gider ve gelir bölümünün verilkerini ayrı ayrı temizlemek için butonlar konuldu
3)Bilanço Makbuz sayfasında her değişikliği gider sayfasında bir satıra yazdırmak için DÜZENLE BUTONU buraya alındı (her butona basışta bir alt satıra verileri gönderir)
Not :Gelir kısmının enson satırı 13. satır sınırlayan kod
say2 = Worksheets("Gider").Range("C13").End(3).Row + 1
Gider kısmının en son satırı 21. satır sınırlayan kod
say = Worksheets("Gider").Range("K21").End(3).Row + 1
Burda son satır dolduktan sonra butona verileri temizlemeden basılmaması gerekiyor bu alanları çoğaltmak için tabloyu büyültüp
say2 = Worksheets("Gider").Range("C13").End(3).Row + 1
say = Worksheets("Gider").Range("K21").End(3).Row + 1
kodlardaki kırmızı yerleri değiştirmeniz gerekiyor
Ekli dosyayı incelermisiniz
ister bu dosyayı ister daha önce düzenlediğm dosyayı kullanırsınız
iyi çalışmalar
 

Ekli dosyalar

numan şamil' Alıntı:
Merhaba
dosyanızda ve kodlarda biraz değişiklik yaptım
1) Yazdır butonu ekledim
2) gider ve gelir bölümünün verilkerini ayrı ayrı temizlemek için butonlar konuldu
3)Bilanço Makbuz sayfasında her değişikliği gider sayfasında bir satıra yazdırmak için DÜZENLE BUTONU buraya alındı (her butona basışta bir alt satıra verileri gönderir)
Not :Gelir kısmının enson satırı 13. satır sınırlayan kod
say2 = Worksheets("Gider").Range("C13").End(3).Row + 1
Gider kısmının en son satırı 21. satır sınırlayan kod
say = Worksheets("Gider").Range("K21").End(3).Row + 1
Burda son satır dolduktan sonra butona verileri temizlemeden basılmaması gerekiyor bu alanları çoğaltmak için tabloyu büyültüp
say2 = Worksheets("Gider").Range("C13").End(3).Row + 1
say = Worksheets("Gider").Range("K21").End(3).Row + 1
kodlardaki kırmızı yerleri değiştirmeniz gerekiyor
Ekli dosyayı incelermisiniz
ister bu dosyayı ister daha önce düzenlediğm dosyayı kullanırsınız
iyi çalışmalar
Genişletmek için tıkla ...
Numan Bey Merhaba,
Ellerinize sağlık. ilginize tekrar teşekkür ederim.
Selam ve Saygılarımla...
 
Sayın numan şamil, üstadım sağ olun var olun... "Numan Şamil Arşiv" klasörünü açtım ve hayranınız olarak sizi izliyorum. Allah razı olsun. Sevgi ve saygılar.

Sayın Sabri Şirin, üstadım "Site ve Apartman Yönetimi" programınızı güncellediniz mi?
Sevgi ve saygılar.
 
assenucler' Alıntı:
Sayın numan şamil, üstadım sağ olun var olun... "Numan Şamil Arşiv" klasörünü açtım ve hayranınız olarak sizi izliyorum. Allah razı olsun. Sevgi ve saygılar.

Sayın Sabri Şirin, üstadım "Site ve Apartman Yönetimi" programınızı güncellediniz mi?
Sevgi ve saygılar.
Genişletmek için tıkla ...

Allah bu siteyi kuranlardan ve emeği geçenlerden razı olsun
Bütün yönetici ve üyelerinede saygı ve sevgiler
 
assenucler' Alıntı:
Sayın numan şamil, üstadım sağ olun var olun... "Numan Şamil Arşiv" klasörünü açtım ve hayranınız olarak sizi izliyorum. Allah razı olsun. Sevgi ve saygılar.

Sayın Sabri Şirin, üstadım "Site ve Apartman Yönetimi" programınızı güncellediniz mi?
Sevgi ve saygılar.
Genişletmek için tıkla ...

Sayın assenucler,
Apartman yönetimi Programını bir türlü güncelleme fırsatım olamıyor.Şu anda Kömür satış programı üzerinde çalışıyorum.Sitede Excel'e gönül vermiş Dostların destekleriyle bitme noktasına geldi.İnşallah bundan sonra Apartman konusuna değineceğim bittiğinde yine Dostlarla paylaşacağımdan emin olabilirsin.
Saygı ve sevgilerimle....
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst