textboxtaki değeri başka bir textboxa getirme

  • Konuyu başlatan Konuyu başlatan berkbaba
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Tarihe göre sırala Oylamaya göre sırala
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.
 
Oyla 0 Olumsuz oyla
"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"
 
Oyla 0 Olumsuz oyla
Ö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.
 
Oyla 0 Olumsuz oyla
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ı.
 
Oyla 0 Olumsuz oyla
malatyalı' Alıntı:
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ı.
Genişletmek için tıklayın ...
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.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst