Geç kalmadınız hocam :) Çok araştırdım ama çözüm bulamadığım için UserForm yapmaktan vaz geçecektim ki videonuzu gördüm. Yine çok faydalı bir anlatım olmuş. Sayenizde yapmaya çalıştığım tablo daha verimli ve kullanışlı oldu. Sorumu cevapladığınız içinde ayrıca çok teşekkür ederim.
Ya bunun için 35 dk videoya gerek var mı diyordum ama 10 dk sını izleyince anladım ki varmış. Alışmışız sorgulamadan hazır kodlara çünkü. İlk defa bu kodların hangisinin ne işe yaradığını anladım. Eline,diline, klavyene sağlık hocam. Abone olma konusunda seçiciyimdir. 10 dk da abone oldum.
Abi ALLAH razı olsun. Gerçekten gayet anlaşılır anlatım. Size ne kadar teşekkür etsek az. Abi eğer zahmet olmayacaksa vba’da listboxla ilgili işe yarar türkçe kaynak yok. Zayen makroyla ilgilenenlerde makro kaydetmekten başka bişey yaptıkları yok. 1- listboxtan veri seçme 2- listboxtan seçilen verileri başka bir tabloya kopyalama. 3- listboxtan seçilen veriyi düzenleme. 4- listboxta filtreleme ve bu filtrelenen verileri kopyalayıp başka tabloya aktarma gibi işlemlerle alakalı bir video gelebilirmi. Bunlarla alakalı çok ingilizce kaynak var ama ben bir türlü for ve if döngülerini anlayamadım. Birde abi bu listtboxla ilgili formu başka sayfa açıkken bir türlü çalıştıramadım. İlla ilgili sayfa açık olacak.
hocam hakkaten tane tane anlatmışsınız. ağzınıza sağlık. benim bu konuya benzer bir sorum olacak hocam, text box ı 3 satırlık tutmak istiyorum yazı yazınca yazı düz devam ediyor . istiyorum ki çizdiğim çerçeveden aşağı satıra insin
Hocam elinize sağlık. Buraya girilen değerler excelde tutulması gerekiyor. Buradaki verileri excele aktardığımızda veya excelden çektiğimizde uygun formatlar olmuyor. Tarih formatını da ilave ederek bilgi videoyu çekebilir misiniz. Başarılarınızın devamını diliyorum.
Hocam vidyonuz çok işime yaradı teşekkür ederim sağolun. kod yazarken kırmızı oluyor sizde ve güzel görünüyor bende mavi ve siyah var kırmızı nasıl yapılır sizinki gibi teşekkür ederim
Hocam emeklerinize sağlık, değerli bilgilerinizden çok yararlanıyorum. Biliyorsunuz nedense Microsoft vba'dan DateTimePicker aracını kaldırdı. Büyük sıkıntı. Textbox'da 02.08.2021 örneğindeki gibi bir tarih bilgisini nasıl düzenleyebilirim onu da bir örnekle anlatabilir misiniz?
selam hocam, verdiğiniz eğitimler için teşekür ederiz. sorum şu, 2 tane textbox var, textbox2 de text değerine bir "+90" yazdım. textbox1 den textbox2ye tab tuşuyla geçiş yaptığım zaman +90 komple seçmeyecek yanından devam edecek nasıl yapabiliriz.?
Elinize sağlık çok güzel videolarınız var çoğunu izleme fırsatım oldu. Benim de bir sorun olacaktı . Bir excel dosyasında yazdığımız bir makro ile başka bir excel sayfasındaki makroyu nasıl çalıştırırız yardımcı olabilirseniz minnettar olurum
Hocam, miktar ile ondalık yani (1,5 TL ) gibi sayıları çarptığımda bana toplam para miktarını getirmiyor. Tam sayı yazdığımda geliyor. Örneğin Tam sayı: TxtTutar.Value = TxtMiktar.Value * TxtFiyat.Value Tam rakamda sorun yok virgüllü rakamlarda TL miktarını bulamıyorum
Muhtemelen PC'nizin dili veya Excel dosyanızın ondalık ve binlik ayırıcısında farklılık vardır. Aşağıdaki gibi deneyiniz. Hesaplama yapacağınız butonun exit prosüdürüne TxtTutar.Value = Format(Replace(TxtTutar.Value, ".", ","), "#,##0.00 TL")
Hocam anlatımınız için çok teşekkürler. ComboBox1.Text ile ComboBox1.Value arasındaki farkı açıklarım daha sonra demişsiniz. Bu konuda bir sıkıntı yaşadım bende .Value şeklinde hata veren kod almanca işletim sistemi kullanan bir arkadaşımda hata vermiyordu. Daha sonra sadece hata gösteren combobox'ı .Text şeklinde kodlayınca hata vermedi. İşin ilginci diğer 8-10 adet ComboBox da kod .Value şeklinde ve onlarda hata vermedi. Neyse bu farkı açıkladığınız bir ders varsa linkini paylaşırsanız memnun olurum . Teşekkürler.
Ben teşekkür ederim. VBA derslerine uzunca bir ara verdiğim için o videoyu hazırlamamıştım. Bu arada sizin de projenizi incelemeden direk şu sebeple demem mümkün değil ama eğer gerekmiyorsa TextBox1.Value veya TextBox1.Text yerine TextBox1 şeklinde işleyebilirsiniz. Böylece öncelik seçimini Excel'e bırakabilirsiniz.
Hocam merhaba, öncelikle yayınladığız videolar için çok teşekkürler. Benim bir kaç sorum olacak. Birincisi textboxtan veri girilirken bir kolonda bulunan verilerden öneriler görünmesini istiyorum. Yani 1 yazdığımda textboxsa kolonda başlıyan 1 li kayıtlar öneri olarak gelsin. 12 yazdigimda 12 ile başlayan kayitlar gelsin. İkincisi comboboxsa tanimladigim verilere textboxtan veri eklemek istiyorum. Bunları nasıl yapabilirim? Şimdiden tesekkurler
Gani bey, İstediğiniz gibi bir video çekmeyi planlıyorum. Çünkü bunu hazır kod vererek anlatmak çok zor. Ancak şunu da söylemek isterim ki bu işlem TextBox kullanmak çok da mantıklı değil. Bunun yerine Combobox kullanmanız çok daha yerinde olacaktır.
Hocam çok can alıcı noktalara parmak koyuyorsun.ALLAH razı olsun .Sizden ricam şu benim iş içinde kısa bir video yapsanız çok sevinirim.Hocam bir tane userform um var.Bunun içindeki veriler belli aralıklarla değişiyor.Bende deyişmeden bir resmini alıp arşivlemek istiyorum.Zira bu verilere ilerleyen zamanda ihtiyacım oluyor.Bu konuyla alakalı hiç video da yok.iyi çalışmalar.Şimdiden teşekkür ederim......!
Sayfa 1 deki hücre değerini msgbox taki mesaja nasıl ekleyebilirim? Msgbox "kalan bilet sayısı A2 adettir" gibi. A2 hücresinde formül sonucu bulunmuş ve değişebilen sayı var.
Selamlar hocam öncelikle emeğinize ellerinize sağlık, anlatımlarınız fevkalade. Dersteki konu sorusu üç farklı değerden oluşuyor ilk ikisini çok güzel açıklamışsınız fakat sıfırdan küçük bir değeri (Örnekte 0,59) excel'e kaydettiğimizde metinsel değer olarak algılayıp üzerinde matematiksel işlem yapmamıza izin vermiyor, %1'lik KDV hesaplattığımızda tutar da küçükse kuruş çıkıyor örneğin 0,59 Kr. bunu excel'e sayısal değer olarak yazdıramadım. 1'den büyük küsüratlı sayılarda sorun olmuyor. Bunu için nasıl bir çözüm üretebiliriz bu konudaki fikirlerinizi paylaşırsanız memnun olurum başarılar.
Hocam selam. Video nuzu izledim. Çok güzel. Elinize sağlık. TextBox para formatında sıkıntı yaşıyorum. Mesela kutuya 2546150,45 yazdığımda exit yapınca 2.546.150,45 TL yazıyor. Ama kaydet butonuyla bu veriyi bir hücreye gönderdiğimde sayı olarak algılamıyor. O hücreye bağlı çalışan formüller güncel değeri üretmiyor. Kullandığım kodlar şunlar: Sheets("kayıt").range("a3") = textbox1. Value Cdbl olanınıda kullandım. Ama nafile. Ne önerirsiniz.
Sefa bey, Aynı formatı kaydedeceğiniz hücre içinde ayarlayabilirsiniz. Örneğin aynı örnekteki H8 hücresine girmek istediğiniz de komutunu aşağıdaki gibi olmalı Cells(8, 8).Value = Format(TextBox1.Value, "0(###) ### ## ##") Yada sizin örneğinizdeki gibi düşünürsek Sheets("kayıt").Range("A3").Value = Format(TextBox1.Value, "0(###) ### ## ##") şeklinde olmalı.
HOCAM ELİNİZE SAĞLIK BİR KONUDA YARDIM İSTİYORUM KULLANICI KÜÇÜK HARF GİREMESİN VEYA KAYIT OLURKEN OTOMATİK BÜYÜK HARF OLARAK KAYIT ETSİN İSİTYORUM MÜMKÜNMÜ ? SAYGILAR
Öncelikle kusura bakmayın sorunuzu geç gördüm. Hala çözüm bulamadıysanız aşağıdaki düzenlediğim kodla işinizi görebilirsiniz. Örneğin TextBox'a girilen yazıların büyük harf olmasını istiyorsanız TextBox'ın Change olayına TextBox1.Value = UCase(Replace(Replace(TextBox1.Value, "i", "İ"), "ı", "I")) yazmanız yeterli olacaktır.
hocam bir sorum daha olacak userformu close yatığımda kaydetmeyi başardım fakat isteğim şu btona bastığım zaman kayıt edip direkt hem formu hemde exceli kapatsın mümkünmü
Merhaba, ( -- hata aldığım nokta telefon numara sayısı = 10 eksik tuşlamada hata mesajı geliyor. Düzeltme yapmaya çalıştığımda. 10 karakter üstüne izin vermiyor --0(555) 555 55 23 -- burada ki 23 sayısında 3 eksik olduğunda geri yazmak istediğimde hataya yer veriyor. Max girdiyi 16 yerine 10 olarak tamamlıyor. bunun çözümünü sizden şöyle çevirdim. ) Öncelikle eski de olsa videolarınız çok işimi gördü. Elinize emeğinize sağlık. Küçük bir sıkıntı yaşıyordum sizden bulurum umidiyle izliyordum. Nitekim çözdüm de. Sizde de yaşadığım sıkıntı yaşanıyordu. Benim problemimi çözmede Kodlamalarınız işime yaradı. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Textbox1.MaxLength = 10
If Len(ayarCep1.Value) = 10 Then İf den önce MaxLength değeri atayarak ilk başlangıçta sınırlandırıyorum. SONRASINDA;;;; Else TextBox1.MaxLength = 16 MsgBox " Telefon....... Tekrar Else den sonra MaxLength değerini arttırıyorum. Yani ilk açılışta 10 değerden düşükse hata mesajına git. hata mesajını kapatıp tekrar değeri düzeltmek için tıkla ve 16 lık sistemde düzenleme yap.
Geç kalmadınız hocam :) Çok araştırdım ama çözüm bulamadığım için UserForm yapmaktan vaz geçecektim ki videonuzu gördüm. Yine çok faydalı bir anlatım olmuş. Sayenizde yapmaya çalıştığım tablo daha verimli ve kullanışlı oldu. Sorumu cevapladığınız içinde ayrıca çok teşekkür ederim.
Rica ederim. İşinize yaradığına sevindim.
Ya bunun için 35 dk videoya gerek var mı diyordum ama 10 dk sını izleyince anladım ki varmış. Alışmışız sorgulamadan hazır kodlara çünkü. İlk defa bu kodların hangisinin ne işe yaradığını anladım. Eline,diline, klavyene sağlık hocam. Abone olma konusunda seçiciyimdir. 10 dk da abone oldum.
Güzel yorumunuz için teşekkür ederim. Umarım her zaman faydalı olabilirim.
Okul Yıllarımda Sizin Gibi Bir Öğretmenim Olsaydı Profesör Olmuştum :)
Estağfirullah, mümkün olduğunca daha iyi anlatmak için çaba sarf ediyorum. Faydalı olabildiysem ne mutlu bana
Gayet ayrıntılı güzel bir çalışma olmuş, tarih için de ayrıntılı olarak anlatabilir misiniz onda daha karmaşık durum söz konusu…
Harikasın Hocam...Emeklerine saplık çok faydalı bir video olmuş...Teşekkür ederim...
hocam emeğinize sağlık güzel anlatmışsınız
Abi ALLAH razı olsun. Gerçekten gayet anlaşılır anlatım. Size ne kadar teşekkür etsek az. Abi eğer zahmet olmayacaksa vba’da listboxla ilgili işe yarar türkçe kaynak yok. Zayen makroyla ilgilenenlerde makro kaydetmekten başka bişey yaptıkları yok.
1- listboxtan veri seçme
2- listboxtan seçilen verileri başka bir tabloya kopyalama.
3- listboxtan seçilen veriyi düzenleme.
4- listboxta filtreleme ve bu filtrelenen verileri kopyalayıp başka tabloya aktarma gibi işlemlerle alakalı bir video gelebilirmi.
Bunlarla alakalı çok ingilizce kaynak var ama ben bir türlü for ve if döngülerini anlayamadım. Birde abi bu listtboxla ilgili formu başka sayfa açıkken bir türlü çalıştıramadım. İlla ilgili sayfa açık olacak.
hocam hakkaten tane tane anlatmışsınız. ağzınıza sağlık. benim bu konuya benzer bir sorum olacak hocam, text box ı 3 satırlık tutmak istiyorum yazı yazınca yazı düz devam ediyor . istiyorum ki çizdiğim çerçeveden aşağı satıra insin
Allah işinizi gücünüzü rast getirsin ağa .. 😍
Amin inşaAllah. Rabbim sizinde işinizi gücünüzü rast getirsin.
Hocam elinize sağlık. Buraya girilen değerler excelde tutulması gerekiyor. Buradaki verileri excele aktardığımızda veya excelden çektiğimizde uygun formatlar olmuyor. Tarih formatını da ilave ederek bilgi videoyu çekebilir misiniz.
Başarılarınızın devamını diliyorum.
Hocam vidyonuz çok işime yaradı teşekkür ederim sağolun. kod yazarken kırmızı oluyor sizde ve güzel görünüyor bende mavi ve siyah var kırmızı nasıl yapılır sizinki gibi teşekkür ederim
Hocam emeklerinize sağlık, değerli bilgilerinizden çok yararlanıyorum.
Biliyorsunuz nedense Microsoft vba'dan DateTimePicker aracını kaldırdı. Büyük sıkıntı.
Textbox'da 02.08.2021 örneğindeki gibi bir tarih bilgisini nasıl düzenleyebilirim onu da bir örnekle anlatabilir misiniz?
selam hocam, verdiğiniz eğitimler için teşekür ederiz. sorum şu, 2 tane textbox var, textbox2 de text değerine bir "+90" yazdım. textbox1 den textbox2ye tab tuşuyla geçiş yaptığım zaman +90 komple seçmeyecek yanından devam edecek nasıl yapabiliriz.?
Elinize sağlık çok güzel videolarınız var çoğunu izleme fırsatım oldu. Benim de bir sorun olacaktı . Bir excel dosyasında yazdığımız bir makro ile başka bir excel sayfasındaki makroyu nasıl çalıştırırız yardımcı olabilirseniz minnettar olurum
Farklı bir çalışma kitabındaki makroyu Application.Run "DiğerKitapAdı.xlsm!CalıştırılacakMakroAdı" kodu ile çalıştırabilirsiniz.
@@Degarado çok teşekkür ederim Allah razı olsun
Hocam, miktar ile ondalık yani (1,5 TL ) gibi sayıları çarptığımda bana toplam para miktarını getirmiyor. Tam sayı yazdığımda geliyor. Örneğin Tam sayı: TxtTutar.Value = TxtMiktar.Value * TxtFiyat.Value Tam rakamda sorun yok virgüllü rakamlarda TL miktarını bulamıyorum
Muhtemelen PC'nizin dili veya Excel dosyanızın ondalık ve binlik ayırıcısında farklılık vardır. Aşağıdaki gibi deneyiniz.
Hesaplama yapacağınız butonun exit prosüdürüne
TxtTutar.Value = Format(Replace(TxtTutar.Value, ".", ","), "#,##0.00 TL")
Hocam anlatımınız için çok teşekkürler. ComboBox1.Text ile ComboBox1.Value arasındaki farkı açıklarım daha sonra demişsiniz. Bu konuda bir sıkıntı yaşadım bende .Value şeklinde hata veren kod almanca işletim sistemi kullanan bir arkadaşımda hata vermiyordu. Daha sonra sadece hata gösteren combobox'ı .Text şeklinde kodlayınca hata vermedi. İşin ilginci diğer 8-10 adet ComboBox da kod .Value şeklinde ve onlarda hata vermedi. Neyse bu farkı açıkladığınız bir ders varsa linkini paylaşırsanız memnun olurum . Teşekkürler.
Ben teşekkür ederim. VBA derslerine uzunca bir ara verdiğim için o videoyu hazırlamamıştım. Bu arada sizin de projenizi incelemeden direk şu sebeple demem mümkün değil ama eğer gerekmiyorsa TextBox1.Value veya TextBox1.Text yerine TextBox1 şeklinde işleyebilirsiniz. Böylece öncelik seçimini Excel'e bırakabilirsiniz.
@@Degarado Yanıtınız için teşekkür ederim ilk fırsatta bu şekilde deneyeceğim.
Hocam merhaba, öncelikle yayınladığız videolar için çok teşekkürler. Benim bir kaç sorum olacak. Birincisi textboxtan veri girilirken bir kolonda bulunan verilerden öneriler görünmesini istiyorum. Yani 1 yazdığımda textboxsa kolonda başlıyan 1 li kayıtlar öneri olarak gelsin. 12 yazdigimda 12 ile başlayan kayitlar gelsin. İkincisi comboboxsa tanimladigim verilere textboxtan veri eklemek istiyorum. Bunları nasıl yapabilirim? Şimdiden tesekkurler
Gani bey,
İstediğiniz gibi bir video çekmeyi planlıyorum. Çünkü bunu hazır kod vererek anlatmak çok zor. Ancak şunu da söylemek isterim ki bu işlem TextBox kullanmak çok da mantıklı değil. Bunun yerine Combobox kullanmanız çok daha yerinde olacaktır.
Hocam çok can alıcı noktalara parmak koyuyorsun.ALLAH razı olsun .Sizden ricam şu benim iş içinde kısa bir video yapsanız çok sevinirim.Hocam bir tane userform um var.Bunun içindeki veriler belli aralıklarla değişiyor.Bende deyişmeden bir resmini alıp arşivlemek istiyorum.Zira bu verilere ilerleyen zamanda ihtiyacım oluyor.Bu konuyla alakalı hiç video da yok.iyi çalışmalar.Şimdiden teşekkür ederim......!
Konu disi bir sorum olacak hucreye tiklayinca userformu acmak istiyorum nasil yapabilirim
Sayfa 1 deki hücre değerini msgbox taki mesaja nasıl ekleyebilirim? Msgbox "kalan bilet sayısı A2 adettir" gibi. A2 hücresinde formül sonucu bulunmuş ve değişebilen sayı var.
Aşağıda yazdığım gibi uygulayabilirsiniz.
Sub Msj()
Dim Bilet As Integer
Bilet = Worksheets("Sayfa1").Range("A2").Value
MsgBox Bilet
End Sub
Selamlar hocam
öncelikle emeğinize ellerinize sağlık, anlatımlarınız fevkalade.
Dersteki konu sorusu üç farklı değerden oluşuyor ilk ikisini çok güzel açıklamışsınız fakat sıfırdan küçük bir değeri (Örnekte 0,59) excel'e kaydettiğimizde metinsel değer olarak algılayıp üzerinde matematiksel işlem yapmamıza izin vermiyor, %1'lik KDV hesaplattığımızda tutar da küçükse kuruş çıkıyor örneğin 0,59 Kr. bunu excel'e sayısal değer olarak yazdıramadım. 1'den büyük küsüratlı sayılarda sorun olmuyor. Bunu için nasıl bir çözüm üretebiliriz bu konudaki fikirlerinizi paylaşırsanız memnun olurum başarılar.
perfect
Teşekkürler.
hocam merhaba
virgül sayısının yalnızca 1 adet olmasını aksi halde hata vermesini nasıl sağlayabiliriz
teşekkürler
Hocam selam. Video nuzu izledim. Çok güzel. Elinize sağlık.
TextBox para formatında sıkıntı yaşıyorum. Mesela kutuya 2546150,45 yazdığımda exit yapınca 2.546.150,45 TL yazıyor. Ama kaydet butonuyla bu veriyi bir hücreye gönderdiğimde sayı olarak algılamıyor. O hücreye bağlı çalışan formüller güncel değeri üretmiyor.
Kullandığım kodlar şunlar:
Sheets("kayıt").range("a3") = textbox1. Value
Cdbl olanınıda kullandım. Ama nafile.
Ne önerirsiniz.
Sefa bey,
Aynı formatı kaydedeceğiniz hücre içinde ayarlayabilirsiniz. Örneğin aynı örnekteki H8 hücresine girmek istediğiniz de komutunu aşağıdaki gibi olmalı
Cells(8, 8).Value = Format(TextBox1.Value, "0(###) ### ## ##")
Yada sizin örneğinizdeki gibi düşünürsek
Sheets("kayıt").Range("A3").Value = Format(TextBox1.Value, "0(###) ### ## ##")
şeklinde olmalı.
merhaba,13.10 da bahsedilen "or"kelimesi "ve" anlamına değil "yada" anlamına gelmektedir. "Ve" ifadesi "And" olarak yazılmaktadır.
Telefon numarasını girme sırasında 0 olmadan 10 hane tuşladıktan sonra rakam tuşlamarını Nasıl kapatabiliriz fazla tuşlamayı önlemek için
Basit bir kontrol içerisine keyascii=0 kodu işinizi görecektir.
HOCAM ELİNİZE SAĞLIK BİR KONUDA YARDIM İSTİYORUM KULLANICI KÜÇÜK HARF GİREMESİN VEYA KAYIT OLURKEN OTOMATİK BÜYÜK HARF OLARAK KAYIT ETSİN İSİTYORUM MÜMKÜNMÜ ? SAYGILAR
Öncelikle kusura bakmayın sorunuzu geç gördüm. Hala çözüm bulamadıysanız aşağıdaki düzenlediğim kodla işinizi görebilirsiniz.
Örneğin TextBox'a girilen yazıların büyük harf olmasını istiyorsanız TextBox'ın Change olayına
TextBox1.Value = UCase(Replace(Replace(TextBox1.Value, "i", "İ"), "ı", "I"))
yazmanız yeterli olacaktır.
Estağfurullah hocam bulamadım değil sizden cevap gelmesinin bekledim sağolun
hocam bir sorum daha olacak userformu close yatığımda kaydetmeyi başardım fakat isteğim şu btona bastığım zaman kayıt edip direkt hem formu hemde exceli kapatsın mümkünmü
@@orhandursun2262 Tabii mümkün. Butonun Click olayına aşağıdaki gibi tek bir satırlık kod bu işinizi çözecektir.
ActiveWorkbook.Close True
@@Degarado bu kodu kaytetme kodundan sonra yazıyorum o zaman hocam sağolun
Hocam excel vba formatı Para birimi yazma nasıl yazım ki her ülke para birmne uykun olsun yanı hatalar vermesin
"or" veya demektir
Merhaba,
( -- hata aldığım nokta telefon numara sayısı = 10 eksik tuşlamada hata mesajı geliyor. Düzeltme yapmaya çalıştığımda. 10 karakter üstüne izin vermiyor --0(555) 555 55 23 -- burada ki 23 sayısında 3 eksik olduğunda geri yazmak istediğimde hataya yer veriyor. Max girdiyi 16 yerine 10 olarak tamamlıyor. bunun çözümünü sizden şöyle çevirdim. )
Öncelikle eski de olsa videolarınız çok işimi gördü. Elinize emeğinize sağlık. Küçük bir sıkıntı yaşıyordum sizden bulurum umidiyle izliyordum. Nitekim çözdüm de. Sizde de yaşadığım sıkıntı yaşanıyordu. Benim problemimi çözmede Kodlamalarınız işime yaradı.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textbox1.MaxLength = 10
If Len(ayarCep1.Value) = 10 Then
İf den önce MaxLength değeri atayarak ilk başlangıçta sınırlandırıyorum. SONRASINDA;;;;
Else
TextBox1.MaxLength = 16
MsgBox " Telefon.......
Tekrar Else den sonra MaxLength değerini arttırıyorum.
Yani ilk açılışta 10 değerden düşükse hata mesajına git. hata mesajını kapatıp tekrar değeri düzeltmek için tıkla ve 16 lık sistemde düzenleme yap.