TÜR UYUŞMAZLIĞI HATASI

C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Arkadaşlar merhaba ; Aşağıda vermiş olduğum kod'larda "tür uyuşmazlığı hatası" mesajını alıyorum aynı kodları farklı bir kitapta deniyorum sorunsuz çalışıyor ancak benim esas çalışma kitabımda bu şekilde bir sonuç veriyor ! sorun nerde acaba kod'lara bakabilirmisiniz.
 

Ekli dosyalar

ÖmerBey

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,118
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Veri almaya çalıştığınız hücrede formül sonucu hata oluşmuşsa olabilir. IsError ile kontrol ettirerek aldırabilirsiniz.
Örneğin; IsError(Sheets("ANA SAYFA").Range("M13").Value)
 
C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Ömer bey ilginiz için çok teşekkür ederim , evet gösterdiğiniz gibi IsError uyguladım şimdi tür uyuşmazlığı hatası vermiyor ancak başka bişey çıktı bu sefer hücrenin içindekileri userformda göstermiyor onun yerine FALSE veya TRUE yazıyor !
 
ÖmerBey

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,118
Excel Vers. ve Dili
2007 Türkçe
Bu değeri kullanarak bir if sorgusu tasarlayabilirsiniz.
Mesela; If IsError(Sheets("ANA SAYFA").Range("M13").Value) = False Then UserForm249.TextBox199.Value = Sheets("ANA SAYFA").Range("M13").Value
Ya da UserForm249.TextBox199.Value = IIf(IsError(Sheets("ANA SAYFA").Range("M13").Value), "HATA", Sheets("ANA SAYFA").Range("M13").Value) gibi...
Ya da daha başka bir şey, artık ne isterseniz...
 
C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Şimdilik oldu gibi gözüküyor üstat ,ayrıca başka bir sorun oluşmuştu oda düzeldi gibi hücre değerlerini aldığım userform çok geç açılıyordu oda düzeldi umarım başka sorun çıkmaz çok teşekkürler ömer bey :)
 
C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
ömer bey merhaba ; dün bahsettiğim ilgili userform'un geç açılma olayı maalesef devam ediyor vede bilgisayarın sol alt köşesindeki "hazır" bölümü devamlı işlem yapıyor.( ben bir ara "yinelemeli hesaplamayı etkinleştiri" etkinleştirmiştim o zaman çok kasmıştı iptal ettim) onun etkisi varmı? Yoksa userform içinde birbirini tekrarlayan kodlar çok fazla acaba ondanmı ? ben kod'ları ekte gönderiyorum bir bakarmısınız bunu düzeltme imkanı varmı. Şimdiden teşekkürler;
Private Sub UserForm_Initialize()


TextBox338.Text = Sayfa18.Range("D144").Text
TextBox342.Text = Sayfa18.Range("C147").Text
TextBox341.Text = Sayfa18.Range("D147").Text
TextBox242.Text = Sayfa18.Range("H166").Text
TextBox241.Text = Sayfa18.Range("J166").Text
TextBox245.Text = Sayfa18.Range("H167").Text
TextBox244.Text = Sayfa18.Range("J167").Text
TextBox248.Text = Sayfa18.Range("H168").Text
TextBox247.Text = Sayfa18.Range("J168").Text
TextBox251.Text = Sayfa18.Range("H170").Text
TextBox250.Text = Sayfa18.Range("J170").Text
TextBox254.Text = Sayfa18.Range("H171").Text
TextBox253.Text = Sayfa18.Range("J171").Text
TextBox257.Text = Sayfa18.Range("H172").Text
TextBox256.Text = Sayfa18.Range("J172").Text
TextBox260.Text = Sayfa18.Range("H193").Text
TextBox259.Text = Sayfa18.Range("J193").Text
TextBox263.Text = Sayfa18.Range("H185").Text
TextBox262.Text = Sayfa18.Range("K185").Text
TextBox266.Text = Sayfa18.Range("H186").Text
TextBox265.Text = Sayfa18.Range("J186").Text
TextBox269.Text = Sayfa18.Range("H187").Text
TextBox268.Text = Sayfa18.Range("J187").Text
TextBox272.Text = Sayfa18.Range("H193").Text
TextBox271.Text = Sayfa18.Range("J193").Text
TextBox297.Text = Sayfa18.Range("H191").Text
TextBox296.Text = Sayfa18.Range("J191").Text
TextBox294.Text = Sayfa18.Range("C219").Text
TextBox293.Text = Sayfa18.Range("E219").Text
TextBox289.Text = Sayfa18.Range("C189").Text
TextBox292.Text = Sayfa18.Range("E189").Text
TextBox285.Text = Sayfa18.Range("E190").Text
TextBox284.Text = Sayfa18.Range("C190").Text
TextBox291.Text = Sayfa18.Range("D190").Text
TextBox287.Text = Sayfa18.Range("C191").Text
TextBox290.Text = Sayfa18.Range("D191").Text
TextBox328.Text = Sayfa18.Range("E192").Text
TextBox327.Text = Sayfa18.Range("C192").Text
TextBox326.Text = Sayfa18.Range("D192").Text
TextBox325.Text = Sayfa18.Range("E193").Text
TextBox324.Text = Sayfa18.Range("C193").Text
TextBox323.Text = Sayfa18.Range("D193").Text
TextBox319.Text = Sayfa18.Range("C199").Text
TextBox322.Text = Sayfa18.Range("E199").Text
TextBox315.Text = Sayfa18.Range("F202").Text
TextBox318.Text = Sayfa18.Range("C202").Text
TextBox321.Text = Sayfa18.Range("E202").Text
TextBox314.Text = Sayfa18.Range("M204").Text
TextBox317.Text = Sayfa18.Range("J204").Text
TextBox320.Text = Sayfa18.Range("L204").Text
TextBox345.Text = Sayfa18.Range("J205").Text
TextBox344.Text = Sayfa18.Range("L205").Text
TextBox348.Text = Sayfa18.Range("C173").Text
TextBox347.Text = Sayfa18.Range("D173").Text
TextBox351.Text = Sayfa18.Range("C175").Text
TextBox350.Text = Sayfa18.Range("D175").Text
TextBox354.Text = Sayfa18.Range("H175").Text
TextBox353.Text = Sayfa18.Range("J175").Text
TextBox357.Text = Sayfa1.Range("G33").Text
TextBox356.Text = Sayfa18.Range("H143").Text
TextBox360.Text = Sayfa18.Range("C249").Text
TextBox359.Text = Sayfa18.Range("E249").Text
TextBox363.Text = Sayfa18.Range("C250").Text
TextBox362.Text = Sayfa18.Range("E250").Text
TextBox367.Text = Sayfa18.Range("F251").Text
TextBox366.Text = Sayfa18.Range("C251").Text
TextBox365.Text = Sayfa18.Range("E251").Text
TextBox369.Text = Sayfa18.Range("C252").Text
TextBox368.Text = Sayfa18.Range("E252").Text
TextBox372.Text = Sayfa18.Range("C253").Text
TextBox371.Text = Sayfa18.Range("E253").Text
TextBox387.Text = Sayfa18.Range("C254").Text
TextBox386.Text = Sayfa18.Range("E254").Text
TextBox384.Text = Sayfa18.Range("C255").Text
TextBox383.Text = Sayfa18.Range("E255").Text
TextBox381.Text = Sayfa18.Range("C258").Text
TextBox380.Text = Sayfa18.Range("E258").Text
TextBox378.Text = Sayfa18.Range("J203").Text
TextBox377.Text = Sayfa18.Range("L203").Text
TextBox375.Text = Sayfa18.Range("I197").Text
TextBox374.Text = Sayfa18.Range("K197").Text
TextBox390.Text = Sayfa18.Range("I198").Text
TextBox389.Text = Sayfa18.Range("K198").Text
TextBox201.Text = Sayfa2.Range("K13").Text
TextBox204.Text = Sayfa2.Range("K14").Text

End Sub

Private Sub TextBox194_Change()
Range("KOD!G153").Value = TextBox194.Value

End Sub
Private Sub TextBox197_Change()
Range("'ANA SAYFA'!L34").Value = TextBox197.Value

End Sub
Private Sub TextBox200_Change()
Range("'ANA SAYFA'!L13").Value = TextBox200.Value

End Sub
Private Sub TextBox203_Change()
Range("'ANA SAYFA'!L14").Value = TextBox203.Value

End Sub
Private Sub TextBox206_Change()
Range("KOD!G153").Value = TextBox206.Value

End Sub
Private Sub TextBox209_Change()
Range("HESAPLAR!G34").Value = TextBox209.Value

End Sub
Private Sub TextBox212_Change()
Range("HESAPLAR!G35").Value = TextBox212.Value

End Sub

Private Sub TextBox215_Change()
Range("HESAPLAR!G36").Value = TextBox215.Value

End Sub

Private Sub TextBox218_Change()
Range("'ANA SAYFA'!L33").Value = TextBox218.Value

End Sub

Private Sub TextBox221_Change()
Range("'ANA SAYFA'!E34").Value = TextBox221.Value

End Sub

Private Sub TextBox224_Change()
Range("KOD!G137").Value = TextBox224.Value

End Sub
Private Sub TextBox300_Change()
Range("KOD!G138").Value = TextBox300.Value

End Sub
Private Sub TextBox230_Change()
Range("KOD!G139").Value = TextBox230.Value

End Sub
Private Sub TextBox233_Change()
Range("KOD!G140").Value = TextBox233.Value

End Sub
Private Sub TextBox236_Change()
Range("KOD!C138").Value = TextBox236.Value

End Sub

Private Sub TextBox239_Change()
Range("KOD!C139").Value = TextBox239.Value

End Sub
Private Sub TextBox330_Change()
Range("KOD!C125").Value = TextBox330.Value

End Sub
Private Sub TextBox306_Change()
Range("KOD!C126").Value = TextBox306.Value

End Sub
Private Sub TextBox307_Change()
Range("KOD!C131").Value = TextBox307.Value

End Sub
Private Sub TextBox308_Change()
Range("KOD!C170").Value = TextBox308.Value

End Sub
Private Sub TextBox309_Change()
Range("KOD!C166").Value = TextBox309.Value

End Sub
Private Sub TextBox333_Change()
Range("KOD!C161").Value = TextBox333.Value

End Sub
Private Sub TextBox336_Change()
Range("KOD!C162").Value = TextBox336.Value

End Sub
Private Sub TextBox339_Change()
Range("KOD!C144").Value = TextBox339.Value

End Sub
Private Sub TextBox342_Change()
Range("KOD!C147").Value = TextBox342.Value

End Sub
Private Sub TextBox242_Change()
Range("KOD!H166").Value = TextBox242.Value

End Sub
Private Sub TextBox245_Change()
Range("KOD!H167").Value = TextBox245.Value

End Sub
Private Sub TextBox248_Change()
Range("KOD!H168").Value = TextBox248.Value

End Sub
Private Sub TextBox251_Change()
Range("KOD!H170").Value = TextBox251.Value

End Sub
Private Sub TextBox254_Change()
Range("KOD!H171").Value = TextBox254.Value

End Sub
Private Sub TextBox257_Change()
Range("KOD!H172").Value = TextBox257.Value

End Sub
Private Sub TextBox260_Change()
Range("KOD!H193").Value = TextBox260.Value

End Sub
Private Sub TextBox263_Change()
Range("KOD!H185").Value = TextBox263.Value

End Sub
Private Sub TextBox266_Change()
Range("KOD!H186").Value = TextBox266.Value

End Sub
Private Sub TextBox269_Change()
Range("KOD!H187").Value = TextBox269.Value

End Sub
Private Sub TextBox272_Change()
Range("KOD!H193").Value = TextBox272.Value

End Sub
Private Sub TextBox297_Change()
Range("KOD!H191").Value = TextBox297.Value

End Sub
Private Sub TextBox294_Change()
Range("KOD!C219").Value = TextBox294.Value

End Sub
Private Sub TextBox289_Change()
Range("KOD!C189").Value = TextBox289.Value

End Sub
Private Sub TextBox284_Change()
Range("KOD!C190").Value = TextBox284.Value

End Sub
Private Sub TextBox287_Change()
Range("KOD!C191").Value = TextBox287.Value

End Sub
Private Sub TextBox327_Change()
Range("KOD!C192").Value = TextBox327.Value

End Sub
Private Sub TextBox324_Change()
Range("KOD!C193").Value = TextBox324.Value

End Sub
Private Sub TextBox319_Change()
Range("KOD!C199").Value = TextBox319.Value

End Sub
Private Sub TextBox318_Change()
Range("KOD!C202").Value = TextBox318.Value

End Sub
Private Sub TextBox317_Change()
Range("KOD!J204").Value = TextBox317.Value

End Sub
Private Sub TextBox345_Change()
Range("KOD!J205").Value = TextBox345.Value

End Sub
Private Sub TextBox348_Change()
Range("KOD!C173").Value = TextBox348.Value

End Sub
Private Sub TextBox351_Change()
Range("KOD!C175").Value = TextBox351.Value

End Sub
Private Sub TextBox354_Change()
Range("KOD!H175").Value = TextBox354.Value

End Sub
Private Sub TextBox357_Change()
Range("HESAPLAR!G33").Value = TextBox357.Value

End Sub
Private Sub TextBox360_Change()
Range("KOD!C249").Value = TextBox360.Value

End Sub
Private Sub TextBox363_Change()
Range("KOD!C250").Value = TextBox363.Value

End Sub
Private Sub TextBox366_Change()
Range("KOD!C251").Value = TextBox366.Value

End Sub
Private Sub TextBox369_Change()
Range("KOD!C252").Value = TextBox369.Value

End Sub
Private Sub TextBox372_Change()
Range("KOD!C253").Value = TextBox372.Value

End Sub
Private Sub TextBox387_Change()
Range("KOD!C254").Value = TextBox387.Value

End Sub
Private Sub TextBox384_Change()
Range("KOD!C255").Value = TextBox384.Value

End Sub
Private Sub TextBox381_Change()
Range("KOD!C258").Value = TextBox381.Value

End Sub
Private Sub TextBox378_Change()
Range("KOD!J203").Value = TextBox378.Value

End Sub

Private Sub TextBox375_Change()
Range("KOD!I197").Value = TextBox375.Value

End Sub

Private Sub TextBox390_Change()
Range("KOD!I198").Value = TextBox390.Value

End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub
 

Ekli dosyalar

C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Ömer bey ayrıca yukarıda gönderdiğim kod'lara ek olarak yine sizin gönderdiğiniz kod'ları gireceğim onlarda en az 50 tane olur.
If IsError(Sheets("ANA SAYFA").Range("M13").Value) = False Then UserForm249.TextBox199.Value = Sheets("ANA SAYFA").Range("M13").Value
 
C

cocoa35

Altın Üye
Katılım
6 Eylül 2007
Mesajlar
652
Excel Vers. ve Dili
excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
Altın Üyelik Bitiş Tarihi
10-12-2024
Pardon son gönderdiğim mesaj kod'larını ilgili sayfaya giriyorduk onlar userform'a eklenmiyor özür dilerim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst