Makro ile Eğer Formülü

[Hakngnc]

Merhaba arkadaşlar,

Makro kaydet ile makro yazmaya çalıştığımdan bir yerde takıldım.Yardımlarınızı rica ediyorum. Uzunca bir formülü normal çalıştırdığımda çalışırken makro kaydet ile çalıştırdığımda hata alıyorum yardımcı olursanız sevinirim.
Formül Bu:

=EĞER(M2="ATMÇağrı Merkezi ";"Hakan"; EĞER(N2="BANKOMAT BAŞKA ŞUBEYE KART GÖNDERİM TALEBİÇağrı Merkezi ";"Ali";EĞER(N2="ŞUBE TELEFONLARINA ULAŞAMAMAÇağrı Merkezi ";"Ali";EĞER(N2="GİŞE PERSONEL EKSİKLİĞİÇağrı Merkezi ";"Ali";EĞER(N2="BİRİMÇağrı Merkezi ";"Ali";EĞER(N2="ŞUBEÇağrıMerkezi ";"Ali";EĞER(O2="KARTIN ADRESE VEYA ŞUBEYE YÖNLENDİRME TALEPLERİÇağrıMerkezi ";"Ali";EĞER(O2="ŞUBEDEKİ KREDİ KARTININ FARKLI ŞUBEYE TESLİMİÇağrıMerkezi ";"Ali";EĞER(N2="BANKA KARTLARI VE KREDİ KARTLARI HAKKINDA YÖNETMELİK KAPSAMINDA TAKSİTLENDİRMEÇağrıMerkezi ";"ALi";EĞER(M2="İNTERNET BANKACILIĞIÇağrıMerkezi ";"Ali";EĞER(M2="MOBİL BANKACILIKÇağrıMerkezi ";"Ali";EĞER(N2="HESAP İŞLETİM ÜCRETİ İTİRAZIÇağrıMerkezi ";"mehmet";EĞER(N2="EFT MASRAFI İTİRAZIÇağrıMerkezi ";"mehmet";EĞER(N2="EKSTRE MASRAFI İTİRAZIÇağrıMerkezi ";"mehmet";EĞER(N2="HAVALE MASRAFI İTİRAZIÇağrıMerkezi ";"mehmet";EĞER(N2="HESAPTAN PARA ÇEKME MASRAF İTİRAZIÇağrıMerkezi ";"mehmet";EĞER(N2="LİMİT ARTIRIM REDDİNE İTİRAZÇağrıMerkezi ";"mehmet";EĞER(N2="LİMİT DEĞİŞİKLİK SÜREÇ PROBLEMLERİÇağrıMerkezi ";"mehmet";EĞER(N2="LİMİT DEĞİŞİKLİK TALEPLERİÇağrıMerkezi ";"mehmet";EĞER(N2="ARTI BAKİYE TRANSFER TALEBİÇağrıMerkezi ";"mehmet";EĞER(N2="WORLDPUAN TRANSFER TALEPLERİÇağrıMerkezi ";"mehmet";EĞER(N2="SİGORTA İPTAL TALEPLERİÇağrıMerkezi ";"mehmet";EĞER(O2="İSTEK VE ÖNERİÇağrıMerkezi ";"mehmet";EĞER(O2="EKSTRE ULAŞMAMA PROBLEMLERİÇağrıMerkezi ";"mehmet";EĞER(O2="EMAİL İLE EKSTRE TALEBİÇağrıMerkezi ";"mehmet";EĞER(M2="MOBİL BANKACILIKBize Ulaşın";"Fatih";EĞER(M2="İNTERNET BANKACILIĞIBize Ulaşın";"Fatih";EĞER(N2="KART TESLİM VE KURYE İŞLEMLERİBize Ulaşın";"Fatih";EĞER(N2="DÖVİZ ALIŞ SATIŞ İŞLEMLERİBize Ulaşın";"Fatih";B2)))))))))))))))))))))))))))))

Bu makro kaydet ile şu şekilde yazılıyor:

Range("A2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[12]=""ATMÇağrı Merkezi "",""BAYRAM OĞUZ CANTEKİN"", IF(RC[13]=""BANKOMAT BAŞKA ŞUBEYE KART GÖNDERİM TALEBİÇağrı Merkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[13]=""ŞUBE TELEFONLARINA ULAŞAMAMAÇağrı Merkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[13]=""GİŞE PERSONEL EKSİKLİĞİÇağrı Merkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[13]=""BİRİMÇağrı Merkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[1" & _
        "EÇağrıMerkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[14]=""KARTIN ADRESE VEYA ŞUBEYE YÖNLENDİRME TALEPLERİÇağrıMerkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[14]=""ŞUBEDEKİ KREDİ KARTININ FARKLI ŞUBEYE TESLİMİÇağrıMerkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[13]=""BANKA KARTLARI VE KREDİ KARTLARI HAKKINDA YÖNETMELİK KAPSAMINDA TAKSİTLENDİRMEÇağrıMerkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[12]" & _
        "ET BANKACILIĞIÇağrıMerkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[12]=""MOBİL BANKACILIKÇağrıMerkezi "",""RABİA ÖZGE ŞİMŞEK"",IF(RC[13]=""HESAP İŞLETİM ÜCRETİ İTİRAZIÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""EFT MASRAFI İTİRAZIÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""EKSTRE MASRAFI İTİRAZIÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""HAVALE MASRAFI İTİRAZI" & _
        "ezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""HESAPTAN PARA ÇEKME MASRAF İTİRAZIÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""LİMİT ARTIRIM REDDİNE İTİRAZÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""LİMİT DEĞİŞİKLİK SÜREÇ PROBLEMLERİÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""LİMİT DEĞİŞİKLİK TALEPLERİÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""ARTI BAKİY" & _
        "R TALEBİÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""WORLDPUAN TRANSFER TALEPLERİÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[13]=""SİGORTA İPTAL TALEPLERİÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[14]=""İSTEK VE ÖNERİÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[14]=""EKSTRE ULAŞMAMA PROBLEMLERİÇağrıMerkezi "",""SELAHATTİN AVŞAR"",IF(RC[14]=""EMAİL İLE EKSTRE TALEBİ" & _
        "ezi "",""SELAHATTİN AVŞAR"",IF(RC[12]=""MOBİL BANKACILIKBize Ulaşın"",""ERHAN KAYA"",IF(RC[12]=""İNTERNET BANKACILIĞIBize Ulaşın"",""ERHAN KAYA"",IF(RC[13]=""KART TESLİM VE KURYE İŞLEMLERİBize Ulaşın"",""ERHAN KAYA"",IF(RC[13]=""DÖVİZ ALIŞ SATIŞ İŞLEMLERİBize Ulaşın"",""ERHAN KAYA"",RC[1])))))))))))))))))))))))))))))"


    Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A" & sonsatir)

bir yol gösterirseniz sevirim burda hata alıyorum.

Herkese iyi günler

 

[askm]

Örnek dosyanızı eklerseniz. Makro kaydet ile değilde normal if then else ile çözüm bulmaya çalışalım. Formülünüzde Ali, Mehmet, Fatih isimlerinin getirilmeye çalışıldığı anlaşılıyor. Başka bir alana "BANKOMAT BAŞKA ŞUBEYE KART GÖNDERİM TALEBİÇağrı Merkezi " gibi alanları alt alta yazarak düşeyara ile de sonuca ulaşabilirsiniz.

 

[Ömer BARAN]

Merhaba.

Bence ekli belgedeki gibi bir yapı oluşturursanız daha anlamlı olur.
Kolay gelsin.
.

 

[vardar07]

illaki makro diyorsanız if & Elseif ile deneyiniz.Noktalı yerlere devam ettirin.

sub aranan()
a=[N2]
if a = "ATMÇağrı Merkezi " Then
cells(12,12) = "BAYRAM OĞUZ CANTEKİN"
Elseif a = "BANKOMAT BAŞKA ŞUBEYE KART GÖNDERİM TALEBİÇağrı Merkezi " Then
cells(13,13) = "RABİA ÖZGE ŞİMŞEK"
Elseif ............. Then
.............................
End if

 

[Hakngnc]

Teşekkür ederim yardımlarınız için makronun sadece bir bölümü bu olduğu için makro yönetimiyle çözmem gerekiyordu makro kaydet ile satır sonları hatalı geliyormuş onu düzeltim birde sayın vardar sizin yönteminiz daha uygun sanırım bunu döngüylede halledebilirim herhalde teşekkür ederim herkese