makroda if kullanımı

[akrhector]

Bölüm: amasya
Mesaj: 19
Excel Vers. ve Dili:
excel 2007

Varsayılan sorunuma bir cevap bulamadım,
merhaba arkadaşlar,
bu kodları sayfa penceresine yazdım ve bu kodların içerisine daha bir çok koşul içeren kod yazmam gerekiyor.ancak belli bir noktadan sonra prosedüe to large hatası veriyor.bu kodları ayrı ayrı makrolara yazıp çalıştırmayıda denedim ancak beceremedim.sizlerden ricam bana bu konuda bir örnek vrebilirseniz devamını ben getirebilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [Y:Y]) Is Nothing Then Exit Sub
If Target <> "" And Target.Offset(0, -17) = 12 And Target.Offset(0, -3) = "" Then
Target.Offset(0, 5) = Format((Target.Offset(0, -13) - 50), "#,##0.00")
Target.Offset(0, 6) = Format((Target.Offset(0, -12) - 25) - (Target.Offset(0, -1)), "#,##0.00")
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
Target.Offset(0, 3) = ""
Target.Offset(0, 4) = ""
Target.Offset(0, 9) = "03.311.4" & Target.Offset(0, -11)
Target.Offset(0, 11) = Format((Target.Offset(0, 0) * 2.5), "#,##0.00")

end if
end sub

bunu şu şekilde denedim acaba hatam nerede,


'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''örnek deneme

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [Y:Y]) Is Nothing Then Exit Sub

call makro_1

end sub

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''
sub makro_1()

If Intersect(Target, [Y:Y]) Is Nothing Then Exit Sub
If Target <> "" And Target.Offset(0, -17) = 12 And Target.Offset(0, -3) = "" Then
Target.Offset(0, 5) = Format((Target.Offset(0, -13) - 50), "#,##0.00")
Target.Offset(0, 6) = Format((Target.Offset(0, -12) - 25) - (Target.Offset(0, -1)), "#,##0.00")
Target.Offset(0, 1) = ""
Target.Offset(0, 2) = ""
Target.Offset(0, 3) = ""
Target.Offset(0, 4) = ""
Target.Offset(0, 9) = "03.311.4" & Target.Offset(0, -11)
Target.Offset(0, 11) = Format((Target.Offset(0, 0) * 2.5), "#,##0.00")

end if
end sub


bu şekilde yaptım ancak sayfada hücrelere gerekli koşulları girmeme rağmen çalışmadı,

yardımlarınızı bekliyorum

saygılarımla

 

[Mahmut Kök]

Örnek dosya ekleyebilir misiniz?

 

[akrhector]

merhaba,

örnek dosya ektedir.

saygılarımla

 

[akrhector]

Örnek dosya ekleyebilir misiniz?

selam hocam

örnek dosya ektedir.

saygılarımla

 

[Mahmut Kök]

Koşulları sağladığımda sayfada değerler oluşuyor; ancak ben sadece bir bölümüne bakabildim, M sütununda sayısal bir değer olması gerekiyor, ben 100 yazdım, H sütununa denk gelen seri kısmına da 12'yi seçip Y sütununa değer girip denedim, sağ taraflarda değerler oluştu. Şartların sağlanıp sağlanmadığını denetleyiniz, ancak çok fazla kod olduğundan ben fazla detaya giremedim.

Tam olarak ne yapmak istediğinizi belirtirseniz, belki de bu kadar uzun kodlara gerek kalmadan ve daha sağlıklı bir şekilde başka bir çözüm yolu bulabiliriz.

İyi çalışmalar.

 

[akrhector]

Koşulları sağladığımda sayfada değerler oluşuyor; ancak ben sadece bir bölümüne bakabildim, M sütununda sayısal bir değer olması gerekiyor, ben 100 yazdım, H sütununa denk gelen seri kısmına da 12'yi seçip Y sütununa değer girip denedim, sağ taraflarda değerler oluştu. Şartların sağlanıp sağlanmadığını denetleyiniz, ancak çok fazla kod olduğundan ben fazla detaya giremedim.

Tam olarak ne yapmak istediğinizi belirtirseniz, belki de bu kadar uzun kodlara gerek kalmadan ve daha sağlıklı bir şekilde başka bir çözüm yolu bulabiliriz.

İyi çalışmalar.

sayın mahmut bey,

gönderdiğim dosyada koşullar sağlandığında çalışıyor.ancak ben bu koşullara daha bir çok koşul daha ekleyeceğim dolayısıylada prosedür çok geniş hatası veriyor. bu koşulları ayrı ayrı makrolara yazıp daha sonra work shhets change özelliğinde bu makroları çağırmak istiyorum.burada da şu problem karşıma çıkıyor makrolara yazdığımda tahminim if kullandığım için sayfada makro çalışmıyor.. sizden ricam oradaki ilk koşulları bir makro iç,ine yazıp bir örnek gönderebilir iseniz ben geri kalanını devam ettirebilirim


saygılarımla

 

[akrhector]

lütfen yardımmmm

arkdaşlar yardım edecek yok mu?
bu sizin için çok kolaydır eminim ama ben öylece kaldım...