Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Çözüldü textboxtaki değeri başka bir textboxa getirme
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
Textbox94 deki değer string tarih formatın da almazsın ama sayı olarak alabilirsin.
Kod:
Görüntülemek için giriş yapmalısınız.
(3 satır)"ME" içinde bulunduğu ana nesyeye başvurur.
Sheets("Sayfa1").Range("A1") = "ExcelDestek" yerine aşağıdaki gibi kullanılabilir. Umarım anlatabilmişimdir.
Me.Range("A1") = "ExcelDestek"
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"
Ö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.
Ü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.
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ı.
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.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 abi
İşlemde sıralama hatası yapıyormuşum,
Dediğinizi yapınca hata vermedi.
Teşekkür ederim.
İşlemde sıralama hatası yapıyormuşum,
Dediğinizi yapınca hata vermedi.
Teşekkür ederim.
- Durum
- Üzgünüz bu konu cevaplar için kapatılmıştır...
| F |
Çözüldü Hücre başlangıç değerine göre satırları başka sayfaya kopyalamak
|
| L |
Çözüldü label.caption değeri hücre değeri değiştikçe otomatik değişsin
|
| M |
Çözüldü Sekmeleri Başka Bir Sayfaya Makro ile Alma
|
| M |
Çözüldü Verileri Başka Bir Klasördeki Dosyaya Yazdırma
|
| M |
Çözüldü Verileri Başka Bir Excel Sayfasından Çekme
|
Konu Bilgi