Sitemize Hoşgeldiniz

Türkiye'nin en geniş özeliklere sahip forumu olan ExcelDestek.Com üzerinde soru sorabilmek, daha önceki sorulan sorulara, açılan konulara cevap yazabilmek, puan kazanabilmek, kazandığınız puanlar ile dosya indirebilmek ve çok daha fazla özellikten yararlanabilmek için sitemize üye olunuz.
Hemen Üye Ol ya da Giriş Yap

Sorun Cevaplayalım

Excel'e dair sorularınızı sorun, cevaplayalım.

Çözümlenmiş Sorular

Kullanıcılarımızın sorularını ve sunduğumuz çözümleri inceleyin.

Destek Ekibimiz Sizlerle

Ücretli destek ve özel hizmet talep edebilirsiniz.

  • Web sitemizi "REKLAMSIZ" olarak ziyaret etmek ister misiniz?
    Gerek sitemize destek, gerekse de reklam görmeden sitemizde gezinmek isterseniz, HESAP YÜKSELTME sayfasından SADECE 15-TL'ye 1 yıl boyunca ÜCRETLİ ÜYELİK almanız yeterli olacaktır.
    Detaylı bilgilendirme için lütfen buraya tıklayınız!

    REKLAMSIZ FORUM KULLANMAYI TERCİH EDECEK ÜYELERİMİZE, https://www.exceldosyalari.com İSİMLİ SİTEMİZDEN 3 AYLIK ÜYELİK PAKETİ HEDİYE EDİLECEKTİR.

VBA  textboxtaki değeri başka bir textboxa getirme

malatyalı

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
8 Haz 2019
Mesajlar
275
Yaş
45
Excel Versiyonu, Dili
Excel 2016 T

Reputation:

Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
Textbox94 de yer alan yıl durumunu TextBox112' ye almak istiyorum.
Commandbutton' a ekledim olmadı
Initalize kısmına aldım olmadı
Ne yapmam lazım?
 

Ekli dosyalar

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
867
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Textbox94 deki değer string tarih formatın da almazsın ama sayı olarak alabilirsin.
Kod:
Değerli ziyaretçimiz lütfen, içeriği görüntüleyebilmek için Giriş Yap veya Kayıt Ol anlayışınız için teşekkürler.
 

malatyalı

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
8 Haz 2019
Mesajlar
275
Yaş
45
Excel Versiyonu, Dili
Excel 2016 T

Reputation:

ÜSTAD
me ne demek?
 

Ömer BARAN

Kurucu
Yönetici
Kurucu
SMS Onaylı
Katılım
11 Nis 2019
Mesajlar
1,245
Web Sitesi
www.ExcelDestek.Com
Excel Versiyonu, Dili
2013 (32) TR

Reputation:

Belgenizi ve userformu kullanma tarzınızı bilemiyorum.
Gördüğüm (olması gereken nedir bilemiyorum); PAYDA Textoxu'na veri yazıldığında hesaplamalar yapılıp
hem TextBox94 hem de TextBox112'ye veri sorunsuz geliyor (gelen veri zaten tarih değil, YIL verisi) durumda.
 

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
867
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

"ME" içinde bulunduğu ana nesyeye başvurur. Userform1.TextBox94.Text anlamında olur. Sayfa modulunde kullandığında da sayfa adının yerine geçer.
Sheets("Sayfa1").Range("A1") = "ExcelDestek" yerine aşağıdaki gibi kullanılabilir. Umarım anlatabilmişimdir.
Me.Range("A1") = "ExcelDestek"
 

malatyalı

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
8 Haz 2019
Mesajlar
275
Yaş
45
Excel Versiyonu, Dili
Excel 2016 T

Reputation:

Ömer abi
Üst öğrenim tamamlama, SGK hizmetini saydırma, Geçmiş hizmeti saydırma gibi işlemleri yapabileceğim intibak formu hazırlamaya çalışıyorum.
İntibak hesaplamasında ki modülleri örnek dosyalar ile foruma sundum ve cevabını aldım. Sağ olun. Şimdi de bunları birleştirerek tek dosya haline getirmek istiyorum. İl Milli Eğitime soruyorum, onların söylediklerinin doğrultusunda hazırlamaya çalışıyorum. Foruma soruyorum cevabını alıyorum. Dosyama entegre ediyorum.
 

malatyalı

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
8 Haz 2019
Mesajlar
275
Yaş
45
Excel Versiyonu, Dili
Excel 2016 T

Reputation:

Feyzullah abi
Textbox105' e veri girince aşağıda renkli olan kısımda hata veriyor. Bakabilir misiniz?
dosyadaki kodu aynen aldım, dosyaya uyarladım ama hata verdi.
Sub bul()
With Sheets("Tablo")
For s = 4 To 38
If Val(Me.TextBox112.Text) = .Cells(2, s) Then sut = s
Next s
For a = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If Me.ComboBox9.Value = .Cells(a, 1) Then Me.TextBox113.Text = .Cells(a, sut)
Next
End With
End Sub

Ayrıca "me" olayını anlattığınız için teşekkür ederim. Çoğu kodda gördüm ama kimse anlatmamıştı.
 

Feyzullah

XD Yönetim
Yönetici
Site Yöneticisi
SMS Onaylı
Katılım
1 Eki 2018
Mesajlar
867
Web Sitesi
www.exceldepo.com
Excel Versiyonu, Dili
Excel 2016 TR

Reputation:

Feyzullah abi
Textbox105' e veri girince aşağıda renkli olan kısımda hata veriyor. Bakabilir misiniz?
dosyadaki kodu aynen aldım, dosyaya uyarladım ama hata verdi.
Sub bul()
With Sheets("Tablo")
For s = 4 To 38
If Val(Me.TextBox112.Text) = .Cells(2, s) Then sut = s
Next s
For a = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If Me.ComboBox9.Value = .Cells(a, 1) Then Me.TextBox113.Text = .Cells(a, sut)
Next
End With
End Sub

Ayrıca "me" olayını anlattığınız için teşekkür ederim. Çoğu kodda gördüm ama kimse anlatmamıştı.
1.Mesajdaki dosyada eski kodlar vardı, üstteki kodlar ile değiştirdim ve bende hata vermedi bu kodlar. Me.TextBox112.Text değeri boş olursa hata verir.
 

malatyalı

Yeni Üye
SMS Onaylı
Kullanıcı
Katılım
8 Haz 2019
Mesajlar
275
Yaş
45
Excel Versiyonu, Dili
Excel 2016 T

Reputation:

Feyzullah abi
İşlemde sıralama hatası yapıyormuşum,
Dediğinizi yapınca hata vermedi.
Teşekkür ederim.
 
Üst