Eğerle Makro

[memduh]

Aşağıdaki formülü makroyla nasıl yapılır.

=EÐER($C$9="";"";EÐER(VE($AE$8="İ";AD9>=$D$9;AD9<$E$9);("İ");EÐER(VE($AE$8="İ";AD9>=$D$10;AD9<$E$10);("İ");EÐER(VE($AE$8="İ";AD9>=$D$11;AD9<$E$11);("İ");EÐER(VE($AE$8="İ";AD9>=$D$12;AD9<$E$12);("İ");EÐER(VE($AE$8="İ";AD9>=$D$13;AD9<$E$13);("İ");EÐER(VE($AE$8="İ";AD9>=$D$14;AD9<$E$14);("İ");"")))))))&EÐER(VE($AE$8="İ";AD9>=$D$15;AD9<$E$15);("İ");EÐER(VE($AE$8="İ";AD9>=$D$16;AD9<$E$16);("İ");EÐER(VE($AE$8="İ";AD9>=$D$17;AD9<$E$17);("İ");EÐER(VE($AE$8="İ";AD9>=$D$18;AD9<$E$18);("İ");EÐER(VE($AE$8="İ";AD9>=$D$19;AD9<$E$19);("İ");EÐER(VE($AE$8="İ";AD9>=$D$20;AD9<$E$20);("İ");EÐER(VE($AE$8="İ";AD9>=$D$21;AD9<$E$21);("İ");"")))))))&EÐER(VE($AE$8="İ";AD9>=$D$22;AD9<$E$22);("İ");EÐER(VE($AE$8="İ";AD9>=$D$23;AD9<$E$23);("İ");EÐER(VE($AE$8="İ";AD9>=$D$24;AD9<$E$24);("İ");EÐER(VE($AE$8="İ";AD9>=$D$25;AD9<$E$25);("İ");EÐER(VE($AE$8="İ";AD9>=$D$26;AD9<$E$26);("İ");EÐER(VE($AE$8="İ";AD9>=$D$27;AD9<$E$27);("İ");("")))))))

 

[Mahmut Bayram]

[vb:1:0171f174b4]=IF($C$9="","",IF(AND($AE$8="İ",AD9>=$D$9,AD9<$E$9),("İ"),IF(AND($AE$8="İ",AD9>=$D$10,AD9<$E$10),("İ"),IF(AND($AE$8="İ",AD9>=$D$11,AD9<$E$11),("İ"),IF(AND($AE$8="İ",AD9>=$D$12,AD9<$E$12),("İ"),IF(AND($AE$8="İ",AD9>=$D$13,AD9<$E$13),("İ"),IF(AND($AE$8="İ",AD9>=$D$14,AD9<$E$14),("İ"),"")))))))&IF(AND($AE$8="İ",AD9>=$D$15,AD9<$E$15),("İ"),IF(AND($AE$8="İ",AD9>=$D$16,AD9<$E$16),("İ"),IF(AND($AE$8="İ",AD9>=$D$17,AD9<$E$17),("İ"),IF(AND($AE$8="İ",AD9>=$D$18,AD9<$E$18),("İ"),IF(AND($AE$8="İ",AD9>=$D$19,AD9<$E$19),("İ"),IF(AND($AE$8="İ",AD9>=$D$20,AD9<$E$20),("İ"),IF(AND($AE$8="İ",AD9>=$D$21,AD9<$E$21),("İ"),"")))))))&IF(AND($AE$8="İ",AD9>=$D$22,AD9<$E$22),("İ"),IF(AND($AE$8="İ",AD9>=$D$23,AD9<$E$23),("İ"),IF(AND($AE$8="İ",AD9>=$D$24,AD9<$E$24),("İ"),IF(AND($AE$8="İ",AD9>=$D$25,AD9<$E$25),("İ"),IF(AND($AE$8="İ",AD9>=$D$26,AD9<$E$26),("İ"),IF(AND($AE$8="İ",AD9>=$D$27,AD9<$E$27),("İ"),("")))))))[/vb:1:0171f174b4]

 

[memduh]

Sayın mahmut_bayram ilginiz için teşekkür ederim.Makro ile nasıl yapıldığını öğrenmek istedin.

 

[memduh]

Ã?zür dilerim.

__________
Excel 2003 Türkçe

 

[Mahmut Bayram]

Aşağıdaki kodu butona ata ve formüllü hücrede çalıştır. A1'e yazar.
[vb:1:28ee0b5a41]Sub formul_makro()
For Each Item In Selection
If Mid(Item.Formula, 1, 1) = "=" Then
[a1] = "The formula in " & Item.Address(rowAbsolute:=False, _
columnAbsolute:=False) & " is: " & Item.Formula
End If
Next
End Sub[/vb:1:28ee0b5a41]

 

[memduh]

Sayın mahmut bayram yapamadım biraz daha açarmısınız.

_______________
Excel 2003 türkçe