textbox içindeki metne metin ekleme

[chngrcn]

Forumun değerli üyeleri,

Ekteki çalışmamda, textbox1 multiline özellikli ve içinde bir metin var..

ALAN EKLE butonuna tıkladığımda textbox1 içinde imleç nerede ise oraya
textbox içindeki metni bozmayacak şekilde

[ALAN001] yazısını ekleyecek..

butona bir kez daha tıklarsak textbox içinde imleç nerede ise oraya

[ALAN002] ekleyecek..ve gerektiği yerde istediğim kadar böyle ALAN eklemek istiyorum..
kayıt yaptıktan sonra ileriki bir zamanda tekrar textbox içindeki herhangibir yere ALAN eklemek istediğimde önceki ALAN ların sayısını bulup, en son kaldığı alanın numarasından devam edecek şekilde ALAN eklemesini istiyorum..
Yardımlarınız için teşekkür ederim..
http://s8.dosya.tc/server2/s4czn1/Kitap1.rar.html

 

[ÖmerBey]

Merhaba,
Userformun kodlarını aşağıdaki ile değiştirip dener misiniz?

Dim n As Integer
Private Sub CommandButton1_Click()
n = n + 1
alan = "[ALAN" & n & "]"
TextBox1.SetFocus
SendKeys alan

End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("sayfa1").Cells(1, 1)
For a = 100 To 1 Step -1
    If InStr(1, TextBox1.Text, "[ALAN" & a & "]") > 0 Then
        n = a
        GoTo son
    End If
Next
n = 0
son:
End Sub

 

[chngrcn]

Sn. Mucit77
Teşekkür ederim..

 

[chngrcn]

ALAN ekliyor fakat, bir eksik var..

userform'u kapatıp açtıktan sonra, aynı belge üzerinde daha önceden eklediğim ALAN'ı saymadan tekrar ALAN EKLE dediğimde yine ALAN1'den başlayarak ekliyor..

amaç metin içindeki ALAN ları bulup en son kaçıncı alanda kaldı ise ordan devam ederek alan eklemesini istiyorum.. ekli projede deneyiniz lütfen..

 

[ÖmerBey]

Dosya yapınızı değiştirdiğiniz için böyle bir hata oluşması normal olsa gerek...
İlgili kodları Userform_Initialize olayı yerine Textbox5_Change olayının içine yazıp deneyiniz.

 

[chngrcn]

evet oldu, teşekkür ederim..

 

[chngrcn]

peki ALAN SİL butonu eklesek, eklediğimiz alanı silmek için nasıl bir kod yazılabilir ?

bu konu için yardımlarınızı rica ediyorum..