(10/08/2022, 09:36)tarkanaykın yazdı: Çok teşekkür ederim sayin feraz, emeğinize teşekkürler, kodları inceledim gördümki her bir textbox için uzunca kodları var, benim userformda bayağı bir textbox var, bunun daha kısa bir yolu olabilir mi, mesela ben hangi textboxu secersem onu algılayıp sağ menu acilsin, boyle algilatabilir miyiz?
Akşama hallederim abey Halil hocamızın dediği gibi class ile.Birde hata oluyordu onada bakarım.
Api siz class ile yaptım deneyin.
sayın feraz aşağıdaki kodu ekledikten sonra userformumu açan kod tür uyuşmazlığı hatası verdi, ben de bayağı bi inceledim acaba ne alaka diye, sonunda Me.Controls kısmına bakarken bende textboxların haricinde buton vesairenin de olduğu aklıma geldi ve hemen if else bloğu ekledim ki sadece textboxları seçsin diye, sorun çözüldü, böyle bir hata yaşayan olursa belki işe yarar diye paylaştım, çok teşekkür ederim çok makbule geçti bu çalışma , çok ihtiyacım vardı teşekkürler.
Dim clsTxtler() As New clsTextboxKopyala
Private Sub UserForm_Initialize()
Dim say As Long, ctl As Control
say = 0
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
ReDim Preserve clsTxtler(say)
Set clsTxtler(say).txt = ctl
say = say + 1
End If
Next
End Sub
konuyu güncelliyorum, silme işlemini yapıyor ama kopyala yapıştır dediğim zaman kare şeklinde kutucuklar şeklinde görünüyor yapıştırılan yazılar, ya da boşluk yapıştırıyor, nerede sorun var acaba, kusura bakmayın konu bayağı uzadı ama, bir de sayfadaki butona tıklıyorum çalışmıyor hiç tepki vermiyor.
Abey kesme işlemini eklemiştim onu ekleyeyim dediklerinize akşam bakarım.
Bende hiç sorun olmuyordu.
Yapıştırma işlemi hep en sona ekleniyor onada akşam bakarım.
Son dosyayı ekleyeyim inceleyin kesme olarak.
Son dosyada nedense kopyalama yapmıyor normalde oluyordu.
Bu dosyada dediğiniz olayıda ekledim ama tam deneyemedim herşeyi akşama kadar zamanım yok.
Not:Güncel versiyon eklendi 13.08.2022 11:42
Denedim, şu anlık bir sıkıntı yok, emeginiz için çok teşekkür ederim, sagolun.